Note: The other languages of the website are Google-translated. Back to English
English English

Come esportare commenti da Excel a Word?

Per gli utenti di Excel, l'inserimento di commenti nelle celle è un'attività comune, a volte è necessario copiare e incollare questi commenti in un documento di Word per qualche scopo. Certo, puoi copiare e incollare i commenti su Word uno per uno, ma questo è un lavoro noioso e che richiede tempo. C'è un modo per esportare tutti i commenti da Excel a Word contemporaneamente?

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

Scheda Office Abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
  • Riutilizza qualsiasi cosa: Aggiungi le formule, i grafici e qualsiasi altra cosa più usati o complessi ai tuoi preferiti e riutilizzali rapidamente in futuro.
  • Più di 20 funzioni di testo: Estrai numero dalla stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi.
  • Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma.
  • Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro su più file Excel, PDF o CSV; Da una colonna a più colonne.
  • Incolla Salto Righe nascoste / filtrate; Count And Sum di Background Color; Invia e-mail personalizzate a più destinatari in blocco.
  • Super filtro: Crea schemi di filtri avanzati e applicali a qualsiasi foglio; Riordina per settimana, giorno, frequenza e altro; Filtro in grassetto, formule, commenti ...
  • Più di 300 potenti funzionalità; Funziona con Office 2007-2019 e 365; Supporta tutte le lingue; Facile distribuzione nella tua azienda o organizzazione.

freccia blu freccia destraEsporta commenti dal foglio di lavoro corrente a Word con codice VBA


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

1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Moduloe incolla il codice seguente nel file 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 premere F5 chiave per eseguire questo codice e tutti i commenti nel foglio di lavoro attivo sono stati esportati in un nuovo documento di Word con il suo indirizzo di cella. Vedi screenshot:

doc-export-commenti1


Articoli correlati:

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

Come modificare la forma della casella dei commenti in Excel?

Come modificare tutti i formati di commento nelle celle in Excel?

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


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (17)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
ciao, Ottimo articolo, ero curioso di sapere, se ho immagini in quei commenti, quel codice VBA sopra esporterà rapidamente anche tutte le immagini nei commenti che le immagini di un foglio di lavoro attivo nel documento di Word? Grazie per aver dedicato del tempo a leggere questo, molto apprezzato. Saluti, Vladmir
Questo commento è stato fatto dal moderatore sul sito
Questo ha funzionato perfettamente ed era esattamente quello di cui avevo bisogno! Grazie mille.
Questo commento è stato fatto dal moderatore sul sito
ottenere il messaggio "Errore di compilazione: procedura esterna non valida". E adesso?
Questo commento è stato fatto dal moderatore sul sito
Ho avuto lo stesso messaggio: sei riuscito a risolvere questo Randi?
Questo commento è stato fatto dal moderatore sul sito
qualcuno sa se posso farlo ma solo copiare i commenti da una riga specifica? qualsiasi aiuto sarà molto apprezzato, ho cercato di lavorare su questo per secoli.
Questo commento è stato fatto dal moderatore sul sito
ha davvero aiutato. tq!
Questo commento è stato fatto dal moderatore sul sito
È possibile estrarre dalle righe filtrate dopo aver applicato il filtro? Grazie.
Questo commento è stato fatto dal moderatore sul sito
Questo è fantastico e aiuta! C'è un modo per ottenere il testo effettivo all'interno della cella per sostituire il numero di cella o per essere incluso? Ho le intestazioni e le istruzioni del fumetto nelle intestazioni. Sto cercando di creare una procedura di parole sulla compilazione delle righe con le intestazioni dei dati (Es.; "Nome") e quindi la casella di commento indica all'utente il formato.

Attualmente mostra con la macro sopra:

Nome utente A1:


- Immettere il nome del mutuatario come indicato sui documenti organizzativi del mutuatario o su altri documenti giustificativi del nome.


Cercandolo, quindi mostra il testo della cella A1 che è il nome dell'azienda.


Qualsiasi aiuto molto apprezzato!
Questo commento è stato fatto dal moderatore sul sito
Oh mio Dio! è stato davvero utile!
Questo commento è stato fatto dal moderatore sul sito
Questo è super utile! Grazie!
C'è un modo per inserire l'intestazione di riga o colonna anziché la posizione della cella (B4)?
Questo commento è stato fatto dal moderatore sul sito
Sono stato in grado di ottenere questo risultato modificando "xComment.Parent.Address" in "xComment.Parent.Value" nella riga 14.
Questo commento è stato fatto dal moderatore sul sito
Ho copiato e incollato esattamente ma ha generato solo un documento Word vuoto. Qualche idea?


Sub CopiaCommentiAParola()
'Aggiornamento 20140325
Dim xCommenta come commento
Oscura wApp come oggetto
On Error Resume Next
Imposta wApp = GetObject(, "Word.Application")
Se Err.Number <> 0 Allora
Err.Clear
Imposta wApp = CreateObject ("Word.Application")
End If
wApp.Visible = Vero
wApp.Documents.Add DocumentType:=0
Per ogni xComment in Application.ActiveSheet.Comments
wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
wApp.Selection.TypeParagraph
Successiva
Imposta wApp = Niente
End Sub
Questo commento è stato fatto dal moderatore sul sito
stesso problema. sei riuscito a risolvere?
Questo commento è stato fatto dal moderatore sul sito
Idem... qualche idea?
Questo commento è stato fatto dal moderatore sul sito
Ehi, ho capito come risolvere questo problema. La riga 13 deve leggere "For Each xComment In Application.ActiveSheet.CommentsThreaded". (L'output non è esattamente come lo screenshot, dovresti aggiungere xComment.Author o forse alcune altre proprietà nel ciclo For, ma cambiando da Comments a CommentsThreaded funziona di nuovo.)
Questo commento è stato fatto dal moderatore sul sito
In grado di estrarre inizia con il set di dati misurabile iniziale e genera valori derivati. Gli utenti possono inserire e personalizzare i propri numeri per indicizzare professionalmente il business.
Philip
patchhere.com
Questo commento è stato fatto dal moderatore sul sito
Questo è eccellente! tuttavia sto lottando per appuntare i commenti a dove appartengono nel foglio di lavoro. c'è un modo per poter etichettare le righe o la colonna o la cella in cui vengono estratti i commenti?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite