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

テキストの範囲で特定のテキストを検索して、検出されたテキストを指定された文字列で置き換え、検出されたテキストの最初の出現を表す TextRange オブジェクトを返します。何も検出されなかった場合は Nothing を返します。Finds specific text in a text range, replaces the found text with a specified string, and returns a TextRange object that represents the first occurrence of the found text. Returns Nothing if no match is found.

構文Syntax

expression.expression. Replace( _FindWhat_, _ReplaceWhat_, _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.
replacewhatReplaceWhat 必須Required StringString 見つけたテキストを置換するテキストを指定します。The text you want to replace the found text with.
AfterAfter OptionalOptional 整数Integer 指定したテキスト範囲のどこから引数 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 大文字小文字を区別するかどうかを指定します。Determines whether a distinction is made on the basis of case.
WholeWordsWholeWords OptionalOptional MsoTriStateMsoTriState 完全に一致する単語だけを検索するかどうか指定します。Determines whether only whole words are found.

戻り値Return value

TextRangeTextRange

解説Remarks

_matchcase_パラメーターの値に使用できるのは、次に示すMsoTriStateクラスの定数のいずれかです。The MatchCase parameter value can be one of these MsoTriState constants.

定数Constant 説明Description
msoFalsemsoFalse 既定値です。大文字小文字を区別しません。The default. Does not distinguish between uppercase and lowercase characters.
msoTruemsoTrue 大文字小文字を区別します。Distinguish between uppercase and lowercase characters.

_WholeWords_パラメーターの値に使用できるのは、次に示すMsoTriStateクラスの定数のいずれかです。The WholeWords parameter value can be one of these MsoTriState constants.

定数Constant 説明Description
msoFalsemsoFalse 既定値です。検索されるのは完全に一致する単語だけではありません。The default. Does not find only entire words.
msoTruemsoTrue 完全に一致する単語だけを検索します。Finds only entire words.

Example

次の使用例は、作業中のプレゼンテーションのすべての図形で、"like" と完全に一致するすべての単語を "NOT LIKE" に置き換えます。This example replaces every whole-word occurrence of "like" in all of the shapes in the active presentation with "NOT LIKE".

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

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