在MS Word表中添加评论

Question

我正在尝试将注释添加到表行中。想法是您选择一个表，宏将在每一行添加评论。

说您有一个字符串，然后是评论内容中的整数。

示例评论内容是：

comment1
comment2
comment3

请注意，评论的内容很重要，因为它们起着至关重要的作用。

这是我到目前为止得到的，如果有人已经弄清楚了，请帮助我

Sub CallAddNewComment()
    Dim i As Integer
    i = ActiveDocument.Tables(1).Rows.Count

    Do Until (i > 1)
        Call AddNewComment(strText:="This is a test comment.")
    Loop
End Sub
Sub AddNewComment(ByVal strText As String)
   Comments.Add Row = i, Text:=strText
End Sub

Answer 1

Sub Tester()
    Dim tbl As Table, i As Long
    For Each tbl In ActiveDocument.Tables
        For i = 1 To tbl.Rows.Count
            ActiveDocument.Comments.Add _
                   tbl.Rows(i).Cells(1).Range, "Comment" & i
        Next i
    Next tbl
End Sub