如何使用VBA在PowerPoint中按字母顺序对章节进行排序

使用前注意 #

• 运行代码前务必备份原PPT文件，避免排序逻辑不符合预期导致原有章节结构丢失
• 代码按章节名称的拼音/英文字母不区分大小写升序排列，若存在未命名的空白章节会自动跳过
• 适配PowerPoint 2016及以上版本，低版本可能存在兼容性问题

完整VBA代码 #

Sub SortSectionsAlphabetically()
    Dim secCount As Integer
    Dim i As Integer, j As Integer
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    ' 获取当前PPT总章节数
    secCount = ActivePresentation.Sections.Count
    ' 冒泡排序章节
    For i = 1 To secCount - 1
        For j = i + 1 To secCount
            ' 不区分大小写对比章节名称
            If UCase(ActivePresentation.Sections.Name(j)) < UCase(ActivePresentation.Sections.Name(i)) Then
                ' 将排序靠前的章节移动到对应位置
                ActivePresentation.Sections.MoveTo j, i
            End If
        Next j
    Next i
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    ' 弹出完成提示
    MsgBox "章节按字母排序完成！", vbInformation
End Sub

操作步骤 #

• 打开需要排序的PPT文件，按下Alt + F11唤出VBA编辑器
• 在左侧工程资源管理器中右键点击你的PPT文件名，依次选择「插入」→「模块」
• 将上述代码完整粘贴到右侧弹出的空白代码编辑窗口
• 按下F5运行代码，看到排序完成的提示弹窗后关闭VBA编辑器即可

常见问题 #

运行代码提示「宏已被禁用」？
打开「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，临时选择「启用所有宏」即可运行，运行完成后可改回原有设置。如果需要频繁排序，建议将文件另存为.pptm启用宏格式，无需每次调整宏设置。
后续新增章节后要重新排序怎么办？
无需重复添加代码，直接打开VBA编辑器找到之前插入的模块，按下F5重新运行即可。

内容的提问来源于stack exchange，提问作者Clemleb