Vann erstellt ständig Dokumente, die mehrere Abschnitte verwenden. Wenn Sie diesen Dokumenten Kopf- oder Fußzeilen hinzufügen, wird der „Link zur vorherigen“

angezeigt Einstellung ist immer eingeschaltet. Van fragt sich, ob es eine Möglichkeit gibt, die Einstellung standardmäßig auszuschalten. Er benutzt es selten, wenn überhaupt, und es ist ein Problem, es ständig zu ändern. Es ist nur eine weitere Sache, an die er denken muss, wenn er mit dem Dokument arbeitet.

Es gibt keine Möglichkeit, eine Standardeinstellung für die Einstellung „Mit vorherigen verknüpfen“ in Word selbst anzugeben. Sie können jedoch ändern, wie Sie Ihrem Dokument Unterbrechungen hinzufügen. Wenn Sie dies über ein Makro tun, kann das Makro die Einstellung Link zu Vorheriger für den neuen, hinzugefügten Abschnitt einfach deaktivieren. Hier ist ein schneller Weg, dies zu tun:

Sub AddBreak()

Dim iSec As Integer

Selection.InsertBreak Type:=wdSectionBreakNextPage

iSec = Selection.Information(wdActiveEndSectionNumber)

With ActiveDocument.Sections(iSec)

.Headers(wdHeaderFooterPrimary).LinkToPrevious = False         .Headers(wdHeaderFooterEvenPages).LinkToPrevious = False         .Headers(wdHeaderFooterFirstPage).LinkToPrevious = False         .Footers(wdHeaderFooterPrimary).LinkToPrevious = False         .Footers(wdHeaderFooterEvenPages).LinkToPrevious = False         .Footers(wdHeaderFooterFirstPage).LinkToPrevious = False     End With End Sub

Die .InsertBreak-Methode fügt die Unterbrechung tatsächlich ein. In diesem Fall handelt es sich um eine Unterbrechung der nächsten Seite. Sie können verschiedene Arten von Unterbrechungen angeben, indem Sie einfach die Aufzählung wdSectionBreakNextPage in eine dieser anderen Arten von Unterbrechungen ändern:

wdSectionBreakContinuous wdSectionBreakEvenPage * wdSectionBreakOddPage

Das Makro setzt dann iSec gleich der Indexnummer des aktuellen Abschnitts.

Dies wird dann in der With-Struktur verwendet, um die LinkToPrevious-Eigenschaft für alle drei Arten von Kopfzeilen und alle drei Arten von Fußzeilen festzulegen.

Wenn Sie möchten, können Sie die LinkToPrevious-Eigenschaft für alle Kopf- und Fußzeilen in allen Abschnitten Ihres Dokuments gleichzeitig ändern:

Sub ChangeAll()

Dim s As Section

For Each s In ActiveDocument.Sections         s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False         s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False         s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False         s.Footers(wdHeaderFooterEvenPages).LinkToPrevious = False         s.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False         s.Footers(wdHeaderFooterPrimary).LinkToPrevious = False     Next s 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.

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 beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (13502) gilt für Microsoft Word 2007, 2010, 2013 und 2016.