Word 문서를 일괄적으로 TXT 파일로 변환하는 방법은 무엇인가요？

이 문서에서는 특정 폴더에 있는 모든 Word 문서를 Word 에서 개별 TXT 파일로 일괄 변환하는 방법에 대해 설명합니다。

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

---

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

아래의 VBA 코드를 사용하면 특정 폴더에 있는 모든 Word 문서를 한 번에 TXT 파일로 변환할 수 있습니다。 다음 단계를 따르세요。

1. Word 문서에서Alt+F11키를 눌러Microsoft Visual Basic for Applications창을 엽니다。

2. Microsoft Visual Basic for Applications창에서삽입>모듈을 클릭한 후 아래 코드를 모듈 창에 복사합니다。

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 문서가 포함된 폴더를 선택하고확인버튼을 클릭합니다。 스크린샷 참조：

그러면 선택한 폴더의 모든 문서가 한 번에 TXT 파일로 변환된 것을 확인할 수 있습니다。 스크린샷 참조：