Beschreibung

Recht simpel, aber dennoch hilfreich ist die Word-Option „Absätze nicht trennen“. Mit dieser Option lässt sich festlegen, dass Absätze bei einem Seitenumbruch nicht auseinandergerissen werden.
Bei größeren Dokumenten tritt dieser Fall häufiger auf. Daher habe ich zum Aktivieren/Deaktivieren der Option „Absätze nicht trennen“ ein kurzes Makro geschrieben. Legt man dieses nun auf eine Tastenkombination lässt sich das Umschalten dieser Option schnell und einfach durchführen.

Sourcecode

Public Sub AbsätzeNichtTrennen()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    ' Absätze trennen-Flag invertieren
    With Selection.ParagraphFormat
        .KeepWithNext = Not .KeepWithNext
    End With

NoDocumentOpen:
End Sub