TextRange.Find, méthode (PowerPoint)

Recherche le texte spécifié dans une plage de texte et renvoie un objet TextRange qui représente la première plage de texte où se trouve le texte. Renvoie la valeur Nothing si aucune occurrence n’est trouvée.

Syntaxe

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

expression Variable qui représente un objet TextRange .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
FindWhat	Obligatoire	String	Texte à rechercher.
After	Facultatif	Long	Position du caractère (dans la plage de texte spécifiée) après lequel vous souhaitez rechercher l'occurrence suivante de FindWhat. Par exemple, si vous souhaitez rechercher le cinquième caractère de la plage de texte, affectez la valeur 4 à After. Si cet argument est omis, le premier caractère de la plage de texte sert de point de départ de la recherche.
MatchCase	Facultatif	MsoTriState	msoTrue permet d’effectuer une recherche en tenant compte de la casse des caractères.
WholeWords	Facultatif	MsoTriState	msoTrue permet de ne rechercher que des mots entiers et d’exclure les mots faisant partie de mots plus longs que celui recherché.

Valeur renvoyée

TextRange

Exemple

Cet exemple montre comment rechercher puis mettre en gras toutes les occurrences de « CompanyX » dans la présentation active.

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

Voir aussi

Objet TextRange

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.