Het verwijderen van HTTP van URL's

Graham is een copyeditor en één van de (heel gebruikelijk) taken die hij tegenkomt is om http verwijderen: // van URL's die http beginnen: // www. Graham vindt deze taak gemakkelijk als de URL is gewoon tekst. Echter, als het een hyperlink hij heeft om het dialoogvenster Hyperlink bewerken selecteert u http geven: // in het tekstveld dat u wilt zien, te verwijderen, en het dialoogvenster te sluiten.

Gelukkig hoef je niet altijd het dialoogvenster Hyperlink bewerken weer te geven om uw veranderingen te maken. Zelfs als een hyperlink actief is, kunt u zoeken en vervangen informatie in wat wordt weergegeven. Bijvoorbeeld, het doen van een zoektocht naar http: // www en te vervangen door www werkt prima, zelfs voor actieve hyperlinks. Word verandert gewoon de tekst die wordt weergegeven en niet de onderliggende hyperlink zelf.

Als u nog vele, vele hyperlinks te bewerken en deze inkorting van URL's is een gemeenschappelijke taak, kunt u een macro gebruiken om dit te verwerken. // Gedeelte: U kunt een korte macro die zal stap voor stap alle hyperlink in het document en verwijder de http ontwikkelen. Het volgende is een voorbeeld:

Sub FixHyperlinks1 ()
Dim hyp als hyperlink
Dim sLink als Koord

Voor Elke hyp In ActiveDocument.Hyperlinks
sLink = hyp.Address
sLink = vervangen (strLink, "http: //", "")
hyp.Address = sLink
Volgende hyp
End Sub

Deze aanpak is waarschijnlijk niet zo uitgebreid als je wilt, echter. Het beïnvloedt alleen actief hyperlinks; het heeft geen invloed platte tekst URL's in uw document. Als u wilt een meer omvattende benadering te gebruiken, heb je iets dat zal zich te ontdoen van alle hyperlinks nodig (heb je waarschijnlijk niet nodig hebben in het document in de eerste plaats) en vervolgens te ontdoen van de http: // gedeelte. Hier is er een die precies dat zal doen:

Sub FixHyperlinks2 ()
'Verwijder hyperlinks
Met ActiveDocument
Terwijl .Hyperlinks.Count> 0
.Hyperlinks (1) .Delete
Zich begeven
End With

'Verwijder http: //
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find
.text = "Http: // www"
.Replacement.Text = "Www"
.forward = True
.Wrap = WdFindContinue
End With
Selection.Find.Execute Vervang: = wdReplaceAll
End Sub

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (13.147) is van toepassing op Microsoft Word 2007, 2010 en 2013. U kunt een versie van deze tip voor de oudere menu-interface van Word hier vinden: Het verwijderen van HTTP van URL's.