PowerPoint) (TextRange.Replace 方法

找到特定的文字範圍中的文字、 找到的文字取代為指定的字串，並傳回 TextRange 物件，代表找到的文字的第一個找到。 會傳回 Nothing 如果找到不相符。

語法

運算式。取代 (FindWhat、 ReplaceWhat、 After、 MatchCase、 WholeWords)

表達 代表 TextRange 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
FindWhat	必要	String	要搜尋的文字。
ReplaceWhat	必要	String	您想要用來取代找到之文字的文字。
After	選用	Integer	要在其後開始搜尋下一個 FindWhat 的字元位置 (在指定的文字範圍中)。 例如，如果要從文字範圍的第五個字元開始搜尋，請指定 4 當做 After 的值。 如果省略此引數，就會以文字範圍的第一個字元做為搜尋的起始點。
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 支援與意見反應。