Mit Word können Sie Ihrem Dokument verschiedene Arten von Abschnittsumbrüchen hinzufügen. Zwei der Abschnittsumbruchtypen führen dazu, dass dem Dokument bei Bedarf leere Seiten hinzugefügt werden. Wenn Sie beispielsweise einen ungeraden Seitenumbruch verwenden und der vorherige Abschnitt auf einer ungeraden Seite endet, fügt Word automatisch eine leere gerade Seite ein, damit der nächste Abschnitt auf der nächsten ungeraden Seite beginnen kann.

Das Problem dabei ist, dass Word eine absolut leere Seite einfügt – es werden nicht einmal Kopf- oder Fußzeilen auf der Seite gedruckt. Wenn Sie Kopf- und Fußzeilen oder andere Informationen auf der Seite bevorzugen (z. B. „Diese Seite wurde absichtlich leer gelassen“), können Sie sich nicht allein auf die Abschnittsumbrüche von Word verlassen.

Ein Ansatz besteht darin, ein Dokument manuell zu betrachten und bei Bedarf Ihren eigenen unsichtbaren Text hinzuzufügen, der auf der Seite „gedruckt“ wird, die sonst leer wäre. Sie erstellen unsichtbaren Text, indem Sie normalen Text hinzufügen und als Weiß formatieren. Weiß auf Weiß ist beim Drucken unsichtbar.

Word erkennt dies jedoch nicht und bietet Kopf- und Fußzeilen auf der „leeren“ Seite.

Ein interessanter Ansatz besteht darin, Ihren eigenen Standardtext am Ende des Abschnitts zu erstellen. Erstellen Sie einen AutoText-Eintrag, der Ihren Text am Ende des Abschnitts enthält, einschließlich eines Seitenumbruchs am Anfang des Eintrags. Nennen Sie den Eintrag etwa „BLANKPAGE“. Fügen Sie dann am Ende jedes Abschnitts kurz vor dem Abschnittswechsel das folgende zusammengesetzte Feld hinzu:

{ if { =int( {page} / 2 ) * 2 } = { page }  " " { autotext "BLANKPAGE" } }

Denken Sie daran, dass die in diesem Beispiel gezeigten Klammern Feldklammern sein sollen. Sie geben Feldklammern ein, indem Sie für jeden Satz Strg + F9 drücken. Das Feld prüft, ob die aktuelle Seite in diesem Fall gerade ist. Wenn dies der Fall ist, fügt das Feld automatisch Ihre AutoText-Informationen ein.

Falls gewünscht, können Sie auch ein Makro erstellen, das das Dokument schrittweise durchläuft, sich jeden Abschnitt ansieht, entscheidet, wie viele Seiten sich im Abschnitt befinden, und gegebenenfalls am Ende des Abschnitts einen Seitenumbruch hinzufügt. Das folgende Makro erledigt genau diese Aufgabe:

Sub CheckSecLen()

Dim iSec As Integer     Dim oRng As Range     Dim iValue As Integer

With ActiveDocument         ' go through each section (except for the last one)

For iSec = 1 To .Sections.Count - 1             ' create a range object at the start of the section             Set oRng = .Sections(iSec).Range             oRng.Collapse wdCollapseStart             ' insert a sectionpages field             .Fields.Add Range:=oRng, Type:=wdFieldSectionPages             ' divide the sectionpages field by 2             ' if it gives a zero as the remainder, then             ' you have an even number of pages in the section,             ' which is what you want with an odd section page break             If (.Sections(iSec).Range.Fields(1).Result Mod 2) <> 0 Then                 ' if you have an odd number of pages, then insert                 ' a page break before the section's section break                 Set oRng = .Sections(iSec).Range                 With oRng                     .Collapse Direction:=wdCollapseEnd                     .MoveEnd unit:=wdCharacter, Count:=-1                     .InsertBreak Type:=wdPageBreak                 End With             End If             ' remove the sectionpages field that was added             .Sections(iSec).Range.Fields(1).Delete         Next iSec     End With End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1870) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: