collecting together hyperlinks in word document

[Guest]

I want to collect together a large number of hyperlinks to use in a
"sources" section of a report.
I have used a style sheet and hyperlinks appear in the style sheet, but
unlike all my other styles I cannot select all other similar hyperlinks - it
only ever says there is the one formatted item in the hyperlink style,
whichever hyperlink I click on and try to collect.

 

[Doug Robbins - Word MVP]

Use the following code to insert a copy of them at the end of the document:

Dim hlink As Field, hrange As Range

For Each hlink In ActiveDocument.Fields
If hlink.Type = wdFieldHyperlink Then
Set hrange = hlink.Code
ActiveDocument.Range.InsertAfter Mid(hrange, 13, Len(hrange) - 14) &
vbCr
End If
Next hlink


--
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

 

[Guest]

Thanks.
I guess this is using Word as I haven't before. How and where do I put these
codes?

 

[Doug Robbins - Word MVP]

See the article "What do I do with macros sent to me by other newsgroup
readers to help me out?" at:

http://www.word.mvps.org/FAQs/MacrosVBA/CreateAMacro.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