- Where Developers Learn, Share, & Build Careers
The idea that I am trying to add comments to table rows is that you select a table and the macro each Will add a comment to the line.
Say that you have an integer in the comment content after the string.
Example comment content will be:
comment1 comment2 comment3 Note that the contents of the comments are important because they play an important role Play.
Even if I have already detected this, please help me if someone has already detected this
sub-callADE comment () Integer I = active document as DIM I Tables (1) rows. (I & gt; 1) Call AddNewcomment (strText: = "This is a test comment.") Loop & All All AddNewComment (by-string string as form) comments. Add Row = i, Text: = strteext end Sub
sub-tester ) In the form of dim tbl table, I for each TBL.Rows.Count ActiveDocument.Comments.Add _tbl.Rows (i) for activeDocument.Tables i = 1 in TBL.Cell (1) .Range, " Comment "& amp; I Next I next tbl & all
Comments
Post a Comment