ich hoffe, ich bin im "Excel-Forum" richtig.
Ich versuche Inhalten aus verschiendenen Zellen in Excel nach Word zu übertragen.
Diesen Textbausteinen möchte ich jeweils eine spezielle Formatvorlage aus Word zuweisen.
Wichtig ist auch, dass die Textbausteine am Ende des Worddokuments eingefügt werden, da in dem Word-Template bereits Daten auf den ersten Seiten eingetragen sind (ähnlich einem Angebot).
Folgendes habe ich bereits ausprobiert. Dabei wird aber das gesamte Dokument mit der Formatvorlage "Überschrift 1" formatiert. Was mache ich falsch? Kann mir jemand helfen?
Vielen Dank und viele Grüße
Martin
Sub WordTest()
Dim AppWord As Object
Dim objRange As Object
Dim TMP As String
'Word- und Excel-Dokumente öffnen
Set AppWord = CreateObject("Word.Application") 'Word starten
AppWord.Visible = True
AppWord.Documents.Open "C:\Template.docx"
Workbooks.Open "C:\50293134_Text.xlsx" 'XLS-Dokument mit Textbausteinen öffnen
TMP = Workbooks("50293134_Text.xlsx").Worksheets("Tabelle1").Range("D2").Value
Set objRange = AppWord.Documents("C:\Template.docx").Content
objRange.InsertAfter TMP ' wird richtigt am Ende eingefügt!
objRange.InsertParagraphAfter
objRange.InsertAfter "Test: Text am Ende des Dokuments" ' wird richtig am Ende eingefügt
objRange.InsertParagraphAfter
With objRange ' hier wird das gesamte Dokument als "Überschrift 1" formatiert
.Style = "Überschrift 1"
.InsertAfter "Formatierter Text"
End With
'Dokumente wieder schließen
'Word-Dokument schließen
AppWD.documents("C:\Template.docx").Close SaveChanges:=True
AppWD.Quit
Set AppWD = Nothing
Workbooks("50293134_Text.xlsx").Close False
End Sub