查找替换问题

tjshenjian

麻烦各位大神帮忙教教我怎样批量把部分数字变成角标格式，先谢谢了具体要求见附件：
查找替换.rar (11.02 KB, 下载次数: 12)

2019-10-26 10:55 上传

点击文件名下载附件

cuanju

请测试代码。
===============================================
Sub dm1()
ActiveDocument.Content.Find.Execute FindText:="(AA)0", ReplaceWith:="\1", Replace:=wdReplaceAll, MatchWildcards:=True
    ActiveDocument.Content.Font.Underline = wdUnderlineNone
    With ActiveDocument.Content.Find
        .MatchWildcards = True
        .Text = "AA[0-9]{1,}"
        Do While .Execute
            With .Parent
                .Start = .Start + 2
                .Font.Subscript = wdToggle
                .Start = .End
            End With
        Loop
    End With
End Sub

413191246se

cuanju 朋友，虽是新人，但很高产！