通过

TextRange.MoveStart 方法 (Publisher)

  • 项目

移动指定范围的起始位置。 此方法返回一个 长 指示起始位置范围或所选内容实际移动，或者如果移动不成功，则返回 0 (零) 的单位数。

语法

表达式。MoveStart (单元、 大小)

表达 一个代表 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。