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, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...

더 읽기 다운로드 매수