InsertBefore 方法

       

在指定文本区域的开头附加一个字符串。返回一个代表附加文本的 TextRange 对象。省略参数时,该方法返回一个在指定区域末尾的长度为零的字符串。

expression.InsertBefore(NewText)

expression  必选。该表达式返回一个 TextRange 对象。

NewText  可选,String 类型。要添加的文本。默认值为空字符串。

示例

本示例将字符串“Test version:”附加到活动演示文稿第一张幻灯片标题的开头。

With Application.ActivePresentation.Slides(1).Shapes(1)
    .TextFrame.TextRange.InsertBefore "Test version: "
End With

本示例将剪切板中的内容附加到活动演示文稿第一张幻灯片标题的开头。

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame _
    .TextRange.InsertBefore.Paste