如何将 .doc 文件批量转换为 .txt 以便导入 Excel答案

【问题标题】：How can I batch convert .doc files into .txt so I can import into Excel如何将 .doc 文件批量转换为 .txt 以便导入 Excel
【发布时间】：2021-08-27 19:08:16
【问题描述】：

我需要将一些 Word（主要是 .doc，一些 .docx）文件中的数据传输到 Excel 中，以便更好地记录和分析。目前我看到的唯一方法是：手动打开每个文件>另存为>纯文本> Windows（默认）。这是一项艰巨的工作，而且不是很好地利用时间，因为我有数百个文档要做。

我是 VBA 和宏的绝对新手，但想象一下我可以使用这些实现大部分工作的自动化。或者，PowerShell 是否能够做到这一点？

我尝试按照this suggestion 将 Word 批量转换为 .txt，但是当我打开 .txt 文件时，它们都是空白的。如果我遵循手动的一对一 SaveAs 路线，那么他们会将数据保存为文本。

【问题讨论】：

标签： vba powershell ms-word

【解决方案1】：

如果您使用的代码对您不起作用，则表明您拥有的文档不包含表单字段。要将文档简单地保存为文本，您只需省略SaveFormsData:=True，如下所示。

Sub SaveAllFormData(path As String)
    Dim doc As Document
    Dim fileName As String

    fileName = Dir(path & "*.doc*")

     ' Loop through all .doc files in that path
    Do While fileName <> ""
        Set doc = Application.Documents.Open(path & fileName)

         ' Save form data
        doc.SaveAs2 doc.FullName & ".txt", WdSaveFormat.wdFormatText

        doc.Close wdDoNotSaveChanges
        fileName = Dir
    Loop
End Sub

【讨论】：