レイトバインドした際の「Word.WdInformation.～」の書

質問

レイトバインドした際の「Word.WdInformation.～」の書き方が分かりません。。。

　こんばんは、質問させていただきます。どうぞよろしくお願いいたします。
開発環境：VB2008＋XP＋Word2003　でございます。

　初めてレイトバインディングにトライいたしております。
例えば下のようなコードがあるといたします。
　Dim myShape As Word.Shape = myShapes.Item(1)
　Dim myAnc As Word.Range = myShape.Anchor
Info = myAnc.Information(Word.WdInformation.wdActiveEndAdjustedPageNumber)

これをレイトバインディングいたします際、「Word.～」を
すべて書き換えることになると思うのでございますが、
　Dim myShape As Object = myShapes.Item(1)
　Dim myAnc As Object = myShape.Anchor
Info = myAnc.Information(Word.WdInformation.wdActiveEndAdjustedPageNumber)
　　　　　　　　　　　　　 　↑ここのWord.はどのように書くべきでございましょうか？？？

　いろいろ検索したつもりでございますが、解決できません。。。
もしお詳しい方がいらっしゃいましたら，是非ともアドバイスいただけないでしょうか？
　どうぞよろしくお願いいたします。

回答No.1

todo36 · ベストアンサー

遅延バンドで列挙体は参照できません。

ベタで書くなら

Info = myAnc.Information(1)

可読性を意識するなら

Const wdActiveEndAdjustedPageNumber as Integer = 1
Info = myAnc.Information(wdActiveEndAdjustedPageNumber)

参考URL：

http://msdn.microsoft.com/en-us/library/bb213848(office.12).aspx

お礼

どうもありがとうございます！！！
うまくいきました＾＾

　アドバイスいただいた後、検索いたしまして
http://www.geocities.jp/ikachi_soft/script/const/word2007const.txt
できれいにまとめて下さっているのが見つかりましたので、
他にも同じような問題がありましたがすべて同じ要領でうまくいきました。
＞可読性を意識するなら
のやり方ですべて直しました。

　この度は助かりました。ご親切にどうもありがとうございました！m(_ _)m