Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Checking for Valid Hyperlinks.

Checking for Valid Hyperlinks

by Allen Wyatt
(last updated January 14, 2017)

4

Raghu has a document that has a good number of hyperlinks in it to various Websites. He wants to step through each of the hyperlinks and have them checked, programmatically, to see if they are valid links that don't generate errors.

There is no way to do this automatically in Word, as such functionality is not built into the program. If you only have a few links in the document, you might try saving it as an HTML file. You could then load the file in Internet Explorer and click each link to see if it is valid.

If you are searching for a more automatic method of checking, you would need to create a macro that would step through the links in a document and check them out. The VBA code could end up being rather complex.

Perhaps a better solution, rather than writing your own code, is to use a third-party add-in that can do the checking for you. In searching around, the following add-in was discovered:

https://www.ablebits.com/word-links-checker/

We haven't tried this add-in, but it appears to do everything that Raghu wanted. Perhaps the best news: the add-in is free.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (517) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Checking for Valid Hyperlinks.

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

Default Cell Movement when Deleting

Delete a cell or a range of cells, and Excel needs to figure out how to rearrange the void left by the deletion. You can ...

Discover More

Locking Worksheet Names

Want to stop other people from changing the names of your worksheets? You can provide the desired safeguard by using the ...

Discover More

Appending to a Non-Excel Text File

Does your macro need to add information to the end of a text file? This is called appending, and is done using the technique ...

Discover More

Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!

MORE WORDTIPS (MENU)

Hyperlinks to PDF Files Won't Open

If you have a document that contains hyperlinks to a PDF file, it is possible that the links may not open the PDF file ...

Discover More

Specifying Your Target Monitor

When using Word to create content that will end up on the Web, it is helpful to know the probably screen resolution of those ...

Discover More

Replacing Plain Text with a Hyperlink

Active hyperlinks can be a desired feature in some types of documents. If you want to replace multiple instances of plain ...

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 for this tip:

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}] in your comment text. You’ll be prompted to upload your image when you submit the comment. 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 three minus 0?

2017-01-18 04:20:26

Ken Endacott

Thomas, thank you for your praise. Most of the documents that I see have links to web pages but It seems that you are looking at links to documents. The macro lumps documents with web pages and while it should open documents for eyeballing it would be possible to add to the macro to handle documents more effectively.

Something to add to my to-do list.


2017-01-16 09:28:36

Thomas Redd

As pointed out by Mick, I found the same thing about the product. It is free for two weeks and it works well. I was stuck and lock out of it when the link went to a passworded document. The first password was required and worked, but when I got to the next reference that was passworded, it hung and would not go on. It is not too costly-about $10.00, but I don't want to pay that for a product that will not work for me. I am excited to try Ken Endacott's macro. His work has been exceptional in the other tips. Thanks so much for all you do! These tips are the greatest!


2017-01-15 07:04:26

Ken Endacott

Checking hyperlinks can involve more than checking for a valid link. It is usually necessary to check that the link is to a relevant page and this can only be done by eyeballing the page.

The following macro will step through hyperlinks and test them for validity. Internal hyperlinks are checked to determine if they refer to a valid bookmark. External hyperlinks are checked to determine if the link is valid. If the link is valid then the page is opened and the user is asked if the page is relevant.

Invalid or incorrect hyperlinks are highlighted in yellow.

Sub CheckHyperlinks()
Dim hp As Hyperlink
Dim bk As Bookmark
Dim bTest As Boolean
Dim st As String
Dim k As Long
For Each hp In ActiveDocument.Hyperlinks
hp.Range.Select
st = ""
On Error Resume Next
st = hp.Address
If st = "" Then
' hyperlink is to an internal bookmark
st = hp.SubAddress
bTest = False
ActiveDocument.Bookmarks.ShowHidden = True
For Each bk In ActiveDocument.Bookmarks
If st = bk.Name Then bTest = True
Next bk
If bTest = False Then
If MsgBox("Error. Internal hyperlink to non existent bookmark.", vbOKCancel) = vbCancel Then Exit Sub
Selection.Range.HighlightColorIndex = wdYellow
End If
Else
bTest = True
On Error GoTo hpERR
ActiveDocument.FollowHyperlink Address:=st
On Error GoTo 0
If bTest = False Then
k = MsgBox("Invalid URL in hyperlink", vbOKCancel)
Else
k = MsgBox("Did hyperlink find a relevant web page", vbYesNoCancel)
End If
If k = vbCancel Then Exit Sub
If k = vbNo Or k = vbOK Then
Selection.Range.HighlightColorIndex = wdYellow
End If
End If
Next hp
Exit Sub
hpERR:
bTest = False
Resume Next
End Sub


2017-01-14 05:55:29

Mick

Allen, sir,

First of all, I thank you for your weekly tips on using Microsoft Word. The information you offer is invaluable.

You MAY, however, wish to edit this post as the link that you provide for the Word Link Checker shows that it is NOT free. Only the Trial is free, though I'm not sure how long the trial lasts for.

Mick


Newest Tips
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.

Links and Sharing
Share