Word VBA宏添加批注时如何固定设置批注作者为robot

原代码错误原因 #

原有代码中ActiveDocument.Comment.Author = "robot"语句失效是两个逻辑错误导致的：

• Word对象模型中，ActiveDocument.Comments是文档内所有批注的集合对象，不存在直接从属ActiveDocument的Comment泛型对象，对不存在的对象赋值不会产生任何实际效果。
• Comments.Add方法创建新批注时，默认读取Word应用全局的用户名配置作为批注作者，在创建批注前对无效对象赋值，根本不会覆盖这个默认取值逻辑。
  另外直接读取表格单元格的Range.Text属性时，返回值会自带单元格末尾的Chr(13)+Chr(7)结束控制符，直接作为批注文本插入会导致批注末尾出现多余空行。

正确代码实现 #

提供两种稳定可运行的方案，按需选择即可：

方案1：创建批注后单独修改单条批注属性 #

适合不需要修改全局配置、仅调整本次宏生成批注属性的场景：

Dim newComment As Comment
Dim suggestion As String

Do While .Execute(Forward:=True) = True
    ' 读取建议内容，清除单元格自带的末尾控制符和多余空格
    suggestion = Trim(Replace( _
        Documents(DocName).Tables(1).Rows(RowCounter).Cells(CellWithSuggestion).Range.Text, _
        Chr(13) & Chr(7), ""))
    ' 新增批注并拿到对应批注的实例对象
    Set newComment = ActiveDocument.Comments.Add(Range:=findRange, Text:=suggestion)
    ' 给当前新增的批注设置指定作者
    newComment.Author = "robot"
    ' 可选：同步设置作者缩写，匹配Word批注的常规显示规则
    newComment.Initial = "RBT"
    
    findRange.Collapse wdCollapseEnd '避免查找进入死循环
Loop

方案2：临时修改全局用户名配置，批量生成后恢复 #

适合批量添加大量批注的场景，运行效率更高，注意必须在宏结束前恢复用户原有配置，避免影响用户后续手动添加批注的默认作者：

Dim originalAuthor As String, originalInitial As String
Dim suggestion As String
' 先保存用户当前的默认作者配置
originalAuthor = Application.UserName
originalInitial = Application.UserInitials
' 临时切换默认作者为robot
Application.UserName = "robot"
Application.UserInitials = "RBT"

Do While .Execute(Forward:=True) = True
    ' 读取建议内容，清除单元格自带的末尾控制符和多余空格
    suggestion = Trim(Replace( _
        Documents(DocName).Tables(1).Rows(RowCounter).Cells(CellWithSuggestion).Range.Text, _
        Chr(13) & Chr(7), ""))
    ' 直接新增批注，默认作者就是提前设置好的robot
    ActiveDocument.Comments.Add Range:=findRange, Text:=suggestion
    
    findRange.Collapse wdCollapseEnd '避免查找进入死循环
Loop

' 恢复用户原本的默认作者配置
Application.UserName = originalAuthor
Application.UserInitials = originalInitial

内容的提问来源于stack exchange，提问作者Dafne