Макрос Microsoft Word VBA для чтения комментариев

Question

Я пытаюсь прочитать комментарии к рисункам в документе, используя код ниже

For Each iShp In .InlineShapes
  iShp.Select

  If Selection.Comments.Count > 0 Then
    MsgBox Selection.Comments(1).Range.text
  End If
Next

Фигуры выбраны правильно, однако количество всегда равно 0 ...

Что я скучаю?

Answer 1

Вот альтернативный способ прочитать все комментарии:

Option Explicit

Sub DisplayCommentText()
    With ActiveDocument
        Dim cmt As Comment
        For Each cmt In .Comments
            Debug.Print cmt.Range.Text
        Next cmt
    End With
End Sub