메인 컨텐츠로 가기

Word에서 .doc 형식 파일을 .docx로 일괄 변환하는 방법은 무엇입니까?

97-2003 형식의 Word 문서를 받았다고 가정 할 때 이러한 모든 .doc 형식 문서를 한 번에 .docx 형식으로 일괄 변환하려면 어떻게해야합니까? 이 기사에서는이 문제를 해결하는 두 가지 방법을 보여줍니다.

VBA 코드를 사용하여 .doc 형식 파일을 .docx로 일괄 변환
Word 용 Kutools를 사용하여 .doc 형식 파일을 .docx로 일괄 변환

VBA 코드를 사용하여 .doc 형식 파일을 .docx로 일괄 변환

이 섹션에서는 지정된 폴더의 모든 .doc 형식 문서를 한 번에 .docx 문서로 변환하는 VBA 코드를 보여줍니다. 다음과 같이하십시오.

1. 지정된 폴더에 .docx로 변환 할 모든 .doc 형식 문서를 수집하십시오.

2. 누르세요 다른 + F11 열쇠를 열려면 응용 프로그램 용 Microsoft Visual Basic 창.

3. 창에서 끼워 넣다 > 모듈. 그런 다음 VBA 코드 아래를 모듈 창에 복사하십시오.

VBA 코드 : 모든 .doc 형식 문서를 특정 폴더의 .docx로 일괄 변환

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

4. 누르세요 F5 코드를 실행하는 키입니다. 오프닝에서 검색 창에서 .doc 형식 문서가 포함 된 폴더를 선택하고 OK. 스크린 샷보기 :

그런 다음 모든 .doc 형식 문서는 아래 스크린 샷과 같이 즉시 .docx 문서로 변환됩니다.

Word 용 Kutools를 사용하여 .doc 형식 파일을 .docx로 일괄 변환

이 섹션에서는 편리한 유틸리티를 권장합니다. 와 더불어 문서 / Docx ~의 유용성 Word 용 Kutools, 폴더의 모든 .doc 형식 문서를 .docx 문서로 쉽게 변환 할 수 있습니다. 다음과 같이 시도하십시오.

Word 용 Kutools : 100 개 이상의 편리한 Word 추가 기능으로 제한 없이 자유롭게 시도 60 일.

1. 지정된 폴더에 모든 .doc 형식 문서를 수집 한 다음 쿠툴즈 플러스 > 문서 / Docx. 스크린 샷보기 :

2. 에서 문서 형식 변환기 대화 상자에서 다음을 수행해야합니다.

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

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

이제 모든 .doc 형식 문서가 .docx 파일로 변환됩니다. 스크린 샷보기 :

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

최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로: 일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (14)
No ratings yet. Be the first to rate!
Daniel Beneš
Daniel Beneš
This comment was minimized by the moderator on the site
Dobrý den,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Good day,
I would need a VBA script that would work including subfolders. Can someone please edit this script as well? Thank you.
Reply
0
0
crystal
crystal     Daniel Beneš
This comment was minimized by the moderator on the site
Hi Daniel Beneš,
To include subfolders, please try the following VBA code.
After adding the code, go to the Tools tab, click References, in the opening References - Project dialog box, check the Microsoft Scripting Runtime box, and then click the OK button to save the changes. See the following screenshot:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
After that, press the F5 key to run the code.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function
Reply
Report
0
0
Marco
Marco
This comment was minimized by the moderator on the site
Nice tool but I got the problem, that I can't convert DOC files (written in capitals!) into docx files.
It works with doc files.
Reply
0
0
crystal
crystal     Marco
This comment was minimized by the moderator on the site
Hi,
The following code can help to convert both doc. and DOC. files into docx files. Please give it a try. Thanks for your feedback.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Reply
Report
0
0
thehairstylish
thehairstylish
This comment was minimized by the moderator on the site
Thanks for sharing
Reply
0
0
narendra
narendra
This comment was minimized by the moderator on the site
best graphic design company in india
Designing is a craft of communicating words as articulations. Visuals matter more than words in the advanced field.
The experts in the designing business recommend that illustrations are simpler to recall than words,
and that is the reason Website designing and Graphics play an imperative job.

Reply
Report
0
0
ajumas
ajumas
This comment was minimized by the moderator on the site
Thanks for sharing this useful information.
Reply
Report
0
0
uaevisaonline
uaevisaonline
This comment was minimized by the moderator on the site
This is really insightful article , found it very helpful and informational
Reply
Report
0
0
shriya gupta
shriya gupta
This comment was minimized by the moderator on the site
HelloNice post .. Keep sharing.Thank You
Reply
0
0
Radha
Radha
This comment was minimized by the moderator on the site
Hello sir,
I love with this post.I really appreciate for this website.Your information is so good and valuable.Lovable idea and concept for sharing this website.
This is an amazing website.This post is nice.
Thanks for sharing
Reply
0
0
Lipika
Lipika
This comment was minimized by the moderator on the site
Hi....Hi, This blog content very technical information, it is on of the best blog i have got. Very interesting and describe in a very easy way.
Reply
0
0
Massey Tractor
Massey Tractor
This comment was minimized by the moderator on the site
Hello,
I am glad to find this useful information Thanks for sharing this amazing article.
Reply
0
0
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