Publisher (的 TextRange.Collapse 方法)
此方法將某一範圍或選取範圍摺疊到起始位置或結束位置。 摺疊之後,範圍或選取範圍的起點和終點相同。
語法
運算式。折迭 (方向)
表達 代表 TextRange 物件的 變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
Direction | 必要 | PbCollapseDirection | 指示摺疊範圍或選取範圍的方向。 可以是 Microsoft Publisher 類型程式庫中所宣告的 PbCollapseDirection 常數之一。 |
註解
如果您使用 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 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應