PowerPoint VBA教程: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”构成。

VBA示例

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


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

上页:PowerPoint VBA教程:Run方法 下页:PowerPoint VBA教程:Save方法

PowerPoint VBA教程:Runs方法

PowerPoint VBA教程:Save方法 PowerPoint VBA教程:SaveAs方法
PowerPoint VBA教程:SaveCopyAs方法 PowerPoint VBA教程:ScaleHeight方法
PowerPoint VBA教程:ScaleWidth方法 PowerPoint VBA教程:ScrollIntoView方法
PowerPoint VBA教程:Select方法 PowerPoint VBA教程:SelectAll方法
PowerPoint VBA教程:SendForReview方法 PowerPoint VBA教程:Sentences方法
PowerPoint VBA教程:SetCMYK Method PowerPoint VBA教程:SetEditingType方法
PowerPoint VBA教程:SetExtrusionDirection方法 PowerPoint VBA教程:SetPasswordEncryptionOptions方法
PowerPoint VBA教程:SetPosition方法 PowerPoint VBA教程:SetSegmentType方法
PowerPoint VBA教程:SetShapesDefaultProperties方法 PowerPoint VBA教程:SetThreeDFormat方法
PowerPoint VBA教程:SmallScroll方法 PowerPoint VBA教程:Solid方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号