Sub test()
x=Selection.End
Do While Selection.Find.Execute("^p") And Selection.Start < x
n = n + 1
Loop
Debug.Print n
End Sub
uj5u.com熱心網友回復：
注釋掉所有On Error Resume Next陳述句，在VBA IDE中運行，出錯后點擊除錯，游標會停在出錯的那條陳述句處，
或者
事先在懷疑可能有邏輯錯誤的陳述句處設定斷點，運行經過斷點時中斷，
此時可以在立即視窗中使用
?變數名
或
?函式名(函式引數)
或
程序名(引數)
輔助除錯。
uj5u.com熱心網友回復：
本宏能夠實作依次查找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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40445.html
標籤：VBA
上一篇：求API網關平臺實施商
下一篇：VB 決議XML的問題