使用下面的ＶＢＡ代码，可以让你在ＰＰＴ中，删除没有内容的文本框。
Dim found As Boolean
Do
found = False
For Each Sld In ActivePresentation.Slides
For Each shp In Sld.Shapes
If shp.HasTextFrame Then
If shp.Type 1 Then
If Not shp.TextFrame.HasText Then
ActiveWindow.View.GotoSlide Index:=shp.Parent.SlideIndex
shp.Select
shp.Delete
found = True
End If
End If
End If
Next shp
Next Sld
Loop While found = True
上面的代码你可以自己建立一个宏，将其放在宏内使用即可。
