请问word宏怎么让上标格式的显示为绿色

o0star0o

全文中所有

这种括号内，为上标格式的，显示为绿色

daibao88

查找替换 格式 就行，何必劳烦宏

o0star0o

daibao88 发表于 2022-2-10 17:42
查找替换 格式 就行，何必劳烦宏

需要用宏哈，您会吗？宏方便点，之前有个宏，但是会把全部上标的弄成绿色，只需要

这些上标改成绿色含[]

1. Sub 上标_突出显示()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = ""
   
5.         .Font.Superscript = True '上标
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             With .Parent
   
10.                 .HighlightColorIndex = wdBrightGreen '突出显示（鲜绿色）
    
11.                 .Start = .End
    
12.             End With
    
13.         Loop
    
14.     End With
    
15. End Sub

复制代码

zhanglei1371

没有测试，有问题自己修改下：
Sub 上标_突出显示()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "\[[0-9]@\]"
        .Font.Superscript = True '上标
        .Forward = True
        .MatchWildcards = True
        Do While .Execute
            With .Parent
                .HighlightColorIndex = wdBrightGreen '突出显示（鲜绿色）
                .Start = .End
            End With
        Loop
    End With
End Sub

o0star0o

zhanglei1371 发表于 2022-2-15 12:06
没有测试，有问题自己修改下：
Sub 上标_突出显示()
    With ActiveDocument.Content.Find

感谢回复，您的代码运行没问题，但是有一个情况，就是有[1-2]和[3-4]类似的这种里面有-的，您看怎么能把这种也包含进去呢？

zhanglei1371

o0star0o 发表于 2022-2-15 16:25
感谢回复，您的代码运行没问题，但是有一个情况，就是有[1-2]和[3-4]类似的这种里面有-的，您看怎么能把 ...

[1-2]对应的表达式为：\[[0-9]@\-[0-9]@\]，仅仅这对这种情况。使用这个需要单独复制一遍代码，修改这个地方。
同时兼容两者的表达式为：\[[0-9\-]@\]，但是可能出现匹配意外。