调整about标题的顺序

Sub 调整about标题的顺序()
'
' 调整about标题的顺序 宏
'
'
    Result = select_range("about配置文件", "实战：远程巡检希沃一体机的运行信息")
    If (Result) Then
        Selection.SortByHeadings wdSortFieldSyllable, wdSortOrderAscending
    Else
        MsgBox ("选定失败，无法排序。")
    End If
End Sub