ExcelVBAでWordのテキストボックスを置換したい

Question

実現したいこと

ExcelVBAでWordのテキストボックスを置換したい

発生している問題・分からないこと

ExcelVBAでWordのテキストボックスを置換したいのですが、通常の文書は置換できてもテキストボックスは置換も検索にもヒットしません。
文章内の桃太郎はかぐや姫に置換されますが、テキストボックスに記入された桃太郎は桃太郎のままです。
置換の処理の前に、
testWord.Shapes(1).Select　を記入してもだめでした。

よろしくお願いします。

該当のソースコード

Sub wordテスト()
Dim testWord As Word.Document

Set testWord = GetObject("C:（略）エクセルから置換.docx")
testWord.Application.Visible = True

With testWord.Content.Find
   .Text = "桃太郎"
   .Replacement.Text = "かぐや姫"
   .Forward = True
   .Execute Replace:=2
End With

End Sub

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

ExcelVBAでWordのテキストボックスを置換している情報サイトを見ましたが、Wordのマクロの記録で得られるようなコードではエラーが出ました。

補足

特になし

Answer 1

testWord.Shapes(1).TextFrame.TextRange.Find
で解決しました。