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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。