Hallo liebe Experten des Textverarbeitungsprogramms Word!
Frage:
Bei einem Dokument von insgesamt 30 Seiten, möchte ich die ersten 5 Seiten mit den Seitenzahlen: I, II … V versehen.
Die Seiten 6 bis 30 sollen dann die „normalen“ Zahlen: 1, 2 … aufweisen.
Ich möchte also ab Seite 6 mit einem anderen Zahlenformat wieder bei 1 beginnen. Geht das überhaupt? Und wenn „ja“ - wie?
Gruß
Roman
Bei einem Dokument von insgesamt 30 Seiten, möchte ich die
ersten 5 Seiten mit den Seitenzahlen: I, II … V versehen.
Die Seiten 6 bis 30 sollen dann die „normalen“ Zahlen: 1, 2
… aufweisen.
Hi Roman,
ich kann kein Word-VBA, deshalb musst noch manuell immer die Nummer der letzten Seite ermitteln und im Code abändern damit er 100% automatisch läuft.
Ansonsten ist der Eibau des Makros kinderleicht, Ansicht–Symbolleisten,Steuerelementleiste,
dort links eine befehllschaltfläche (graues Viereckchen) dann mit rechter Maustaste daraufklicken und Code anzeigen auswählen, die leere Sub löschen und Code reinkopieren, Editor schliessen.
Zum Ändern der letzen Seite wieder Rechtsklick usw…
WEnn dir hier jemand sagt wie man mit word-vba die Nummer der letzen Seite ermittelt, vielleicht steht das ja auch hier im Archiv,
also so in etwa
nr=document.Seiten.count
so musst du nur
Pages:=„7-30“ abändern in
Pages:=„7-“ & nr
oder auch
Pages:=„7-“ & cstr(nr)
abändern, müßtest du austesten
Private Sub CommandButton1\_Click()
Sub Makro2()
Selection.Sections(1).Headers(1).PageNumbers .NumberStyle =wdPageNumberStyleArabic
PageNumberAlignment:= \_
wdAlignPageNumberRight, FirstPage:=True
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= \_
wdPrintDocumentContent, Copies:=1, Pages:="1-6", PageType:= \_
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, \_
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, \_
PrintZoomPaperHeight:=0
Selection.Sections(1).Headers(1).PageNumbers .NumberStyle =wdPageNumberStyleUppercaseRoman
Selection.Sections(1).Footers(1).PageNumbers.Add
PageNumberAlignment:= \_
wdAlignPageNumberRight, FirstPage:=True
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= \_
wdPrintDocumentContent, Copies:=1, Pages:="7-30", PageType:= \_
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, \_
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, \_
PrintZoomPaperHeight:=0
End Sub
Gruß
Reinhard
Frage:
Bei einem Dokument von insgesamt 30 Seiten, möchte ich die
ersten 5 Seiten mit den Seitenzahlen: I, II … V versehen.
Die Seiten 6 bis 30 sollen dann die „normalen“ Zahlen: 1, 2
… aufweisen.
Ich möchte also ab Seite 6 mit einem anderen Zahlenformat
wieder bei 1 beginnen. Geht das überhaupt? Und wenn „ja“ -
wie?
Hallo Roman,
aber ja geht das und ganz einfach sogar (gilt für WORD 97):
>Einfügen >Manueller Wechsel >Abschnittswechsel
dann unter
>Einfügen >Seitenzahlen
das neue Format einstellen.
Gruß Gudrun
owT: Danke ihr beiden!
H