获取一个 TextRange2 对象,该对象代表指定的文本域子集。 文本域由具有相同字体属性的一些字符组成。 此为只读属性。
语法
表达式。运行 (Start、 Length)
表达 返回 TextRange2 对象的表达式。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Start | 可选 | Long | 返回的范围中的第一个域。 |
Length | 可选 | Long | 要返回的域数。 |
返回值
TextRange2
备注
如果省略 Start 和 Length ,则返回的范围从第一次运行开始,以指定范围中的最后一段结束。
如果指定 了 Start ,但省略了 Length ,则返回的范围包含一个运行。
如果指定 了 Length 但省略 了 Start ,则返回的范围从指定范围中的第一次运行开始。
如果 Start 大于指定文本中的运行次数,则返回的范围从指定区域中的最后一次运行开始。
如果 Length 大于从指定的开始运行到文本末尾的运行次数,则返回的范围包含所有这些运行。
一个域包含从字体改变后的第一个字符到倒数第二个具有相同字体属性的字符之间的所有字符。 以下句为例:
此 斜体 字不是粗体。
在上句中,如果"This"后边的空格不是斜体,则第一个域由"This"构成(如果该空格为斜体,则第一个域仅包括前三个字符,即"Thi")。 类似地,仅当“italic”后边的空格为斜体时,第二个域由“italic”构成。
示例
如果当前演示文稿的第一张幻灯片上第二个形状中第二个域已经设为斜体,则以下示例将其设为加粗斜体。
With Application.ActivePresentation.Slides(1).Shapes(2) _
.TextFrame.TextRange2
With .Runs(2).Font
If .Italic Then
.Bold = True
End If
End With
End With
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。