Deena에는 세 개의 열을 사용하도록 서식이 지정된 문서가 있습니다. 그녀는 각 열의 상단에 열 번호를 자동으로 표시하고 인쇄하는 방법을 원합니다. 따라서 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 및 Office 365의 Word에 적용됩니다.