Macro ne marche pas avec les pieds de page

Résolu
FredoRomano Messages postés 1 Statut Membre -  
m@rina Messages postés 27763 Date d'inscription   Statut Modérateur Dernière intervention   -
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

1 réponse

  1.
    m@rina Messages postés 27763 Date d'inscription   Statut Modérateur Dernière intervention   11 568
     
    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
Trouver le code source d'une page internet.
Aline² -
parzaal -

9 réponses
Code source couleur de fond
Mehdi-Amg -
Techno01 -

9 réponses