Deenaには、3列を使用するようにフォーマットされたドキュメントがあります。彼女は、各列の上部に列番号を自動的に表示して印刷する方法を望んでいます。したがって、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

マクロは、実際にはドキュメントの各ページを個別に印刷します。ドキュメントにはセクションが1つしかないことを前提としています。その単一セクションの列数が決定され、この数が各ページのヘッダーをまとめる際に使用されます。ヘッダーは、タブで区切られた列番号で構成されます。ヘッダーはページごとに作成され、各ページが印刷されます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（12826）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。