Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
계좌 개설  \/ 
x

or

여러 Word 문서를 PDF 파일로 일괄 변환하는 방법은 무엇입니까?

Word의 다른 이름으로 저장 기능을 사용하면 Word 문서를 PDF 파일로 쉽게 변환 할 수 있습니다. 그러나 폴더의 모든 Word 문서를 한 번에 별도의 PDF 파일로 변환하려면 어떻게 할 수 있습니까? 이 기사에서는 여러 Word 문서를 Word의 pdf 파일로 일괄 변환하는 VBA 코드를 보여줍니다.

VBA를 사용하여 여러 Word 문서를 PDF 파일로 일괄 변환
Word 용 Kutools를 사용하여 여러 Word 문서를 pdf 파일로 일괄 변환


VBA를 사용하여 여러 Word 문서를 PDF 파일로 일괄 변환

다음 VBA 코드를 사용하면 폴더의 모든 Word 문서를 한 번에 pdf 파일로 빠르게 변환 할 수 있습니다. 다음과 같이하십시오.

1. Word에서 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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

VBA 코드 : Word에서 여러 Word 문서를 pdf 파일로 일괄 변환

Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
    Dim xIndex As String
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xNewName As String
    Dim xFileName As String
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.*", vbNormal)
    While xFileName <> ""
        If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
            xIndex = InStr(xFileName, ".") + 1
            xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
            Documents.Open FileName:=xFolder & xFileName, _
                ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                wdOpenFormatAuto, XMLTransform:=""
            ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
                ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
                wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
                Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
                CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=True, UseISO19005_1:=False
            ActiveDocument.Close
        End If
        xFileName = Dir()
    Wend
End Sub

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

4. 찾아보기 대화 상자가 나타나면 pdf 파일로 변환 할 Word 문서가 포함 된 폴더를 선택하고 OK 버튼을 클릭합니다.

그런 다음 선택한 폴더의 모든 Word 문서가 한 번에 별도의 pdf 파일로 변환됩니다. 스크린 샷보기 :


Word 용 Kutools를 사용하여 여러 Word 문서를 pdf 파일로 일괄 변환

VBA 코드를 처리하기 어려운 경우 문서 변환 ~의 유용성 Word 용 Kutools 문제를 해결할 수 있습니다.

Word 용 Kutools : 100 개 이상의 편리한 Word 추가 기능으로 60 일 동안 제한없이 무료 체험.

1. 클릭 쿠툴즈 플러스 > 문서 / Docx. 스크린 샷보기 :

2. 에서 문서 형식 변환기 창에서 다음과 같이해야합니다.

2.1) pdf로 변환 할 문서가 들어있는 폴더를 선택하십시오. 소스 파일 폴더 섹션;
2.2 선택 docx가 pdf에 변환기 인사말 형식 변환 드롭 다운 목록;
2.3) 기본적으로 소스와 동일한 대상 경로 상자가 선택되어 있습니다. 변환 된 모든 pdf 파일을 동일한 폴더에 저장하려면이 옵션을 선택한 상태로 유지하십시오.
pdf 파일과 원본 문서를 분리하려면 체크를 해제해야합니다. 소스와 동일한 대상 경로 상자에 pdf 파일을 저장할 새 폴더를 선택하십시오. 에 저장 상자;
2.4) 클릭 스타트 단추. 스크린 샷보기 :

3. 그러면 성공적으로 변환 된 문서 수를 알려주는 대화 상자가 나타나면 OK 버튼을 클릭하고 문서 형식 변환기 창.

이제 모든 .docx 형식 문서가 pdf 파일로 변환됩니다.

이 유틸리티의 무료 평가판을 받으려면 다음으로 이동하십시오. 소프트웨어 무료 다운로드 먼저 위의 단계에 따라 작업을 적용하십시오.


추천 단어 생산 도구

 

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

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Chengchi · 3 months ago
    VBA 很棒!!感謝您的分享。
  • To post as a guest, your comment is unpublished.
    K DEG · 4 months ago
    This saved my day, thanks so much!

    I would just like to point out for people using this, if the Word seems to freeze, just wait - it is generating the .pdf files. My Word froze but I opened the folder of the files, and could see that it was indeed generating the .pdf for all files.
  • To post as a guest, your comment is unpublished.
    Garrie · 4 months ago
    If you change
    xFileName = Dir(xFolder & "*.*", vbNormal)
     to 
    xFileName = Dir(xFolder & "*.doc*", vbNormal)
    the macro will not crash when there are non-Word files in the same folder.

  • To post as a guest, your comment is unpublished.
    Garrie · 4 months ago
    If you change
    xIndex = InStr(xFileName, ".") + 1
     to 
    xIndex = InStrRev(xFileName, ".") + 1
    it will search from the end of the string to find the first period. This will avoid problems where the filename contains periods.
  • To post as a guest, your comment is unpublished.
    Jirka · 5 months ago
    Change
     xIndex = InStr(xFileName, ".") + 1


  • To post as a guest, your comment is unpublished.
    San · 1 years ago
    The VBA code is great. Cheers ,ate
  • To post as a guest, your comment is unpublished.
    Doris · 1 years ago
    thanks for vba code , it helps a lot.
  • To post as a guest, your comment is unpublished.
    Eric Smith · 1 years ago
    Hello, Thank you so much for this code. It is working well, however, I get a dialog box after each conversion to save the word doc and I have to save. Can you include code in the macro to make that save and close the file instead of having to close each one?
    • To post as a guest, your comment is unpublished.
      Rebecca · 1 years ago
      if you add "ActiveDocument.Save" right above "ActiveDocument.Close" it will save the document before closing itself so you don't have to always hit the save prompt.
  • To post as a guest, your comment is unpublished.
    9aks92 · 1 years ago
    Hi,

    I get runtime error '424':
    Object required

    image attached.


    Please help.

    Thanks.
  • To post as a guest, your comment is unpublished.
    Akshay · 1 years ago
    Hi,

    I get runtime error '424':
    Object required

    at the below code

    Documents.Open Filename:=xFolder & xFileName, _
    ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
    PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
    WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
    wdOpenFormatAuto, XMLTransform:=""


    wdOpenFormatAuto = 0 it says.

    Please help.

    Thanks.
  • To post as a guest, your comment is unpublished.
    Stefan · 2 years ago
    Hi there,


    is there an easy way to adjust the VBA Code so that the Documents are convertet to .txt-Files?
  • To post as a guest, your comment is unpublished.
    Sammy · 2 years ago
    Is there any way to have the file name taken from the text of the document?
  • To post as a guest, your comment is unpublished.
    Marzio · 2 years ago
    VBA if i try to convert file that contains macros the macro swith to open file and ends without close file.
  • To post as a guest, your comment is unpublished.
    michaelwaung · 2 years ago
    So nice blog, Thanks for sharing this blog. It Has so useful information for users. I liked this information so much.
    Hope you keep sharing such kind of information convert word doc to html