みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

投稿日時 - 2008-01-07 05:00:17

QNo.3657076

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

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

投稿日時 - 2008-01-08 01:08:31

あなたにオススメの質問