如何通过VBA在MS Word中选中连带括号的完整单词

问题说明 #

插入点定位在被半角括号()包裹的内容任意位置时，调用默认全词选择功能仅能选中括号内部的单词/内容，无法选中两侧包裹的括号。
以测试文本(3)为例，使用常规选词代码测试：

Selection.Expand unit:=wdWord
str = Selection
MsgBox str

执行结果：弹窗仅返回3，无法获取带括号的完整内容(3)

解决代码 #

通过向前查找左括号、开启扩展选择、向后查找右括号的逻辑，即可完整选中括号及内部全部内容，代码如下：

Dim str As String
' 从当前位置向前查找左括号
With Selection.Find
  .ClearFormatting
  .Text = "("
  .Forward = False
  .MatchWildcards = False
  .Wrap = wdFindStop
  .Execute
End With
' 启动扩展选择模式
Selection.Extend
' 向后查找匹配右括号，完成范围选中
With Selection.Find
  .Text = ")"
  .Forward = True
  .Execute
  .Text = ""
End With
str = Selection

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