Graham是一位复制者，他面临的（非常常见的）任务之一是从以http：// www开头的URL中删除http：//。如果URL仅是文本，Graham会发现此任务很容易。但是，如果它是超链接，则他必须显示“编辑超链接”对话框，在“要显示的文本”字段中选择http：//，将其删除，然后关闭对话框。

幸运的是，您不必总是显示“编辑超链接”对话框来进行更改。即使超链接处于活动状态，您也可以在显示的内容中查找和替换信息。例如，即使对活动的超链接，搜索http：// www并将其替换为www也可以正常工作。 Word仅更改显示的文本，而不更改基础超链接本身。

如果您有许多要编辑的超链接，并且URL的这种截断是一项常见的任务，则可能需要使用宏来处理此问题。您可以开发一个简短的宏，它将逐步浏览文档中的每个超链接并删除http：//部分。下面是一个示例：

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

但是，这种方法可能没有您想要的那么全面。它仅影响活动的超链接。它不会影响文档中的纯文本URL。如果要使用更全面的方法，则需要一些东西来摆脱所有超链接（首先可能不需要在文档中使用它们），然后摆脱http：//部分。这是一个可以做到的：

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

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13147）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

从URL删除HTTP。