卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

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

標(biāo)簽: