Deena ha un documento formattato per utilizzare tre colonne. Vorrebbe un modo per visualizzare e stampare, automaticamente, un numero di colonna all’inizio di ogni colonna. Pertanto, le colonne a pagina 1 sarebbero numerate da 1 a 3, quelle a pagina 2 da 4 a 6, ecc.

Non è possibile eseguire questa operazione automaticamente, ma una soluzione alternativa consiste nel creare una macro che stamperà il documento con i numeri di colonna nell’intestazione della pagina. Tutto quello che devi fare è assicurarti che l’intestazione abbia i punti di tabulazione impostati in modo che corrispondano a dove vuoi che appaiano i numeri di colonna.

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 effettivamente stampa singolarmente ogni pagina del documento. Si presuppone che ci sia solo una singola sezione nel documento. Viene determinato il numero di colonne per quella singola sezione, quindi questo conteggio viene utilizzato per mettere insieme l’intestazione di ciascuna pagina. L’intestazione è composta dai numeri di colonna separati da tabulazioni. L’intestazione viene costruita per ogni pagina e quindi ogni pagina viene stampata.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (12826) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365.