Как экспортировать комментарии из Excel в Word?

Для пользователей Excel вставка комментариев в ячейки является обычной задачей. Иногда вам нужно скопировать и вставить эти комментарии в документ Word для каких-либо целей. Конечно, вы можете копировать и вставлять комментарии в Word по одному, но это утомительная и трудоемкая работа. Существует ли способ экспортировать все комментарии из Excel в Word сразу?

Экспорт комментариев из текущего листа в Word с помощью кода VBA

Экспорт комментариев из текущего листа в Word с помощью кода VBA

К сожалению, Excel не предоставляет функции для копирования и вставки всех комментариев в Word за один раз. Однако, с помощью следующего кода VBA вы сможете быстро экспортировать все комментарии активного листа в документ Word.

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Экспорт комментариев из текущего листа в 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. Затем нажмите клавишу F5, чтобы запустить этот код, и все комментарии в активном листе будут экспортированы в новый документ Word вместе с адресом их ячейки. Смотрите скриншот:

Связанные статьи:

Как быстро вставить комментарий в несколько ячеек в Excel?

Как изменить форму поля комментария в Excel?

Как изменить формат всех комментариев в ячейках в Excel?

Как изменить имя автора всех комментариев в Excel?