Microsoft Word VBA 宏读取注释答案

【问题标题】：Microsoft Word VBA macro to read commentsMicrosoft Word VBA 宏读取注释
【发布时间】：2020-01-08 13:13:12
【问题描述】：

我正在尝试使用下面的代码读取文档中数字的 cmets

For Each iShp In .InlineShapes
  iShp.Select

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

形状选择正确，但计数始终为 0...

我错过了什么？

【问题讨论】：

我不相信InlineShapes 有 cmets 属性。您所拥有的是从selection 获取的cmets，其中没有。形状有 .AlternativeText 和 .Title。
您需要提供有关这些 cmets 的更多信息。目前尚不清楚它们的位置。也许屏幕截图可以帮助...

标签： vba ms-word

【解决方案1】：

这是读取所有 cmets 的另一种方法：

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

【讨论】：

这和我最终做的非常相似！