With Selection
.InsertAfter "appended text"
.Collapse Direction:=wdCollapseEnd
End With
本示例将输入框中的文本作为活动文档的第二段插入文档中。
response = InputBox("请输入您要插入的内容:")
With ActiveDocument.Paragraphs(1).Range
.InsertAfter "1." & Chr(9) & response
End With