Word VBA:转换页脚/页眉中的上标

Sub ConvertSuperscriptInHeaderFooter()
    Dim sec As Section
    Dim hf As HeaderFooter
    Dim rng As Range
    
    ' 循环遍历文档中的每个节
    For Each sec In ActiveDocument.Sections
        ' 遍历每个节的页眉和页脚
        For Each hf In sec.Headers
            ' 获取页眉/页脚的范围
            Set rng = hf.Range
            ' 设置查找格式为上标
            rng.Find.Font.Superscript = True
            ' 循环查找并替换上标为普通文本
            Do While rng.Find.Execute
                rng.Font.Superscript = False
            Loop
        Next hf
    Next sec
End Sub