TextRange.Find 方法 (PowerPoint)

文本区域中查找指定的文本，并返回 TextRange 对象，该对象表示在其中找到该文本的第一个文本范围。 如果未找到匹配，则返回 Nothing 。

语法

表达式。查找 (FindWhat、 After、 MatchCase、 WholeWords)

表达 一个代表 TextRange 对象的变量。

参数

名称	必需/可选	数据类型	说明
FindWhat	必需	String	要搜索的文本。
After	可选	Long	指定文本范围内开始搜索下一处 FindWhat 匹配内容的字符位置。 例如，如果要从文本范围的第五个字符开始搜索，则可指定 After 为 4。 如果省略此参数，则将文本范围的第一个字符作为搜索的起点。
MatchCase	可选	MsoTriState	区分大写和小写字符搜索的 属性值为 msoTrue 。
WholeWords	可选	MsoTriState	搜索仅查找整个词，而不包括较长单词的一部分， 则值为 msoTrue 。

返回值

TextRange

示例

本示例在当前演示文稿中查找所有“CompanyX”字符串，并将其格式设为加粗。

For Each sld In Application.ActivePresentation.Slides 
    For Each shp In sld.Shapes 
        If shp.HasTextFrame Then 
            Set txtRng = shp.TextFrame.TextRange 
            Set foundText = txtRng.Find(FindWhat:="CompanyX") 
            Do While Not (foundText Is Nothing) 
                With foundText 
                    .Font.Bold = True 
                    Set foundText = _ 
                        txtRng.Find(FindWhat:="CompanyX", _ 
                        After:=.Start + .Length - 1) 
                End With 
            Loop 
        End If 
    Next 
Next

另请参阅

TextRange 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。