Runs 方法

       

返回一个代表指定文本域子集的 TextRange 对象。一个文本域由具有相同字体属性的一批字符组成。有关计算或浏览文本区域中域的详细信息,请参阅 TextRange 对象。

expression.Runs(Start, Length)

expression  必选。该表达式返回一个 TextRange 对象。

Start  可选。Long 类型。返回的文本区域的第一个域。

Length  可选。Long 类型。要返回的域的数量。

说明

如果省略 Start 参数和 Length 参数,返回的内容为指定文本区域的第一个域到最后一段。

如果指定 Start 参数但省略 Length 参数,返回的内容含有一个域。

如果指定 Length 参数但省略 Start 参数,返回的内容从指定文本区域的第一个域开始。

如果 Start 参数大于指定文本中域的数量,返回的内容从指定文本区域的最后一个域开始。

如果 Length 参数大于从指定的起始域到文本末尾的域数量,则返回的内容包含所有这些域。

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

This italic word is not bold.

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

示例

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

With Application.ActivePresentation.Slides(1).Shapes(2) _
        .TextFrame.TextRange
    With .Runs(2).Font
        If .Italic Then
            .Bold = True
        End If
    End With
End With