PowerPoint VBA：如何在各节末尾添加幻灯片？代码异常求助

原代码的问题出在处理顺序和位置计算逻辑上：当先给第一节添加幻灯片后，第二节的起始幻灯片编号会被新增幻灯片挤后，导致后续计算第二节末尾位置时出错；同时Slides.Add的位置参数使用节内幻灯片数+1是错误的，这个参数需要的是整个演示文稿中的绝对位置。

修正后的代码如下，核心改动是从最后一个节往前处理，避免新增幻灯片影响未处理节的位置计算，同时直接计算每个节的绝对末尾位置来添加幻灯片：

Sub AddSlidesAtEndOfSection()
    Dim PowerPointApp As Object
    Dim myPresentation As Object
    Dim mySlide As Slide
    Dim SecNum As Integer
    Dim lastSlideInSection As Integer

    ' 创建或获取PowerPoint实例
    On Error Resume Next
    Set PowerPointApp = GetObject(class:="PowerPoint.Application")
    Err.Clear

    If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
    
    If Err.Number = 429 Then
        MsgBox "未找到PowerPoint程序，操作终止。"
        Exit Sub
    End If
    On Error GoTo 0

    ' 获取或新建演示文稿
    If PowerPointApp.Presentations.Count = 0 Then
        Set myPresentation = PowerPointApp.Presentations.Add
        With myPresentation
            .PageSetup.SlideWidth = 8.5 * 72
            .PageSetup.SlideHeight = 11 * 72
            .SectionProperties.AddSection 1, "第一节"
            .SectionProperties.AddSection 2, "第二节"
        End With
    Else
        Set myPresentation = PowerPointApp.ActivePresentation
    End If

    ' 从最后一个节往前处理，避免新增幻灯片影响前面节的位置
    For SecNum = myPresentation.SectionProperties.Count To 1 Step -1
        With myPresentation.SectionProperties
            ' 计算当前节的最后一张幻灯片的绝对位置
            lastSlideInSection = .FirstSlide(SecNum) + .SlidesCount(SecNum) - 1
        End With
        
        ' 在节的末尾添加空白幻灯片（位置设为lastSlideInSection + 1）
        Set mySlide = myPresentation.Slides.Add(lastSlideInSection + 1, ppLayoutBlank)
        
        ' 将幻灯片分配到当前节，确保归属正确
        mySlide.SectionIndex = SecNum
    Next
End Sub

关键改动说明： #

• 反向循环处理节：从最后一个节开始往前遍历，新增幻灯片不会改变未处理节的起始位置和幻灯片计数，避免位置计算错误。
• 正确计算节末尾的绝对位置：用FirstSlide(SecNum)获取节的第一张幻灯片绝对编号，加上节内幻灯片数再减1，得到节的最后一张幻灯片位置，新增幻灯片放在该位置的下一位。
• 直接设置幻灯片的节归属：通过mySlide.SectionIndex = SecNum确保新增幻灯片属于目标节，无需复杂的移动操作。

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