VBA尋找word中指定文本并進行替換

2021-01-27 08:00:00

whatcodeis

轉(zhuǎn)貼

7624

本宏能夠?qū)崿F(xiàn)依次查找ori（）中的文本，并替換為對應(yīng)的rep（）中的文本
Ori = Array("a","b","c")
Rep = Array("a","b","c")
For i = 0 To UBound(Ori)
With Selection.find
.Text = Ori(i)
.Replacement.Text = Rep(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False '不查找格式
.MatchCase = False '不區(qū)分大小寫
.MatchWholeWord = False '不采用全字匹配
.MatchByte = False '不區(qū)分全半角
.MatchWildcards = False '不使用通配符
.MatchSoundsLike = False '不查找同音
.MatchAllWordForms = False '不查找單詞的所有形式
End With

本宏能夠持續(xù)查找全文中的特定字符，并統(tǒng)計數(shù)量
i = 1
Do
With Selection.find
.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute (Text = "在此輸入需要查找的內(nèi)容")
End With
If Selection.find.Found Then
i = i + 1
Else: Msgbox("在此輸入需要查找的內(nèi)容共有" & i & "個")
End If
Loop

Access數(shù)據(jù)庫自身

Access數(shù)據(jù)表技巧

Access查詢技巧

Access窗體控件

Access報表圖表

Access VBA函數(shù)模塊

Access Dao/Ado/鏈接表

Access Activex第三方控件

Activex控件或Dll 在某些電腦無法正常注冊的解決辦法(regsvr32注冊時卡?。?/a>

Access ADP Sql Server等

Access 行業(yè)應(yīng)用開發(fā)

文章分類

聯(lián)系我們

聯(lián)系人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01