在一个文本范围内查找指定的文本，并返回
TextRange
对象，该对象代表在其中找到指定的文本的第一个文本范围。如果找不到指定的文本，则返回
Nothing。
语法
表达式.Find(FindWhat, After,
MatchCase, WholeWords)
表达式 一个代表 TextRange 对象的变量。
参数
| 名称 |
必选/可选 |
数据类型 |
描述 |
| FindWhat |
必选 |
String |
要搜索的文本。 |
| After |
可选 |
Long |
指定文本范围内的字符位置，将从该字符开始搜索下一处 FindWhat 匹配内容。例如，如果要从文本范围的第五个字符开始搜索，可指定
After 为 4。如果忽略该参数，则将文本范围的第一个字符作为搜索的起始点。 |
| MatchCase |
可选 |
MsoTriState |
如果此属性为 MsoTrue，则搜索时区分字符的大小写。 |
| WholeWords |
可选 |
MsoTriState |
如果此属性为 MsoTrue，则搜索时仅查找整个词，而不搜索较长单词的部分字符。 |
返回值
TextRange
示例
本示例在当前演示文稿中查找所有“CompanyX”字符串，并将其格式设为加粗。
| 示例代码 |
for(let i=1;i <= Application.ActivePresentation.Slides.Count;i++) {
let sli = Application.ActivePresentation.Slides
for(let j=1;j <= sli.Item(i).Shapes.Count;j++) {
if(sli.Item(i).Shapes.Item(j).HasTextFrame) {
let txtRng = sli.Item(i).Shapes.Item(j).TextFrame.TextRange
let foundText = txtRng.Find("CompanyX")
while(foundText != null) {
foundText.Font.Bold = true
let foundText = txtRng.Find("CompanyX", foundText.Start + foundText.Length-1)
}
}
}
}
|