Word) (Range.InsertAfter 方法

會在範圍結尾插入指定的文字。

語法

expression。 InsertAfter( _Text_ )

需要 expression。 代表 Range 物件的變數。

參數

名稱	必要/選用	資料類型	描述
文字	必要	String	要插入的文字。

註解

在套用此方法之後，該範圍就會展開成包含新的文字。

您可以使用 Visual Basic Chr 函數及 InsertAfter 方法插入引號、 tab 字元及不分行連字號等的字元。 您也可以使用下列的 Visual Basic 常數： ansi 字元 、 vbLf 、 vbCrLf 及 vbTab 。

如果將此方法用於代表整個段落的範圍，則會在結尾的段落標記之後插入文字 (文字將會出現在下一段的開頭)。 若要在段落結尾插入文字，請先確定終點位置，然後將此位置的值減去 1 (因為段落標記也代表一個字元)，如下列範例所示。

Set doc = ActiveDocument 
Set rngRange = _ 
 doc.Range(doc.Paragraphs(1).Start, _ 
 doc.Paragraphs(1).End - 1) 
rngRange.InsertAfter _ 
 " This is now the last sentence in paragraph one."

但是，如果該範圍結尾的段落標記剛好也是文件結尾，則 Microsoft Word 就會在最後一個段落標記之前插入文字，而不會在文件結尾建立新的段落。

此外，如果該範圍是書籤，則 Word 會插入指定的文字，但是不會將該範圍或書籤展開成包含新的文字。

範例

本範例會在使用中文件的結尾插入文字。 Content 屬性會傳回 Range 物件。

ActiveDocument.Content.InsertAfter "end of document"

這個範例會插入輸入方塊中的文字，當做使用中文件內的第二個段落。

response = InputBox("Type some text") 
With ActiveDocument.Paragraphs(1).Range 
 .InsertAfter "1." & Chr(9) & response 
 .InsertParagraphAfter 
End With

另請參閱

Range 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。