论文修改参考文献的数字顺位顺序技巧

记得先备份文件之后再进行论文调试，防止不可逆修改

### 修改后的VBA代码
```vba
Sub HighlightNumAnnotations()
    Dim rng As Range
    Dim found As Boolean
    
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Text = "\[[0-9]*\]" ' 匹配[num]格式
        .Format = True
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
    End With
    
    Do
        found = rng.Find.Execute
        If found Then
            ' 取消字体颜色，设置背景为黄色
            rng.Font.Color = wdColorAutomatic ' 恢复默认字体颜色
            rng.Shading.BackgroundPatternColor = wdColorYellow ' 设置背景为黄色
            rng.Start = rng.End
        End If
    Loop While found
End Sub
```

### 代码说明
1. **`rng.Font.Color = wdColorAutomatic`**  
   这行代码将字体颜色恢复为默认颜色，即取消之前的红色。

2. **`rng.Shading.BackgroundPatternColor = wdColorYellow`**  
   这行代码将文本的背景设置为黄色。

3. **其他部分保持不变**  
   代码仍然会查找文档中所有符合`[num]`格式的文本，并对它们进行处理。

### 操作步骤
1. **打开VBA编辑器**  
   按 `Alt + F11` 打开VBA编辑器。

2. **插入或修改模块**  
   如果之前已经插入了模块，可以直接修改代码；如果没有，选择“插入” > “模块”，然后粘贴上述代码。

3. **运行宏**  
   关闭VBA编辑器，返回Word文档，点击“开发工具” > “宏”，选择`HighlightNumAnnotations`宏并运行。

运行后，文档中所有符合`[num]`格式的文本的背景将被设置为黄色，字体颜色保持不变。
之后将2. **`rng.Shading.BackgroundPatternColor = wdColorYellow`**  
换位2. **`rng.Shading.BackgroundPatternColor = wdColorWhite`**  
重新运行即可