Jak eksportować komentarze w Excelu do dokumentu Word
Skoroszyt programu Excel może zawierać dziesiątki komentarzy od różnych edytorów. Komentarze te pozostają najbardziej istotne, gdy są dołączone do powiązanych z nimi komórek, ale mogą również tworzyć własną historię. Na przykład, jeśli wraz z współpracownikiem edytujesz arkusz projekcji sprzedaży, komentarze arkusza będą śledzić Twoją rozmowę o formułach arkusza. Jednym ze sposobów wyizolowania tych komentarzy jest napisanie makra Visual Basic, który wysyła je do dokumentu Word.
1.
Otwórz skoroszyt programu Excel, a następnie naciśnij klawisz "Alt-F11", aby otworzyć edytor Visual Basic Excel.
2.
Kliknij dwukrotnie moduł "NewMacros" w folderze Moduły okna projektu, jeśli program Word nie otworzy go automatycznie.
3.
Wpisz następujące polecenie, aby otworzyć nowe makro:
Sub mcrComment ()
4.
Wpisz następujące polecenie, aby zadeklarować zmienne makra:
Dim excelComment As Comment Dim wordProgram As Object
5.
Wpisz następujące polecenie, aby utworzyć dokument Word:
Ustaw słowoProgram = CreateObject ("Word.Application")
6.
Wpisz następujące polecenie, aby otworzyć pętlę działającą na obiekcie programu Word:
Z wordProgram
7.
Wpisz następujące polecenie, aby otworzyć i wybrać dokument Word:
.Visible = True .Documents.Add DocumentType: = 0
8.
Wpisz następujące polecenie, aby otworzyć pętlę, która działa dla każdego komentarza:
Dla każdego excelComment w ActiveSheet.Comments
9.
Wpisz następujące polecenie, aby wydrukować autora i adres każdego komentarza do dokumentu programu Word:
.Selection.TypeText excelComment.Parent.Adress i vbTab i excelComment.Text
10.
Wpisz następujące polecenie, aby wydrukować każdy komentarz do dokumentu programu Word:
.Selection.TypeParagraph
11.
Wpisz następujące polecenie, aby zamknąć pętlę For-Next:
Kolejny
12.
Wpisz następujące polecenie, aby zamknąć pętlę With:
Kończyć z
13.
Wpisz następujące polecenie, aby zamknąć makro:
Napis końcowy
14.
Naciśnij "F5", aby uruchomić makro i wyeksportować komentarze do dokumentu Word.