22、Microsoft Office PowerPoint 2003 Visual Basic 实用方法与属性解析

Microsoft Office PowerPoint 2003 Visual Basic 实用方法与属性解析

一、方法介绍

1.1 文本处理方法

1.1.1 TrimText 方法

TrimText 方法用于去除文本前后的空格。在使用时，需要一个能返回 TextRange 对象的表达式。示例代码如下：

With Application.ActivePresentation.Slides(1).Shapes(2) _
        .TextFrame.TextRange
    With .InsertBefore("   Text to trim   ")
        MsgBox "Untrimmed: " & """" & .Text & """"
        MsgBox "Trimmed: " & """" & .TrimText.Text & """"
    End With
End With

操作步骤：
1. 定位到活动演示文稿第一张幻灯片的第二个形状的文本范围。
2. 在文本开头插入指定字符串。
3. 分别显示未修剪和修剪后的字符串。

1.1.2 Words 方法

Words 方法返回一个 TextRange 对象，代表指定的文本单词子集。其参数 Start 表示返回范围的第一个单词， Length 表示要返回的单词数量。示例代码如下：