본문 바로가기
■ 칼퇴를 위한 VBA : 사례/- VBA for 워드

워드 VBA 코드를 사용한 페이지 넘버링 자동화

by 포탈메이커 2023. 7. 10.

워드 VBA 코드를 사용한 페이지 넘버링 자동화

워드 문서를 작성하다 보면 페이지 넘버링은 매우 중요한 요소 중 하나입니다. 보통은 수동으로 페이지 번호를 입력하거나 워드의 기본 기능을 사용하여 페이지 번호를 자동으로 생성합니다. 하지만, 만약 특정한 페이지 넘버링 스타일이 필요하거나 작업해야 할 문서가 너무 많다면 한 번에 모든 페이지 넘버링을 일일이 수정하는 것은 상당히 번거로울 수 있습니다.

이러한 상황에서 VBA(Visual Basic for Applications) 코드를 사용하면 워드의 페이지 넘버링을 자동화할 수 있습니다. VBA는 워드의 내부 함수와 기능을 사용할 수 있는 프로그래밍 언어로, 사용자가 워드를 통해 수동으로 작업하는 대신 자동으로 작업하도록 도와주는 역할을 합니다.

이제 워드 VBA 코드를 사용하여 페이지 넘버링을 자동화하는 방법을 살펴보겠습니다.

1. VBA 에디터 열기

VBA 코드를 작성하려면 먼저 VBA 에디터를 열어야 합니다. 워드를 실행한 후 "개발" 탭을 클릭하고 "Visual Basic" 버튼을 클릭하세요. 이렇게 하면 VBA 에디터 창이 표시됩니다.

2. VBA 코드 입력

VBA 에디터에는 매크로를 작성하기 위한 모듈이 표시됩니다. 기본적으로 "Normal" 모듈이 표시되지만, 필요에 따라 새로운 모듈을 추가할 수도 있습니다. 워드의 페이지 넘버링을 자동화하기 위해서는 다음과 같은 VBA 코드를 사용해야 합니다.

Sub AutoPageNumbers()
    Dim oSec As Section
    Dim oHeadFoot As HeaderFooter

    For Each oSec In ActiveDocument.Sections
        For Each oHeadFoot In oSec.Headers
            oHeadFoot.PageNumbers.Add oSec.Index
        Next oHeadFoot

        For Each oHeadFoot In oSec.Footers
            oHeadFoot.PageNumbers.Add oSec.Index
        Next oHeadFoot
    Next oSec
End Sub

이 코드는 현재 활성 상태인 워드 문서의 모든 섹션에 있는 헤더와 풋터에 페이지 넘버를 추가합니다. 각 섹션의 인덱스를 사용하여 적절한 페이지 번호를 할당합니다.

3. 매크로 실행

VBA 코드를 작성한 후에는 매크로를 실행해야 합니다. VBA 에디터 창에서 "실행" 메뉴를 클릭한 후 "서브/프로시저 실행"을 선택하세요. 그런 다음 "AutoPageNumbers"를 클릭하고 "실행" 버튼을 누르세요. 선택한 워드 문서의 모든 헤더와 풋터에 페이지 넘버가 자동으로 추가됩니다.

4. 자동화된 페이지 넘버링 확인

매크로가 실행된 후에는 워드 문서를 확인하여 페이지 넘버가 자동으로 추가되었는지 확인하세요. 각 헤더와 풋터에 해당 섹션의 페이지 넘버가 나타나야 합니다.

마무리

위에서 설명한 워드 VBA 코드를 사용하면 페이지 넘버링을 자동으로 추가할 수 있습니다. 이를 통해 작업 효율성을 크게 향상시킬 수 있으며, 특정한 페이지 넘버링 스타일을 적용하고자 할 때에도 유용하게 사용될 수 있습니다. VBA를 활용하여 워드의 다양한 기능들을 자동화하는 것은 워드 사용자에게 큰 도움이 될 것입니다.