如何利用VBA代碼，提取WORD文檔中的信息

在本篇經驗中，我們將分享如何使用VBA代碼從WORD文檔中提取信息。 步驟1：打開VBA編輯界面 在工作表中，點擊菜單欄的【開發(fā)工具】選項，在其工具欄內找到并點擊【Visual Basic】按鈕，

在本篇經驗中，我們將分享如何使用VBA代碼從WORD文檔中提取信息。

步驟1：打開VBA編輯界面

在工作表中，點擊菜單欄的【開發(fā)工具】選項，在其工具欄內找到并點擊【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表格中。