Deena tiene un documento que está formateado para usar tres columnas. Le gustaría una forma de mostrar e imprimir, automáticamente, un número de columna en la parte superior de cada columna. Por lo tanto, las columnas de la página 1 se numerarían del 1 al 3, las de la página 2 serían del 4 al 6, etc.

No hay forma de hacer esto automáticamente, pero una solución es crear una macro que imprima el documento con números de columna en el encabezado de la página. Todo lo que necesita hacer es asegurarse de que el encabezado tenga tabulaciones configuradas para que coincidan con el lugar donde desea que aparezcan los números de columna.

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 realmente imprime cada página del documento individualmente. Asume que solo hay una sección en el documento. Se determina el número de columnas para esa única sección, y luego este recuento se usa para armar el encabezado de cada página. El encabezado consta de los números de columna separados por tabulaciones. El encabezado se construye para cada página y luego se imprime cada página.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (12826) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.