注释。在注释中添加文本时，附加词VBA（2019）不一致

上下文：我正在使用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中是否包含字符串（确实如此）

我不知道它为什么会这样。可能存在“竞争”条件（文本在创建之前发送到注释）

试着这样做：创建注释，创建后分配文本。（注意：我在移动设备上，因此无法测试语法错误）

我不知道为什么会这样。可能存在“竞争”条件（文本在创建之前发送到注释）

试着这样做：创建注释，创建后分配文本。（注意：我在移动设备上，因此无法测试语法错误）

---

非常感谢。这似乎更加一致（在多个文档中还没有失败）。这会导致每次按下按钮都会激活查看窗格，这有点出乎意料。此旧问题有一个变通方法[。这为我节省了这么多时间！谢谢！此方法似乎更加一致（在多个文档上没有失败）。它会导致每次按下按钮时都激活审阅窗格，这有点出乎意料。此旧问题有一个变通方法[。这为我节省了这么多时间！

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