vba - Word中如何知道右键下的单词

Question

我有 VBA对于 Word这会在右键单击的上下文菜单中添加一个按钮，以启动我的应用程序(有效)。

我需要单击的单词将其作为参数传递。我看到我无法使用 Selection因为右键单击不会选择单词，它会给我光标后的字母。

根据我所阅读的内容，我可能会查看光标的位置，然后查看单词开始和结束的两侧。

Answer 1

这似乎有效

Selection.Words(1).Text

编辑

更健壮地解释句子的结尾。

Sub FindWord()

    Dim rWord As Range

    If Selection.Words(1).Text = vbCr Then 'end of sentence
        'get last word of sentence
        Set rWord = Selection.Words(1).Previous(wdWord)
    Else
        'get selected word
        Set rWord = Selection.Words(1)
    End If

    'There has to be a better way than this
    If rWord.Text = "." Or rWord.Text = "?" Then
        Set rWord = rWord.Previous(wdWord)
    End If

    Debug.Print rWord.Text

End Sub