Word 문서의 각 페이지를 별도의 PDF 파일로 저장하려면 어떻게 하나요？
Microsoft Word 에서는 기본 제공되는 「다른 이름으로 저장」 기능을 사용하여 옵션 대화 상자에서 페이지 번호를 지정함으로써 각 페이지를 별도의 PDF 로 수동 저장할 수 있습니다。 그러나 수백 페이지가 있는 긴 문서의 경우 이 작업을 수동으로 수행하는 것은 시간이 많이 소요됩니다。 이 문서에서는 모든 페이지를 개별 PDF 파일로 신속하게 저장하는 방법을 소개합니다。
VBA 코드를 사용하여 각 페이지를 별도의 PDF 파일로 일괄 저장하기
VBA 코드를 사용하여 각 페이지를 별도의 PDF 파일로 일괄 저장하기
아래의 VBA 코드를 사용하면 Word 문서의 각 페이지를 개별 PDF 파일로 자동 저장할 수 있습니다。 방법은 다음과 같습니다：
- 처리할 Word 문서를 엽니다。 Microsoft Visual Basic for Applications 창을 열려면Alt + F11을 누릅니다。
- 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
- 코드를 실행하려면F5를 누릅니다。
- 나타나는 찾아보기 창에서 폴더 선택을 사용하여 PDF 파일를 저장한 후 「확인」을 클릭합니다。
- 첫 번째 「Kutools for Word」 대화 상자에 시작 페이지 번호를 입력하고 「확인」을 클릭합니다。
- 두 번째 「Kutools for Word」 대화 상자에 끝 페이지 번호를 입력하고 「확인」을 클릭합니다。
참고：예를 들어， 연속된 몇 페이지—페이지 4, 5, 6—를 저장하려면 두 대화 상자에 각각 “4"과 “6"을 입력하면 됩니다。
스크립트 실행 후 4 단계에서 선택한 폴더로 이동합니다。 지정한 각 페이지가 별도의 PDF 파일으로 저장된 것을 확인할 수 있습니다：
| Word 문서를 여러 개의 문서로 쉽게 분할하세요 |
| Word 문서를문서 분할유틸리티를 사용하여 여러 개의 문서로 쉽게 분할할 수 있습니다。 수동으로 복사하여 붙여넣는 대신， 이 도구를 사용하면 문서를페이지,제목 1,페이지 나누기또는구역 나누기기준으로 분할할 수 있어 효율성이 크게 향상됩니다。 |
 |
| Kutools for Word： 수백 가지 유용한 도구로 Word 경험을 한층 더 강화하세요。 지금 다운로드하고 그 차이를 확인해 보세요！ |
최고의 오피스 생산성 도구
Kutools for Word- 300 개 이상의 놀라운 기능으로 Word 경험을 한층 업그레이드하세요！100놀라운 기능！
🤖KUTOOLS AI 기능:AI 도우미/실시간 어시스턴트/슈퍼 폴리시(형식 유지)/슈퍼 번역(형식 유지)/AI 수정/AI 교정...
📘문서 마스터리:페이지 분할/문서 병합/다양한 형식(PDF/TXT/DOC/HTML。。。)으로 선택 항목 내보내기/일괄 PDF 변환...
✏콘텐츠 편집:여러 파일에서 일괄 찾기 및 바꾸기/모든 그림 크기 조정/행과 열 표 전환/표를 텍스트로 변환...
🧹손쉬운 정리： 다음과 같은 요소들을 한 번에 제거하세요여분 공백/구역 나누기/텍스트 상자/하이퍼링크/ 더 많은 제거 도구는 다음 위치에서 확인하세요제거그룹。。。
➕창의적 삽입： 다음 요소 삽입천 단위 구분 기호/체크 박스/라디오 버튼/QR 코드/바코드/여러 그림/ 더 많은 기능은 다음 위치에서 확인하세요삽입그룹。。。
🔍정밀 선택： 다음 요소를 정확하게 선택하세요특정 페이지/표/도형/제목 단락/ 더 많은선택 기능으로탐색을 강화하세요기능...
⭐주요 강화 기능:임의 위치로 이동/반복 텍스트 자동 삽입/문서 간 전환 Windows/11 변환도구...
🌍40+개 언어 지원: Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 등 40+개 추가 언어를 지원합니다！
Office Tab- Office 에 탭 기반 인터페이스를 도입하여 작업을 훨씬 쉽게 만듭니다
- Word, Excel, PowerPoint, Publisher, Access, Visio 및 Project 에서 탭 기반 편집 및 읽기를 활성화합니다。
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 생성합니다。
- 매일 수백 번의 마우스 클릭을 줄여 생산성을 50%% 향상시킵니다！
✨ Kutools for Office – 한 번의 설치로 다섯 가지 강력한 도구를 사용하세요！
포함 구성Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 하나의 스위트로 모든 5 도구 확보 | 🔗 Microsoft Office 와 원활하게 통합 | ⚡ 저장 시간하고 즉시 생산성 향상