Jak wyeksportować komentarze z Excela do Worda?
W przypadku użytkowników programu Excel wstawianie komentarzy do komórek jest częstym zadaniem, czasami w jakimś celu trzeba skopiować i wkleić te komentarze do dokumentu programu Word. Oczywiście możesz skopiować i wkleić komentarz do Worda jeden po drugim, ale jest to żmudna i czasochłonna praca. Czy istnieje sposób na jednoczesne wyeksportowanie wszystkich komentarzy z programu Excel do programu Word?
Eksportuj komentarze z bieżącego arkusza roboczego do programu Word za pomocą kodu VBA
Eksportuj komentarze z bieżącego arkusza roboczego do programu Word za pomocą kodu VBA
Niestety program Excel nie zapewnia funkcji jednoczesnego kopiowania i wklejania wszystkich komentarzy do programu Word. Jednak za pomocą następującego kodu VBA możesz szybko wyeksportować wszystkie komentarze aktywnego arkusza do dokumentu Word.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Eksportuj komentarze z bieżącego arkusza do programu 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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie komentarze w aktywnym arkuszu zostały wyeksportowane do nowego dokumentu Word z adresem jego komórki. Zobacz zrzut ekranu:
Podobne artykuły:
Jak szybko wstawić komentarz do wielu komórek w programie Excel?
Jak zmienić kształt pola komentarza w programie Excel?
Jak zmienić wszystkie formaty komentarzy w komórkach w programie Excel?
Jak zmienić nazwisko autora wszystkich komentarzy w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!