0

表の行にコメントを追加しようとしています。アイデアは、テーブルを選択すると、マクロがすべての行にコメントを追加するというものです。

コメントの内容に整数が続く文字列があるとします。

コメントの内容の例は次のとおりです。

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
4

1 に答える 1

0 
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
于 2012-11-01T23:39:25.713 に答える