user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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'hui761
Hier950
Cette semaine11407
Ce mois42171
Total depuis 200413200790

12
visiteurs actuellement en ligne

25 juillet 2021