如果选中的区域中的尾注的起始号码不是 1,则本示例将其设为 1。

With Selection.EndnoteOptions
    If .StartingNumber <> 1 Then
        .StartingNumber = 1
    End If
End With