在Powerpoint中使用VBA按字母顺序对节进行排序

Sub SortSectionsAlphabetically()
    Dim i As Long
    Dim j As Long
    Dim sectionCount As Long
    Dim sectionNames() As String
    
    ' 获取节的数量
    sectionCount = ActivePresentation.SectionProperties.Count
    
    ' 存储节名称到数组中
    ReDim sectionNames(1 To sectionCount)
    For i = 1 To sectionCount
        sectionNames(i) = ActivePresentation.SectionProperties.Name(i)
    Next i
    
    ' 使用冒泡排序对节名称进行排序
    For i = 1 To sectionCount - 1
        For j = i + 1 To sectionCount
            If StrComp(sectionNames(i), sectionNames(j), vbTextCompare) > 0 Then
                SwapElements sectionNames, i, j
            End If
        Next j
    Next i
    
    ' 对节进行重新排序
    ActivePresentation.SectionProperties.Rename sectionNames()
    
    ' 提示排序完成
    MsgBox "节已按字母顺序排序。"
End Sub

Sub SwapElements(arr() As String, index1 As Long, index2 As Long)
    Dim temp As String
    
    temp = arr(index1)
    arr(index1) = arr(index2)
    arr(index2) = temp
End Sub