请问word怎么录制宏，想找到word当中所有的上标怎样录制宏呢？

o0star0o

1、点击查找

2、点击更多按钮

3、点击格式下拉列表——选择字体

4、只勾选上标，点击确定。

5、点击【在以下项中查找】下拉列表——选择主文档

6、此时查找出文档中所有的上标。

我想把这个步骤录制一个宏，这个word好像和Excel不一样，录制了没有反映，请问：

2.这个找到所有上标的功能，怎么用宏实现，并发放到word上面一个按钮每次点击下就可以了，这个怎么实现呢？

daibao88

自己搜索帮助文件吧   find  Font.Superscript

413191246se

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.                 .Font.Superscript = False '取消上标
    
11.                 .Start = .End
    
12.             End With
    
13.         Loop
    
14.     End With
    
15. End Sub

复制代码

413191246se

宏的快捷键（热键）自定义方法：
工具菜单——自定义——键盘——类别：找到“宏”——宏：找到“test取消上标”宏——请按新快捷键框内点击一下光标——按F4键（假设想设置快捷键为F4）——按“指定”——关闭——关闭——OK——以后按F4键即可自动执行“test取消上标”宏（在设定快捷键时也可以按比如 Alt+F2 或CTRL+ALT+F4组合键）。

o0star0o

413191246se 发表于 2019-4-28 13:51

哥们，你这个宏我运行不对呢，我只需要按下快捷键，可以定位到上标的位置“阅读突出显示”下

413191246se

楼主，你找到上标想干什么呢？我的代码一步到位了。