如何利用VBA代碼,提取WORD文檔中的信息
在本篇經(jīng)驗(yàn)中,我們將分享如何使用VBA代碼從WORD文檔中提取信息。 步驟1:打開(kāi)VBA編輯界面 在工作表中,點(diǎn)擊菜單欄的【開(kāi)發(fā)工具】選項(xiàng),在其工具欄內(nèi)找到并點(diǎn)擊【Visual Basic】按鈕,
在本篇經(jīng)驗(yàn)中,我們將分享如何使用VBA代碼從WORD文檔中提取信息。
步驟1:打開(kāi)VBA編輯界面
在工作表中,點(diǎn)擊菜單欄的【開(kāi)發(fā)工具】選項(xiàng),在其工具欄內(nèi)找到并點(diǎn)擊【Visual Basic】按鈕,即可進(jìn)入VBA編輯界面。
步驟2:插入模塊
在VBA編輯界面中,點(diǎn)擊菜單欄的【插入】選項(xiàng),然后選擇【模塊】。這將彈出一個(gè)模塊編輯窗口。
步驟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:運(yùn)行代碼
點(diǎn)擊鍵盤上的F8鍵,逐步運(yùn)行編寫的代碼。同時(shí)可以用此方式檢查代碼是否正確。
步驟5:提取結(jié)果到Excel表中
代碼運(yùn)行完畢后,所需的結(jié)果將被提取到Excel表格中。