Microsoft Office Forums - View Single Post - Macro now fails in Word 2013 after working for more than a year; still works in 2007

gmayor · 09-03-2015, 10:13 PM

Word 2013 ignores the username setting in Options, but you can work around it. Add the following loop where indicated by the existing code:

Code:

    If Val(Application.Version) > 14 Then
        Dim oComment As Comment
        For Each oComment In ActiveDocument.Comments
            oComment.Author = Application.UserName
        Next oComment
    End If
    Application.UserName = myUsername
    Application.UserInitials = myUserinitials

Note that this will change the author for ALL comments. If there are some you wish to retain, you need to include code in the loop to omit them.