VBA 对于 Word：从 table 中的单元格获取评论

Question

有一个文档，里面有 table。一些单元格 - 总是在第一列 - 有评论。此代码应遍历所有行并显示注释：

Sub GetComment()
    Dim vrsta, something As String
    For Each vrsta In ActiveDocument.Tables(1).Rows
        something = vrsta.Cells(1).Comments.Range.Text
        MsgBox something
    Next
End Sub

没有。至少有两个问题：

如果单元格中没有注释，程序会产生错误
如何从当前程序所在的单元格中获取当前评论？

我做错了什么？谢谢。

Answer 1

快到了。这对我有用：

Dim ro As Row
For Each ro In ActiveDocument.Tables(1).Rows
    If ro.Cells(1).Range.Comments.Count > 0 Then
        MsgBox ro.Cells(1).Range.Comments(1).Range.Text
    End If
Next ro

VBA 对于 Word：从 table 中的单元格获取评论

VBA for Word: get comments from cells in a table

vba

ms-word