ContentControl (WORD) in Excel Zelle schreiben
26.09.2019 13:51:25
Mike
ich komme einfach nicht weiter.
Ich habe ein WORD Dokument. Darin befinden sich unter anderem ContentControl(1) und ContentControl(2) (Text Steuerlemente).
Aus Word heraus öffne ich eine Exceldatei in der ein Makro gestartet wird. Das Excel Makro holt sich dann aus dem Word Dokument zwei Werte (da ich den Inhalt offensichtlich nicht als Variable direkt übergeben kann). Die stehen in ContentControl(1) und (2).
Ich bekomme es aber nicht hin aus Excel den Inhalt der Contentcontrol auszulesen.
Sub Import()
Dim appWord As Object
Dim DocWord As Object
Dim CC As Object
Dim test As String
Set appWord = GetObject(, "Word.Application")
Set DocWord = appWord.documents(1)
Set CC = DocWord.ContenControl
test = DocWord.CC.ContentControl(1)
Gruß
Mike