Envoyé par
EGC-ENERGIE
Peux-tu me donner le code final sans les messages.
Pour neutraliser les lignes de code, il te suffit de mettre le caractère ' devant la ligne :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Sub VerifierPiedDePage()
Dim I As Integer, J As Integer
With ActiveDocument
Application.Templates.LoadBuildingBlocks
' MsgBox Application.Templates(2).BuildingBlockEntries.Count
With Application.Templates(2)
For J = 1 To .BuildingBlockEntries.Count
' If InStr(1, .BuildingBlockEntries(J).Name, "Alphabet", vbTextCompare) > 0 Then
' MsgBox .BuildingBlockTypes(wdTypeFooters).Name
' End If
If .BuildingBlockEntries(J).Name = "Alphabet" Then
If .BuildingBlockTypes(wdTypeFooters).Name = "Pieds de page" Then
With .BuildingBlockEntries("Alphabet")
.Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, RichText:=True
' .Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range, RichText:=True
'.Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterEvenPages).Range, RichText:=True
End With
End If
End If
Next J
End With
End With
End Sub |
Sinon :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Sub VerifierPiedDePage()
Dim I As Integer, J As Integer
With ActiveDocument
Application.Templates.LoadBuildingBlocks
With Application.Templates(2)
For J = 1 To .BuildingBlockEntries.Count
If .BuildingBlockEntries(J).Name = "Alphabet" Then
If .BuildingBlockTypes(wdTypeFooters).Name = "Pieds de page" Then
With .BuildingBlockEntries("Alphabet")
.Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, RichText:=True
' .Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range, RichText:=True
'.Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterEvenPages).Range, RichText:=True
End With
End If
End If
Next J
End With
End With
End Sub |
Petite précision si je n'abuse pas trop de ton dévouement. Il faudrait que sur la 1ère page n'ai pas de Pied de page, et que je puisse mettre un texte définitif à la place de [Texte].
Tu double-cliques sur le pied de page et tu coches Première page différente.
Sinon tu choisis un autre pied de page pour :
' .Insert Where:=ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range, RichText:=True
Partager