添加註釋到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