WHSでWordのテキストボックス内文字列を置換

★環境★
OS：windows2000
WSH:5.6
Word:2000

★質問★
下記の関数を使ってWordファイルの文字列置換を自動で行うことができるようになりました。
しかしテキストボックス内の文字列が置換対象になりません。
どのような施しをすればよいのでしょうか。
よろしくお願いします。

set objword=Wscript.CreateObject("word.Application")
Const wdReplaceAll=2
　　　　　　　　　　　・
　　　　　　　　　　　・
　　　　　　　　　　　・
sub replacetext(beforeText,afterText)
objword.selection.find.text=beforeText
objword.selection.find.forward=true
objword.selection.find.matchwholeword=true
objword.selection.find.replacement.text=afterText
objword.selection.find.replacement ,,,,,,,,,,wdReplaceAll
end sub

No.1 回答者： redfox63 回答日時： 2008/01/08 01:08

テキストボックスなどは Shapesコレクションで個々に判別するしかないのではないかと思いますよ

# word VBAには明るくないので ・・・

for each obj in objword.Shapes
　　obj.AlternativeText = Replase( obj.AlternativeText, beforeText, afterText )
next
といった具合かな