如何在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 Sub
3。 按 F5 键来运行代码。 在开幕 评论作者姓名 对话框中,在文本框中输入新的作者姓名,然后单击 OK 按钮。
4.在下一个开口 评论首字母 对话框中,根据需要输入缩写,然后单击 OK 按钮。
然后,所选范围内的所有评论的作者姓名将立即更改为指定的作者姓名,如下图所示。
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!
🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容 / 重写文本 / 总结文件 / 查询资料 基于文档,全部在Word中
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择(PDF/TXT/DOC/HTML...) / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁: 移开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多拆卸工具,请前往我们的 删除组...
➕ 创意插入: 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 发现更多 插入组...
🔍 精准选择:精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择功能...
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具...