如何利用VBA代码，提取WORD文档中的信息

在本篇经验中，我们将分享如何使用VBA代码从WORD文档中提取信息。

步骤1：打开VBA编辑界面

在工作表中，点击菜单栏的【开发工具】选项，在其工具栏内找到并点击【Visual Basic】按钮，即可进入VBA编辑界面。

步骤2：插入模块

在VBA编辑界面中，点击菜单栏的【插入】选项，然后选择【模块】。这将弹出一个模块编辑窗口。

步骤3：编写VBA代码

在模块窗口中输入以下代码：

Sub 提取信息()
    Dim wdapp As Object
    Set wdapp  CreateObject("")
     Filename:  ""
    c  (1).Range
    Set regx  CreateObject("")
    With regx
        .Global  True
        .Pattern  "d、S。"
        Set Mat  .Execute(c)
        For Each m In Mat
            n  n   1
            Cells(n, 1)  m
        Next
    End With
End Sub

步骤4：运行代码

点击键盘上的F8键，逐步运行编写的代码。同时可以用此方式检查代码是否正确。

步骤5：提取结果到Excel表中

代码运行完毕后，所需的结果将被提取到Excel表格中。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。