Macros to Draw Table Border for All Comments

Hi ,

Please find the macro code below to copy all comments and place it in top of the same page.

Code:

---

Sub MacroCopyC()'
' MacroCopyC Macro
'
'
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Copy
    Selection.HomeKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=4
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

---

What i need is - need to place all side table borders for each comments am copying.
ie., i need to format with table borders all the comments.

Kindly do the needful