Word 문서를 txt 파일로 일괄 변환하는 방법은 무엇입니까?
이 문서에서는 특정 폴더에 있는 모든 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. 찾아보기 창에서 변환할 Word 문서가 포함된 폴더를 선택하고 확인 버튼을 클릭합니다. 스크린샷 보기:
그러면 선택한 폴더의 모든 문서가 한 번에 txt 파일로 변환됩니다. 스크린샷 보기:
최고의 오피스 생산성 도구
Kutools for Word - 100가지의 뛰어난 기능으로 Word 경험을 한 단계 높여보세요!
🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (서식 유지) / Super Translate (서식 유지) / AI Redaction / AI Proofread...
📘 문서 마스터하기: 페이지 분할 / 문서 병합 / 다양한 형식(PDF/TXT/DOC/HTML 등)으로 선택 영역 솔루션 내보내기 / PDF로 일괄 변환...
✏ 텍스트 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...
🧹 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크를 깔끔하게 제거하세요. 더 많은 제거 도구는 '제거' 그룹에서 확인할 수 있습니다...
➕ 창의적 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / 라디오 버튼 삽입 / QR 코드 / 바코드 / 여러 그림 삽입 / 더 많은 기능은 삽입 그룹에서 찾아보세요...
🔍 정밀 선택: 특정 페이지 / 표 / 도형 / 제목 단락을 정확히 선택하세요. 더 다양한 선택 기능으로 탐색을 더욱 향상하세요...
⭐ 특별 기능: 원하는 범위로 빠르게 탐색 / 반복 텍스트 자동 삽입 / 문서 창 간 토글 /11 가지 변환 도구...
🌍 40개 이상의 언어 지원: Kutools를 원하는 언어로 사용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어를 지원합니다!
✨ Kutools for Office – 한 번의 설치로5가지 강력한 도구 제공!
Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint가 포함되어 있습니다
📦5가지 도구를 한 번에 이용 | 🔗 Microsoft Office와 무결점 통합 | ⚡ 즉시 저장 시간 절약 및 생산성 향상
최고의 오피스 생산성 도구
Kutools for Word - 100+ Word용 도구
- 🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish / Super Translate / AI Redaction / AI Proofread
- 📘 문서 마스터하기: 페이지 분할 / 문서 병합 / PDF로 일괄 변환
- ✏ 텍스트 편집: 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정
- 🧹 손쉬운 정리: 여분의 공백 제거 / 구역 나누기 제거
- ➕ 창의적 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / QR 코드 생성
- 🌍 40개 이상의 언어 지원: Kutools는 여러분의 언어를 지원합니다 –40개 이상의 언어 가능!