Pagine

giovedì 2 febbraio 2023

MS Word: Rimuovere tutti i commenti all'interno di un documento tramite VBA

Una funzione molto utile presente in MS Word, soprattutto quando il file viene modificato da più persone, è quella dei commenti che permette di inserire note/suggerimenti all'interno del documento.

Per visualizzare i commenti presenti in un documento Word cliccare sul menu Revisione quindi su Mostra commenti.
MS Word, Mostra commenti
FIG 1 - MS Word, Mostra commenti
Per eliminare tutti i commenti è possibile procedere sempre dal menu Revisore, cliccare su Elimina presente nel gruppo Commenti e selezionare Elimina tutti i commenti nel documento
MS Word, Elimina tutti i commenti nel documento
FIG 2 - MS Word, Elimina tutti i commenti nel documento

Eliminare tutti i commenti utilizzando VBA

  • Avviare Microsoft Visual Basic, Application Edition tramite la combinazione di tasti ALT F11;
  • Dal menu Inserisci, selezionare Modulo;
    VBA, Inserisci Modulo
    FIG 3 - VBA, Inserisci Modulo

  • Incollare il seguente codice
     Sub RimuoviTuttiCommenti()  
       Dim n As Long  
       Dim oCommenti As Comments  
       Dim nCommenti As Long  
       Set oCommenti = ActiveDocument.Comments  
       nCommenti = oCommenti.Count  
       For n = nCommenti To 1 Step -1  
        oCommenti(n).Delete  
       Next n  
       Set oCommenti = Nothing  
       MsgBox ("Commenti eliminati: " & nCommenti)  
     End Sub  
       
  • Cliccare sul pulsante Esegui o premere F5;
    Esegui Sub\UserForm
    FIG 4 - Esegui Sub\UserForm

  • Un messaggio visualizzerà il numero di commenti eliminati all'interno del documento.

    Commenti eliminati
    FIG 5 - Commenti eliminati







Nessun commento:

Posta un commento

I messaggi sono soggetti a moderazione da parte dell'amministratore prima della loro pubblicazione.