TextRange.Replace, méthode (PowerPoint)

Recherche un texte précis dans une plage de texte, remplace le texte trouvé par une chaîne spécifiée, puis renvoie un objet TextRange représentant la première occurrence du texte trouvé. Renvoie la valeur Nothing si aucune occurrence n’est trouvée.

Syntaxe

expression. Replace (FindWhat, ReplaceWhat, 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.
ReplaceWhat	Obligatoire	String	Texte de remplacement.
After	Facultatif	Integer	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	Détermine si la recherche doit tenir compte de la casse.
WholeWords	Facultatif	MsoTriState	Détermine si la recherche doit porter uniquement sur des mots entiers.

Valeur renvoyée

TextRange

Remarques

La valeur du paramètre MatchCase peut être l’une de ces constantes MsoTriState.

Constante	Description
msoFalse	Valeur par défaut. Ne fait pas la distinction entre les majuscules et les minuscules.
msoVrai	Fait la distinction entre les majuscules et les minuscules.

La valeur du paramètre WholeWords peut être l’une de ces constantes MsoTriState.

Constante	Description
msoFalse	Valeur par défaut. Ne recherche pas uniquement les mots complets.
msoVrai	Recherche uniquement les mots complets.

Exemple

Cet exemple montre comment remplacer toutes les occurrences du mot « like », pris en entier, par « NOT LIKE » dans toutes les formes de la présentation active.

Sub ReplaceText()

    

    Dim oSld As Slide

    Dim oShp As Shape

    Dim oTxtRng As TextRange

    Dim oTmpRng As TextRange

     

    Set oSld = Application.ActivePresentation.Slides(1)

    

    For Each oShp In oSld.Shapes

        Set oTxtRng = oShp.TextFrame.TextRange

        Set oTmpRng = oTxtRng.Replace(FindWhat:="like", _
            Replacewhat:="NOT LIKE", WholeWords:=True)

        Do While Not oTmpRng Is Nothing
            Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
                oTxtRng.Length)

            Set oTmpRng = oTxtRng.Replace(FindWhat:="like", _
                Replacewhat:="NOT LIKE", WholeWords:=True)
        Loop

    Next oShp



End Sub

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.