TextRange.Replace メソッド (PowerPoint)

テキストの範囲で特定のテキストを検索して、検出されたテキストを指定された文字列で置き換え、検出されたテキストの最初の出現を表す TextRange オブジェクトを返します。 何も検出されなかった場合は Nothing を返します。

構文

式。Replace (FindWhat、 ReplaceWhat、 After、 MatchCase、 WholeWords)

式TextRange オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
FindWhat	必須	文字列型 (String)	検索するテキストを指定します。
ReplaceWhat	必須	文字列型 (String)	見つけたテキストを置換するテキストを指定します。
After	省略可能	整数型 (Integer)	指定したテキスト範囲のどこから引数 FindWhat の内容を検索するか、その文字の位置を指定します。 たとえば、テキスト範囲の 5 番目の文字から検索するには、引数 After には 4 を指定します。 この引数を省略するとテキスト範囲の先頭から検索を開始します。
MatchCase	省略可能	MsoTriState	大文字小文字を区別するかどうかを指定します。
WholeWords	省略可能	MsoTriState	完全に一致する単語だけを検索するかどうか指定します。

戻り値

TextRange

注釈

MatchCase パラメーターの値に使用できるのは、次に示す MsoTriState クラスの定数のいずれかです。

定数	説明
msoFalse	既定値です。 大文字小文字を区別しません。
msoTrue	大文字小文字を区別します。

WholeWords パラメーターの値に使用できるのは、次に示す MsoTriState クラスの定数のいずれかです。

定数	説明
msoFalse	既定値です。 検索されるのは完全に一致する単語だけではありません。
msoTrue	完全に一致する単語だけを検索します。

例

次の使用例は、作業中のプレゼンテーションのすべての図形で、"like" と完全に一致するすべての単語を "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

関連項目

TextRange オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。