的Word宏編輯點評後添加評論，奇怪的行爲

Question

我有一個簡單的Word宏對選定的文本添加一個新評論：

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 

我的MS Word 2016年之前我沒有編輯窗口中編輯一個我的微距作品以及添加註釋。

在編輯窗口中編輯註釋之後是否有解決方法來添加註釋？

Answer 1

我也有過類似的事情，但它與腳註是在2010年

我懷疑這是選擇在註釋窗格中的文本，而不是文檔的主體。讓您的宏確保修訂窗格關閉。

ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneNone 

而且前綴Comments與Selection，這將幫助您解決問題。

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