InsertAfter 方法

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

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

NewText  可选，String 类型。要插入的文本。默认值为空字符串。

示例

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

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

本示例将剪贴板的内容添加到第一张幻灯片标题的末尾。

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