コメントをExcelからWordにエクスポートする方法は？

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

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

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

残念ながら、Excelには、すべてのコメントを一度にコピーしてWordに貼り付ける機能はありません。 ただし、次のVBAコードを使用すると、アクティブなワークシートのすべてのコメントをWord文書にすばやくエクスポートできます。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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