请问word2007怎么实现把所有文献上标改个颜色

o0star0o

就是这个效果，1点击下宏，就把所有格式为上标的刷成黄颜色，2然后加个宏，点击一下取消颜色
就
有会用word宏的大神，求弄下
上标word.zip (10.16 KB, 下载次数: 9)

2019-4-30 17:21 上传

点击文件名下载附件

daibao88

[]及内部数字改为上标吧，查找替换不行吗？
                                                                    改颜色，格式设置增加颜色

413191246se

* 楼主，虽然你上一个帖子未采用我的代码，但是这个帖子我还是请你试试下面的代码（快捷键请自己定义吧，最好是一个是 F7，一个是 F8）：

1. Sub test上标_突出显示()
   
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 = wdYellow '突出显示（黄色）
    
11.                 .Font.Color = wdColorRed '红色（本行代码可删除）
    
12.                 .Start = .End
    
13.             End With
    
14.         Loop
    
15.     End With
    
16. End Sub
    
17. Sub test上标_取消突出显示()
    
18.     With Selection
    
19.         .WholeStory
    
20.         .Range.HighlightColorIndex = wdNoHighlight
    
21.         .HomeKey Unit:=wdStory
    
22.     End With
    
23. End Sub

复制代码

jiangxiaoyun

https://mp.weixin.qq.com/s?__biz ... 5&lang=zh_CN#rd