在MS powerpoint中删除每张幻灯片上的文本框

(1)据我所知，在Powerpoint的VBA中没有全局查找/替换。至少没有用于Find-method的Application-object、Presentation-Object或Slides-或Shapes集合。您的尝试1失败，编译器错误。

(2) Powerpoint不支持通配符或常规expressen搜索。

(3)在您的第二次尝试中，您将在Bold中标记文本，而不是删除形状或形状的文本--如果找到它(没有)。

您将需要遍历所有幻灯片的所有形状，并检查它是否包含特定的文本模式。您的第二次尝试是接近的，但是VBA函数InStr也不适用于通配符。相反，您可以使用VBA Like-operator。

你现在需要决定你想要对这些形状做什么：

O你可以用oSh.Delete完全删除它们

你可以用oSh.Visible = False把它们藏起来

你可以用oSh.TextFrame.TextRange.Characters.Delete删除文本

(4)如果形状是在演示文稿的幻灯片母版上定义的，代码将不会执行任何操作，因为幻灯片上根本不存在形状。在这种情况下，只需编辑幻灯片母版在Powerpoint -不需要代码。

因此，您的代码可能看起来像您的第二次尝试，只需修改内部部分(并决定您要做什么)