이 기사에서는 특정 폴더의 모든 Word 문서를 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 파일로 변환되는 것을 볼 수 있습니다. 스크린 샷보기 :
