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

Question

我有一个很大的 PowerPoint 文件，里面有很多部分，我一直在添加一些。

我正在寻找一种方法来按字母顺序对我的部分进行排序。

我确信使用 VBA 是可行的，但我的知识有限，找不到类似的代码来改编。

非常感谢您的帮助！

Answer 1

这基于经典的数组排序逻辑 - 但应用于部分。

不知道如果你有很多部分，这是否是一个性能问题。

Sub sortSections()

Dim sp As SectionProperties
Set sp = ActivePresentation.SectionProperties

Dim cntSections As Long
cntSections = sp.Count

Dim i As Long, j As Long
For i = 1 To cntSections - 1
    For j = i + 1 To cntSections
        If UCase(sp.Name(i)) > UCase(sp.Name(j)) Then
            sp.Move j, i
        End If
    Next
Next

End Sub

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

Sort sections alphabetically in Powerpoint using VBA

vba

sorting

powerpoint

sections