Note: The other languages of the website are Google-translated. Back to English

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

Microsoft Word 문서를 사용하는 동안 내장 된 다른 이름으로 저장 기능을 사용하여 각 페이지를 별도의 pdf 파일로 하나씩 저장할 수 있습니다. 그러나 수백 페이지를 분할하여 개별 pdf 파일로 저장해야하는 경우 어떻게 할 수 있습니까? 이 문서에서는이 문제를 빠르게 해결할 수있는 방법을 제공합니다.

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


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

아래 VBA 코드를 사용하면 문서의 각 페이지를 개별 pdf 파일로 동시에 빠르게 저장할 수 있습니다. 다음과 같이하십시오.

1. 각 페이지 또는 특정 페이지를 pdf 파일로 저장할 문서를 연 다음 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 기준 치수, VBA 코드 아래를 모듈 창에 복사하십시오.

VBA 코드 : 각 페이지를 Word 문서에서 동시에 별도의 pdf 파일로 저장

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

3. 누르세요 F5 코드를 실행하는 키입니다.

4. 에서 검색 창에서 pdf 파일을 저장할 폴더를 선택하고 OK 단추. 스크린 샷보기 :

5. 첫 번째 Word 용 Kutools 대화 상자에서 문서의 시작 페이지 번호를 텍스트 상자에 입력하고 OK.

6. 두 번째 Word 용 Kutools 대화 상자에서 문서의 마지막 페이지 번호를 입력 한 다음 좋아요. 스크린 샷을 참조하십시오 :

주의 사항: 문서에 연속 된 여러 페이지를 4, 5, 6 페이지와 같은 별도의 pdf 파일로 저장하려면 위의 두 대화 상자에 4와 6을 별도로 입력하십시오.

코드를 실행 한 후 4 단계에서 선택한 지정된 폴더로 이동하면 아래 스크린 샷과 같이 모든 페이지가 분할되어 개별 pdf 파일로 저장되는 것을 볼 수 있습니다.


문서의 각 페이지를 별도의 새 문서로 분할하고 저장합니다.

또한 문서 분할 ~의 유용성 Excel 용 Kutools 아래 스크린 샷과 같이 현재 문서의 각 페이지를 별도의 새 문서로 대량으로 쉽게 분할하고 저장할 수 있습니다. 지금 다운로드하여 사용해보십시오! (60 일 무료 트레일)


추천 단어 생산 도구

 

Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (8)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
평가판을 위해 kutools를 다운로드했습니다 - 설치되고 무언가를 시도 할 때 단어가 닫히고 도구가 작동하지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
버그를 알려주셔서 감사하고 불편을 드려 죄송합니다. Word 버전을 제공하시겠습니까? 더 많은 정보를 가지고 문제를 파악해야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Salve, ho utilizzato i vostri preziosi suggerimenti e sono riuscito facilmente a Generare i file singoli in pdf partendo da un file word di stampa unione. Vorrei chiedere se è possibile nominare i singoli file pdf, al posto del numero di pagina, con un nome specifico di un campo contenuto nel file di excel che ho utilizzato per stampa unione. 사레베 일 마시모. 그라지 밀
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
페이지 이름이 아닌 문서의 참조와 함께 각 페이지를 저장하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아름다운! 감사합니다. 지침을 따르고 찾기 쉽습니다. 당신은 우리에게 많은 시간을 절약했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
페이지 이름이 아닌 문서의 참조와 함께 각 페이지를 저장하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사해요! 그것은 나를 위해 일했습니다. 양면 PDF로 저장하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Qu Legal... Super certo!

감사합니다
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0  등장 인물
추천 위치