说明

以下示例说明如何执行下列操作：

• 返回任意指定形状中的文本范围。
• 返回选定范围中的文本范围。
• 返回文本范围中的特定字符、单词、行、句子或段落。
• 查找和替换文本范围内的文本。
• 向文本范围中插入文本、日期和时间或幻灯片编号。
• 将光标定位到文本范围内所需的任意位置。

示例

使用 TextFrame 对象的 TextRange 属性返回任意指定形状的 TextRange 对象。使用 Text 属性返回 TextRange 对象中的文本字符串。以下示例向 myDocument 中添加一个矩形并设置其包含的文本。

let myDocument = ActivePresentation.Slides.Item(1)
myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame.TextRange.Text = "Here is some test text"

因为 Text 属性是 TextRange 对象的默认属性，所以以下两个语句是等效的。

ActivePresentation.Slides.Item(1).Shapes.Item(1).TextFrame.TextRange.Text = "Here is some test text"
ActivePresentation.Slides.Item(1).Shapes.Item(1).TextFrame.TextRange = "Here is some test text"

使用 HasTextFrame 属性判断形状是否含有文本框，然后使用 HasText 属性判断该文本框是否包含文本。

使用 Selection 对象的 TextRange 属性返回当前选定的文字。以下示例将选定内容复制到剪贴板。

ActiveWindow.Selection.TextRange.Copy()

使用下列方法之一可返回 TextRange 对象中的部分文本： Characters、 Lines、 Paragraphs、 Runs、 Sentences 或 Words。

使用 Find 和 Replace 方法可查找和替换文本范围内的文本。

使用下列方法之一可向 TextRange 对象中插入字符：InsertAfter、InsertBefore、InsertDateTime、InsertSlideNumber 或 InsertSymbol。