如何批量将Word文档转换为txt文件？
本文讨论如何将特定文件夹中的所有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文件。参见截图：
最佳Office办公效率工具
Kutools for Word - 用超过100项强大功能全面提升你的Word体验！
🤖 Kutools AI 功能：AI助手 / 实时助手 / 超级润色（保留格式）/ 超级翻译（保留格式）/ AI遮挡 / AI校正……
📘 文档掌控：分割页面 / 文档合并 / 区域导出为多种格式（PDF/TXT/DOC/HTML等）/ 批量转换为PDF……
✏ 正文编辑：跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……
🧹 高效清理：一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具，请前往删除分组……
➕ 创意插入：插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……
🔍 精准选取：快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……
⭐ 实用增强：跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 项转换工具……
🌍 支持40多种语言：自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言！
✨ Kutools for Office – 一次安装，五大强力工具集成！
内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间