Как установить форматирование для конкретного комментария Word VBA

Question

Я хочу использовать VBA для форматирования одного конкретного комментария Word. (Таким образом, кажется, что текст комментария и стили текста воздушного шара не помогут, так как они будут влиять на все комментарии.)

У меня есть переменная, ссылающаяся на комментарий. Вот фрагмент кода:

  Dim myComment as Object

  Set myComment = ActiveDocument.Range.Comments.Add (.Duplicate, "The wisest was Sir Thomas Tom.")
  myComment.Author = "Mickey Mouse"
  myComment.Initial = "MM"

В веб-документации я не вижу никаких свойств, перечисленных для объекта комментария, которые бы помогли отформатировать текст комментария. Но, с другой стороны, объект Comment действительно имеет свойства Author и Initial, поскольку приведенный выше фрагмент кода устанавливает их успешно. Я не видел ни одного из них в каком-либо официальном списке свойств, так что, возможно, есть другие, о которых я не знаю? (Author и Initial были скопированы из некоторого примера кода в Интернете.)

Буду благодарен за любые указания о том, как форматировать различные аспекты комментария с помощью VBA.

Answer 1

Один адрес относится к диапазонам комментариев точно так же, как диапазоны в других частях документа, когда они не находятся в теле документа. Например:

Sub Demo()
Dim myComment As Comment, Rng As Range
With ActiveDocument
  Set myComment = .Comments.Add(Selection.Range, "The wisest was Sir Thomas Tom.")
  With myComment
    .Author = "Mickey Mouse"
    .Initial = "MM"
    Set Rng = .Range
    With Rng
      .Start = .Words(4).Start
      .Font.Bold = True
    End With
  End With
End With
End Sub