Word VBA (2019) 中的 Comment.Add 在向注释中添加文本时不一致

Question

上下文：我正在使用Word 2019(Office 365订阅，如果这很重要的话(。我在审阅功能区添加了一系列按钮，每个按钮集用于对某些文本创建特定的注释。(写作老师。我做了很多重复的评论。

每个注释宏的结构如下所示：

Sub AddSomeComment()
Dim someComment As String
someComment = "Long explanation of some revision recommendation."
ActiveDocument.Comments.Add Range:=Selection.Range, Text:=someComment
End Sub

问题：始终添加批注框，但经常留空。在某些文档上，每条评论都有效(也许是 1/10(。在其他评论上，第一条评论将起作用，但所有其他评论将留空。大多数文档不会将文本放入注释中。所有文档在注释之前都保存为 docx。

我已经尝试调试和重写代码几次。我已经将字符串硬编码到每条评论中并得到了相同的结果。我尝试使用 MsgBox(( 来验证 someComment 中是否有字符串(确实如此(。

Answer 1

我不知道为什么它会有这样的行为。也许有一个"种族"条件(文本在创建之前被发送到评论(。

尝试如下：创建注释并在创建后分配文本。(注意：我在移动设备上，因此无法测试语法错误(

Sub AddSomeComment()
Dim cmt as Comment
Dim someComment As String
someComment = "Long explanation of some revision recommendation."    
Set cmt = ActiveDocument.Comments.Add Range:=Selection.Range
cmt.Range.Text = someComment
End Sub