TextRange.Collapse 方法 (Publisher)

将某一区域或所选内容折叠到起始位置或结束位置。 折叠之后起点和终点相同。

语法

表达式。折叠 (方向)

表达 一个代表 TextRange 对象的变量。

参数

名称	必需/可选	数据类型	说明
Direction	必需	PbCollapseDirection	折叠某区域或所选内容的方向。 可以是在 Microsoft 发布服务器类型库中声明的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。