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

出力例

【コメント一覧】
1>2012/04/02 14:38:00>佐藤「緑茶」ここは紅茶では?
2>2012/04/04 10:38:00>鈴木「コーヒー」具体的な豆の名前が必要。
3>2012/04/03 15:39:00>佐藤「売上」単位は?

コメント

タイトルとURLをコピーしました