如何在Word中编写VBA代码实现每隔一个左括号替换为右括号

针对文档中所有左括号偏向一侧的情况（例如(out of stock(），要实现每隔一个左括号替换为右括号，不能直接用全替换命令，需要逐个查找并根据计数判断是否替换。以下是可行的VBA代码：

Sub ReplaceEverySecondParenthesis()
    Dim i As Integer
    Dim myRange As Range
    
    i = 0
    Set myRange = ActiveDocument.Content
    
    ' 循环查找每个左括号
    Do While myRange.Find.Execute(FindText:="(", Forward:=True) = True
        i = i + 1
        ' 判断是否为第偶数个左括号，是则替换为右括号
        If i Mod 2 = 0 Then
            myRange.Text = ")"
        End If
        ' 将查找范围移动到当前匹配位置之后，避免重复处理
        myRange.Collapse Direction:=wdCollapseEnd
    Loop
End Sub

代码说明 #

• 初始化计数器i为0，用于记录找到的左括号序号
• 使用Do While循环逐个查找左括号，每次找到后计数器加1
• 通过i Mod 2 = 0判断是否为第偶数个左括号，满足条件则替换为右括号
• 每次处理完后，将查找范围折叠到当前匹配位置的末尾，确保继续查找下一个左括号

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