У Дины есть документ, формат которого состоит из трех столбцов. Ей нужен способ автоматически отображать и печатать номер столбца вверху каждого столбца. Таким образом, столбцы на странице 1 будут пронумерованы от 1 до 3, столбцы на странице 2 — с 4 по 6 и т. Д.

Невозможно сделать это автоматически, но обходной путь — создать макрос, который будет печатать документ с номерами столбцов в заголовке страницы. Все, что вам нужно сделать, это убедиться, что в заголовке установлены позиции табуляции, соответствующие тому месту, где вы хотите разместить номера столбцов.

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

Макрос фактически распечатывает каждую страницу документа отдельно. Предполагается, что в документе есть только один раздел. Определяется количество столбцов для этого единственного раздела, а затем это количество используется при составлении заголовка для каждой страницы. Заголовок состоит из номеров столбцов, разделенных табуляцией. Заголовок создается для каждой страницы, а затем каждая страница печатается.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (12826) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.