Per eliminare tutti i collegamenti (hyperlinks) presenti in un documento MS Word è possibile procedere nel seguente modo:
Selezionare l'intero documento premendo la combinazione di tasti CTRL + A;
Premere la combinazione CTRL + SHIFT + F9 per eliminare tutti i collegamenti.
Eliminare tutti i collegamenti utilizzando VBA
Avviare Microsoft Visual Basic, Application Edition tramite la combinazione di tasti ALT+F11.
Dal menu Inserisci, selezionare Modulo
Incollare il seguente codice
Sub DelAllHyperlinks()
Dim nHyperlinks As Long
Dim n As Long
With ThisDocument
nHyperlinks = .Hyperlinks.Count
For n = nHyperlinks To 1 Step -1
.Hyperlinks(n).Delete
Next n
End With
MsgBox ("Collegamenti eliminati: " & nHyperlinks)
End Sub
Cliccare sul pulsante Esegui o premere F5.
 |
| FIG 1 - Elimina collegamenti |
Al termine dell'operazione un messaggio visualizzerà il numero di collegamenti eliminati all'interno del documento.
Per eliminare tutti i collegamenti da tutti i documenti MS Word aperti, il codice da copiare è il seguente
Sub DelHyperlinksInAllOpenDocuments()
Dim doc As Document
Dim docName As String
Dim nHyperlinks As Long
Dim nTotHyperlinks As Long
Dim nDoc As Long
nTotHyperlinks = 0
nDoc = 0
For Each doc In Application.Documents
docName = doc.Name
nDoc = nDoc + 1
With Documents(docName)
nHyperlinks = .Hyperlinks.Count
nTotHyperlinks = nTotHyperlinks + nHyperlinks
For n = nHyperlinks To 1 Step -1
.Hyperlinks(n).Delete
Next n
End With
Next doc
MsgBox ("Documenti Aperti: " & nDoc & vbNewLine & "Collegamenti totali eliminati: " & nTotHyperlinks)
End Sub
Al termine dell'esecuzione verrà visualizzato un messaggio in cui viene indicato il numero di documenti analizzati e il numero totale di collegamenti rimossi.
 |
| FIG 2 - Collegamenti eliminati dai documenti aperti |
