Note: The other languages of the website are Google-translated. Back to English

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

이 기사에서는 특정 폴더의 모든 Word 문서를 Word에서 별도의 TXT 파일로 일괄 변환하는 방법에 대해 설명합니다.

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


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

아래 VBA 코드는 특정 폴더의 모든 Word 문서를 한 번에 txt 파일로 변환하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

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

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

VBA 코드 : Word 문서를 txt 파일로 일괄 변환

Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20181123
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            Debug.Print Left(xFilePath, xIndex - 1) & ".txt"
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

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

4. 에서 검색 창에서 txt 파일로 변환 할 Word 문서가 들어있는 폴더를 선택하고 OK 단추. 스크린 샷보기 :

그러면 선택한 폴더의 모든 문서가 한 번에 txt 파일로 변환되는 것을 볼 수 있습니다. 스크린 샷보기 :


추천 단어 생산 도구

 

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

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (22)
5에서 평가 된 5 · 1 등급
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
저는 시의 팬입니다. 700개 이상의 단어 구성을 txt로 변환해야 했습니다. 당신의 서브루틴 덕분에 나는 그럭저럭 시간에 그것을 할 수 있었습니다.
고맙습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Mac에서 최신 Word를 사용할 때 동일한 코드를 제공할 수 있습니까? 런타임 오류 5948 및 디버그 지점이 이 섹션에 표시됩니다. Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고맙습니다! 이것은 매우 도움이 됩니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
어떻게 작동시키셨나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나를 위해 일하지 않는 이유는 무엇입니까?
변환하려는 동일한 폴더의 워드 문서에서 이 작업을 수행해야 합니까? 아니면 시작하는 새 워드 문서에서든 이 작업을 수행해야 합니까? - 두 옵션을 모두 시도했지만 아무 것도 작동하지 않지만 오류 메시지도 표시되지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Windows 10 및 Microsoft Office 2016을 사용하고 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
xFileStr = Dir(xFolder & "\*.doc") 을 xFileStr = Dir(xFolder & "\*.docx") 로 변경하십시오. 최신 단어 파일 형식이 있다고 가정합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 코드는 작동하지만 마지막에 '런타임 오류 91'이 표시되고 일부 파일에 개체가 있습니다. 이 문제를 어떻게 고칠 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 고마워! 매력처럼 일했습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
.docx 파일로 가득 찬 폴더에서 빠르고 완벽하게 작업했습니다. 고마워/
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
스크립트는 저에게 잘 작동하지만 하나의 폴더에서만 작동합니다. 모든 하위 폴더를 포함하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것에 감사드립니다. "이봐, 아마도 누군가가 이미 이것을 했습니까?"라고 생각했을 때 나는 무언가를 직접 코딩하려고했습니다. 당신은 내가 했을 것보다 더 우아한 거래를 했습니다. 당신의 노고에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
위의 스크립트를 사용하여 한글 문서를 일괄 변환했는데 스크립트가 작동하지 않습니다. 인코딩을 변경하는 데 지쳤을 때 이 오류를 해결하는 데 도움을 줄 수 있는 사람이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 그것들을 구분된 텍스트 파일로 변환해야 합니다. 이것은 여전히 ​​가능합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그것은 치료 효과가 있었다! 감사!
5에서 평가 된 5
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요,이 게시물을 주셔서 감사합니다. "실행"을 누르면 "컴파일 오류: 잘못된 외부 프로시저"라는 오류 메시지가 나타납니다. 이것은 내가 doc 또는 docx 확장을 사용하는지 여부입니다(관련이 없을 수도 있지만 둘 다 시도했습니다.) 도와주시겠습니까? 코드를 사용하는 방법을 모릅니다.... 그리고 정말 많은 문서를 변환해야 합니다. 고맙습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 두르가님
제 경우에는 코드가 잘 작동합니다.
모듈(코드) 창에 게시물에 제공된 VBA 코드만 포함되어 있는지 확인하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이것은 완벽하게 작동합니다. TXT의 다른 인코딩 형식(예: Windows 대신 UTF-8)을 선택하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 사이먼,
다음 VBA 코드는 지정된 폴더의 모든 Word 문서를 UTF-8 .txt 파일로 변환하는 데 도움이 됩니다.
Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20201031
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False, Encoding:=msoEncodingUTF8
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
많은 감사
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
메르시 뷰쿠! La conversion se fait très bien
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
인사말
울리
아직 코멘트가 없습니다

Follow Us

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