Объект Comments (Word)
Коллекция объектов Comment , представляющих комментарии в выделенном фрагменте, диапазоне или документе.
Используйте свойство Comments , чтобы вернуть коллекцию Comments . В следующем примере отображаются комментарии, сделанные Доном Фанком в активном документе.
ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneComments
ActiveDocument.Comments.ShowBy = "Don Funk"
Используйте метод Add , чтобы добавить комментарий в указанном диапазоне. В следующем примере добавляется комментарий сразу после выбора.
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Comments.Add Range:=Selection.Range, _
Text:="review this"
Используйте примечания (Индекс), где Индекс — это номер индекса, чтобы вернуть один объект Comment . Номер индекса представляет позицию комментария в указанном выделенном фрагменте, диапазоне или документе. В следующем примере отображается автор первого комментария в активном документе.
MsgBox ActiveDocument.Comments(1).Author
В следующем примере отображаются инициалы автора первого комментария в выделенном фрагменте.
If Selection.Comments.Count >= 1 Then MsgBox _
Selection.Comments(1).Initial
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.