TextRange.Replace 方法

在文本范围内查找特定文本，用指定的字符串替换查找到的文本，返回代表查找文本的第一处匹配内容的 TextRange 对象。如果找不到匹配的内容，则返回 Nothing。

语法

表达式.Replace(FindWhat, ReplaceWhat, After, MatchCase, WholeWords)

表达式 一个代表 TextRange 对象的变量。

参数

名称	必选/可选	数据类型	描述
FindWhat	必选	String	要搜索的文本。
ReplaceWhat	必选	String	用来替换查找到的文本的文本。
After	可选	Integer	指定文本范围内开始搜索下一处 FindWhat 匹配内容的字符位置。例如，如果要从文本范围的第五个字符开始搜索，则可指定 After 为 4。如果省略此参数，则将文本范围的第一个字符作为搜索的起点。
MatchCase	可选	MsoTriState	确定是否区分大小写。
WholeWords	可选	MsoTriState	确定是否只查找全字匹配的内容。

返回值
TextRange

说明

MsoTriState 可以是下列 MsoTriState 常量之一。

msoCTrue

msoFalse 默认值。

msoTriStateMixed

msoTriStateToggle

msoTrue 区分字符的大小写。

示例

本示例在活动文档内的所有形状中，查找每一处全字匹配“like”的内容，并将其替换为“NOT LIKE”。

示例代码

示例代码
`function ReplaceText() { let oSld = Application.ActivePresentation.Slides.Item(1) for(let i=1;i <= oSld.Shapes.Count;i++) { let oTxtRng = oSld.Shapes.Item(i).TextFrame.TextRange let oTmpRng = oTxtRng.Replace("like","NOT LIKE",undefined,undefined,true) while(oTmpRng != null) { let oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, oTxtRng.Length) let oTmpRng = oTxtRng.Replace("like","NOT LIKE",undefined,undefined,true) } } }`

function ReplaceText() {
    let oSld = Application.ActivePresentation.Slides.Item(1)   
    for(let i=1;i <= oSld.Shapes.Count;i++) {
        let oTxtRng = oSld.Shapes.Item(i).TextFrame.TextRange
        let oTmpRng = oTxtRng.Replace("like","NOT LIKE",undefined,undefined,true)
        while(oTmpRng != null) {
            let oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, oTxtRng.Length)
            let oTmpRng = oTxtRng.Replace("like","NOT LIKE",undefined,undefined,true)
        }
    }
}

请参阅