How to change the author name for comment in WordThis article is talking about changing the default author name for comments, or changing the existing author name in a document to a new one. Please try the below two methods.Change the comments’ author name for future useIf you want to change the comment’s author name for future use, please change the User Name in Word Options window.1. In an opened Word document, click File Options.
![]() ![]()
In the Word Options window, make sure you are locating in the General tab, change the name in the User name box as below screenshot shown, and finally click the OK button.Now you have changed the default user name for comments in Word document.Change the existing comment’s author name of a documentIf you have received a document with lots of comments, and you want to change all comments’ author names to a certain one, the following VBA code will do you a favor.1. Select the range contains comments or select the whole document you will change the author names by pressing the Ctrl + A keys, press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.2. In the opening Microsoft Visual Basic for Applications window, click Insert Module. Then copy below VBA code into the Module window.VBA code: Change the existing comments’ author name of document Sub ChangeCommentAuthor'Updated by EntendOffice 20181112Dim I As LongDim xNewName As StringDim xShortName As StringIf Selection.Comments.Count = 0 ThenMsgBox 'No comments in your selection!' , vbInformation, 'KuTools for Word'Exit SubEnd IfxNewName = InputBox('New author name?' , 'KuTools for Word')xShortName = InputBox('New author initials?' , 'KuTools for Word')If xNewName = ' Or xShortName = ' ThenMsgBox 'The author name/initials can’t be empty.'
, vbInformation, 'Kutools for Word'Exit SubEnd IfWith SelectionFor I = 1 To.Comments.Count.Comments(I).Author = xNewName.Comments(I).Initial = xShortNameNext IEnd WithEnd Sub3. Press the F5 key to run the code. In the opening Comments Author Name dialog box, enter the new author name into the textbox and click the OK button.4. In the next opening Comments initials dialog box, enter the initials as you need and click the OK button.Then all comments’ author names in selected range are changed to the specified one immediately as below screenshot shown. Here is a modified Macro that will allow you to first specify the Name your want to replace in case there are other comments that you don't want to modify.Sub ChangeCommentAuthor'Updated by EntendOffice 20181112Dim I As LongDim xOldName As StringDim xNewName As StringDim xShortName As StringIf Selection.Comments.Count = 0 ThenMsgBox 'No comments in your selection!' , vbInformation, 'KuTools for Word'Exit SubEnd IfxOldName = InputBox('Old author name?'
In tracked changes, I am identified as 'Microsoft Office user'. I have followed the instructions to create an account, when I am able to either enter.
, 'KuTools for Word')xNewName = InputBox('New author name?' , 'KuTools for Word')xShortName = InputBox('New author initials?' , 'KuTools for Word')If xOldName = ' Or xNewName = ' Or xShortName = ' ThenMsgBox 'The author name/initials can’t be empty.' , vbInformation, 'Kutools for Word'Exit SubEnd IfWith SelectionFor I = 1 To.Comments.CountIf.Comments(I).Author = xOldName Then.Comments(I).Author = xNewName.Comments(I).Initial = xShortNameEnd IfNext IEnd WithEnd Sub.
![]() Comments are closed.
|
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
January 2023
Categories |