Power Point VBA扩展

Question

如果句子中出现某个单词，我想选择一个句子（完整的行）。

例如：

句子：你好我的名字是vinod。我来自海德拉巴。

程序： 如果在句子中找到单词hello。 打印完整的句子“你好我的名字是vinod。我来自海德拉巴。”

我找到了一个在单词VBA中使用Extends的程序。 我想对Power Point使用相同的功能。 这是参考代码的链接

Extract sentences containing a specific word to excel file

Answer 1

您可以使用Sentences

的TextRange属性

Dim sld As Slide, shp As Shape, sentence As TextRange
For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasTextFrame Then
            For Each sentence In shp.TextFrame.TextRange.Sentences
                If Not sentence.Find("hello", , , msoTrue) Is Nothing Then
                    Debug.Print sentence ' <-- do the action you want on the sentence
                End If
            Next
        End If
    Next
Next