Written by Allen Wyatt (last updated August 1, 2020)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and 2021
Graham is a copyeditor and one of the (quite usual) tasks he faces is to remove http:// from URLs that start http://www. Graham finds this task easy if the URL is just text. However, if it is a hyperlink, he has to display the Edit Hyperlink dialog box, select http:// in the Text to Display field, delete it, and close the dialog box.
Fortunately, you don't have to always display the Edit Hyperlink dialog box to make your changes. Even if a hyperlink is active, you can find and replace information in what is displayed. For instance, doing a search for http://www and replacing it with www will work just fine, even for active hyperlinks. Word changes just the text that is displayed and not the underlying hyperlink itself.
If you have many, many hyperlinks to edit and this truncation of URLs is a common task, you may want to use a macro to handle this. You can develop a short macro that will step through each hyperlink in the document and remove the http:// portion. The following is an example:
Sub FixHyperlinks1() Dim hyp As Hyperlink Dim sLink As String For Each hyp In ActiveDocument.Hyperlinks sLink = hyp.Address sLink = replace(strLink, "http://", "") hyp.Address = sLink Next hyp End Sub
This approach is probably not as comprehensive as you want, however. It only affects active hyperlinks; it doesn't affect plain-text URLs in your document. If you want to use a more comprehensive approach, you need something that will get rid of all the hyperlinks (you probably don't need them in the document in the first place) and then get rid of the http:// portion. Here's one that will do just that:
Sub FixHyperlinks2() 'Remove hyperlinks With ActiveDocument While .Hyperlinks.Count > 0 .Hyperlinks(1).Delete Wend End With 'Remove http:// Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "http://www" .Replacement.Text = "www" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (13147) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and 2021. You can find a version of this tip for the older menu interface of Word here: Removing HTTP from URLs.
Do More in Less Time! An easy-to-understand guide to the more advanced features available in the Microsoft 365 version of Word. Enhance the quality of your documents and boost productivity in any field with this in-depth resource. Complete your Word-related tasks more efficiently as you unlock lesser-known tools and learn to quickly access the features you need. Check out Microsoft 365 Word For Professionals For Dummies today!
When using the Find and Replace feature of Word, you can search for more than plain text. You can also search for ...
Discover MoreWant a quick, easy way to "search again" for the next occurrence of what you need? Use the technique in this tip and ...
Discover MoreFinding and replacing text when the text being searched for has mixed formatting can be a challenge. You may, however, ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2020-08-21 13:31:52
Peter Johnson
In Sub FixHyperlinks1() the string strLink has not been declared (but sLink has).
Surely the sixth line should read:
sLink = replace(sLink, "http://", "")
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.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2025 Sharon Parq Associates, Inc.
Comments