Macro ne marche pas avec les pieds de page

Résolu
FredoRomano Messages postés 1 Statut Membre -  
m@rina Messages postés 26227 Statut Contributeur -
Bonjour, je cherche à créer une macro qui me servira, pour des fichiers avec pieds de page, à effacer le pied de page.
J'ai essayé comme d'hab : affichage - macro - enreg une macro, puis je lui ai attribué un nom et un raccourci clavier, puis dans le fichier : insersion - pied de page - supprimer le pied de page. puis affichage - macro - arrêter l'enreg. puis j'ai tout bien enregistré, y compris la modif du modèle Normal.
Et ça ne fonctionne pas !
Merci de m'aider si possible
A voir également:

1 réponse

Réponse 1 / 1
m@rina Messages postés 26227 Statut Contributeur 11 480
 
Bonjour

Essaie ceci : 

Sub suppr_pdp()
'supprime tous les pdp
For Sect = 1 To ActiveDocument.Sections.Count
With ActiveDocument.Sections(Sect)
    .Footers(wdHeaderFooterPrimary).Range.Delete
    .Footers(wdHeaderFooterEvenPages).Range.Delete
End With
Next
End Sub

m@rina
0

Discussions similaires

[référencement] Ne pas être référencé
kij_82 -
Searaphina -

10 réponses
Code erreur 80710A06
LeJoeurTriste -
Petibond -

27 réponses
Trouver le code source d'une page internet.
Aline² -
parzaal -

9 réponses