Метод TextRange.Find (PowerPoint)

Находит указанный текст в текстовом диапазоне и возвращает объект TextRange , представляющий первый текстовый диапазон, в котором найден текст. Возвращает значение Nothing, если совпадение не найдено.

Синтаксис

expression. Найти (FindWhat, After, MatchCase, WholeWords)

выражение Переменная, представляющая объект TextRange .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Найти что	Обязательный	String	Текст для поиска.
After	Необязательный	Long	Положение символа (в указанном текстовом диапазоне), после которого требуется выполнить поиск следующего вхождения FindWhat. Например, если вы хотите выполнить поиск из пятого символа текстового диапазона, укажите 4 в поле After. Если этот аргумент опущен, первый символ текстового диапазона используется в качестве отправной точки для поиска.
MatchCase	Необязательный	MsoTriState	msoTrue для поиска, чтобы различать символы в верхнем и нижнем регистрах.
Целое слове	Необязательный	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 и обратная связь.