用于替换所选文本的Microsoft Word 2013宏将在之后取消选择文本

Question

我创建了一个非常简单的宏，它应该只为选定的文本添加前缀和后缀。

这有效，但有一点问题;触发宏时，会添加前缀和后缀，但也会取消选择文本。我希望宏添加前缀和后缀，但仍然保持选中的文本。

这是我的宏，我已经尝试过寻找解决此问题的方法，但一直找不到任何内容;

Sub Quote_Text()
    With Selection.Range
        .Text = Chr(34) & .Text & Chr(34)
    End With
End Sub

Answer 1

Sub Quote_Text()
    With Selection.Range
        .Text = Chr(34) & .Text & Chr(34)
        .Select   '<<<<<
    End With
End Sub