我想让VBA脚本在选择中执行查找/替换，然后将宏分配给快速访问工具栏上的按钮，从而省去了通常的“查找/替换”过程。
我在执行此操作时记录了一个宏，这就是我得到的：
Sub FindReplace()
'
' FindReplace Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
但是，当我在选择项上运行此宏以将段落标记更改为空格时，它将继续更改整个文档，而不仅仅是选择项。
我对VBA并不陌生，但是我看不到如何解决它，因此选择完成后它会停止。
您将需要使用
.Wrap = wdFindStop
代替
.Wrap = wdFindAsk
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句