Ich gebe dazu einen Teil meines Codes wieder. Zunächst die Erklärung: ich habe ein Formular erstellt in welchem beim Initialisieren Werte aus Excel-Cells eingelesen werden. Je nachdem was dort steht werden Dokumente als Vorlagen hergenommen. Ziel ist es, ein eigenes neues Word-Dokument zu erzeugen, mit den Inhalten dieser Vorlagen, hintereinander weg kopiert und durch insert.break getrennt. In WORD selbst hab ich so ne Funktion bereits drin, nur eben über den Umweg Excel klappt das nicht. Das Ergebnis meines Codes ist ganz simpel: es passiert gar nix. Anders gesagt: durch objWA.visible = true kann ich sehen, wie sechs EIGENE Dokumente erstellt werden. Nicht jedoch werden die Inhalte in EIN neues zusammenkopiert.
Die Lösung ist bestimmt relativ simpel... ich komme nur nicht weiter... DANKE für Hilfe!
Teil des Codes zum Verständnis:
Set objWA = CreateObject("Word.application") 'Word öffnen
objWA.Visible = True
If frmVTG.cboListe.ListIndex = 0 Then 'alles drucken
objWA.Documents.Add (strPfad & "HV_AQA.docx")
' hier soll eigentlich der Umbruch erfolgen.
'selection.EndKey Unit:=wdStory 'ans Ende des Dokuments springen
'selection.InsertBreak Type:=wdPageBreak 'einen Seitenumbruch einfügen
'mögliche SBN (26):
' 9, 18, 19, 22,23, 28, 29, 38, 44, 45, 50, 81, 82, 83, 84,
' 89, 134, 144, 145, 153, 156, 157, 158, 159, 169, 174
' VU-Funktionen (15):
' 999
objWA.Documents.Add (strPfad & "FKT_" & frmVTG.txtSBN & ".docx")
If frmVTG.chkVorschuss.Value = True Then
objWA.Documents.Add (strPfad & "Vorschuss_AQA.docx")
End If