Find Method

Microsoft PowerPoint Visual Basic

Show All

Find Method

       

Finds the specified text in a text range, and returns a TextRange object that represents the first text range where the text is found. Returns Nothing if no match is found.

expression.Find(FindWhat, After, MatchCase, WholeWords)

expression   Required. An expression that returns a TextRange object.

FindWhat   Required String. The text to search for.

After   Optional Long. The position of the character (in the specified text range) after which you want to search for the next occurrence of FindWhat. For example, if you want to search from the fifth character of the text range, specify 4 for After. If this argument is omitted, the first character of the text range is used as the starting point for the search.

MatchCase  Optional MsoTriState. MsoTrue for the search to distinguish between uppercase and lowercase characters.

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse Default.
msoTriStateMixed
msoTriStateToggle
msoTrue Search matches the case of the letters in the FindWhat argument.

WholeWords  Optional MsoTriState. MsoTrue for the search to find only whole words and not parts of larger words as well.

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse Default.
msoTriStateMixed
msoTriStateToggle
msoTrue Search finds only whole words, not parts of larger words.

Example

This example finds every occurrence of "CompanyX" in the active presentation and formats it as bold.

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