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 支持和反馈,获取有关如何接收支持和提供反馈的指南。