Converting Hyperlinks to Footnotes

Written by Allen Wyatt (last updated February 15, 2020)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and 2021


3

Stephen has a large document (300+ pages) that includes a large number of hyperlinks in the main text. There are, as well, footnotes in the document. Each of the hyperlinks needs to be converted into a footnote, which will (of course) increase the number of footnotes in the document. The increase isn't a problem. The problem is coming up with a fast way to convert all of those hyperlinks to footnotes. Stephen wonders if this could be done using a macro.

This can, indeed, be done with a macro. In fact, the macro may be simpler than you might imagine. Here's an example:

Sub LinksToFootnotes()
    Dim hLink As Hyperlink
    Dim rTemp As Range
    Dim J As Integer

    For Each hLink In ActiveDocument.Hyperlinks
        Set rTemp = hLink.Range

        ' Create footnote
        ActiveDocument.Footnotes.Add Range:=rTemp, _
          Text:=rTemp.Text

        ' Delete possible leading space
        rTemp.Collapse
        rTemp.MoveStart Count:=-1
        If rTemp.Text = " " Then rTemp.Delete
    Next hLink

    ' Delete hyperlinks
    For J = ActiveDocument.Hyperlinks.Count To 1 Step -1
        ActiveDocument.Hyperlinks(J).Range.Delete
    Next
End Sub

This example does two passes through all the hyperlinks in the document. During the first pass it creates the footnotes and during the second pass it deletes the hyperlinks. Note, as well, that portion of the code that checks to see if there is a space before the hyperlink. This is done so that if there is, that space can be deleted to put the resulting footnote number right next to anything before that space. (In other words, if this wasn't done, it is a good bet that every footnote number would have a space before it.)

That brings up another issue with the macro that you should be aware of—all it does is to create the footnotes and delete the hyperlinks. If there is any information surrounding the original hyperlink (such as parentheses, commas, or periods), those characters will be left in the document. This means that you should do a manual pass through your document after running the macro to make sure that the possible extraneous characters are edited as you want them to be.

Finally, note that the hyperlinks placed into the footnotes are not active hyperlinks—they are text only. This isn't a big issue, though, as plain text is typically what is desired when creating documents that contain footnotes.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (13739) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and 2021.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Random OLE Bookmarks

Word has an irritating habit of placing unwanted bookmarks in a document that you've been editing for a while. These ...

Discover More

Adjusting the Angle of Axis Labels

When creating a chart, your axis labels may be wider than desired. One way to deal with them is to change the angle at ...

Discover More

Professional Looking Fractions

Professional typesetting has, in many ways, spoiled us. One way this is evident is in the preference we show for making ...

Discover More

Create Custom Apps with VBA! Discover how to extend the capabilities of Office 365 applications with VBA programming. Written in clear terms and understandable language, the book includes systematic tutorials and contains both intermediate and advanced content for experienced VB developers. Designed to be comprehensive, the book addresses not just one Office application, but the entire Office suite. Check out Mastering VBA for Microsoft Office 365 today!

More WordTips (ribbon)

Understanding Footnotes and Endnotes

Footnotes and endnotes are often used in scholarly and formal writing as a way to provide additional information about a ...

Discover More

Restarting Footnote Numbering after Page Breaks

Footnotes can be handled many different ways in a document. If you want to restart the numbering of your footnotes every ...

Discover More

Converting Individual Endnotes and Footnotes

Word makes it easy to convert all your footnotes to endnotes and vice versa. You may want to only convert a couple of ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] (all 7 characters, in the sequence shown) in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is four more than 6?

2020-02-17 07:54:45

Chuck

Perfect. It works great now. Thank you, Ken!


2020-02-16 03:35:34

Ken

Try adding the statement rTemp.select immediately before the statement that was in error. Then the particular hyperlink that caused the error will be highlighted and can be examined. For example, the hyperlink might be nested inside another field. ALT + F9 will toggle field displays between the field codes and results.

To put the hyperlinks in endnotes, change the word Footnotes to Endnotes in the statements.


2020-02-15 09:48:09

Chuck

Great tip. Thank you. I have two questions, please.

I have Office 365 Pro Plus.

First, when I try to run this I get this error:

Run-time error '4680':
That property is not supported for this object

When I debug, it takes me to the line

Set rTemp = hLink.Range

What did I do wrong?

The second question, is how would I do this for endnotes. My third question is how to get the links as just lines in the body of the document, but that may be asking too much. :-)

Thank you again.

Chuck


This Site

Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.

Videos
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.