Nach dem ich die ganze Nacht gearbeitet habe bräuchte ich noch
Hilfe zu 1. Syntax zu manuellem Seitenwechsel
2. Eintrag in die Fußzeile
Ausschnitt aus meinem Code ich Übertrage Daten aus Excel in
Word ...
Range("X1:AA" & i).Copy
On Error Resume Next
Set WordObj = GetObject(, "word.application." & x & "")
If Err.Number = 429 Then
Set WordObj = CreateObject("word.application." & x & "")
Err.Number = 0
End If
WordObj.Visible = True
Set WordDoc = WordObj.documents.Add
With WordObj.Selection
.Font.Name = "Courier New"
.Font.Size = 14
.Font.Bold = True
.typetext Text:="Zusammenstellung der Teileliste "
.Font.Size = 11
.Font.Bold = False
.typetext Text:="Protokoll-Nr.________"
.TypeParagraph
usw..
End With
jetzt möchte ich hier nach dem letzten Befehl einen Seiten Wechsel erzwingen und dann auf der Zweiten Seite weitermachen.
Sowie einen Eintrag in die Fußzeile machen.
Vielen Dank im Voraus und einen schönen Tag
Willie