otevření wordovského souboru makrem Excelu

[scorpio1]

Zdravím,
potřeboval bych poradit s otevřením wordovského souboru pomocí makra Excelu.

Příkaz "Application.ActivateMicrosoftApp xlMicrosoftWord" aktivuje nebo spustí prázdný Word, ale nevím, jak Wordu vnutit, aby se otevřel již s nějakým konkrétním souborem.

Jestli by to šlo pomocí nějakých parametrů nebo pomocí funkce GetObject ...

Díky za radu

[Poki]

slo by to napr. takto:

Kód: Vybrat vše

Public Sub openFILE()

Dim soubor As String
Dim Path as String

soubor = ActiveCell.Value
Path = "c:\Documents and Settings\Dokumenty\" & soubor
Dim wdApp As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(Path)
 
End Sub

[scorpio1]

Díky, funguje to.
Jen jsem musel "vyházet" všechny příkazy "Dim" - neprošly kompilací