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 파일로 변환되는 것을 볼 수 있습니다. 스크린 샷보기 :
최고의 사무 생산성 도구
Kutools for Word - Over로 단어 경험을 향상시키세요 100 놀라운 기능!
아래의 강조된 기능을 살펴보거나 여기를 클릭해 의 모든 기능을 살펴보세요. Kutools for Word.
📘 문서 숙달: 페이지 분할 / 문서 병합 / 다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/XLSX) / PDF로 일괄 변환 / 페이지를 이미지로 내보내기 / 한 번에 여러 파일 인쇄 ...
✏ 컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐 / 모든 사진 크기 조정 / 테이블 행과 열 바꾸기 / 표를 텍스트로 변환 ...
🧹 손쉬운 청소: 쓸어 버리다 추가 공간 / 섹션 나누기 / 모든 헤더 / 텍스트 상자 / 하이퍼 링크 / 더 많은 제거 도구를 보려면 그룹 제거로 이동하세요.
➕ 광고 삽입물: 끼워 넣다 천 단위 구분 기호 / 확인란 / 라디오 버튼 / QR 코드 / 바코드 / 대각선 표 / 방정식 캡션 / 이미지 캡션 / 테이블 캡션 / 여러 장의 사진 / 삽입 그룹에서 더 많은 것을 알아보세요
🔍 정밀한 선택: 특정 페이지를 정확히 찾아보세요 / 테이블 / 모양 / 제목 단락 / 선택 그룹을 사용하여 쉽게 탐색하세요.
⭐ 스타 강화: 어떤 위치로든 빠르게 이동 / 반복되는 텍스트 자동 삽입 / 문서 창 간을 원활하게 전환합니다. / 11 변환 도구 ...
Kutools로 Word 작업을 변환하세요. 👉 지금 30일 평가판으로 다운로드하세요 🚀.
