コメントは他のもの(変更履歴)と一緒に印刷されるようです。そこで
ワードの標準モジュールに
Sub test18()
Open "C:\Documents and Settings\xxxx\My Documents\cmttxt.txt" For Output As #1
MsgBox ActiveDocument.Comments.Count
For Each cm In ActiveDocument.Comments
Print #1, cm.Range.Text
Next
Close #1
End Sub
XXXXのところはユーザー名です。
実行して、メモ帳で(上記の場合)cmttxt.txt を開くと
コメント文章が現れました。これを印刷します。
ただ、どこにあるコメントとか出したかったが、WqrdVBAの力が無いもので、上記までであげます。チェックシートぐらいにはなるかな。
お礼
無事印刷できました。 ありがとうございました。