写毕业论文时用，作用：将word内选中的部分内所有方括号内的数字+1（方括号内只出现数字和英文逗号时）

打开word，按alt+F11，复制这段代码：

Sub 选中区域内_括号数字加1()
Dim mainRng As Range
Dim workRng As Range
Dim endPos As Long

' 只操作你选中的内容
Set mainRng = Selection.Range
endPos = mainRng.End

Set workRng = mainRng.Duplicate

With workRng.Find
    .ClearFormatting
    .MatchWildcards = True
    .Text = "\[([0-9, ]@)\]"
    
    ' 只在选中范围内查找
    Do While .Execute(Forward:=True)
        ' 超出选区就退出
        If workRng.End > endPos Then Exit Do
        
        Dim s As String
        s = Mid(workRng.Text, 2, Len(workRng.Text) - 2)
        
        Dim arr As Variant
        arr = Split(s, ",")
        Dim i As Integer
        For i = 0 To UBound(arr)
            arr(i) = Val(Trim(arr(i))) + 1
        Next i
        
        workRng.Text = "[" & Join(arr, ",") & "]"
        
        workRng.Collapse Direction:=wdCollapseEnd
    Loop
End With

MsgBox "已完成：只修改选中区域内的 [] 数字 +1"

End Sub

此处可以修改名字
image.png
保存后鼠标选中要修改的范围，点击视图，宏，查看宏
image.png
往下找就能找到，选中后点击右侧运行即可
image.png

效果如下：
使用前
image.png

使用后
image.png

依个人写论文文献习惯