Skip to main content

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

Author: Siluvia Last Modified: 2025-05-21

이 문서에서는 특정 폴더에 있는 모든 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

VBA window with the above code pasted into a module

3. 코드를 실행하기 위해 F5 키를 누릅니다.

4. 찾아보기 창에서 변환할 Word 문서가 포함된 폴더를 선택하고 확인 버튼을 클릭합니다. 스크린샷 보기:

Browse window

그러면 선택한 폴더의 모든 문서가 한 번에 txt 파일로 변환됩니다. 스크린샷 보기:

All documents in selected folder are converted to txt files

최고의 오피스 생산성 도구

Kutools for Word - 100개 이상의 놀라운 기능으로 워드 경험을 한 단계 업그레이드하세요!

? Kutools AI 기능: AI 도우미 / 실시간 어시스턴트 / 슈퍼 폴리시 (형식 유지) / 슈퍼 번역 (형식 유지) / AI 수정 / AI 교정...

? 문서 마스터: 페이지 분할 / 문서 병합 / 다양한 형식으로 선택 영역 내보내기 (PDF/TXT/DOC/HTML...) / 일괄 PDF로 변환...

콘텐츠 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...

? 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크 제거 / 더 많은 제거 도구는 제거 그룹으로 이동...

창의적인 삽입: 천 단위 구분 기호 삽입 / 체크 박스 / 라디오 버튼 / QR 코드 / 바코드 / 여러 그림 / 삽입 그룹에서 더 알아보기...

? 정확한 선택: 특정 페이지 / / 도형 / 제목 단락 / 더 많은 선택 기능으로 탐색 강화...

주요 개선사항: 원하는 위치로 이동 / 반복되는 텍스트 자동 삽입 / 문서 창 간 전환 / 11가지 변환 도구...

Kutools and Kutools Plus tabs on the Word Ribbon
? 이러한 기능을 사용해 보시겠습니까? 지금 바로 Kutools for Word를 다운로드하세요! ?