使用宏移除PowerPoint中表行的空白

Sub RemoveBlankRows()
    Dim tbl As Table
    Dim i As Integer
    
    ' 遍历每个表格
    For Each tbl In ActivePresentation.Slides(1).Shapes
        If tbl.HasTable Then
            ' 从最后一行开始向上遍历
            For i = tbl.Table.Rows.Count To 1 Step -1
                ' 检查每行是否为空白
                If IsRowBlank(tbl.Table.Rows(i)) Then
                    ' 删除空白行
                    tbl.Table.Rows(i).Delete
                End If
            Next i
        End If
    Next tbl
End Sub

Function IsRowBlank(row As Row) As Boolean
    Dim cell As Cell
    
    ' 遍历每个单元格
    For Each cell In row.Cells
        ' 检查单元格内容是否为空
        If Len(Trim(cell.Shape.TextFrame.TextRange.Text)) > 0 Then
            IsRowBlank = False
            Exit Function
        End If
    Next cell
    
    IsRowBlank = True
End Function