Word宏需求：将页面底部脚注编号设置为上标

问题分析 #

常规宏代码易误将底部脚注的全部文本设为上标，核心原因是未精准区分脚注编号与正文内容的范围。Word脚注对象中，底部脚注的编号位于脚注范围的起始位置，需单独截取该区域设置格式。

宏代码实现 #

Sub SetFootnoteNumbersSuperscript()
    Dim singleFootnote As Footnote
    Dim numberRange As Range
    Dim contentRange As Range
    
    ' 遍历文档中所有脚注
    For Each singleFootnote In ActiveDocument.Footnotes
        ' 复制脚注范围，避免修改原范围的定位偏移
        Set numberRange = singleFootnote.Range.Duplicate
        ' 截取脚注编号部分：默认编号为第一个单词（含后续空格前的内容）
        numberRange.End = numberRange.Words(1).End
        ' 设置编号为上标
        numberRange.Font.Superscript = True
        
        ' 处理脚注文本部分，取消上标（防止误设置）
        Set contentRange = singleFootnote.Range.Duplicate
        contentRange.Start = numberRange.End
        contentRange.Font.Superscript = False
    Next singleFootnote
End Sub

代码说明 #

• 遍历ActiveDocument.Footnotes集合，逐个处理每个脚注
• 通过Duplicate复制脚注范围，避免修改原范围导致的定位偏差
• 利用Words(1)精准截取脚注开头的编号区域（Word默认脚注编号后会跟随一个空格，因此第一个单词即为编号内容）
• 单独设置编号区域为上标，同时取消剩余文本区域的上标属性，确保仅编号生效

内容的提问来源于stack exchange，提问作者HenkrikBenkrik