Note: The other languages of the website are Google-translated. Back to English
English English
  • 서류
  • 워드
  • Word에서 .doc 형식 파일을 .docx로 일괄 변환하는 방법은 무엇입니까?

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 추가 기능으로 제한 없이 자유롭게 시도

.

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

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

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

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

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

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


Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (14)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
명성! 공유해 주셔서 감사합니다. 이것은 매우 도움이 되었습니다. 변환해야 할 문서가 50개가 넘었습니다. 모든 작업을 완료하는 데 000시간이 넘는 시간이 걸렸습니다. 큰 도움이 됩니다. 나는 옵션 39을 사용했다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
읽을만한 흥미로운 것들. 그것을 유지하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요
이 유용한 정보를 알게 되어 기쁩니다 이 놀라운 기사를 공유해 주셔서 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요....안녕하세요, 이 블로그 콘텐츠는 매우 기술적인 정보이며, 제가 가진 최고의 블로그에 있습니다. 매우 흥미롭고 매우 쉬운 방법으로 설명합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 선생님,
이 게시물이 마음에 듭니다. 이 웹사이트에 정말 감사드립니다. 귀하의 정보는 매우 훌륭하고 가치가 있습니다. 이 웹사이트를 공유하기 위한 멋진 아이디어와 개념입니다.
이것은 놀라운 웹사이트입니다. 이 게시물은 좋습니다.
공유 해줘서 고마워.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요좋은글 .. 계속 공유합니다. 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 정말 통찰력 있는 기사이며 매우 도움이 되고 정보를 제공하는 것으로 나타났습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 유용한 정보를 공유해 주셔서 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
인도 최고의 그래픽 디자인 회사
디자인은 단어를 관절로 전달하는 기술입니다. 고급 분야에서는 말보다 영상이 더 중요합니다.
디자인 업계의 전문가들은 그림이 말보다 기억하기 쉽고,
이것이 웹사이트 디자인과 그래픽이 필수적인 역할을 하는 이유입니다.

이 댓글은 사이트의 중재자에 의해 최소화되었습니다
공유 해줘서 고마워.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 도구이지만 DOC 파일(대문자로 작성됨!)을 docx 파일로 변환할 수 없다는 문제가 있습니다.
그것은 문서 파일과 함께 작동합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
다음 코드는 두 문서를 모두 변환하는 데 도움이 될 수 있습니다. 및 DOC. 파일을 docx 파일로 변환합니다. 시도해 보십시오. 의견을 보내주셔서 감사합니다.

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
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
도브 리즈,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? 데쿠지.

ENG :
좋은 날,
하위 폴더를 포함하여 작동하는 VBA 스크립트가 필요합니다. 누군가 이 스크립트도 편집할 수 있습니까? 고맙습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 다니엘 베네시,
하위 폴더를 포함하려면 다음 VBA 코드를 사용해 보십시오.
코드를 추가한 후 도구 탭에서 참조, 오프닝에서 참조-프로젝트 대화 상자에서 Microsoft 스크립팅 런타임 상자를 클릭 한 다음 OK 버튼을 눌러 변경 사항을 저장하십시오. 다음 스크린샷을 참조하십시오.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
그 후, F5 코드를 실행하는 키입니다.

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
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호