Hyperlink text to Footnote

WJSwanepoel · #1 04-04-2023, 08:35 AM

I am trying to use a macro to turn text at hyperlinks into footnotes. My Macro looks like this:

Code:

Sub HLnk2FtNt()
Application.ScreenUpdating = False
Dim h As Long, Rng As Range
With ActiveDocument
  For h = .Hyperlinks.Count To 1 Step -1
    With .Hyperlinks(h)
      Set Rng = .Range
      With Rng
        .Collapse wdCollapseEnd
        .Footnotes.Add Rng
        .End = .End + 1
      End With
      Rng.Footnotes(1).Range.FormattedText = .Range.FormattedText
      .Range.Fields.Unlink
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

It however does not do what I want.
I attach the original Word document: SmallTest.docx
The file after running the macro: SmallTest_AfterMacro.docx and
A document showing what I actually want.

Any help will be much appreciated.

WJSwanepoel · #2 04-05-2023, 12:15 AM

I have it partially solved using this code:

Code:

Sub HLnk2FtNt()
Application.ScreenUpdating = False
Dim h As Long, Rng As Range
With ActiveDocument
  For h = .Hyperlinks.Count To 1 Step -1
    With .Hyperlinks(h)
         Set Rng = .Range
         With Rng
              .Collapse wdCollapseEnd
              .Footnotes.Add Rng
              .End = .End + 1
         End With
         bmName = .SubAddress
         Set hlRng = ActiveDocument.Bookmarks(bmName).Range
         ActiveDocument.Hyperlinks(h).Delete
         With hlRng
              .Expand wdParagraph
              .Start = .Start + 2
              .End = .End - 1
         End With
         Rng.Footnotes(1).Range.FormattedText = hlRng.FormattedText
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

There is one problem left. The piece of text that was the original Hyperlink still sits there. See attached file: PartialSolution.docx.

How can I remove that as well?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to change font size of Footnote Reference in Footnote Text	TheBigBoss	Word VBA	5	06-10-2022 06:14 AM
Convert plaintext to hyperlink in footnote section	henrychang	Word VBA	9	04-15-2022 05:42 PM
Removing line break and indentation between footnote number and footnote text in Word	jaanross	Word	5	02-06-2020 12:04 AM
Adding footnote number as part of footnote text	NoCalScribe	Word VBA	3	07-15-2019 07:20 PM
Space between footnote number and footnote text	Sabya	Word	6	07-29-2018 02:30 PM