[ikovy]

I'm trying to get a list of all the files a Microsoft Word document is
hyperlinked to. Is there a way to have Word generate or show a list of all
the files a Word document is hyperlinked to?

Thanks

[Jay Freedman]

On Tue, 4 May 2010 14:50:01 -0700, ikovy
wrote:

I'm trying to get a list of all the files a Microsoft Word document is
hyperlinked to. Is there a way to have Word generate or show a list of all
the files a Word document is hyperlinked to?

Thanks

Use this macro (see http://www.gmayor.com/installing_macro.htm if
needed):

Sub ListHyperlinks()
Dim srcDoc As Document, destDoc As Document
Dim HL As Hyperlink

Set srcDoc = ActiveDocument
Set destDoc = Documents.Add

For Each HL In srcDoc.Hyperlinks
destDoc.Range.InsertAfter _
HL.TextToDisplay & vbTab & HL.Address & vbCr
Next

destDoc.Range.ConvertToTable
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit.

[Jay Freedman]

On Tue, 4 May 2010 14:50:01 -0700, ikovy
wrote:

I'm trying to get a list of all the files a Microsoft Word document is
hyperlinked to. Is there a way to have Word generate or show a list of all
the files a Word document is hyperlinked to?

Thanks

Use this macro (see http://www.gmayor.com/installing_macro.htm if
needed):

Sub ListHyperlinks()
Dim srcDoc As Document, destDoc As Document
Dim HL As Hyperlink

Set srcDoc = ActiveDocument
Set destDoc = Documents.Add

For Each HL In srcDoc.Hyperlinks
destDoc.Range.InsertAfter _
HL.TextToDisplay & vbTab & HL.Address & vbCr
Next

destDoc.Range.ConvertToTable
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit.