Visual Basic for Word - Code for Footnotes

  • Thread starter Thread starter ikovy
  • Start date Start date
I

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
 
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/MacrosVBA/FindReplaceAllWithVBA.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
 
Back
Top