Groups | Search | Server Info | Login | Register

Groups > comp.sources.d > #73

Word Macro to Extract Hyperlinks from a document

Cross-posted to 2 groups.

Show all headers | View raw

Hello,

From the website http://www.tek-tips.com/viewthread.cfm?qid=1689945 I
got the following macro to extract hyperlinks embedded in a Word
document:



Function doHL()
    Dim nd As Document
    Dim a As Document
    Dim h As Hyperlink
    Dim r As Range

    Application.ScreenUpdating = False

    Set a = ActiveDocument
    Set nd = Documents.Add

    For Each h In a.Hyperlinks
        Set r = nd.Range
        r.Collapse
        r.InsertParagraph
        r.InsertAfter (h.Address)
    Next

    nd.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Function






The macro works like a charm, except that it lists the hyperlinks in
reverse order.  Can someone kindly suggest a tweak to reverse (i.e.
correct) the order of hyperlinks in the document.

Thanks,
SS

Back to comp.sources.d | Previous | Next | Find similar

Thread

Word Macro to Extract Hyperlinks from a document sandeep6699@yahoo.com - 2013-04-25 17:11 -0700

csiph-web