Ich schreibe von Excel aus, Daten in Textfelder die sich in einem Word Dokument befinden.
Public Sub test()
Dim Pfad As Variant, anschrift As Variant, suchfeld As Variant, suchbegriff As Variant
Pfad = Left(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\"))
Dim wrdApp, wrdDoc, Tabelle
Set Tabelle = ThisWorkbook.Worksheets("Angebote")
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open(Pfad & "\Originale EXCEL Word Dateien\Vorlage.dotm")
wrdDoc.ContentControls(1).Range.Text = "TEST"
wrdDoc.SaveAs (Pfad & "Angebote\test.doc")
Set Tabelle = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
Das erste Textfeld befindet sich in der Kopfzeile, alle weiteren im normalen Schriftbereich.
Wenn ich den Code so ausführe, befüllt er das erste welches sich im normalen Textbereich befindet und lässt das in der Kopfzeile aus.
Woran liegt das?
Danke