【发布时间】:2016-05-09 13:38:16
【问题描述】:
我想让 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没有陌生,但我看不到如何修复它,以便在选择完成时停止。
【问题讨论】: