Wordのコメント一覧を作成するマクロ
Wordのコメントだけを抽出して一覧にするマクロです。
Word文書を開き、マクロ「コメント一覧作成」を実行すると、文書の末尾にコメント一覧を出力します。
Word2007で確認しました。
VBAコード
Sub コメント一覧作成()
With ActiveDocument.Content
.InsertAfter "【コメント一覧】"
.InsertParagraphAfter
For Each mycomment In ActiveDocument.Comments
With mycomment
i = .Index
d = .Date
a = .Author
rt = .Range.Text
st = .Scope.Text
End With
.InsertAfter i & ">" & d & ">" & a & "「" & st & "」" & rt
.InsertParagraphAfter
Next
End With
End Sub
With ActiveDocument.Content
.InsertAfter "【コメント一覧】"
.InsertParagraphAfter
For Each mycomment In ActiveDocument.Comments
With mycomment
i = .Index
d = .Date
a = .Author
rt = .Range.Text
st = .Scope.Text
End With
.InsertAfter i & ">" & d & ">" & a & "「" & st & "」" & rt
.InsertParagraphAfter
Next
End With
End Sub
出力例
【コメント一覧】
1>2012/04/02 14:38:00>佐藤「緑茶」ここは紅茶では？
2>2012/04/04 10:38:00>鈴木「コーヒー」具体的な豆の名前が必要。
3>2012/04/03 15:39:00>佐藤「売上」単位は？
[ 2012年4月6日 | カテゴリー: Word | タグ: VBA , コメント ]
« アサヒビール「ドライブラック」 | Wordのコメント範囲を変更するマクロ »
コメントを残す