wordでのhyperlinkマクロ作成方法

通称poppyといいます。
excelでは各シートのマクロ定義で

Private Sub Worksheet_followhyperlink(ByVal Target As Hyperlink)
Application.Goto reference:=ActiveCell, scroll:=True
End Sub

と定義し、

thisworkbookでは
Private Sub Worksheet_followhyperlink(ByVal sh As Object, ByVal Target As Hyperlink)
Application.Goto reference:=ActiveCell, scroll:=True
End Sub
と定義すればhyperlinkでジャンプした先の画面表示では指定したセルが画面左上に表示されます。

このような方法をwordで実行したいのですが、マクロの作成方法を教えて下さい。
よろしくお願いいたします。

No.1 回答者： enunokokoro 回答日時： 2012/01/26 13:44

Excelのイベントプロシージャを使った動作と似たことを、

Wordで実現したいのでしょうか？
http://kabu-macro.com/word/a-o/event_procedure.h …

どのようなリンク先を開きたいのかによって、おそらくは
違った対応になるかと思います。

とりあえず、Excelでのジャンプ先の指定方法と、Wordの
ジャンプ方法の違いを見比べてみてください。
●Excel
http://msdn.microsoft.com/ja-jp/library/microsof …
●Word
http://msdn.microsoft.com/ja-jp/library/microsof …

この違いを認識したうえで、Wordのイベントプロシージャ
として、ハイパーリンクをクリックしたときに実行される
ような機能はありませんので、希望しているようなことは
ジャンプ先を直接指定するしかないということになります。

簡単な例
Sub Macro1()
　'単純なブックマーク先「あ」にジャンプするマクロ
　Selection.GoTo What:=wdGoToBookmark, Name:="あ"
End Sub

私は、WordやExcelでのマクロについて詳しく説明できる
ほどスキルがないので、具体的な作成方法を提示できない
ことから、補足などされても追加回答はしません。

もっと具体的なことを書いた新規質問をして、他の回答者
からのアドバイスをお待ちください。

この回答への補足

１．excelでの前提条件（マクロの登録）
　　excelシートのではツールバーからツールーマクローvisual　baisic　editerを選択し、
　　前回提示させていただいた内容を記入します。

２．マクロを使用する実際のシートの作成方法
　　目次シートがありこの目次にツールバーから挿入ーハイパーリンクを選択します。
　　この時ハイパーリンク先のシートとcellを指定します。

　上記のようにハイパーリンクを設定して、設定したハイパーリンクをクリックすると
　指定先にジャンプするとともに指定先のcellが画面左最上位に見えるようになります。
　マクロ登録をしないと、ハイパーリンクを設定してもジャンプ先画面が最上位になりません。

　wordでのハイパーリンクをマクロ無しで設定するとやはりジャンプはするが画面左最上位に行きません　wordでのハイパーリンク設定でジャンプ先が画面左最上位になるようにしたいと思っています。
　ご協力お願いいたします。　

補足日時：2012/01/28 14:21

この回答へのお礼

早速の回答ありがとうございます。
私もマクロについて詳しくないので、この提示された内容を検討するとともに、少し時間がかかりますが具体的な補足をさせていただきます。

お礼日時：2012/01/28 13:52