添加注释到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