Christian은 DOCX 파일로 변환해야하는 DOC 파일로 가득 찬 폴더를 가지고 있습니다. 그는 각각을 개별적으로 열고 저장하지 않고 변환 할 수있는 빠른 방법이 있는지 궁금합니다.

Microsoft는 Word에서이 기능을 제공하지 않으며 변환을 수행하는 추가 기능도 제공하지 않습니다. 그러나 자신 만의 매크로를 만들어 변환을 수행 할 수 있습니다. 여기에 다소 간단한 접근 방식이 표시됩니다.

Sub ConvertBatchToDOCX()

Dim sSourcePath As String     Dim sTargetPath As String     Dim sDocName As String     Dim docCurDoc As Document     Dim sNewDocName As String

' Looking in this path     sSourcePath = "c:\Users\Administrator\Desktop\Testing\"

sTargetPath = "c:\Users\Administrator\Desktop\Converted\"



' Look for first DOC file     sDocName = Dir(sSourcePath & "*.doc")

Do While sDocName <> ""

' Repeat as long as there are source files                  'Only work on files where right-most characters are ".doc"

If Right(sDocName, 4) = ".doc" Then             ' Open file             Set docCurDoc = Documents.Open(FileName:=sSourcePath & sDocName)



sNewDocName = Replace(sDocName, ".doc", ".docx")



With docCurDoc                 .SaveAs FileName:=sTargetPath & sNewDocName, _                   FileFormat:=wdFormatDocumentDefault                 .Close SaveChanges:=wdDoNotSaveChanges             End With         End If         ' Get next source file name         sDocName = Dir     Loop     MsgBox "Finished"

End Sub

매크로를 사용하려면 두 가지를 변경해야합니다. 먼저 sSourcePath 변수에 변환 할 파일이 포함 된 디렉터리의 전체 경로 (뒤에 백 슬래시)를 지정합니다.

그런 다음 sTargetPath 변수에서 변환 된 문서를 저장해야하는 디렉토리의 전체 경로 (후행 백 슬래시 포함)를 지정하십시오.

그런 다음 매크로는 소스 디렉터리에서 찾은 모든 DOC 파일을 단계별로 실행하여 열고 대상 디렉터리에 DOCX 파일로 저장합니다.

이것은 간단한 접근 방식이라고 언급했습니다. 그 이유는 작업에 대한 오류 검사를하지 않기 때문입니다. 예를 들어이 매크로를 연속으로 두 번 실행하면 대상 디렉터리에 저장되는 파일이 이미 존재하기 때문에 오류가 발생합니다. 또한 이것은 모든 DOC 파일을 DOCX 파일로 변환한다는 것을 이해해야합니다. 즉, 원본 파일에 매크로가있는 경우 해당 매크로는 변환 프로세스에서 제거됩니다.

마지막으로, 매크로의 핵심은 파일 이름의 맨 오른쪽 4자가 실제로 “.doc”인지 확인하는 If / Then 구조 내에 포함되어 있습니다. 이것은 “* .doc”패턴을 검색하면 contains .doc 파일 이름과 일치하는 것으로 반환되는 일부 시스템에서 Dir 함수의 다소 악화되는 동작 때문에 수행됩니다. 즉, .docx 및 .docm로 끝나는 파일도 반환합니다. 분명히 이것들은 변환되어서는 안되므로 If / Then 구조가 포함되어 제거됩니다.

자체 매크로를 사용하지 않으려면 사용할 수있는 타사 솔루션이 있습니다. Graham Mayor 사이트의 다음 페이지에는 무엇보다도 문서 변환을 수행하는 무료 추가 기능이 있습니다.

http://www.gmayor.com/document_batch_processes.htm

“doc docx 변환기”(따옴표 제외)에 대한 웹 검색을 수행하여 다른 유사한 변환기를 찾을 수 있습니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (643)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다.