如何检查PowerPoint演示幻灯片上是否存在只有一行的表格以及如何删除包含该表格的幻灯片？

Question

有PowerPoint演示。我需要搜索包含由一行组成的表的幻灯片并删除此类幻灯片。怎么办？

附注我很抱歉问了这么愚蠢的问题，伙计们，但是有一个项目（大约 50 000 行）充满了不是我编写的 sh*tty 代码。该程序生成演示文稿。我发现了大约 3 个导致此类幻灯片出现在演示文稿中的原因，并将其全部修复。演示文稿中仍然存在这样的幻灯片，我需要快速解决问题（

Answer 1

类似这样的：

Sub DeleteOneRowTables()

Dim oSh As Shape
Dim x As Long
Dim oSl As Slide

For Each oSl In ActivePresentation.Slides

    For x = oSl.Shapes.Count To 1 Step -1
        With oSl.Shapes(x)
            If .HasTable Then
                If .Table.Rows.Count = 1 Then
                    .Delete
                End If  ' Rows count
            End If  ' has table
        End With
    Next    ' x

Next    ' Slide

End Sub