添加评论后如何在“选择”框中保留选择内容

Question

我知道如何使用VBA添加评论，但是当我使用代码selection.Range.comments.Add Range:=selection.Range, Text:=""创建评论时，所选范围就在文本主体中。

但是，如果我使用MS Word内置的最终用户“添加新评论”菜单命令，则在创建评论后，该选择将位于评论部分，以便我可以开始键入。

我该如何处理我的代码：创建注释后，选择位于注释部分/“框”中？

Answer 1

以下内容演示了在插入注释后如何在“注释”框中保留插入点（光标）。只需使用Edit对象的Comment方法。

Sub SelectionInCommentBox()
    Dim rng As Word.Range
    Dim cmt As Word.Comment

    Set rng = Selection.Range
    Set cmt = rng.Comments.Add(rng, "")
    cmt.Edit       
End Sub