MS Word中的VBA会影响整个文档，而不仅仅是选择

Question

I want to have a VBA script perform a find / replace in a selection and then assign the macro to a button on the Quick Access ToolBar, to save having to click through the usual Find/Replace procedure.

I recorded a macro while doing this and this is what I get:

 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

But when I run this macro on a selection to change paragraph marks into spaces it continues on to change the whole document, not just the selection.

I'm no stranger to VBA but I can't see how to fix it so it stops when the selection is done.

Answer 1

You are going to need to use

     .Wrap = wdFindStop

Instead of

     .Wrap = wdFindAsk