如何通過宏爲選定區域的單詞添加評論？

Question

我試圖做一段代碼來通過快捷方式添加評論。

我發現了一個宏，但是當我運行這個宏時，它似乎一切正常（用灰色精確背景突出顯示），除了註釋僅添加到所選組中的最後一個單詞。

是否可以對句子中的最後一個詞而不是整個選定的詞組進行評論？

P.S.是否也可以從剪貼板中獲取文本並直接粘貼，而無需手動粘貼（使光標在評論中閃爍，然後按Ctrl + V）？而不是查看代碼中的值。

非常感謝您的幫助。

Sub Gray() 
' 
' Gray 
' 
' 
Options.DefaultHighlightColorIndex = wdGray25 
Selection.Range.HighlightColorIndex = wdGray25 
Selection.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Comments.Add _ 
Range:=Selection.Range, Text:=" review this" 
End Sub 

Answer 1

如果您刪除Selection.Collapse，則註釋將應用於整個選擇。

建議新的子過程：從剪貼板

Sub Gray() 

Selection.Range.HighlightColorIndex = wdGray25 
Selection.Comments.Add _ 
Range:=Selection.Range, Text:=" review this" 

End Sub 

文本可以通過調用Windows API函數來拉動。有關更多詳細信息，請參見this previous question。

我推薦使用與不同的快捷鍵Ctrl + V來觸發你的宏。