word 四角形の中の文字を置換

以前使ったテキストボックス内の文字を置換するマクロを使おうと思ったのだが、全くうまくいかない。どうもテキストボックスの中に書いた文字と四角形の中に書いた文字は別の扱いになるようだ。
んで最終的に使えるようになったものがこれ。

Sub autoope()
For Each i In ActiveDocument.Shapes
If i.Type = msoShapeRectangle Then
i.TextFrame.TextRange.Find.Execute FindText:="ＶＴＲ機材（ＶＴＲ，テープ", ReplaceWith:="ＶＴＲ機材（ビデオカメラ、テープ",
Replace:=wdReplaceAll
End If
Next
ActiveDocument.Save
ActiveDocument.Close
End Sub