Word VBA教程:Collapse方法

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

expression.Collapse(Direction)

expression   必需。该表达式返回一个 Range 或 Selection对象。

Direction   Variant 类型,可选。指折叠某区域或所选内容的方向。可以是下列 WdCollapseDirection 常量之一:wdCollapseEnd 或 wdCollapseStart。默认值为 wdCollapseStart。

说明

如果用 wdCollapseEnd 折叠一个代表完整段落的区域,则该区域将定位于段落结束标记之后(即下段开头)。但是,在该区域折叠后,可以用MoveEnd方法将区域回移一个字符。如下例所示:


Set myRange = ActiveDocument.Paragraphs(1).Range
myRange.Collapse Direction:=wdCollapseEnd
myRange.MoveEnd Unit:=wdCharacter, Count:=-1

VBA示例

本示例将所选内容折叠为选定部分的开头。


Selection.Collapse Direction:=wdCollapseStart

本示例将myRange 设置为代表活动文档内容区域,折叠myRange,然后在文档的最后插入一个 2x2 表格。


Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=myRange, NumRows:=2, NumColumns:=2

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号