Microsoft Office Forums - View Single Post - Replacing a comment with underline or other formatting (or adding that formatting to commented text)

gmayor · 05-16-2016, 01:04 AM

Easy enough with a macro e.g.

Code:

Sub ReplaceComments()
Dim oComment As Comment
    For Each oComment In ActiveDocument.Comments
        oComment.Scope.Font.Underline = wdUnderlineSingle
        oComment.Scope.Font.Bold = True
        'oComment.Range.Delete 'set the comment to no value
        oComment.DeleteRecursively 'optional
    Next oComment
lbl_Exit:
    Set oComment = Nothing
    Exit Sub
End Sub