如何用快捷键给选中单词加括号并去除双击选中的尾随空格？

双击Word里的单词时，默认选中范围会包含尾随空格，直接给选中内容加括号会变成(选中文本 )，手动删空格完全失去了快捷键操作的便利性。你提供的现有代码仅能单独完成加括号或处理空格的操作，下面是合并功能后的完整解决方案：

修改后的VBA宏代码 #

Sub AddParensWithoutTrailingSpace()
    Dim selectedRange As Range
    Set selectedRange = Selection.Range
    
    ' 移除选中内容末尾的所有尾随空格
    Do While selectedRange.Characters.Last = Chr(32) And selectedRange.End > selectedRange.Start
        selectedRange.End = selectedRange.End - 1
    Loop
    
    ' 给处理后的内容添加括号
    selectedRange.InsertBefore "("
    selectedRange.InsertAfter ")"
End Sub

代码说明 #

• 先获取当前选中的文本范围，循环检查并移除末尾所有尾随空格（能处理多个连续空格的情况）
• 处理完成后直接在范围前后插入括号，确保最终格式为(选中文本)

绑定快捷键 #

1. 打开Word的「开发工具」选项卡，点击「宏」
2. 找到AddParensWithoutTrailingSpace宏，点击「选项」
3. 设置你需要的快捷键组合（比如Ctrl+Shift+(），确定后即可使用

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