MS WordのVBAは、選択だけでなく、ドキュメント全体に影響します。

Question

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に見知らぬ人ではありませんが、修正方法はわかりません。選択が完了したら停止します。

Answer 1

あなたはそれをやった

 .Wrap = wdFindStop 

代わりの

 .Wrap = wdFindAsk