office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2021-01-27 08:00:00
whatcodeis
轉貼
6997
本宏能夠實現依次查找ori()中的文本,併替換爲對應的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          '不區分大小寫
         .MatchWholeWord = False     '不採用全字匹配
         .MatchByte = False          '不區分全半角
         .MatchWildcards = False     '不使用通配符
         .MatchSoundsLike = False    '不查找衕音
         .MatchAllWordForms = False  '不查找單詞的所有形式
     End With




本宏能夠持續查找全文中的特定字符,併統計數量
i = 1
Do
    With Selection.find
        .ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Execute (Text = "在此輸入需要查找的內容")
    End With
    If Selection.find.Found Then
     i = i + 1
     Else:  Msgbox("在此輸入需要查找的內容共有" & i & "箇")
     End If
Loop
分享