[ikovy]

I have the visual basic code below, but I need it to work for footnotes. Any
help, thanks.


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

[Doug Robbins - Word MVP]

See the Story Ranges part of the article "Using a macro to replace text
where ever it appears in a document including Headers, Footers, Textboxes,
etc.€� at:

http://www.word.mvps.org/FAQs/Macros...AllWithVBA.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"ikovy" wrote in message
news
I have the visual basic code below, but I need it to work for footnotes.
Any
help, thanks.


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

[Doug Robbins - Word MVP]

See the Story Ranges part of the article "Using a macro to replace text
where ever it appears in a document including Headers, Footers, Textboxes,
etc.€� at:

http://www.word.mvps.org/FAQs/Macros...AllWithVBA.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"ikovy" wrote in message
news
I have the visual basic code below, but I need it to work for footnotes.
Any
help, thanks.


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