選択文字列で検索、全検索結果の前後に括弧追加

質問

ワードでマイクロを書いているのですがうまくいきません。
選択した文字列で検索をかけ、全検索結果の文字列の前に"「{"、後に"}」"という括弧を追加したいのです。

たとえば、長い文章の中に、

まさお君は八百屋さんへおつかいに

という文字列が何度か登場しており、

まさお君は八百屋さんへおつかいに　部分を選択し、
検索をかけ、８箇所見つかったとします。
その８箇所全部を

「{まさお君は八百屋さんへおつかいに}」

という形式にしたいのです。

探したい文字列が数種類なら、検索置換で行えばいいのですが、
多数あるため、
選択した文字列で検索⇒全検索結果の前後に文字追加
を一気にできないか？
と試行錯誤しています。

よろしくお願いいたします。

回答No.1

enunokokoro · ベストアンサー

マクロ記録したものを少し編集するぐらいで可能かと思いますが。
'------------------------- ここから ----------------------------
Sub Macro1()
'
'選択した範囲に指定してある括弧で囲む
'
Dim ST As String
ST = Selection.Text
Selection.StartOf Unit:=wdStory, Extend:=wdMove
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ST
.Replacement.Text = "「{^&}」"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
'------------------------- ここまで ----------------------------

上記マクロに対して、コマンドボタンやショートカットキーを用意して
おけば、選択した範囲と同じ範囲に括弧がつくかと思います。

お礼

早速ご回答ありがとうございました。
望んだとおりの結果が出ました。
これで単純作業がかなり減少します。
本当にありがとうございました。