TextRange.Collapse 方法 (Publisher)

此方法將某一範圍或選取範圍摺疊到起始位置或結束位置。 摺疊之後，範圍或選取範圍的起點和終點相同。

語法

運算式。摺疊 (方向)

運算式 代表 TextRange 物件的變數。

參數

註解

如果您使用 pbCollapseEnd 摺疊參照到整個段落的範圍，則範圍會位於之後結束的段落標記 (下一個段落的開頭)。 不過，您可以在摺疊範圍之後，使用 MoveEnd 方法，將範圍向後移動一個字元。

範例

本範例在使用中出版物第一頁上第一個圖案中的第二段開頭插入文字。 本範例假設指定的圖案是文字框架，而非其他類型的圖案。

Sub CollapseRange() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange 
 
 'Collapses range to the end of the range and 
 'enters new text and a new paragraph 
 With rngText 
 .Paragraphs(Start:=1, Length:=1).Collapse Direction:=pbCollapseEnd 
 .Text = "This is a new paragraph." & vbCrLf 
 End With 
End Sub

本範例在使用中出版物第一頁上第一個圖案中的第一段結尾插入新文字。 本範例假設指定的圖案是文字框架，而非其他類型的圖案。

Sub CollapseSelection() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .Paragraphs(Start:=1, Length:=1).Select 
 
 'Collapses selection to end and moves cursor back 
 'one character, then enters new text 
 With Selection.TextRange 
 .Collapse Direction:=pbCollapseEnd 
 .MoveEnd Unit:=pbTextUnitCharacter, Size:=-1 
 .Text = " This is a new test." 
 End With 
End Sub

支援和意見反應

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