Hallo,
die Aufgabe: für eine Akten wurden Fotokopien gefertigt. Diese sollen oben rechts nummeriert werden, Z. B. von 20 bis 88. Per Hand eine nervige Sache.
Mit diesem Makro geht es eingeschränkt:
Sub InsertTextAtEndOfDocument()
i = 0
For i = 20 To 29
ActiveDocument.Content.InsertAfter Text:=i
ActiveDocument.PrintOut Range:=wdPrintCurrentPage
Selection.GoTo wdGoToPage, wdGoToAbsolute, i
Selection.Bookmarks("\Page").Range.Delete
Next i
End Sub
' geht nur für jeweils 10 Seiten, sonst Zahlendreher
Der Fehler ergibt sich aus dem Kommentar. Word bzw. VBA druckt die Seitenzahlen wild durcheinander, sofern mehr als 10 Seiten zu bedrucken sind.
Wo liegt hier der Fehler?
Viele Grüße
Andreas
|