在PowerPoint中选择和删除带有特定文本字符串的文本框

Question

我正在尝试在 powerpoint 中选择一个带有特定单词的文本框并将其删除。文本框出现在演示文稿中的每张幻灯片上，我想删除演示文稿中每张幻灯片上的每个文本框。带有我要删除的单词的文本框中包含单词“Page”。

我尝试使用在互联网上看到的其他一些代码，但是当我运行代码时，演示文稿没有任何反应。想知道要删除的文本框缺少什么？

我已经尝试了一些代码：

Sub deletor()
    On Error Resume Next
    Dim osld As Slide
    Dim L As Long
    For Each osld In ActivePresentation.Slides
        For L = osld.Shapes.Count To 1 Step -1
            If osld.Shapes(L).HasTextFrame Then
                If osld.Shapes(L).TextFrame.HasText Then
                    ' obviously use their address
                    If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("Page") Then
                        osld.Shapes(L).Delete
                    End If
                End If
            End If
        Next
    Next
End Sub

没有错误消息，只是在 excel 中没有操作（带有单词 page 的文本框仍然存在）。这让我假设宏正在运行，但没有做我试图编写的代码。

Answer 1

问题出在一行

If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("Page") Then

Like 运算符使用通配符模式。我猜你想要的模式是

... Like "page*"

或

... Like "*page*"

无需LCase 将您正在编写的字符串作为文字值。