Word vba将全文中特定字符除所选第一个字符外的内容改为上标，特定字符可输入并替换

以下是 Word VBA 代码，可以将全文中特定字符除所选第一个字符外的内容改为上标，你可以将代码中的 "特定字符" 替换为你想要匹配的字符。你也可以根据需要更改代码中的上标字体样式。

Sub ReplaceAndSuperscript()

    Dim strFind As String
    Dim strReplace As String
    Dim oRange As Range
    Dim oFont As Font
    Dim bFound As Boolean
    
    strFind = "特定字符"
    strReplace = "^&"
    
    Set oRange = ActiveDocument.Content
    
    With oRange.Find
        .Text = strFind
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        .Execute
    End With
    
    While oRange.Find.Found = True
        bFound = False
        Set oFont = oRange.Characters(1).Font
        
        If oRange.Characters.Count > 1 Then
            bFound = True
            oRange.MoveStart wdCharacter, 1
            oRange.MoveEnd wdCharacter, -1
            oRange.Font.Superscript = True
        End If
        
        oRange.Collapse wdCollapseEnd
        
        If Not bFound Then
            oRange.Find.Execute
        End If
    Wend
    
    oFont.Superscript = False
    
End Sub

使用方法：在 Word 中按下 `Alt + F11` 打开 VBA 编辑器窗口，在左侧的项目资源管理器中双击要编辑的文档，然后将代码复制并粘贴到右侧的代码窗口中。将 "特定字符" 替换为你想要匹配的字符，然后按 `F5` 执行代码。