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

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


検索(FindWhatAftermatchcaseWholeWords)expression.Find (FindWhat, After, MatchCase, WholeWords)

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


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
FindWhatFindWhat 必須Required StringString 検索するテキストを指定します。The text to search for.
AfterAfter 省略可能Optional LongLong 指定したテキスト範囲のどこから引数 FindWhat の内容を検索するか、その文字の位置を指定します。The position of the character (in the specified text range) after which you want to search for the next occurrence of FindWhat. たとえば、テキスト範囲の 5 番目の文字から検索するには、引数 After には 4 を指定します。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 省略可能Optional MsoTriStateMsoTriState 大文字と小文字を区別して検索を実行するには、 msoTrue を設定します。msoTrue for the search to distinguish between uppercase and lowercase characters.
WholeWordsWholeWords 省略可能Optional MsoTriStateMsoTriState 単語の一部ではなく単語全体に一致した内容だけを検索するには、 msoTrue を設定します。msoTrue for the search to find only whole words and not parts of larger words as well.

戻り値Return value



次の使用例は、作業中のプレゼンテーションで、"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 
        End If 

関連項目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.