Table of contents
TOC
Réduire la table des matières
Développer la table des matières

TextRange.Replace, méthode (PowerPoint)

office 365 dev account|Dernière mise à jour: 04/10/2017
|
1 Contributeur

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

NomObligatoire/FacultatifType de donnéesDescription
FindWhatObligatoireStringTexte à rechercher.
ReplaceWhatObligatoireStringTexte de remplacement.
AfterFacultatifIntegerPosition 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.
MatchCaseFacultatifMsoTriStateDétermine si la recherche doit tenir compte de la casse.
WholeWordsFacultatifMsoTriStateDé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.

ConstanteDescription
msoFalseValeur par défaut. Ne fait pas la distinction entre les majuscules et les minuscules.
msoTrueFait la distinction entre les majuscules et les minuscules.

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

ConstanteDescription
msoFalseValeur par défaut. Ne recherche pas uniquement les mots complets.
msoTrueRecherche 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

Concepts

Objet TextRange

Autres ressources

© 2018 Microsoft