国产成人毛片视频|星空传媒久草视频|欧美激情草久视频|久久久久女女|久操超碰在线播放|亚洲强奸一区二区|五月天丁香社区在线|色婷婷成人丁香网|午夜欧美6666|纯肉无码91视频

如何利用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表格中。

標(biāo)簽: