Discussion :

[basto]

Bonjour,

afin de me permettre de faire une mise à jour massive de mes headers dans un document word, je cherche un moyen de faire une macro VBA qui boucle sur toutes les sections, qui sélectionne le header de la section en question et qui fait un lien de ce header vers le précédent.

J'ai toutes les infos mais je sais pas comment faire pour sélectionner un header précis d'une section donnée.

D'avance merci pour vos retours

[basto]

Ben en faite, je suis arrivé à cette solution. Y'a surement mieux mais pour l'instant ca marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub LinkHeaderFooterToPrevious()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    For Li = 2 To ActiveDocument.Sections.Count
        If ActiveDocument.Sections(Li).Headers(1).LinkToPrevious <> True Then
 
            ActiveDocument.Sections(Li).Headers(wdHeaderFooterPrimary).Range.WholeStory
            ActiveDocument.Sections(Li).Headers(1).LinkToPrevious = True
            MsgBox "Header de la section : " & Li
        End If
 
        If ActiveDocument.Sections(Li).Footers(1).LinkToPrevious <> True Then
 
            ActiveDocument.Sections(Li).Footers(wdHeaderFooterPrimary).Range.WholeStory
            ActiveDocument.Sections(Li).Footers(1).LinkToPrevious = True
            MsgBox "Footer de la section : " & Li
        End If
    Next
End Sub

[Heureux-oli]

Il y a trois types de headers, les headers de première page, les headers normaux et pour page paires et impaires.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub headersParcours()
 
Dim sec As Section
 
For Each sec In ActiveDocument.Sections
    sec.Headers(wdHeaderFooterPrimary).LinkToPrevious = True
Next sec
 
 
 
End Sub

[Sepia]

Salut,

Pour tester si les entêtes et pieds de page sont différents pour la 1ere page ou pour les pages et impaires, il faut tester l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Sections<monN°DeSection>.PageSetup

sur les 2 propriétés suivantes: DifferentFirstPageHeaderFooter (pour la 1ere page différente) et OddAndEvenPagesHeaderFooter (pour les pages paires et impaires différentes).