Word vba全文m2中2上标，替换位置可输入

您可以使用下面的代码以 VBA 替换 Word 文档中的所有 M2 中的数字为上标：

Sub ReplaceM2WithSuperscript()
    Dim rng As Range
    Set rng = ActiveDocument.Range
    
    With rng.Find
        .ClearFormatting
        .Text = "m2([0-9]{1,})"
        .MatchWildcards = True
        
        Do While .Execute(Forward:=True)
            rng.Collapse wdCollapseEnd
            rng.MoveStartUntil " ", wdBackward
            rng.MoveStart wdCharacter, 1
            
            rng.Collapse wdCollapseEnd
            rng.MoveEndUntil " ", wdForward
            rng.MoveEnd wdCharacter, -1
            
            rng.Font.Superscript = True
        Loop
    End With
End Sub

该代码会在文档中搜索所有 `m2` 后跟一个或多个数字的文本，并将其转换为上标格式。您可以将 "m2" 替换为您需要查找的文本。替换位置可以根据需要进行更改。