![ms word how to change comment name ms word how to change comment name](https://www.thewindowsclub.com/wp-content/uploads/2021/09/Address-Book-Global-Address-list-dialog-box.jpg)
' Change Creator of Document to new authorĪctiveDocument.BuiltInDocumentProperties(3) = NewAuthor WXML = Replace(WXML, "" & ActiveDocument.BuiltInDocumentProperties(7) & "", "" & NewAuthor & "") ' change "last modified by" to new author ' read XML and change all authors to the new author If jmax > UBound(Author) Then jmax = UBound(Author)
![ms word how to change comment name ms word how to change comment name](https://i2.wp.com/www.datanumen.com/blogs/wp-content/uploads/2017/01/Click-Review-then-Click-Track-Changes-then-Click-Change-Tracking-Options.jpg)
unt & vbCr & " Do you want to continue?", vbOKCancel + vbQuestion + vbDefaultButton2, "Change comment and revision author") > 1 Then Exit Sub If MsgBox("The number of revisions it large. ' Loop through all revisions and get all authors of revisions (maximum 100) MsgBox "The author name can’t be empty.", vbInformation, "Change comment and revision author" NewAuthor = InputBox("New author name?", "Change comment and revision author") MsgBox "No revisions in your document!", vbInformation, "Change comment and revision author" StatusTrackRevision = ActiveDocument.TrackRevisions 18 December 2019 19 December 2019 Darren Biotext, change author, change name, comments, editing, macro, script, track changes, vba, Word, writing, xml Let’s say you’ve got a document with tracked changes in it, and the reviewer changes and comments are supposed to be by a corporate name say XYZ Editing (apologies if this business exists. ' set some variables and put trackrevision to false Sub ChangeCommentAndRevisionAuthor()ĭim WXML, NewAuthor, FindAuthor, ReplaceAuthor As String
![ms word how to change comment name ms word how to change comment name](http://files.smashingmagazine.com/wallpapers/june-15/the-amazing-water-park/nocal/june-15-the-amazing-water-park-nocal-1280x800.jpg)
All revision and comment authors, creators, and lastmodied will be changed by the name entered. I picked up Cindy Meister's suggestion and cleared the Word confusion that he reported. But this is the simplest way using straight Word VBA. Or even use a package that works on the closed document and edits the Word Open XML. The more "elegant" way to do this would be to leverage an XML parser (such as MSXML) and work with the specific nodes. Note that this will likely also change the author's name for comments. SWOOXML = Replace(sWOOXML, findAuthor, replaceAuthor) ReplaceAuthor = "w:author=" & Chr(34) & "unknown" & Chr(34) Sub ChangeAuthorName()įindAuthor = "w:author=" & Chr(34) & "Cindy Meister" & Chr(34) Only after saving, closing and re-opening does Word "see" the revisions, again.
![ms word how to change comment name ms word how to change comment name](https://support.content.office.net/en-us/media/7401d477-f7c6-487e-a4bd-01a4e93179a6.png)
I notice, however, that this appears to confuse Word - after running the macro no revisions are recognized in the document.
Ms word how to change comment name code#
It is possible to change it by editing the underlying Word Open XML, as illustrated in the code that follows. So there's no direct way using VBA and the object model to change that. Returns the name of the user who made the specified tracked change. The language reference for the Revisions's Author property states: Now, when you upload your document to Blackboard, it will look normal (see image below) and will have neither comments nor tracked changes in the margin.Revisions automatically use the selected User Name in the UI.