VBA: palavra aberta do excel
Não consigo abrir o Word a partir da macro do Excel (office xp). Se eu usar esse código, ele vai parar na linhaSet wdDoc = wordapp.Documents.Open(polozka.ShortPath)
e o programa congela. Se eu usarSet wdDoc = GetObject(polozka.ShortPath)
em vez desta linha, o programa pára aquiWith wdDoc.Selection
com o erro "Objeto não suporta esta propriedade ..."
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