Bruce möchte, dass Absätze der Überschrift 1 oben auf der nächsten Seite beginnen, wenn sie sonst in das untere Drittel der vorherigen Seite fallen. Er fragt sich, ob es einen Weg gibt, dies zu tun, vielleicht mit einem Makro.

Word verfügt über eine integrierte Funktion zum Anpassen der Paginierung basierend auf den Merkmalen eines Absatzes. (Eine Überschrift ist eine Art Absatz, daher gilt dies für Überschriften genauso einfach wie für jede andere Art von Absatz.) Auf der Registerkarte Zeilen- und Seitenumbrüche des Dialogfelds Absatz können Sie diese drei Einstellungen sehen:

Seitenumbruch vor. * Wenn diese Einstellung ausgewählt ist, wird der Absatz immer oben auf der nächsten Seite beginnen.

Witwen- / Waisensteuerung. * Wenn diese Einstellung ausgewählt ist, wird sichergestellt, dass eine einzelne Zeile des Absatzes am unteren oder oberen Rand einer Seite nicht allein gelassen wird, wenn für einen Absatz mehrere Zeilen erforderlich sind. Obwohl die meisten Überschriften aus einzelnen Zeilen bestehen, ist dies eine praktische Einstellung für Überschriften, falls mehrere Zeilen erforderlich sind.

Mit Weiter fortfahren. * Diese Einstellung stellt bei Auswahl sicher, dass der Absatz bei dem darauf folgenden Absatz bleibt. Dies ist ideal für eine Überschrift, da sichergestellt wird, dass eine Überschrift mindestens zwei Zeilen des darauf folgenden Absatzes enthalten muss. (Dies setzt voraus, dass Sie den folgenden Absatz für Widow / Orphan Control formatiert haben.)

Obwohl diese Steuerelemente fantastisch sind, erfüllen sie nicht die Anforderungen von Bruce, da keines von ihnen eine Überschrift zur nächsten Seite erzwingt, wenn sie normalerweise im unteren Drittel einer Seite angezeigt wird. Dies bedeutet, dass Bruce eine Problemumgehung finden muss, die das erreicht, was er will.

Ein Ansatz besteht darin, zwei Überschriften-1-Stile zu definieren. Einer der Stile kann als „normal“ betrachtet werden, was bedeutet, dass er im normalen Fluss Ihres Dokumenttextes angezeigt wird. Der andere Stil könnte auf der regulären Überschrift 1 basieren, aber die Einstellung „Seitenumbruch vor“ (weiter oben beschrieben) könnte aktiviert sein. Diese beiden Stile wären sehr einfach zu verwenden. Sie müssen lediglich sicherstellen, dass alle regulären Überschriften-1-Stile im gesamten Dokument verwendet werden. Anschließend können Sie vor dem Drucken das Dokument seitenweise manuell durchgehen und den sekundären Überschriftenstil 1 auf die Überschriften anwenden, die für Ihren Geschmack zu weit unten auf der Seite liegen. Sie werden automatisch an den Anfang der nächsten Seite verschoben, Word wird das Dokument neu formatieren und Sie können weiter nach Überschriften suchen, die verschoben werden müssen.

Der umgekehrte Ansatz besteht darin, manuelle Seitenumbrüche vor allen Absätzen in Überschrift 1 zu platzieren. Wenn Sie dann den Seitenumbruch und den Absatz Überschrift 1 auswählen, können Sie ihn als Baustein definieren, den Sie später für alle Ihre Überschriften verwenden können. (Fügen Sie einfach den Baustein ein und ändern Sie dann den Text im eigentlichen Überschriftenabsatz.) Gehen Sie vor dem Drucken das Dokument manuell durch und löschen Sie den gerade vorhandenen Seitenumbruch, wenn Sie feststellen, dass eine Überschrift auf die vorhergehende Seite verschoben werden könnte vor der Überschrift Absatz. Word verschiebt die Überschrift auf die vorhergehende Seite, repaginiert das Dokument und Sie können weiter nach Überschriften suchen, die verschoben werden könnten.

Wenn das untere Drittel einer Seite nicht tiefer als 10 Textzeilen ist, können Sie Ihre Überschriften auf eine neuartige Weise verwenden: Formatieren Sie sie mit einer Drop-Cap. Eine Drop Cap kann bis zu 10 Zeilen tief sein. Alles, was Sie tun müssen, ist sicherzustellen, dass das „fallengelassene“ Zeichen etwas sehr, sehr Dünnes ist. Sie können beispielsweise versuchen, einen Großbuchstaben I zu verwenden. Formatieren Sie das einzelne Zeichen als sehr kleine Punktgröße und machen Sie seine Farbe weiß. Wählen Sie dann das Zeichen aus und machen Sie es zu einer 10-zeiligen Drop-Cap. Wenn die gesamte Drop-Cap nicht auf die Seite passt, verschiebt Word sie verbindlich auf die nächste Seite. Möglicherweise müssen Sie mit einigen Formatierungsmerkmalen spielen, um genau das zu erhalten, was Sie möchten. Dies ist jedoch die einzige mögliche Problemumgehung, bei der Sie keine manuelle Verarbeitung vornehmen müssen.

Wenn Sie ein Makro für die Formatierung verwenden möchten, ist es am praktischsten, wenn das Makro die Positionen aller Absätze der Überschrift 1 nach Abschluss des Dokuments anpasst. Die Idee ist, dass das Makro vom Anfang des Dokuments an nach Absätzen der Überschrift 1 sucht. Wenn eine gefunden wird und sie sich auf mehr als 66% der Seitenhöhe befindet, wird ein Seitenumbruch eingefügt, um die Überschrift zur nächsten Seite zu verschieben. Das folgende Makro führt alle diese Aufgaben aus.

Sub AdjustHeading()

Dim CursorVert As Single     Dim Pgheight As Single     Dim styleName As String

styleName = "Heading 1"

If ActiveDocument.Styles(styleName).ParagraphFormat.PageBreakBefore Then         MsgBox styleName & " has 'Page break before' set. Run aborted"

Exit Sub     End If     Selection.HomeKey unit:=wdStory     With Selection.Find         .ClearFormatting         .Style = ActiveDocument.Styles(styleName)

.Text = ""

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop     End With     Do While Selection.Find.Execute         If Asc(Selection.Range.Characters(1)) = 12 Then             Selection.MoveStart unit:=wdCharacter, Count:=1         End If         With ActiveDocument.Sections(Selection.Information(wdActiveEndSectionNumber)).PageSetup             CursorVert = Selection.Information(wdVerticalPositionRelativeToPage) - .TopMargin             Pgheight = .PageHeight - .TopMargin - .BottomMargin         End With         If CursorVert > Selection.Style.ParagraphFormat.SpaceBefore Then             If CursorVert / Pgheight > 0.66 And Len(Selection.Range) > 1 Then                 Selection.End = Selection.Start                 Selection.TypeText Chr(12)

End If         End If         Selection.Start = Selection.End     Loop End Sub

Damit dieses Makro ordnungsgemäß funktioniert, sollten Sie sicherstellen, dass für Ihren Überschriftenstil 1 nicht das Attribut „Seitenumbruch vor“ festgelegt ist.

Das Makro bestimmt die Seitenhöhe des aktuellen Abschnitts, um Dokumente aufzunehmen, deren Seitenhöhe von Abschnitt zu Abschnitt variiert.

Die Seitenhöhe wird berechnet, indem der obere und untere Rand von der Papierhöhe abgezogen werden.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (12564) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.