VBA: palabra abierta de excel
No puedo abrir Word desde Excel macro (office xp). Si utilizo este código, se detendrá en línea.Set wdDoc = wordapp.Documents.Open(polozka.ShortPath)
y el programa se congela. Si yo usoSet wdDoc = GetObject(polozka.ShortPath)
En lugar de esta línea, el programa se detiene aquí.With wdDoc.Selection
con "El objeto no admite esta propiedad ..." error
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