TextRange 对象 (PowerPoint)

包含附加到形状的文本,以及用于操作文本的属性和方法。

备注

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

  • 返回任意指定形状中的文本范围。

  • 返回选定范围中的文本范围。

  • 返回文本范围中的特定字符、单词、行、句子或段落。

  • 查找和替换文本范围内的文本。

  • 向文本范围中插入文本、日期和时间或幻灯片编号。

  • 将光标定位到文本范围内所需的任意位置。

示例

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

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140) _

    .TextFrame.TextRange.Text = "Here is some test text"

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

ActivePresentation.Slides(1).Shapes(1).TextFrame _

    .TextRange.Text = "Here is some test text"

ActivePresentation.Slides(1).Shapes(1).TextFrame _

    .TextRange = "Here is some test text"

使用HasTextFrame确定一个形状的文字框架中,是否和使用HasText属性 属性可确定文本框架中是否包含文本。

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

ActiveWindow.Selection.TextRange.Copy

使用下列方法之一来返回 TextRange 对象的文本的某个部分︰ 字符 的段落 运行 的句子 或多个 单词.

使用查找替换若要查找和替换文本范围内的文本的方法。

使用下列方法之一将字符插入 TextRange 对象︰新段落活动InsertDateTimeInsertSlideNumberInsertSymbol.

方法

名称
AddPeriods
ChangeCase
Characters
Copy
Cut
删除
Find
InsertAfter
InsertBefore
InsertDateTime
InsertSlideNumber
InsertSymbol
线条
LtrRun
Paragraphs
Paste
PasteSpecial
RemovePeriods
Replace
RotatedBounds
RtlRun
运行
Select
Sentences
TrimText
Words

属性

名称
ActionSettings
应用程序
BoundHeight
BoundLeft
BoundTop
BoundWidth
Count
Font
IndentLevel
LanguageID
长度
ParagraphFormat
Parent
Start
Text

另请参阅

PowerPoint 对象模型引用

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。