ワード オートシュイプ

質問

いつも大変お世話になっております。

WindowsXP環境下で
ワード2003を使用しております。

そこでオートシェイプについて質問です。

エクセルは可能かと思いますが
ワードのオートシェイプには名前が付けられますでしょうか？

実は、エクセルマクロで該当のワードを開き、
ワード内の該当オートシェイプ内の文字列を書き換えたかったからです。
その該当オートシェイプ自体に名前があればいけるんじゃないかと思いました。
ワードで無理な場合、やはりアプリをエクセルにしなければダメでしょうか？

もしご存知の方がいれば、ご教授願います。

以上、宜しくお願い致します。

回答No.1

Hayashi_Trek

マクロを使えば、オートシェイプに名前を付けることができます。

Set myDocument = Documents.Add
With myDocument.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 200)
.Name = "hogehoge"
.Fill.ForeColor.RGB = RGB(0, 128, 128)
.Fill.BackColor.RGB = RGB(128, 128, 0)
End With
このサンプルは試していません。