ContentControl (WORD) in Excel Zelle schreiben

Forumthread: ContentControl (WORD) in Excel Zelle schreiben

26.09.2019 13:51:25

Mike

Hallo zusammen,
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)

Ich habe erstmal probiert den Wert in eine Variable Test zu schreiben aber bekomme es nicht hin. Bis DocWord scheint alles ok aber die Syntax zum ansprechen der CC scheint falsch. Wie ist die korrekte Syntax dazu?
Gruß
Mike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ContentControl (WORD) in Excel Zelle schreiben

26.09.2019 14:02:22

Mike

habe es selbst hin bekommen

Sub Import()
Dim appWord As Object
Dim DocWord As Object
Dim test As String
Dim test1 As String
Set appWord = GetObject(, "Word.Application")
Set DocWord = appWord.documents(1)
test = DocWord.ContentControls(1).Range
test1 = DocWord.ContentControls(2).Range

Wahrscheinlich nicht die eleganteste Lösung aber offensichtlich funktioniert sie.
Gruß
Mike

AW: ContentControl (WORD) in Excel Zelle schreiben

26.09.2019 14:11:04

Nepumuk

Hallo Mike,
kaum schreibt man die Eigenschaften richtig, schon funktioniert's

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.ContentControls

    test = CC.Item(1).Range.Text

    MsgBox test

End Sub

Gruß
Nepumuk

AW: ContentControl (WORD) in Excel Zelle schreiben

26.09.2019 14:34:32

Mike

Hallo Nepumuk,
ich wusste es konnte nichts wildes sein aber wenn man den Fehler dann an anderer Stelle vermutet,
verennt man sich nur zu leicht in die falsche Richtung.
Auf jeden Fall kann ich deinem Post entnehmen, dass ich das CC als .Item(1) etc. ansprechen kann.
Das hilft mir auch schon.
Danke und Gruß
Mike

Beliebteste Forumthreads (12 Monate)

ContentControl (WORD) in Excel Zelle schreiben

Forumthread: ContentControl (WORD) in Excel Zelle schreiben

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

ContentControl (WORD) in Excel Zelle schreiben

Forumthread: ContentControl (WORD) in Excel Zelle schreiben

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread