【至急】PowerPointで正規表現ﾏｯﾁした部分に色を付けたい【お願い】 PowerPoint 2007のﾄﾞｷｭﾒﾝﾄで､正規表現に一致する部分のﾌｫﾝﾄに色を付けたいと考えています…

【至急】PowerPointで正規表現ﾏｯﾁした部分に色を付けたい【お願い】

PowerPoint 2007のﾄﾞｷｭﾒﾝﾄで､正規表現に一致する部分のﾌｫﾝﾄに色を付けたいと考えています｡たとえば､黒い四角で始まって白い四角で終わる最短ﾏｯﾁ､"■[^□]□" に対して､赤いﾌｫﾝﾄを適用する､などです｡

今のところできているｺｰﾄﾞをｺﾒﾝﾄ欄に書き込みます｡正規表現ﾊﾟﾀｰﾝにﾋｯﾄすることまでは確認できましたが､ﾋｯﾄした後､ﾋｯﾄした場所にﾌｫﾝﾄの色を設定する方法がわかりません｡

どのようなｺｰﾄﾞを書けばいいでしょうか｡まったく新しいｺｰﾄﾞでこの問題を解決できる場合は､流用せずに新規のｺｰﾄﾞを教えてください｡よろしくお願いします｡ﾋｯﾄした文字列を取り出して､通常の検索にかけて範囲選択してﾌｫﾝﾄの色を変えるのでしょうか･･･

Sub main()
Dim RegExp As Object '正規表現ｵﾌﾞｼﾞｪｸﾄ
Dim osld As Slide 'ｽﾗｲﾄﾞ
Dim oshp As Shape 'ｼｪｲﾌﾟ
Dim strInput As String '検索対象文字列
Dim b_found As Boolean 'ﾋｯﾄ成否

'正規表現のｵﾌﾞｼﾞｪｸﾄを生成してﾊﾟﾀｰﾝをｾｯﾄ
Set RegExp = CreateObject("vbscript.regexp")
With RegExp
.Global = True
.Pattern = "■[^□]□"
End With

'ﾌﾟﾚｾﾞﾝﾃｰｼｮﾝの各ｽﾗｲﾄﾞをﾙｰﾌﾟ
For Each osld In ActivePresentation.Slides
'ｽﾗｲﾄﾞ内の各ｼｪｲﾌﾟをﾙｰﾌﾟ
For Each oshp In osld.Shapes
'ｼｪｲﾌﾟにﾃｷｽﾄﾌﾚｰﾑがあり
If oshp.HasTextFrame Then
'さらにﾃｷｽﾄが含まれている場合
If oshp.TextFrame.HasText Then
'そのﾃｷｽﾄを検索対象文字列にｾｯﾄ
strInput = oshp.TextFrame.TextRange.Text
'検索対象文字列にﾊﾟﾀｰﾝが含まれるかどうか
b_found = RegExp.test(strInput)
'含まれる場合
If b_found = True Then
'★ﾋｯﾄした部分を範囲選択して色を付けたい！★
End If
End If
End If

Next oshp
Next osld
End Sub