Wordのマクロは編集コメントの後のコメント、奇妙な動作を追加するには

Question

私が選択したテキストに新しいコメントを追加するための簡単なWordマクロ持っている：1つのページに多くのコメントと

Dim cmtMyComment As Comment 
Set cmtMyComment = Comments.Add(Selection.range, "abc") 

Debug.Print cmtMyComment.Index & ". " & Selection.range.Start & " - " & Selection.range.End 
Debug.Print cmtMyComment.range.Start & " - " & cmtMyComment.range.End 

やWord文書を：

ページの下部でテキストを選択してこのマクロを実行すると、正常に動作します。私のコメントは、コメントテキスト「ABC」とコメント指標と最後に追加される38

デバッグ出力：

38. 1099 - 1107 
1265 - 1268 

私は右の最後のコメントのテキスト範囲をクリックして、「編集コメント」を選択してください（ = Upravit komentar）コメントを編集するウィンドウを表示します。

編集ウィンドウを閉じた後、下の新しいテキストを選択してマクロを実行しようとしています。新しいコメントが選択された位置に追加されますが、テキストはありません。これは空のコメントです。コメントのテキストは、ページの最初のコメントに追加されます。したがって、新しいコメントはそれぞれ空になり、最初のコメントの先頭にテキストが追加されます（コメントインデックスは1になりました）。

デバッグ出力：

1. 1003 - 1011 
1 - 17 

私はうまく編集ウィンドウ内の1つの私のマクロ作品を編集せずにコメントを追加するまで、私はMS Wordの2016を持っています。

編集ウィンドウで編集後にコメントを追加する回避策はありますか？

Answer 1

私は同じようなことがあったが、それは、私はそれがコメントペインで、テキストではなく、文書の本文を選択している疑いがある2010年

で脚注でいました。マクロでリビジョンウィンドウが閉じていることを確認します。

ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneNone 

またSelectionとCommentsの接頭辞、これはあなたが問題をデバッグするのに役立ちます。

Set cmtMyComment = Selection.Comments.Add(Selection.range, "abc")