Si vous travaillez avec des documents que vous recevez d’autres personnes, l’une des tâches que vous devrez peut-être régulièrement faire est de supprimer tous les en-têtes et pieds de page des documents. Une façon de faire est de sélectionner simplement les différents en-têtes et pieds de page et de les supprimer, mais si le document contient de nombreuses sections, cela peut prendre beaucoup de temps. (En particulier si vous considérez que chaque section peut avoir jusqu’à trois en-têtes et pieds de page différents.)

Les tâches répétitives et chronophages sont toujours un candidat idéal pour les macros; ce n’est pas une exception. La macro suivante parcourt chaque section d’un document, supprimant tous les en-têtes et pieds de page qui ont été définis.

Sub RemoveHeadAndFoot()

Dim oSec As Section     Dim oHead As HeaderFooter     Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections         For Each oHead In oSec.Headers             If oHead.Exists Then oHead.Range.Delete         Next oHead

For Each oFoot In oSec.Footers             If oFoot.Exists Then oFoot.Range.Delete         Next oFoot     Next oSec End Sub

Cette macro est très puissante – elle ne vous demande pas si vous voulez continuer, ni ne considère ce qui peut être inclus dans les en-têtes et les pieds de page. Il les supprime simplement tous, ne laissant aucun document. Si vous traitez régulièrement un certain nombre de documents, vous pouvez facilement affecter la macro à un bouton de barre d’outils, un élément de menu ou une touche de raccourci.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1777) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Deleting_All_Headers_and_Footers [Suppression de tous les en-têtes et pieds de page].