通过

TextRange.Runs 方法 (PowerPoint)

  • 项目

返回表示指定的文本运行子集的 TextRange 对象。 一个文本域由具有相同字体属性的字符的范围。

语法

expression. Runs( _Start_, _Length_ )

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

参数

名称 必需/可选 数据类型 说明
Start 可选 Long 返回的范围中的第一个域。
Length 可选 Long 要返回的域数。

返回值

TextRange

备注

如果同时省略 Start 和 Length，则返回的范围从指定范围中的第一个域开始到最后一段结束。

如果指定 Start 但省略 Length，则返回的范围包含一个域。

如果指定 Length 但省略 Start，则返回的范围从指定范围中的第一个域开始。

如果 Start 大于指定文本中域的数量，则返回的范围从指定范围中的最后一个域开始。

如果 Length 大于从指定的起始域到文本末尾的域数，则返回的范围包含所有这些域。

一个域包含从字体改变后的第一个字符到倒数第二个具有相同字体属性的字符之间的所有字符。 以下面的句子为例：

这个倾斜的词不是 以粗体显示 。

在上句中，如果"This"后边的空格不是斜体，则第一个域由"This"构成（如果该空格为斜体，则第一个域仅包括前三个字符，即"Thi"）。 类似地，仅当"italic"后边的空格为斜体时，第二个域由"italic"构成。

有关计算或浏览文本范围中域的详细信息，请参阅 TextRange 对象。

示例

如果当前演示文稿的第一张幻灯片上第二个形状中第二个域已经设为倾斜，则本示例将其设为加粗倾斜。

With Application.ActivePresentation.Slides(1).Shapes(2) _
        .TextFrame.TextRange

    With .Runs(2).Font
        If .Italic Then
            .Bold = True
        End If
    End With

End With

另请参阅

TextRange 对象

支持和反馈

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