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