PDA

Vollständige Version anzeigen : Seitenzahl Makro ändern in X4


sysoptiger
03.02.2009, 09:23
Hallo,

ich habe ein Problem mit Coreldraw X4.
Habe ein Dokument, das ich gerne mit Seitenzahlen versehen würde. Allerdings soll auf den ersten 6 Seiten keine Seitenzahl stehen. Seite 1 soll also auf Seite 7 stehen usw.
Nun nimmt das Standard Makro darauf keine Rücksicht.
Wie müsste ich das Makro abändern, das ich noch ein feld "Startseite" einfüge?
Kenne mich leider in VBA Programmierung nicht aus und wäre froh um jede Hilfe.

Gruß

Peter

Nimbin
07.02.2009, 21:58
Hallo Peter,

damit müsste es gehen.
Kopier den Code einfach unter GlobalMacros -> Module -> RecordedMacros
Dann kannst du ihn über die Schaltfläche 'Makro ausführen' starten.
Schriftart und -größe kannst du vorher in der Leiste einstellen.

Hoffe, es funzt...

Sub SeitenzahlenErstellen()

Dim i As Long
Dim Seitenzahl As Double
Dim doc As Document

Dim p As Page
Dim s As Shape

Seitenzahl = 1
Set doc = ActiveDocument
doc.Unit = cdrMillimeter

For i = 7 To doc.Pages.Count
Set p = doc.Pages(i)

'*** 110 und 10 sind die Koordinaten der Seitenzahl in Millimeter gemessen von links unten ***
Set s = p.ActiveLayer.CreateArtisticText(110, 10, Str(Seitenzahl))
Seitenzahl = Seitenzahl + 1
Next i

End Sub