Prev: How do I calculate on a form?
Next: Can I create a macro to crop a picture?
From: ikovy on 5 May 2010 18:11
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
From: Doug Robbins - Word MVP on 5 May 2010 18:58
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

"ikovy" <ikovy(a)discussions.microsoft.com> wrote in message
news:DC8C29AB-C4CA-43B8-9CFD-ACBCD3ABA439(a)microsoft.com...
> 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

 | 
Pages: 1
Prev: How do I calculate on a form?
Next: Can I create a macro to crop a picture?