Word DOC를 DOCX 파일 및 그 반대로 일괄 변환하는 3 가지 빠른 방법

이 기사에서는 Word 문서를 docx 파일로 또는 그 반대로 일괄 변환하는 3 가지 빠른 방법이 있습니다.

일반적으로 다른 Word 버전은 .doc 또는 .docx와 같은 확장자를 사용하여 다른 유형으로 파일을 저장한다는 것이 잘 알려져 있습니다. 팀 작업에서 서로 다른 구성원이 서로 다른 버전의 Word를 사용하는 경우가 많습니다. 따라서 공유 파일을 열고 편집하는 데 어려움이 있습니다. 예를 들어 2007 이전 버전의 Word에서는 docx 파일을 열 수 없습니다. 또한 2007 버전 이상의 Word에서 doc 파일을 열 수는 있지만 일부 옵션이 제한되어 불편을 초래할 수 있습니다. 편집.

따라서 일괄 처리를 수행 할 수 있다면 Word doc 및 docx 파일간에 변환하는 방법을 찾아야합니다.

방법 1 : Word 문서를 Docx 파일로 일괄 변환

1. 첫 번째와 포름ost, 처리 할 모든 파일을 하나의 파일 폴더에 정리합니다.
2. 그런 다음 Word를 열고 "Alt + F11"을 눌러 VBA 편집기를 엽니 다.
3. 이제“Normal”프로젝트를 클릭하고 그 뒤에“Insert”를 클릭합니다.
4. 다음으로“Module”을 선택하여 프로젝트에 새 모듈을 삽입합니다.
5. 그런 다음 모듈을 두 번 클릭하여 편집 영역을 열고 다음 코드를 붙여 넣습니다.

Sub TranslateDocIntoDocx()
  Dim objWordApplication As New Word.Application
  Dim objWordDocument As Word.Document
  Dim strFile As String
  Dim strFolder As String

  strFolder = "E:\Temp\"
  strFile = Dir(strFolder & "*.doc", vbNormal)
  
  While strFile <> ""
    With objWordApplication      
      Set objWordDocument = .Documents.Open(FileName:=strFolder &strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False)
          
      With objWordDocument
        .SaveAs FileName:=strFolder & Replace(strFile, "doc", "docx"), FileFormat:=16
        .Close
      End With
    End With
    strFile = Dir()
  Wend   

  Set objWordDocument = Nothing
  Set objWordApplication = Nothing
End Sub

6. 마지막으로“실행”버튼을 클릭합니다.

몇 초 후 모든 doc 파일이 docx 파일로 변환되었음을 알 수 있습니다.

참고 :

코드 라인에서“strFolder =“E : \ Temp \””, "E : \ Temp”를 파일 폴더의 위치와 함께 표시합니다.

방법 2 : Word Docx 파일을 Doc 파일로 일괄 변환

1. 에tar끄기, 모든 docx 파일을 하나의 파일 폴더에 저장합니다.
2. 마찬가지로 "Alt + F11"을 눌러 VBA 편집기를 엽니 다.
3. 그런 다음 방법 1에서 동일한 방식으로 새 모듈을 삽입하고 엽니 다.
4. 그런 다음 거기에 다음 코드를 붙여 넣으십시오.

Sub TranslateDocxIntoDoc()
  Dim objWordApplication As New Word.Application
  Dim objWordDocument As Word.Document
  Dim strFile As String
  Dim strFolder As String

  strFolder = "E:\Temp\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
   
  While strFile <> ""
    With objWordApplication  
      Set objWordDocument = .Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False)
     
      With objWordDocument
        .SaveAs FileName:=strFolder & Replace(strFile, "docx", "doc"), FileFormat:=0
        .Close
      End With
    End With
    strFile = Dir()
  Wend

  Set objWordDocument = Nothing
  Set objWordApplication = Nothing
End Sub

5. 마지막으로 "실행"버튼을 눌러tart 변환.

그래도 변경하는 것을 기억해야합니다. "E : \ Temp”코드 줄“strFolder =“E : \ Temp \””을 실제 파일 폴더 경로에 추가합니다.

방법 3 : "다른 이름으로 저장"방법 사용

1. 먼저 모든 doc 또는 docx 파일을 하나의 폴더에 정렬합니다.
2. 두 번째로 "Ctrl"을 누르고 클릭하여 모든 파일을 선택합니다.
3. 다음으로 마우스 오른쪽 버튼을 클릭하고 메뉴에서 "다른 이름으로 저장"을 선택합니다.
4. 이제 여러 개의 "다른 이름으로 저장"창이 나타납니다. 따라서 파일 유형에 대해 doc 또는 docx를 선택하십시오.
5. 마지막으로 "저장"을 클릭하여 모든 창을 닫습니다.

그러나 Windows 또는 Office 버전이 다양하기 때문에 상황에 맞는 메뉴에서 "다른 이름으로 저장"옵션을 사용하지 못할 수 있습니다. 따라서 작업을 수행하는 데 두 가지 매크로 방법을 사용하는 것이 좋습니다.

파일 무결성에주의

Word doc 및 docx 파일간에 변환하는 3 가지 방법을 도입했지만 이러한 파일은 사람의 실수 나 잘못된 처리로 인해 손상되기 쉽습니다. 따라서 자주 백업하고 Word 문서 문제 복구 유틸리티 손해가 발생한 경우.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. Excel 데이터 오류 복구 도구 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM