如何通过宏为选定区域的单词添加评论？

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来触发你的宏。