Microsoft Word 2013宏添加前后缀后取消选中问题求助

嘿，我之前也踩过这个小坑！直接修改Selection.Range.Text确实会把原选中状态冲掉——因为替换文本后Word会自动取消选中。不过解决起来很简单，只要先记下原选中区域的位置，修改完再重新选中就行。

修改后的宏代码 #

Sub Quote_Text()
    Dim originalStart As Long
    Dim newText As String
    
    ' 先记录原选中范围的起始位置
    With Selection.Range
        originalStart = .Start
        ' 这里替换成你实际需要的前缀和后缀，我用方括号做示例
        newText = "[" & .Text & "]"
        .Text = newText
    End With
    
    ' 重新选中修改后的完整文本
    Selection.SetRange Start:=originalStart, End:=originalStart + Len(newText)
End Sub

代码说明 #

• 第一步记录originalStart是为了锁定原选中内容在文档里的起始位置，这样修改完文本后，我们能精准定位要重新选中的区域。
• 生成带前后缀的新文本后替换原内容，最后用Selection.SetRange把新文本整个选中，完美还原选中状态。
• 你只需要把示例里的"["和"]"换成自己需要的前缀后缀就行，比如引号、括号或者自定义标记。

如果你的宏需要处理多段不连续的选中内容，那得再加个循环遍历每个选中的子范围，但如果只是单块文本的话，上面的代码完全够用啦。

内容的提问来源于stack exchange，提问作者GrumpyCrouton