TextRange.MoveEnd 方法 (Publisher)

移动结束字符位置的范围。 此方法返回一个 Long 类型的值，该值代表区域或选定内容实际移动的单位数，如果移动失败，则返回 0 (零) 。

语法

表达式。MoveEnd (单位、 大小)

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

参数

名称	必需/可选	数据类型	说明
Unit	必需	PbTextUnit	移动折叠的范围或所选内容时所基于的单位。 可以是在 Microsoft Publisher 类型库中声明的 PbTextUnit 常量之一。
Size	必需	Long	要移动的单位数。 如果此数字为正数，则将文档中的结束字符位置向前移动。 如果此数字为负数，则末尾向后移动。 如果结束位置超过起始位置，则范围将折叠，并且两个字符位置一起移动。

返回值

长型

示例

以下示例设置一个文字范围，移动该范围的起始和结束字符的位置，然后设置该范围的字体格式。

Sub MoveStartEnd() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Paragraphs(Start:=3, Length:=1) 
 
 With rngText 
 .MoveStart Unit:=pbTextUnitLine, Size:=-2 
 .MoveEnd Unit:=pbTextUnitLine, Size:=1 
 With .Font 
 .Bold = msoTrue 
 .Size = 15 
 End With 
 End With 
 
End Sub

支持和反馈

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