Hallo,
ich erstelle eine Vorlage mit VBA. Wenn eine Broschüre gedruckt wird, soll sichergestellt werden, dass weder auf der letzten Seite, noch auf der vorletzten Seite etwas gedruckt wird. Dafür habe ich ein Makro geschrieben, dass die Seitenzahl prüft und entsprechend einen Abschnittswechsel und die restlichen Seitenumbrüche anfügt. Die Fußzeile und Kopfzeile für diese angefügten Seiten (für diesen Abschnitt) sollen leer sein. Das funktioniert jetzt leider nicht so ganz. Mit dem Code (s.u.) wird nur die Kopf-/Fußzeile für ungerade Seiten angesprochen. Gibt es einen extra Code um die Kopf-/Fußzeile für die gerade Seiten ebenfalls anzusprechen oder wo ist mein Fehler? Vielen Dank für eure Antwort!
Viele Grüße,
Thea
ich erstelle eine Vorlage mit VBA. Wenn eine Broschüre gedruckt wird, soll sichergestellt werden, dass weder auf der letzten Seite, noch auf der vorletzten Seite etwas gedruckt wird. Dafür habe ich ein Makro geschrieben, dass die Seitenzahl prüft und entsprechend einen Abschnittswechsel und die restlichen Seitenumbrüche anfügt. Die Fußzeile und Kopfzeile für diese angefügten Seiten (für diesen Abschnitt) sollen leer sein. Das funktioniert jetzt leider nicht so ganz. Mit dem Code (s.u.) wird nur die Kopf-/Fußzeile für ungerade Seiten angesprochen. Gibt es einen extra Code um die Kopf-/Fußzeile für die gerade Seiten ebenfalls anzusprechen oder wo ist mein Fehler? Vielen Dank für eure Antwort!
Visual Basic-Quellcode
- Dim i As Long
- Dim seitenzahl As Long
- seitenzahl = ActiveDocument.ComputeStatistics(wdStatisticPages) + 1
- 'MsgBox seitenzahl
- If Not seitenzahl Mod 4 = 2 Then
- For i = 1 To seitenzahl
- If seitenzahl Mod 4 = 1 Or seitenzahl Mod 4 = 2 Then
- Exit For
- End If
- seitenzahl = seitenzahl + 1
- Next i
- End If
- If i > 1 Then
- Selection.EndKey Unit:=wdStory
- Selection.InsertBreak Type:=wdSectionBreakNextPage
- For s = 2 To i
- Selection.InsertBreak Type:=wdPageBreak
- Next s
- ActiveDocument.Sections(3).Headers(wdHeaderFooterPrimary).LinkToPrevious = False
- ActiveDocument.Sections(3).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
- ActiveDocument.Sections(3).Headers(wdHeaderFooterPrimary).Range.Text = " "
- ActiveDocument.Sections(3).Footers(wdHeaderFooterPrimary).Range.Text = " "
- MsgBox "Es wurden " & i & " Seiten hinzugefügt"
- Else
- MsgBox "Es müssen keine weiteren Seiten hinzugefügt werden."
- End If
Viele Grüße,
Thea