TextRange.Move 方法 (Publisher)

将指定区域折叠到其开始位置或结束位置，然后将折叠的对象移动指定的单位数。 此方法返回一个 长 表示的实际移动该对象，或者如果移动不成功，则返回 0 (零) 的单位数量。

语法

表达式。移动 (单位、 大小)

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

参数

名称	必需/可选	数据类型	说明
Unit	必需	PbTextUnit	移动折叠的范围或所选内容时所基于的单位。 可以是在 Microsoft Publisher 类型库中声明的 PbTextUnit 常量之一。
Size	必需	Long	指定的区域或所选内容的移动的单位数。 如果 Size 为正数，对象折叠到其结束位置，并在文档中向前移动指定的单位数。 大小 为负数，如果对象折叠到其起始位置，并向前移动指定的单位数。 在使用 Move 方法之前，还可以使用 Collapse 方法控制折叠方向。

返回值

长型

示例

本示例折叠指定范围并在该范围的起始位置插入一个新句子。

Sub MoveText() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Words(Start:=1, Length:=5) 
 With rngText 
 .Move Unit:=pbTextUnitParagraph, Size:=-1 
 .Text = "This adds new text to the beginning of the range. " 
 End With 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。