1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
'Déclaration de variable
Dim s As Section
'Parcours de toutes les sections
For Each s In Selection.Sections
'Parcours des 3 types de pied de page
s.Footers(1).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
s.Footers(2).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
s.Footers(3).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
'Parcours des 3 types d'en-tête
s.Headers(1).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
s.Headers(2).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
s.Headers(3).Range.Find.Execute Findtext:="|ref|", ReplaceWith:=monRcsFI![Reference], Replace:=wdReplaceAll
Next s |
Partager