Vba 替换所选文本的Microsoft Word 2013宏随后取消选择文本

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

这是可行的，但有一个小问题；触发宏时，会添加前缀和后缀，但也会取消选择文本。我希望宏添加前缀和后缀，但仍保留选定的文本

这是我的宏，我试着四处寻找修复方法，但没有找到任何东西

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

Sub-Quote_Text（）
有选择。范围
.Text=Chr（34）和.Text&Chr（34）
.选择“
Sub Quote_Text（）
有选择。范围
.Text=Chr（34）和.Text&Chr（34）
.选择“你是英雄”。我在任何地方都找不到这个文档，可能是因为搜索条件不好。没有。。。我不相信事情会这么简单。现在回到我复杂的书签解决方案…你是一个英雄。我在任何地方都找不到这个文档，可能是因为搜索条件不好。没有。。。我不相信事情会这么简单。现在回到我复杂的书签解决方案。。。
Sub Quote_Text()
    With Selection.Range
        .Text = Chr(34) & .Text & Chr(34)
        .Select   '<<<<<
    End With
End Sub