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

Question

我正在尝试编写一段代码来通过快捷方式添加评论。

我找到了一个宏，但是当我运行该宏时，它看起来一切正常（准确的背景以灰色突出显示），除了注释仅添加到所选组中的最后一个单词。

是否可以不仅对句子中的最后一个单词进行评论，而且对整个选定的单词组进行评论？

附：是否也可以从剪贴板中获取文本并直接粘贴而无需手动粘贴（使光标在评论中闪烁，然后是 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 不同的快捷键来触发宏。