如何在Word中更改作者姓名以进行注释
本文讨论的是更改注释的默认作者姓名，或将文档中的现有作者姓名更改为新的作者姓名。 请尝试以下两种方法。
更改评论的作者姓名以备将来使用
如果要更改注释的作者名称以供将来使用，请在“ Word选项”窗口中更改“用户名”。
1.在打开的Word文档中，单击 文件 > 附加选项。 在 Word选项“ 窗口，请确保您位于 总类 标签，在 用户名 对话框如下图所示，最后单击 OK 按钮。
现在，您已经更改了Word文档中注释的默认用户名。
更改文档现有评论的作者姓名
如果您收到一个包含大量评论的文档，并且想要将所有评论的作者姓名更改为某个人，那么下面的 VBA 代码将帮您一个忙。
1.选择包含注释的范围，或选择整个文档，然后按 按Ctrl + A 键，按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2.在开幕 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的VBA代码复制到“模块”窗口中。
VBA代码：更改现有评论的文档作者姓名
Sub ChangeCommentAuthor()
'Updated by EntendOffice 20181112
Dim I As Long
Dim xNewName As String
Dim xShortName As String
If Selection.Comments.Count = 0 Then
MsgBox "No comments in your selection!", vbInformation, "KuTools for Word"
Exit Sub
End If
xNewName = InputBox("New author name?", "KuTools for Word")
xShortName = InputBox("New author initials?", "KuTools for Word")
If xNewName = "" Or xShortName = "" Then
MsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"
Exit Sub
End If
With Selection
For I = 1 To .Comments.Count
.Comments(I).Author = xNewName
.Comments(I).Initial = xShortName
Next I
End With
End Sub3。 按 F5 键来运行代码。 在开幕 评论作者姓名 对话框中，在文本框中输入新的作者姓名，然后单击 OK 按钮。
4.在下一个开口 评论首字母 对话框中，根据需要输入缩写，然后单击 OK 按钮。
然后，所选范围内的所有评论的作者姓名将立即更改为指定的作者姓名，如下图所示。
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点！
🤖 Kutools 人工智能助手：用人工智能改变你的写作 - 生成内容 / 重写文本 / 总结文件 / 查询资料 基于文档，全部在Word中
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/HTML...） / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁: 移开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多拆卸工具，请前往我们的 删除组...
➕ 创意插入： 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 发现更多 插入组...
🔍 精准选择：精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择功能...
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具...
