成人AV在线无码|婷婷五月激情色,|伊人加勒比二三四区|国产一区激情都市|亚洲AV无码电影|日av韩av无码|天堂在线亚洲Av|无码一区二区影院|成人无码毛片AV|超碰在线看中文字幕

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

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

在本篇經(jīng)驗中,我們將分享如何使用VBA代碼從WORD文檔中提取信息。

步驟1:打開VBA編輯界面

在工作表中,點擊菜單欄的【開發(fā)工具】選項,在其工具欄內(nèi)找到并點擊【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:提取結(jié)果到Excel表中

代碼運行完畢后,所需的結(jié)果將被提取到Excel表格中。

標(biāo)簽: