Cum se exportă comentarii din Excel în Word?
Pentru utilizatorii Excel, inserarea comentariilor în celule este o sarcină obișnuită, uneori, trebuie să copiați și să lipiți aceste comentarii într-un document Word pentru un anumit scop. Desigur, puteți copia și lipi comentariul pe Cuvânt unul câte unul, dar acesta este un job obositor și care consumă mult timp. Există vreo modalitate de a exporta toate comentariile din Excel în Word simultan?
Exportați comentariile din foaia de lucru curentă în Word cu cod VBA
Exportați comentariile din foaia de lucru curentă în Word cu cod VBA
Din păcate, Excel nu oferă funcția de a copia și lipi toate comentariile în Word simultan. Cu toate acestea, cu următorul cod VBA, puteți exporta rapid toate comentariile foii de lucru active în documentul Word.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: exportați comentariile din foaia de lucru curentă în 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. Apoi apăsați F5 cheie pentru a rula acest cod și toate comentariile din foaia de lucru activă au fost exportate într-un nou document Word cu adresa sa de celule. Vedeți captura de ecran:
Legate de articole:
Cum se introduce rapid un comentariu în mai multe celule din Excel?
Cum se schimbă forma casetei de comentarii în Excel?
Cum se schimbă toate formatele de comentarii din celulele din Excel?
Cum se schimbă numele autorului tuturor comentariilor în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
