样式格窗调整顺序

Sub 调整样式顺序()

    Dim myStyle As Style
    Dim SetStyleArr As Variant
    Dim SetStyle As Variant
    Dim NewStyleLevel As Long

    ' 样式优先级设置 (样式名称, 优先级)
    SetStyleArr = Array( _
                  Array("标题 1", 1), _
                  Array("标题 2", 2), _
                  Array("标题 3", 3), _
                  Array("正文文本", 4), _
                  Array("题注", 5))

    ' 将原有优先级 1 级修改为 10 级（可调整）
    NewStyleLevel = 9 '（建议不要使用 10，Word 通常支持 1-9）

    ' 遍历所有样式，将原优先级为 1 的调整为 NewStyleLevel
    For Each myStyle In ActiveDocument.Styles
        If myStyle.Priority = 1 Then myStyle.Priority = NewStyleLevel
    Next myStyle

    ' 重新设置指定样式的优先级
    For Each SetStyle In SetStyleArr
        Call SetStyleOrder(SetStyle(0), SetStyle(1))
    Next SetStyle

    ' 释放对象
    Set myStyle = Nothing

    MsgBox "