Vann crée tout le temps des documents qui utilisent plusieurs sections. Lors de l’ajout d’en-têtes ou de pieds de page à ces documents, le « Lien vers le précédent »

le réglage est toujours activé. Van se demande s’il existe un moyen de désactiver le paramètre, par défaut. Il l’utilise rarement, voire jamais, et le changer tout le temps est un problème; c’est juste une chose de plus qu’il doit se rappeler de vérifier pendant qu’il travaille avec le document.

Il n’existe aucun moyen de spécifier une valeur par défaut pour le paramètre Lien vers le précédent dans Word lui-même. Vous pouvez toutefois modifier la façon dont vous ajoutez des sauts dans votre document. Si vous faites cela via une macro, la macro peut facilement désactiver le paramètre Lien vers le précédent pour la nouvelle section ajoutée. Voici un moyen rapide de le faire:

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

La méthode .InsertBreak insère en fait la rupture. Dans ce cas, il s’agit d’un saut de page suivante. Vous pouvez spécifier différents types de sauts en remplaçant simplement l’énumération wdSectionBreakNextPage par l’un de ces autres types de sauts:

wdSectionBreakContinuous wdSectionBreakEvenPage * wdSectionBreakOddPage

La macro définit ensuite iSec comme étant égal au numéro d’index de la section actuelle.

Ceci est ensuite utilisé dans la structure With pour définir la propriété LinkToPrevious pour les trois types d’en-têtes et les trois types de pieds de page.

Si vous préférez, vous pouvez modifier la propriété LinkToPrevious pour tous les en-têtes et pieds de page de toutes les sections de votre document à la fois:

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

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (13502) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.