提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何更改Word中的注释的作者姓名

本文讨论的是更改注释的默认作者名称,或将文档中的现有作者名称更改为新名称。 请尝试以下两种方法。

更改评论的作者姓名以备将来使用

更改现有注释的文档作者姓名


更改评论的作者姓名以备将来使用

如果要更改注释的作者姓名以供将来使用,请在“Word选项”窗口中更改“用户名”。

1。 在打开的Word文档中,单击 文件 > 期权。 在 Word选项“ 窗口,确保你找到了 白色家电 选项卡,更改中的名称 用户名 框如下图所示截图,最后点击 OK 按钮。

现在,您已更改Word文档中注释的默认用户名。


更改现有注释的文档作者姓名

如果您收到了包含大量注释的文档,并且您希望将所有注释的作者姓名更改为某个注释,则以下VBA代码将为您提供帮助。

1。 选择包含注释的范围或选择要更改作者姓名的整个文档,方法是按 按Ctrl + A 按键,按下 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 在开幕式上 Microsoft Visual Basic for Applications 窗口中,单击 插页 > 模块。 然后将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 按钮。

然后,所选范围内的所有评论的作者姓名将立即更改为指定的一个,如下面的屏幕截图所示。



推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Olivier · 2 months ago
    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 20181112
    Dim I As Long
    Dim xOldName As String
    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
    xOldName = InputBox("Old author name?", "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 = "" 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
    If .Comments(I).Author = xOldName Then
    .Comments(I).Author = xNewName
    .Comments(I).Initial = xShortName
    End If
    Next I
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    JaCo · 6 months ago
    The VBA script worked perfectly to change the name of the author to my company name. Thank you!
  • To post as a guest, your comment is unpublished.
    vahit · 7 months ago
    Yardımı oldu, teşekkürler.