Word 문서에서 각 페이지를 별도의 PDF 파일로 저장하는 방법은 무엇입니까?

Author: Siluvia Last Modified: 2025-05-21

Microsoft Word에서는 기본 제공되는 "다른 이름으로 저장" 기능을 사용하고 옵션 대화 상자에서 페이지 번호를 지정하여 각 페이지를 수동으로 별도의 PDF로 저장할 수 있습니다. 그러나 수백 페이지가 넘는 큰 문서를 작업하는 경우, 이를 수동으로 수행하는 것은 시간이 많이 소요될 수 있습니다. 이 문서에서는 모든 페이지를 개별 PDF 파일로 빠르게 저장하는 방법을 소개합니다.

VBA 코드를 사용하여 대량으로 각 페이지를 별도의 PDF 파일로 저장하기

아래 VBA 코드를 사용하면 Word 문서의 각 페이지를 자동으로 개별 PDF 파일로 저장할 수 있습니다. 방법은 다음과 같습니다:

처리하려는 Word 문서를 엽니다. Alt + F11을 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

Visual Basic 창에서 "삽입" > "모듈"을 클릭한 다음, 다음 VBA 코드를 모듈 창에 붙여넣습니다.

Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub

VBA window with Insert > Module selected and VBA code copied into the Module window

코드를 실행하기 위해 F5를 누릅니다.
나타나는 찾아보기 창에서 PDF 파일을 저장할 폴더를 선택하고 "확인"을 클릭합니다.
첫 번째 "Kutools for Word" 대화 상자에서 시작 페이지 번호를 입력하고 "확인"을 클릭합니다.
두 번째 "Kutools for Word" 대화 상자에서 끝 페이지 번호를 입력하고 "확인"을 클릭합니다.
참고: 예를 들어, 연속된 몇 페이지(4, 5, 6페이지)를 저장하려면 두 대화 상자에 각각 "4"와 "6"을 입력하면 됩니다.

스크립트가 실행된 후, 4단계에서 선택한 폴더로 이동합니다. 지정된 각 페이지가 별도의 PDF 파일로 저장된 것을 확인할 수 있습니다.

Pages are split and saved as individual PDF files

Word 문서를 여러 문서로 쉽게 분할

문서 분할 기능을 사용하여 Word 문서를 여러 문서로 쉽게 분할할 수 있습니다. 수동으로 복사하고 붙여넣는 대신, 이 도구를 사용하면 페이지, 제목 1, 페이지 나누기 또는 구역 나누기를 기준으로 문서를 분할할 수 있어 효율성이 크게 향상됩니다.