Question

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

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 for Word：从表格中的单元格中获取注释

1 个答案: