Fjerne HTTP fra nettadresser

March 12  by Eliza

Graham er en copyeditor og en av de (ganske vanlig) oppgavene han står overfor er å fjerne http: // fra adresser som starter http: // www. Finner Graham denne oppgaven lett hvis nettadressen er bare tekst. Men hvis det er en hyperkobling han har å vise Rediger link dialogboksen velger http: // i Tekst som skal vises feltet, slette det, og lukke dialogboksen.

Heldigvis trenger du ikke å alltid vise Rediger link dialogboksen for å gjøre endringene. Selv om en hyperkobling er aktiv, kan du finne og erstatte informasjon i hva som vises. For eksempel, gjør et søk etter http: // www, og erstatte den med www vil fungere helt fint, selv for aktive hyperkoblinger. Ordet endres bare teksten som vises og ikke den underliggende hyperkobling selv.

Hvis du har mange, mange hyperkoblinger til å redigere og dette avkutting av URLer er en felles oppgave, kan det være lurt å bruke en makro til å håndtere dette. Du kan utvikle en kort makro som vil gå gjennom hver hyperkobling i dokumentet og fjern http: // del. Følgende er et eksempel:

Sub FixHyperlinks1 ()
Dim HYP Som link
Dim Synke As String

For Hver HYP I ActiveDocument.Hyperlinks
Synke = hyp.Address
Synke = erstatte (strLink, "http: //", "")
hyp.Address = Synke
Neste HYP
End Sub

Denne tilnærmingen er sannsynligvis ikke så omfattende som du vil, imidlertid. Det påvirker bare aktive hyperkoblinger; det påvirker ikke ren tekst webadresser i dokumentet. Hvis du vil bruke en mer helhetlig tilnærming, trenger du noe som vil kvitte seg med alle hyperkoblinger (du sannsynligvis ikke trenger dem i dokumentet i første omgang) og deretter kvitte seg med http: // del. Her er en som vil gjøre nettopp det:

Sub FixHyperlinks2 ()
«Fjern hyperkoblinger
Med ActiveDocument
Mens .Hyperlinks.Count> 0
.Hyperlinks (1) .Delete
Wend
Avslutt med

«Fjern http: //
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = "Http: // www"
.Replacement.Text = "Www"
.forward = True
.Wrap = WdFindContinue
Avslutt med
Selection.Find.Execute Erstatt: = wdReplaceAll
End Sub

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (13147) gjelder for Microsoft Word 2007, 2010, og 2013. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet i Word her: Fjerne HTTP fra nettadresser.