Answer: Automatically adding hyperlinks in footnotes in MS Word

answer re: Automatically adding hyperlinks in footnotes in MS Word

Jul 3 '24

0

Like @jonsson said use StoryRange object plz, like this, you can try first:

Sub MakeHyperlinks()
Dim afield As Field
Dim url As String
Dim isHyper As Integer
Dim sr As Range

For Each sr In ActiveDocument.StoryRanges
    'For Each afield In ActiveDocument.Fields
    For Each afield In sr.Fields
        If afield.Type = wdFieldIndexEntry

…

Open Full Answer