Question

我有一个非常大的Power Point文件，我必须在10个子文件中分解。我将幻灯片移动到新的空白演示文稿中，一切都很好，只是部分保留在那里，我必须逐个删除它们。

有没有办法快速删除空白部分？

Answer 1

此功能应该有效：

Function DeleteEmptySections(oPres As Presentation)
  Dim lSP As Long
  With oPres.SectionProperties
    For lSP = .Count To 1 Step -1
        If .SlidesCount(lSP) = 0 Then
            .Delete lSP, True
        End If
    Next
  End With
End Function

或使用Sub来测试ActivePresentation：

Sub DeleteEmptySectionInCurPres()
   Call DeleteEmptySections(ActivePresentation)
End Sub

Answer 2

您可以使用SectionProperties集合向后循环删除任何没有幻灯片的部分：

Sub DeleteEmptySections()
  Dim lSP as Long
  With ActivePresentation.SectionProperties
    For lSP = .Count to 1 Step -1
      If .SlidesCount = 0 Then .Delete
    Next
  End With
End Sub

如何删除Power Point

2 个答案: