Automatische leere Seiten am Ende eines Abschnitts (Microsoft Word)
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 Bausteineintrag, 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 Ihren Baustein automatisch über das Feld AUTOTEXT 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 (12565) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: