将多个MS Word文档转换为txt文件(几个额外的位) [英] Converting multiple MS Word documents into txt files (few extra bits)

问题描述

我目前正在将大量的MS Word表单转移到数据库系统中。

我目前的做法是：

1. 打开单个Word文档
2. 转到高级选项以更改保存设置，以便只将表单数据保存为分隔文本文件
3. 保存并在弹出的提示窗口中单击确定
4. 使用cmd合并所有txt文件
5. 导入EXCEL并在那里处理

希望在这些阶段结束时，我将获得一个整理得很好的EXCEL信息文件，可以传输到数据库系统中。

我的问题是，既然我有很多Word文档(在浏览了大约100个文档后，我感觉自己像个机器人)，我可以自动执行1)、2)和3)的过程吗？

任何帮助都是非常感谢的，我以前已经用python编写了脚本，并做了一些简单的编程，但任何解决方案都是欢迎的。

推荐答案

您可以使用VBA宏自动执行步骤1-3。使用Document.SaveAs方法只能将表单数据保存到txt文件：

ActiveDocument.SaveAs ActiveDocument.FullName & ".txt", _
    WdSaveFormat.wdFormatText, SaveFormsData:=True

然后您可以调用此SaveAs方法循环访问给定文件夹中的所有文档：

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, SaveFormsData:=True

        doc.Close wdDoNotSaveChanges
        fileName = Dir
    Loop
End Sub

如果您需要设置和运行宏的帮助，请查看文档：Create or run a macro

这篇关于将多个MS Word文档转换为txt文件(几个额外的位)的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！