Deena a un document formaté pour utiliser trois colonnes. Elle aimerait avoir un moyen d’afficher et d’imprimer, automatiquement, un numéro de colonne en haut de chaque colonne. Ainsi, les colonnes de la page 1 seraient numérotées de 1 à 3, celles de la page 2 de 4 à 6, etc.

Il n’existe aucun moyen de le faire automatiquement, mais une solution de contournement consiste à créer une macro qui imprimera le document avec les numéros de colonne dans l’en-tête de page. Tout ce que vous devez faire est de vous assurer que l’en-tête a des taquets de tabulation définis pour correspondre à l’endroit où vous souhaitez que les numéros de colonne apparaissent.

Sub ColumnHeaders()

Dim p As Long     Dim tp As Long     Dim c As Integer     Dim tc As Integer     Dim h As String     Dim ch As String

' Get total pages     tp = ActiveDocument.Content.ComputeStatistics(wdStatisticPages)

' Get number of columns     tc = ActiveDocument.Sections(1).PageSetup.TextColumns.Count     ' Save current header     ch = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

For p = 1 To tp         h = ""

For c = 1 To tc             h = h & Trim(Str(p + (c - 1) + (2 * p - 2))) & vbTab         Next c         h = Left(h, Len(h) - 1)

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = h         ActiveDocument.PrintOut Range:=wdPrintFromTo, _           From:=Trim(Str(p)), To:=Trim(Str(p))

Next p          If Len(ch) > 1 Then         ' Restore previous header         ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = ch     Else         ' There is no previous header         ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Delete     End If End Sub

La macro imprime en fait chaque page du document individuellement. Il suppose qu’il n’y a qu’une seule section dans le document. Le nombre de colonnes pour cette seule section est déterminé, puis ce nombre est utilisé pour assembler l’en-tête de chaque page. L’en-tête se compose des numéros de colonne séparés par des tabulations. L’en-tête est construit pour chaque page, puis chaque page est imprimée.

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