Aaron reçoit souvent des documents d’autres personnes dans lesquels il doit normaliser l’apparence du document. Il peut joindre un modèle, ce qui lui permet d’appliquer des styles au texte du document. Ce dont il a vraiment besoin, cependant, c’est un moyen d’attacher des en-têtes et des pieds de page standard au document. Il les a définis dans son modèle, mais le fait de joindre le modèle n’ajoute pas les en-têtes et les pieds de page. Il se demande s’il existe un moyen simple d’ajouter des en-têtes et des pieds de page standard à ces documents.

Lorsque vous attachez un modèle à un document existant, ce que vous faites essentiellement est de fournir au document l’accès à l’ensemble de styles et de macros stockés dans le modèle. La seule façon pour le document d’acquérir les caractéristiques au niveau de la page ou de la section du modèle est de créer un document basé sur ce modèle. C’est pourquoi de nombreuses personnes choisissent de suivre cette séquence générale:

  1. Créez un tout nouveau document basé sur le modèle. (Ceci est le document cible.)

  2. Ouvrez le document reçu des autres; celui que vous souhaitez standardiser. (Ceci est le document source.)

  3. Copiez le texte du document source et collez-le dans le document cible.

Si vous ne pouvez pas, pour une raison quelconque, suivre cette voie, la meilleure chose à faire est de créer un ensemble de blocs de construction qui définissent le texte que vous souhaitez dans votre en-tête et votre pied de page. Vous pouvez ensuite gagner du temps en utilisant les blocs de construction pour ajouter les en-têtes et les pieds de page dans n’importe quel document de votre choix, y compris celui que vous souhaitez normaliser.

Enfin, si vous le souhaitez, vous pouvez créer une macro à ajouter dans les en-têtes et pieds de page souhaités. La macro n’a pas besoin d’être sophistiquée; en voici un qui ajoute simplement un texte d’en-tête et de pied de page normalisé à chaque section du document:

Sub MyHeadersAndFooters()

Dim i As Long

For i = 1 To ActiveDocument.Sections.Count         With ActiveDocument.Sections(i)

.Headers(wdHeaderFooterPrimary).Range.Text = "Header Text Here"

.Footers(wdHeaderFooterPrimary).Range.Text = "Footer Text Here"

End With     Next i End Sub

Pour utiliser la macro, remplacez simplement « Texte d’en-tête ici » et « Texte de pied de page ici » par le texte d’en-tête et de pied de page souhaité. Cette macro n’est qu’un point de départ, car elle n’applique aucun style spécial ni n’inclut les champs (tels que les numéros de page) dont vous pourriez avoir besoin.

_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 (2728) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.