word vba 囲い線

Word 2007を使用しています。大きなファイルの中に数多くの同じ文字（ABC)を「囲い線」処理しています。下記のマクロは、囲い線処理をした文字「ABC」を検索して、そのすべての文字を太字に処理するもので自分で何とかでき、確かに動いていることは確認できました。加えて、囲い線を二重線にしたく、色々試してみましたが、うまくいきませんでした。インターネットを検索しても、いい例が見当たりません。どなたかご教授いただけませんでしょうか？　それとも同時に囲い線の書式変更はできないのでしょうか？


Sub 囲い線変換()

Dim Test As Document

For Each Test In Documents
With Test.Content.Find
.Text = "ABC"
.Font.Borders.Enable = True
.MatchByte = True
.MatchCase = True
With .Replacement
.Font.Bold = True
End With
.Execute Replace:=wdReplaceAll
End With
Next Test
End Sub

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2016/01/25 12:41

例えば、以下のようなマクロでしょうか？

Sub Test()
Dim rng As Range
Set rng = ActiveDocument.Range(0, 0)

With rng.Find
　.Text = "ABC"
　.Font.Borders.Enable = True
　.MatchByte = True
　.MatchCase = True
End With

With rng
　Do While .Find.Execute = True
　　With rng.Font
　　　.Bold = True
　　　.Borders.OutsideLineStyle = wdLineStyleDouble
　　　rng.SetRange rng.End, rng.End
　　End With
　Loop
End With

End Sub

アクティブなファイルで上記のマクロを実行すれば、[囲み線]のテキストを　　
[太字]＋二重の[囲み線]にします。

この回答へのお礼

enunokokoro様

ありがとうございました。早速実施し、希望通りになりました。他にも応用できるのではないかと考えております。　本当にお世話になりました。

お礼日時：2016/01/25 18:41