1、在活动文档末尾插入文字:
Sub InsertTextAtEndOfDocument()
ActiveDocument.Content.InsertAfter Text:=" The end."
End Sub
2、在所选内容前插入文字
Sub AddTextBeforeSelection()
Selection.InsertBefore Text:="new text "
End Sub
Range对象或 Selection对象在使用了 InsertBefore 或 InsertAfter方法之后,会扩展并包含新的文本。使用Collapse方法可以将 Selection 或 Range 折叠到开始或结束位置。
参考文章:点击