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

解決済みの質問

VBAを用いたワード文書内ハイパーリンク情報取得

VBAもしくはVBSを用いてワード文書内のハイパーリンク情報(どのページに飛ぶかなど)を取得するにはどのように記述すればよろしいでしょうか?
ワードを開いて閉じるくらいは調べて出てきたのでできましたが、ハイパーリンクの情報取得はみつけきれませんでした。
プログラムコードそのものや参考になるサイト等ありましたら教えてください。

投稿日時 - 2019-06-16 18:32:21

QNo.9626405

困ってます

質問者が選んだベストアンサー

wordの標準モジュールに
Sub showHyperlinks()
Dim oStory As Range
Dim oHlink As Hyperlink
For Each oStory In ActiveDocument.StoryRanges
For Each oHlink In oStory.Hyperlinks
MsgBox oHlink.Address
Next
Next
End Sub
もしハイパーリンクの数が10個以下の予想ぐらいなら、実行してみて、各MsgBox を見て、上記では不充分な情報(別の情報の項目)があれば、それを指摘して、再質問でもしたら。
結果をどうしたいのか(その後の用途は何か)、質問に書いてないのは、大きな漏れだろう。ワードの表のセルに書き出す程度なら、難しくないが。
ワードは個人的には、Rangeというのがわかりにくいし、その他のVBAのWEBの情報も、読みこなすのが、むつかしいと思うから、深入りしない方がよいと思う。むしろ米国発の記事のほうを探さないとならない場合が多いようだ。

投稿日時 - 2019-06-16 21:48:38

お礼

標準モジュールに入力したら欲しい情報が得られました。
ありがとうございました!
何をしたいかがないと重要な情報は得難いのはわかるのですがそれを入れてたら長くなりすぎましたので簡潔な質問にいたしました。
ご指摘ありがとうございます。

投稿日時 - 2019-06-17 16:54:54

ANo.2

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

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

回答(2)

ANo.1

こちらが参考にならないでしょうか。
https://www.extendoffice.com/ja/documents/word/1411-word-select-copy-all-hyperlinks.html

投稿日時 - 2019-06-16 20:18:02

お礼

このサイトは一度確認したのですがよくわからなくて・・・
再度ひとずつ確認して自分なりに理解できました!
ありがとうございました。

投稿日時 - 2019-06-17 16:51:25

あなたにオススメの質問