Comments 属性

返回一个 Comments 集合，该集合代表指定文档、选定部分或区域中的所有批注。只读。

有关返回集合中单个成员的内容，请参阅返回集合中的对象。

示例

本示例给选定的文字添加批注。

ActiveDocument.ActiveWindow.View.ShowHiddenText = True
Selection.Comments.Add Range:=Selection.Range, Text:="Approved"

本示例将每一批注的作者姓名与“工具”菜单中“选项”对话框的“用户信息”选项卡的用户姓名作比较。如果两者不同，则将该批注引用标记设置为红色。

For Each comm In ActiveDocument.Comments
    If comm.Author <> Application.UserName Then _
        comm.Reference.Font.ColorIndex = wdRed
Next comm