TextRange.Replace-Methode (PowerPoint)

Artikel
09/17/2024

Sucht nach bestimmten Text in einem Textbereich, ersetzt den gefundenen Text durch eine angegebene Zeichenfolge und gibt ein TextRange -Objekt, das das erste Auftreten des den gefundenen Text darstellt. Gibt Nothing zurück, wenn keine Übereinstimmung gefunden wird.

Syntax

Ausdruck. Replace (FindWhat, ReplaceWhat, After, MatchCase, WholeWords)

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SuchenWas	Erforderlich	String	Der zu suchende Text.
ErsetzenWas	Erforderlich	String	Der Text, durch den der gefundene Text ersetzt werden soll.
After	Optional	Integer	Die Position des Zeichens (in dem angegebenen Textbereich), nach dem Sie für das nächste Vorkommen des FindWhat suchen möchten. Wenn Sie mit dem fünften Zeichen des Textbereichs suchen möchten, geben Sie 4 für After fest. Wenn dieses Argument ausgelassen wird, wird das erste Zeichen des Textbereichs als Ausgangspunkt für die Suche verwendet.
MatchCase	Optional	MsoTriState	Bestimmt, ob auf der Basis von Groß-/Kleinschreibung unterschieden werden soll.
WholeWords	Optional	MsoTriState	Bestimmt, ob nur nach ganzen Wörtern gesucht wird.

Rückgabewert

TextRange

Hinweise

Der Wert des MatchCase-Parameters kann eine der folgenden MsoTriState-Konstanten sein:

Konstante	Beschreibung
msoFalse	Standardwert. Unterscheidet nicht zwischen Groß- und Kleinschreibung.
msoTrue	Unterscheidet zwischen Groß- und Kleinschreibung.

Der Wert des WholeWords-Parameters kann eine der folgenden MsoTriState-Konstanten sein:

Konstante	Beschreibung
msoFalse	Standardwert. Sucht nicht nur nach ganzen Wörtern.
msoTrue	Sucht nur nach ganzen Wörtern.

Beispiel

In diesem Beispiel wird in allen Formen der aktiven Präsentation jedes Vorkommen von "like" als ganzes Wort durch "NOT LIKE" ersetzt.

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

Siehe auch

TextRange-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über