wordで選択した部分の前後に文字列を挿入するマクロを作成したいと思っ

質問

wordで選択した部分の前後に文字列を挿入するマクロを作成したいと思っています。
Word文章中から二重下線を検索しマーカーを付けています。
その検索したマーカーが付いている前に例えば"あいう"後に"ABC"と入れる場合どうすれば良いのでしょうか？
Selection.InsertBefore
Selection.InsertAfter
等を使って入れられる事はわかりましたがうまく入れる事が出来ません。
どなたかご教授頂けると幸いです。
他のやり方もあれば是非宜しくお願い致します。

Sub UnderlineDouble()
'
' 検索条件で二重下線、置換条件で蛍光ペン
'
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
'検索で二重下線
.Font.Underline = wdUnderlineDouble
.Text = ""
'置換で蛍光ペン
.Replacement.Highlight = True
.Replacement.Text = "^&"
'その他の条件
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False

End With
Selection.Find.Execute Replace:=wdReplaceAll
MsgBox "完了"
End Sub

回答No.1

enunokokoro · ベストアンサー

置換で指定した【二重下線＋蛍光ペン】を、追加したい前後の文字列にも
設定してもよいのなら簡単です。

.Replacement.Text = "^&"
　　　↓
.Replacement.Text = "あいう^&ABC"

これはマクロを使わないで置換したときの条件と同じです。
[あいまい検索]のチェックをはずしてるので、"^&"が[検索する文字列]
を示していますから、前後に追加したい文字列を追記するだけです。

そうではなく、前後の文字列は二重下線や蛍光ペンなしで追記したいと
なると、マクロが長くなるのと設定方法が単純ではないので、回答者の
スキルが試されます。
私はマクロのスキルが低いので、たぶん回答はできないと思いますが、
条件をはっきりさせて補足されてはいかがでしょう。

お礼

ありがとうございます。
意外に簡単な事だったんですね。
今回は前後の文字列は二重下線や蛍光ペンありでOKだったのですが付けない方法も知りたいなと思うところではあります。
でも無事解決しましたのでありがとうございました。