写毕业论文时用，作用：将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

此处可以修改名字

保存后鼠标选中要修改的范围，点击视图，宏，查看宏

往下找就能找到，选中后点击右侧运行即可

效果如下：
使用前

使用后

依个人写论文文献习惯