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

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 的快捷方式来触发您的宏。

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

How is it possible to add comment via macros for selected region of words?

clipboard

vba

comments

ms-word

selection