Macros to Draw Table Border for All Comments

[ijpbs]

Hi ,

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



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