本示例在选定内容末尾插入文本,然后将选定内容折叠为插入点。

With Selection
    .InsertAfter "appended text"
    .Collapse Direction:=wdCollapseEnd
End With


本示例将输入框中的文本作为活动文档的第二段插入文档中。

response = InputBox("请输入您要插入的内容:")
With ActiveDocument.Paragraphs(1).Range
    .InsertAfter "1." & Chr(9) & response
End With