Question

我在使用VBA将光标焦点设置在VBA刚添加的注释中时遇到麻烦。

我可以轻松地在VBA中添加新注释，但是光标停留在文档文本中，而不是在要在其中键入注释的气泡注释中。

这是我用来添加评论的代码：

Initial = ActiveDocument.ActiveWindow.View.SplitSpecial
Selection.Comments.Add Range:=Selection.Range
ActiveDocument.ActiveWindow.View.SplitSpecial = Initial

这样可以成功添加注释，并在“气泡”的右边缘显示注释，但是文本输入点保留在文档本身中，而不在注释气泡中。

如何使文本条目位于我刚刚添加的评论气泡内？

注意：如果我使用功能区控件使用SendKeys添加注释，则文本输入焦点位于注释气泡中，但我不希望使用SendKeys，因为这很容易出错有时。

Answer 1

最有效的方法是声明一个Comment对象，并在文档中创建注释时将其初始化。还要注意，Comments.Add具有一个用于在创建文本时添加文本的参数。

请注意，除非您特别希望/需要旧的Word 2.0“窗格”视图（从所见即所得的时间开始），否则不需要进行窗口切换。

示例：

Dim cmt As Word.Comment

Set cmt = ActiveDocument.Comments.Add(Selection.Range, "test")
cmt.Range.Text = cmt.Range.Text & " More text."

MS Word VBA在气泡注释中添加注释和焦点光标

1 个答案: