Moin zusammen,
ich bin gerade dabei nach längerer Zeit wieder vba zu programmieren, vielleicht bin ich auch nur betriebsblind.. Ich muss eine Word Datei aus Access (Office 2013) heraus erstellen. Nun habe ich das Problem dass bei einigen Dateien der Inhalt auf die zweite Seite geht. Daher möchte ich bei diesen Dokumenten vor dem letzten Abschnitt einen Seitenumbruch einfügen.
Also Datei öffnen und Text einfügen etc geht alles, auch das spätere ins pdf umwandeln. Nur den Zeilenumbruch bekomme ich nicht sauber hin. Habe jetzt ein Bookmark eingefügt in der Word Vorlage (heisst: BM_PageBreak).
If wDoc.BuiltinDocumentProperties(14) <> 1 Then
wDoc.Bookmarks("BM_PageBreak").Range.InsertBreak wdPageBreak
End If
Wenn ich einen Haltepunkt setze und debugge, dann läuft es, wenn ich jedoch ohne Haltepunkt durchlaufen lasse, dann hat er als Wert für Seitenzahlen immer die 1 drinnen und fügt den Umbruch nicht ein.
Denke mal dass Word im Hintergrund in der schnelle nicht die Property aktualisiert bekommt und jetzt meine Frage: Kann ich das erzwingen?
Oder mache ich irgendwas falsch?
Danke vorab - Gruss Christian
Hmm ist ja komisch, habe jetzt aber eine andere Option gefunden:
'Seitenumbruch einfügen
If wDoc.ComputeStatistics(wdStatisticPages) > 1 Then
wDoc.Bookmarks("BM_PageBreak").Range.InsertBreak wdPageBreak
End If
Trotzdem danke ;-)