MS Word: Rimuovere tutti i collegamenti tramite VBA

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