Ich möchte per Excel-Makro Werte aus einem Word-Dokument auslesen. Das wäre an sich kein Problem, unten stehender Code liest zum Beispiel den Inhalt einer Textmarke aus. Der gesuchte Wert ist in meinem Fall aber in eine Zelle einer im Word-Dok eingebetteten Excel-Tabelle eingetragen.
Wie komme ich an den heran?
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
With appWD
.Documents.Open "E:\Word\Testdok.docx"
.Selection.GoTo What:=wdGoToBookmark, Name:="Test"
Range("A1") = .Selection.Text
.ActiveDocument.Close SaveChanges:=False
.Quit
End With
Set appWD = Nothing
Manchmal habe ich mit obigen Code das Problem, dass Word nicht sauber geschlossen wird, sondern Fenster zum Speichern der Normal.dot hinterlässt. Kann man das irgendwie sauberer programmieren, um diesen Fehler zu vermeiden?
Vielen Dank für alle Hinweise
Günther Grund