user_mobilelogo

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

Aujourd'hui1432
Hier1893
Cette semaine8501
Ce mois27794
Total depuis 200418230334

9
visiteurs actuellement en ligne

19 avril 2024