Come esportare i commenti da Excel a Word?

Per gli utenti di Excel, inserire commenti nelle celle è un'attività comune. A volte, è necessario copiare e incollare questi commenti in un documento Word per qualche motivo. Certo, puoi copiare e incollare ogni singolo commento in Word, ma questo è un lavoro noioso e che richiede molto tempo. Esiste un modo per esportare tutti i commenti da Excel a Word in una volta sola?

Esporta i commenti dal foglio di lavoro corrente a Word con il codice VBA

Esporta i commenti dal foglio di lavoro corrente a Word con il codice VBA

Sfortunatamente, Excel non offre la funzionalità per copiare e incollare tutti i commenti in Word in una sola volta. Tuttavia, con il seguente codice VBA, puoi esportare rapidamente tutti i commenti del foglio di lavoro attivo nel documento di Word.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Esporta i commenti dal foglio di lavoro corrente a Word

Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
    wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
    wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub

3. Quindi premi il tasto F5 per eseguire questo codice, e tutti i commenti presenti nel foglio di lavoro attivo verranno esportati in un nuovo documento Word insieme al loro indirizzo di cella. Vedi screenshot:

Articoli correlati:

Come inserire rapidamente un commento in più celle in Excel?

Come cambiare la forma della casella dei commenti in Excel?

Come modificare tutti i formati dei commenti nelle celle in Excel?

Come cambiare il nome dell'autore di tutti i commenti in Excel?