Método TextRange.Find (PowerPoint)

Artigo
04/07/2023

Localiza o texto especificado em um intervalo de texto e retorna um objeto TextRange que representa o primeiro intervalo de texto onde o texto é encontrado. Retorna Nothing se nenhuma correspondência for encontrada.

Sintaxe

expressão. Localizar (FindWhat, After, MatchCase, WholeWords)

Expressão Uma variável que representa um objeto TextRange .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Findwhat	Obrigatório	String	O texto a ser pesquisado.
After	Opcional	Long	A posição do caractere (no intervalo de texto especificado) após o qual você deseja pesquisar pela próxima ocorrência do FindWhat. Por exemplo, se deseja pesquisar pelo quinto caractere do intervalo de texto, especifique 4 para After. Se esse argumento for omitido, o primeiro caractere do intervalo de texto será utilizado como o ponto inicial da pesquisa.
MatchCase	Opcional	MsoTriState	msoTrue para a pesquisa distinguir entre caracteres maiúsculos e minúsculos.
Palavras Inteiras	Opcional	MsoTriState	msoTrue para a pesquisa localizar somente palavras inteiras e não partes de palavras maiores também.

Valor de retorno

TextRange

Exemplo

Este exemplo localiza cada ocorrência de "CompanyX" na apresentação ativa e lhe aplica uma formatação em negrito.

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

Confira também

Objeto TextRange

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Share via