通过

TextRange.Expand 方法 (Publisher)

  • 项目

扩展指定的区域或所选内容。 返回或设置一个 Long ，代表添加到该范围或所选内容的指定单位数。

语法

表达式。展开 (单元)

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

参数

名称 必需/可选 数据类型 说明
Unit 必需 PbTextUnit 度量单位以展开该区域。 可以是在 Microsoft Publisher 类型库中声明的 PbTextUnit 常量之一。

返回值

Long

备注

如有必要，Expand 方法可移动某个范围的两个终结点;若要仅移动范围的一个终结点，请使用 MoveStart 方法或 MoveEnd 方法。

示例

本示例创建一个指向当前出版物的第一个形状中的第一个单词的范围，设置该词的字体格式，然后将该范围扩展，使其包含整个第一段并设置整行的字体格式。

Sub ExpandRange() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Words(Start:=1, Length:=1) 
 With rngText 
 With .Font 
 .Size = 20 
 .Italic = msoTrue 
 End With 
 .Expand Unit:=pbTextUnitLine 
 .Font.Bold = msoTrue 
 End With 
End Sub

支持和反馈

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