Annemiekeにはかなり長いドキュメントがあり、かなりの数のハイパーリンクが含まれています。彼女は、これらすべてのハイパーリンク（およびハイパーリンクのみ）を新しいドキュメントにコピーして、それらのリストを1か所にまとめたいと考えています。彼女はこれを行う簡単な方法があるかどうか疑問に思います。

これを行う唯一の方法は、マクロを使用することです。 （検索と置換の使用や特定のスタイルのテキストの検索を含む提案では、実際のハイパーリンクではなく、リンクテキストのみがコピーされます。）マクロの重要な点は、のTextToDisplayプロパティとAddressプロパティに特に注意してHyperlinksコレクションを操作することです。コレクションの各メンバー。

Sub PullHyperlinks()

Dim Src As Document     Dim Link As Hyperlink     Dim iDoDisplay As Integer

Set Src = ActiveDocument     If Src.Hyperlinks.Count > 0 Then         iDoDisplay = MsgBox("Include display text for links?", vbYesNo)



Documents.Add DocumentType:=wdNewBlankDocument         For Each Link In Src.Hyperlinks             If iDoDisplay = vbYes Then                 Selection.TypeText Link.TextToDisplay                 Selection.TypeText vbTab             End If             Selection.TypeText Link.Address             Selection.TypeParagraph         Next Link     Else         MsgBox "There are no hyperlinks in this document."

End If End Sub

マクロは最初に、現在のドキュメントにハイパーリンクがあるかどうかを確認します。ある場合は、それらを引き出すプロセスを進めることができます。ない場合は、その旨のメッセージが表示されます。

ドキュメントにハイパーリンクがあると仮定すると、ユーザーは、新しいドキュメントにリンクの表示テキストを含めるかどうかを尋ねられます。次に、マクロは新しいドキュメントを作成し、ハイパーリンクコレクションの各メンバーをステップスルーします。 TextToDisplayプロパティの値が新しいドキュメントに追加され（該当する場合）、その後にAddressプロパティの値が続きます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13549）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。