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

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

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