메인 컨텐츠로 가기

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 - Over로 단어 경험을 향상시키세요 100 놀라운 기능!

🤖 Kutools AI 도우미: AI로 글쓰기를 변화시키세요 - 콘텐츠 생성  /  텍스트 다시 쓰기  /  문서 요약  /  정보 문의 문서 기반, 모두 Word 내에서

📘 문서 숙달: 페이지 분할  /  문서 병합  /  다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/HTML...)  /  PDF로 일괄 변환  /  페이지를 이미지로 내보내기  /  한 번에 여러 파일 인쇄...

✏ 컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐  /  모든 사진 크기 조정  /  테이블 행과 열 바꾸기  /  표를 텍스트로 변환...

🧹 손쉬운 청소: 쓸어버리다 추가 공간  /  섹션 나누기  /  모든 헤더  /  텍스트 상자  /  하이퍼 링크  / 더 많은 제거 도구를 보려면 다음 페이지를 방문하세요. 그룹 제거...

➕ 광고 삽입물: 삽입 천 단위 구분 기호  /  확인란  /  라디오 버튼  /  QR 코드  /  바코드  /  대각선 표  /  방정식 캡션  /  이미지 캡션  /  테이블 캡션  /  여러 장의 사진  / 더 자세히 알아보세요. 그룹 삽입...

🔍 정밀한 선택: 핀포인트 특정 페이지  /  테이블  /  모양  /  제목 단락  / 탐색 기능 향상 배우기 기능 선택...

⭐ 스타 강화: 어떤 위치로든 빠르게 이동  /  반복되는 텍스트 자동 삽입  /  문서 창 간을 원활하게 전환합니다.  /  11 변환 도구...

👉 이러한 기능을 사용해 보고 싶으신가요? Word 용 Kutools는 다음을 제공합니다. 60 일 무료 사용, 제한 없음! 🚀
 
Comments (26)
Rated 5 out of 5 · 3 ratings
Ridwan
Ridwan
This comment was minimized by the moderator on the site
How to set output File Name base on footer each page?
Reply
0
0
Megan Olson
Megan Olson
This comment was minimized by the moderator on the site
Hello,

I was wondering if there was a way to have it pull the name for the PDF from the word doc. Example: instead of Page_01, have a pull an account number that was the 3rd line down in the word document?
Reply
0
0
Piotr
Piotr
This comment was minimized by the moderator on the site
Hi
what if I need to set specific name for each splited PDF.
This should be taken from WORD text - it is serial korespondece- all pages have same format
Can you advise?
Reply
0
0
JW
JW
This comment was minimized by the moderator on the site
Hi, how would you save each pdf page as a name that can be found from within each word page being exported?
Reply
0
0
Aita
Aita
This comment was minimized by the moderator on the site
Hi, how will change the code for mac os?
Reply
0
0
Just
Just
This comment was minimized by the moderator on the site
Is there a way to save per 2 pages?

Ex. save page 1/2 in Page_1.pdf
save page 3/4 in Page_2.pdf

Thanks!
Reply
0
0
Andrea
Andrea     Just
This comment was minimized by the moderator on the site
im wondering the same thing! please help!
Reply
0
0
Andy
Andy     Just
This comment was minimized by the moderator on the site
Wondering the same
Reply
0
0
vandy
vandy
This comment was minimized by the moderator on the site
10x :) this was realy helpful!!!
Reply
0
0
Rated 5 out of 5
samir
samir
This comment was minimized by the moderator on the site
Thanks for this, this is great. i was wondering if you have a way of naming my pdf files differently per each extract not only Page_1.pdf.

Thanks
Reply
0
0
crystal
crystal     samir
This comment was minimized by the moderator on the site
Hi samir,
How would you like to name these pdf files? Please give me an example.
Reply
Report
0
0
Camila
Camila     crystal
This comment was minimized by the moderator on the site
Like saving each document with a different name, not just Page_1.pdf and so on.
Reply
0
0
crystal
crystal     Camila
This comment was minimized by the moderator on the site
Hi Camila,
The following VBA code can help you solve the problem.
Note: You need to specify a different name in this line: xFileName = "AA; BB; CC; DD". Here AA, BB and CC are the names for the PDF files.
Please change them to meet your needs. You can add more names and separate them by semicolon. To mention that the number of names specified must match the number of pages you expored. And the PDF files will be named in order of the specified names in the code.
Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20221223
    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
    Dim xFileName As String
    Dim xNameArr() As String

    xFileName = "AA; BB; CC; DD"  'Specify a name for each page. The number of names specified must match the number of pages you exported.The PDF files will be named in order of the the specified names
    xNameArr = VBA.Split(xFileName, ";")
    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 & "\" & VBA.Trim(xNameArr(I - 1)) & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
    Erase xNameArr
End Sub
Reply
Report
0
0
r
r
This comment was minimized by the moderator on the site
Добрый день!
Есть ли возможность сохранить из ворд файла(используя слияние) в пдф файл - Решения собственников на общее собрание.
При этом учитываем, что PDF должен сохраняться так: в 1 файле должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
Reply
0
0
crystal
crystal     r
This comment was minimized by the moderator on the site
Hi,
Sorry I don't understand what you mean. You may need to attach a screenshot or a sample file to describe the problem you encountered more clearly.
Reply
Report
0
0
F
F
This comment was minimized by the moderator on the site
Thanks for the script, it has also saved me a lot of work in exporting pages as pdf!
Reply
0
0
Rated 5 out of 5
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations