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

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

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

必需/可选 指定文本范围内开始搜索下一处 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 
        End If 
TextRange 对象
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。