Recherche

Si le document ne contient qu'une section, si, de plus, les options Pages paires et impaires différentes et Première page différente ne sont pas sélectionnée, c'est tout simple : Onglet Insertion => Pied de page => Supprimer.

Le problème se complique pour un document plus élaboré qui contient de nombreuses sections. Dans ce cas, le mieux est d'utiliser une macro.

Sub suppr()
For x = 1 To ActiveDocument.Sections.Count
ActiveDocument.Sections(x).Footers(wdHeaderFooterPrimary).Range.Delete
Next
End Sub


Si l'option Pages paires et impaires différentes est sélectionnée, vous ajouterez la ligne suivante :

ActiveDocument.Sections(x).Footers(wdHeaderFooterEvenPages).Range.Delete


Si l'option Première page différente est sélectionnée, vous ajouterez la ligne suivante :

ActiveDocument.Sections(x).Footers(wdHeaderFooterFirstPage).Range.Delete


Si vous souhaitez supprimer les en-têtes, vous utiliserez les mêmes macros, mais vous remplacerez les "Footers" par "Headers". Exemple :

ActiveDocument.Sections(x).Headers(wdHeaderFooterPrimary).Range.Delete

 

 

Statistiques

France 72,4% France
Canada 5,3% Canada
Chine 3,7% Chine

Total:

154

Pays
018457830
Aujourd'hui: 15
Hier: 236
Cette semaine: 15
Semaine dernière: 2.729
Ce mois: 5.758