请问word怎么用宏，把脚注的123修改为上标格式

o0star0o

脚注，鼠标放在1上面会显示脚注内容，1应该是脚注的格式，请问怎么用宏把正文的全部1234....99，修改为上标格式，有大神能实现吗？

蜀中草莽

不用宏的方法可以不？

打开查找替换  查找框输入  ^f    在主文档中查找   然后设为上标

o0star0o

蜀中草莽 发表于 2022-5-3 15:46
不用宏的方法可以不？

打开查找替换  查找框输入  ^f    在主文档中查找   然后设为上标

1. Sub 宏1()
   
2. '
   
3. ' 上标一把脚注的改为上标格式
   
4. '
   
5. '
   
6.     Selection.Find.ClearFormatting
   
7.     Selection.Find.Replacement.ClearFormatting
   
8.     With Selection.Find.Replacement.Font
   
9.         .Superscript = True
   
10.         .Subscript = False
    
11.     End With
    
12.     With Selection.Find
    
13.         .Text = "^f"
    
14.         .Replacement.Text = ""
    
15.         .Forward = True
    
16.         .Wrap = wdFindContinue
    
17.         .Format = True
    
18.         .MatchCase = False
    
19.         .MatchWholeWord = False
    
20.         .MatchByte = True
    
21.         .MatchWildcards = False
    
22.         .MatchSoundsLike = False
    
23.         .MatchAllWordForms = False
    
24.     End With
    
25.     Selection.Find.Execute Replace:=wdReplaceAll
    
26. End Sub

复制代码

自己录了个宏，可以了

蜀中草莽

o0star0o 发表于 2022-5-3 16:07
自己录了个宏，可以了

非要用宏 这个拿去
Sub 脚()
    Dim jz As Footnote
    For Each jz In ActiveDocument.Footnotes
        jz.Reference.Font.Superscript = True
    Next
End Sub