如何利用VBA代碼,提取WORD文檔中的信息
在本篇經(jīng)驗中,我們將分享如何使用VBA代碼從WORD文檔中提取信息。 步驟1:打開VBA編輯界面 在工作表中,點擊菜單欄的【開發(fā)工具】選項,在其工具欄內(nèi)找到并點擊【Visual Basic】按鈕,
在本篇經(jīng)驗中,我們將分享如何使用VBA代碼從WORD文檔中提取信息。
步驟1:打開VBA編輯界面
在工作表中,點擊菜單欄的【開發(fā)工具】選項,在其工具欄內(nèi)找到并點擊【Visual Basic】按鈕,即可進(jìn)入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:提取結(jié)果到Excel表中
代碼運行完畢后,所需的結(jié)果將被提取到Excel表格中。