ExcelからWordにコメントをエクスポートするにはどうすればよいですか？

Excelユーザーにとって、セルにコメントを挿入することは一般的な作業です。時には、これらのコメントを何らかの目的でWord文書にコピーして貼り付ける必要があります。もちろん、コメントを一つずつWordにコピーして貼り付けることもできますが、これは面倒で時間がかかる作業です。ExcelからWordにすべてのコメントを一度にエクスポートする方法はありますか？

VBAコードを使用して現在のワークシートからWordにコメントをエクスポートする

VBAコードを使用して現在のワークシートからWordにコメントをエクスポートする

残念ながら、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ですべてのコメントの作成者名を変更するにはどうすればよいですか？