Borttagning HTTP från webbadresser

November 27

Graham är en copyeditor och en av de (ganska vanliga) uppgifter som han står inför är att ta bort http: // från webbadresser som börjar http: // www. Graham finner denna uppgift lätt om webbadressen är bara text. Men om det är en hyperlänk han har att visa dialogrutan Redigera hyperlänk väljer http: // i texten som ska visas fältet, ta bort den och stänga dialogrutan.

Lyckligtvis behöver du inte att alltid visa dialogrutan Redigera hyperlänk för att göra dina ändringar. Även om en hyperlänk är aktiv, kan du söka efter och ersätta information på vad som visas. Till exempel att göra en sökning efter http: // www och ersätta den med www kommer att fungera bra, även för aktiva hyperlänkar. Word förändringar bara texten som visas och inte den underliggande hyperlänk själva.

Om du har många, många hyperlänkar för att redigera och denna stympning av webbadresser är en gemensam uppgift, kanske du vill använda ett makro för att hantera detta. Du kan utveckla en kort makro som kommer gå igenom varje hyperlänk i dokumentet och ta bort http: // portion. Följande är ett exempel:

Sub FixHyperlinks1 ()
Dim hyp Som Hyperlänk
Dim Slink As String

För varje hyp I ActiveDocument.Hyperlinks
slink = hyp.Address
Slink = replace (strLink, "http: //", "")
hyp.Address = slink
Nästa hyp
End Sub

Detta tillvägagångssätt är förmodligen inte så omfattande som man vill, dock. Det påverkar bara aktiva hyperlänkar; Det påverkar inte klartext webbadresser i dokumentet. Om du vill använda en mer övergripande strategi, behöver du något som kommer att bli av med alla de hyperlänkar (du förmodligen inte behöver dem i det dokument i första hand) och sedan bli av med http: // portion. Här är en som kommer att göra just det:

Sub FixHyperlinks2 ()
"Ta bort hyperlänkar
Med ActiveDocument
Medan .Hyperlinks.Count> 0
.Hyperlinks (1) .Delete
Wend
End Med

"Ta bort http: //
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = "Http: // www"
.Replacement.Text = "Www"
.forward = Sant
.Wrap = WdFindContinue
End Med
Selection.Find.Execute Ersätt: = wdReplaceAll
End Sub

WordTips är din källa för kostnadseffektiv Microsoft Word utbildning. (Microsoft Word är det mest populära ordbehandlingsprogram i världen.) Detta tips (13147) gäller Microsoft Word 2007, 2010 och 2013. Du kan hitta en version av detta tips för den äldre menygränssnittet Word här: Ta bort HTTP från webbadresser.