TextRange メソッド (PowerPoint)TextRange.Find method (PowerPoint)

指定されたテキスト範囲を検索し、最初に見つかったテキスト範囲を表す TextRange オブジェクトを返します。一致するテキストが見つからない場合は、 Nothing を返します。Finds the specified text in a text range, and returns a TextRange object that represents the first text range where the text is found. Returns Nothing if no match is found.

構文Syntax

expression.expression. Find( _FindWhat_, _After_, _MatchCase_, _WholeWords_ )

TextRangeオブジェクトを表す変数を取得します。expression A variable that represents a TextRange object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
FindWhatFindWhat 必須Required StringString 検索するテキストを指定します。The text to search for.
AfterAfter OptionalOptional 長整数型 (Long)Long 指定したテキスト範囲のどこから引数 FindWhat の内容を検索するか、その文字の位置を指定します。たとえば、テキスト範囲の 5 番目の文字から検索するには、引数 After には 4 を指定します。この引数を省略するとテキスト範囲の先頭から検索を開始します。The position of the character (in the specified text range) after which you want to search for the next occurrence of FindWhat. For example, if you want to search from the fifth character of the text range, specify 4 for After. If this argument is omitted, the first character of the text range is used as the starting point for the search.
MatchCaseMatchCase OptionalOptional MsoTriStateMsoTriState
大文字と小文字を区別して検索を実行するには、**msoTrue** を設定します。msoTrue for the search to distinguish between uppercase and lowercase characters.
WholeWordsWholeWords OptionalOptional MsoTriStateMsoTriState
単語の一部ではなく単語全体に一致した内容だけを検索するには、**msoTrue** を設定します。msoTrue for the search to find only whole words and not parts of larger words as well.

戻り値Return value

TextRangeTextRange

Example

次の使用例は、作業中のプレゼンテーションで、"CompanyX" と完全に一致する単語をすべて検索し、太字として書式設定します。This example finds every occurrence of "CompanyX" in the active presentation and formats it as bold.

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

関連項目See also

TextRange オブジェクトTextRange Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.