批量转换论文正文引用为上标

方法一：使用 Word 的"查找和替换"+"格式设置"

适用于你已经在文中插入了 [1]、(1) 或类似格式的引用。

步骤：

1. 打开"查找和替换"对话框

   • 快捷键：Ctrl + H

2. 在"查找内容"中输入要找的引用格式

   • 例如输入：[([0-9]{1,2})]

     （表示匹配 [1]、12 等------如果不熟悉正则，可以直接输入 [1]，逐个替换）

3. 展开"更多" → 勾选"使用通配符"

   • 这样 Word 会识别数字模式。

4. 在"替换为"中输入： ^&

   然后设置格式为上标（见下一步）。

5. 点击"格式" → "字体" → 勾选"上标" → 确定

6. 点击"全部替换"

   所有 [数字] 都会变成上标引用。

---

🧩方法二：用样式（推荐科研论文、报告）

如果你的引用格式是一致的（比如 [1]、(1)），可以定义一个样式来快速统一格式。

步骤：

1. 选中一个参考文献引用（例如 [1]）。

2. 按 Ctrl + Shift + =（快速设置上标）。

3. 然后右键 → "样式" → "创建样式"。

4. 命名为 引用上标。

5. 以后每次插入引用时，选中它 → 点击"样式栏"中的 引用上标 即可。方法三：用 Word 的"引

   方法三：：Word VBA 宏

   只处理正文，不动参考文献部分】

   Sub SuperscriptCitationsInMainText()
       Dim para As Paragraph
       Dim rng As Range
       Dim refStart As Long
       Dim doc As Document
       Dim inReferences As Boolean
       
       Set doc = ActiveDocument
       inReferences = False
   
       '========= 寻找"参考文献"或"参考资料"开始的位置 ========='
       refStart = 0
       For Each para In doc.Paragraphs
           If InStr(para.Range.Text, "参考文献") > 0 Or InStr(para.Range.Text, "参考资料") > 0 Then
               refStart = para.Range.Start
               Exit For
           End If
       Next para
   
       '========= 遍历正文段落 ========='
       For Each para In doc.Paragraphs
           If refStart > 0 And para.Range.Start >= refStart Then
               Exit For  ' 遇到参考文献部分就停止
           End If
   
           Set rng = para.Range
   
           '=========== 匹配 [数字] ==========='
           With rng.Find
               .ClearFormatting
               .Text = "\[[0-9]{1,3}\]"
               .MatchWildcards = True
               Do While .Execute
                   rng.Font.Superscript = True
                   rng.Collapse wdCollapseEnd
               Loop
           End With
   
           '=========== 匹配 (数字) ==========='
           Set rng = para.Range
           With rng.Find
               .ClearFormatting
               .Text = "\([0-9]{1,3}\)"
               .MatchWildcards = True
               Do While .Execute
                   rng.Font.Superscript = True
                   rng.Collapse wdCollapseEnd
               Loop
           End With
   
           '=========== 匹配 （数字） ===========（全角括号）'
           Set rng = para.Range
           With rng.Find
               .ClearFormatting
               .Text = "（[0-9]{1,3}）"
               .MatchWildcards = True
               Do While .Execute
                   rng.Font.Superscript = True
                   rng.Collapse wdCollapseEnd
               Loop
           End With
       Next para
   
       MsgBox "✅ 正文引用已转换为上标，参考文献部分未修改！"
   End Sub

   ---

   🪄 使用方法：打开 Word 文、按 Alt + F11 打开 VBA 编辑器选择菜单 "插入 → 模块"、 粘贴上面的代码、关闭编辑器、按 Alt + F8 → 选择宏 SuperscriptCitationsInMainText → 点击"运行"

只在正文的普通段落中生效，不改动图表标题、脚注、表格文本"？

我可以帮你写一个增强版来过滤这些区域。

Sub SuperscriptCitations_MainTextOnly()
    Dim doc As Document
    Dim para As Paragraph
    Dim rng As Range
    Dim refStart As Long
    Dim inReferences As Boolean
    Dim sec As Section
    Dim shp As Shape
    
    Set doc = ActiveDocument
    inReferences = False
    refStart = 0

    '========= 定位"参考文献"或"参考资料"部分开始位置 ========='
    For Each para In doc.Paragraphs
        If InStr(para.Range.Text, "参考文献") > 0 Or InStr(para.Range.Text, "参考资料") > 0 Then
            refStart = para.Range.Start
            Exit For
        End If
    Next para

    '========= 遍历所有段落 ========='
    For Each para In doc.Paragraphs
        ' 跳过参考文献部分
        If refStart > 0 And para.Range.Start >= refStart Then Exit For

        ' 跳过表格中的段落
        If para.Range.Information(wdWithInTable) Then GoTo NextPara

        ' 跳过图表标题（包含"图"或"表"且数字紧跟）
        If para.Range.Words.Count > 0 Then
            Dim firstText As String
            firstText = Left(Trim(para.Range.Text), 5)
            If (InStr(firstText, "图") > 0 Or InStr(firstText, "表") > 0) Then
                If para.Range.Text Like "*图[0-9]*" Or para.Range.Text Like "*表[0-9]*" Then
                    GoTo NextPara
                End If
            End If
        End If

        ' 跳过页眉页脚内容
        If para.Range.StoryType <> wdMainTextStory Then GoTo NextPara

        '=========== 正式处理正文引用 ==========='
        Set rng = para.Range

        ' 匹配 [数字]
        With rng.Find
            .ClearFormatting
            .Text = "\[[0-9]{1,3}\]"
            .MatchWildcards = True
            Do While .Execute
                rng.Font.Superscript = True
                rng.Collapse wdCollapseEnd
            Loop
        End With

        ' 匹配 (数字)
        Set rng = para.Range
        With rng.Find
            .ClearFormatting
            .Text = "\([0-9]{1,3}\)"
            .MatchWildcards = True
            Do While .Execute
                rng.Font.Superscript = True
                rng.Collapse wdCollapseEnd
            Loop
        End With

        ' 匹配 （数字） 全角括号
        Set rng = para.Range
        With rng.Find
            .ClearFormatting
            .Text = "（[0-9]{1,3}）"
            .MatchWildcards = True
            Do While .Execute
                rng.Font.Superscript = True
                rng.Collapse wdCollapseEnd
            Loop
        End With

NextPara:
    Next para

    MsgBox "✅ 正文引用已转换为上标（跳过表格、图表标题、脚注与参考文献部分）！"
End Sub