Nie mogę otworzyć programu Word z makra programu Excel (XP urzędu). Jeśli użyję tego kodu, zatrzyma się on lineSet wdDoc = wordapp.Documents.Open(polozka.ShortPath) i program zawiesza się. Jeśli używamSet wdDoc = GetObject(polozka.ShortPath) zamiast tej linii program zatrzymuje się tutajWith wdDoc.Selection z „Obiekt nie obsługuje tej właściwości ...” błąd

Dim wordapp As Word.Application
Dim wdDoc As Word.Document

Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder("C:\path").Files       
Set wordapp = CreateObject("Word.Application")
For Each polozka In files
    Set wdDoc = wordapp.Documents.Open(polozka.ShortPath)
    wordapp.Visible = True
    With wdDoc.Selection
        .HomeKey Unit:=6
        .Find.Text = "Název (typ):"
        .Find.Wrap = wdFindContinue
        ...
    End With
    ...
    wordapp.Quit
    Set wordapp = Nothing    
Next