Rimozione HTTP da URL

Graham è un caporedattore e una delle (abbastanza usuali) i compiti che deve affrontare è quello di eliminare http: // da URL che iniziano http: // www. Graham trova questo compito facile se l'URL è solo testo. Tuttavia, se si tratta di un collegamento ipertestuale che deve visualizzare la finestra di dialogo Modifica collegamento ipertestuale, selezionare http: // nel testo campo per visualizzare, eliminare, e chiudere la finestra di dialogo.

Fortunatamente, non è necessario per visualizzare sempre la finestra di dialogo Modifica collegamento ipertestuale per apportare le modifiche. Anche se un collegamento ipertestuale è attiva, è possibile trovare e sostituire le informazioni in quello che viene visualizzato. Ad esempio, facendo una ricerca per http: // www e la sua sostituzione con www funzionerà bene, anche per i collegamenti ipertestuali attivi. Word cambia solo il testo che viene visualizzato e non il collegamento ipertestuale sottostante stesso.

Se si dispone di molti, molti collegamenti ipertestuali per modificare e questo troncamento di URL è un compito comune, si consiglia di utilizzare una macro per gestire questa situazione. È possibile sviluppare una breve macro che farà un passo attraverso ogni collegamento ipertestuale nel documento e rimuovere il http: // parte. Quanto segue è un esempio:

Sub FixHyperlinks1 ()
Hyp Dim come collegamento ipertestuale
Dim Slink As String

Per ogni hyp In ActiveDocument.Hyperlinks
Slink = hyp.Address
Slink = sostituire (strLink, "http: //", "")
hyp.Address = Slink
Successivo hyp
End Sub

Questo approccio non è probabilmente così completa come si vuole, però. Interessa solo i collegamenti ipertestuali attivi; essa non pregiudica gli URL di solo testo nel documento. Se si desidera utilizzare un approccio più globale, avete bisogno di qualcosa che permetterà di eliminare tutti i collegamenti ipertestuali (probabilmente non bisogno di loro nel documento, in primo luogo) e poi sbarazzarsi di http: // parte. Ecco uno che fare proprio questo:

Sub FixHyperlinks2 ()
'Rimuovere i collegamenti ipertestuali
Con ActiveDocument
Mentre .Hyperlinks.Count> 0
.Hyperlinks (1) .Delete
Wend
End With

'Togliere http: //
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Con Selection.Find
.Text = "Http: // www"
.Replacement.Text = "Www"
.forward = True
.Wrap = WdFindContinue
End With
Selection.Find.Execute Sostituisci: = wdReplaceAll
End Sub

WordTips è la vostra fonte per la formazione Microsoft Word conveniente. (Microsoft Word è il più popolare software di elaborazione testi del mondo.) Questa punta (13147) si applica a Microsoft Word 2007, 2010 e 2013. Potete trovare una versione di questo suggerimento per l'interfaccia del menu precedente di Word qui: Rimozione HTTP da URL.