TextRange.Find-Methode (PowerPoint)

Artikel
04/07/2023

Sucht den angegebenen Text in einem Textbereich und gibt ein TextRange -Objekt, das den ersten Textbereich darstellt, in dem der Text gefunden wird. Gibt Nothing zurück, wenn keine Übereinstimmung gefunden wird.

Syntax

Ausdruck. Suchen (FindWhat, After, MatchCase, WholeWords)

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Findwhat	Erforderlich	String	Der zu suchende Text.
After	Optional	Long	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	MsoTrue für die Suche, damit zwischen Groß-und Kleinschreibung unterschieden.
WholeWords	Optional	MsoTriState	MsoTrue für die Suche, damit nur ganze Wörter und nicht Teile oder längere Wörter sowie zu suchen.

Rückgabewert

TextRange

Beispiel

In diesem Beispiel wird in der aktiven Präsentation nach jedem Vorkommen von "CompanyX" gesucht und dieses fett formatiert.

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

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