包含附加到形狀的文本,以及用于操作文本的屬性和方法。
以下示例說(shuō)明如何執(zhí)行下列操作:
返回任意指定形狀中的文本范圍。
返回選定范圍中的文本范圍。
返回文本范圍中的特定字符、單詞、行、句子或段落。
查找和替換文本范圍內(nèi)的文本。
向文本范圍中插入文本、日期和時(shí)間或幻燈片編號(hào)。
將光標(biāo)定位到文本范圍內(nèi)所需的任意位置。
使用 TextRange TextFrame 的屬性 返回任意指定的形狀的 TextRange 對(duì)象的對(duì)象。 使用 Text 屬性可返回 TextRange 對(duì)象中的文本字符串。 以下示例向 myDocument 中添加一個(gè)矩形并設(shè)置其包含的文本。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140) _
.TextFrame.TextRange.Text = 'Here is some test text'
Text 屬性是 TextRange 對(duì)象的默認(rèn)屬性,因?yàn)橐韵聝蓚€(gè)語(yǔ)句是等效的。
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確定一個(gè)形狀的文字框架中,是否和使用HasText屬性 屬性可確定文本框架中是否包含文本。
使用 Selection 對(duì)象的 TextRange 屬性返回當(dāng)前選定的文本。 下面的示例將選定內(nèi)容復(fù)制到剪貼板。
ActiveWindow.Selection.TextRange.Copy
使用下列方法之一來(lái)返回 TextRange 對(duì)象的文本的某個(gè)部分︰ 字符 行 的段落 運(yùn)行 的句子 或多個(gè) 單詞.
使用查找和替換若要查找和替換文本范圍內(nèi)的文本的方法。
使用下列方法之一將字符插入 TextRange 對(duì)象︰新段落活動(dòng)InsertDateTimeInsertSlideNumber或 InsertSymbol.
名稱 |
---|
ActionSettings |
應(yīng)用程序 |
BoundHeight |
BoundLeft |
BoundTop |
BoundWidth |
Count |
Font |
IndentLevel |
LanguageID |
長(zhǎng)度 |
ParagraphFormat |
Parent |
Start |
Text |
有關(guān)于 Office VBA 或本文檔的疑問(wèn)或反饋? 請(qǐng)參閱 Office VBA 支持和反饋,獲取有關(guān)如何接收支持和提供反饋的指南。
聯(lián)系客服