Characters 方法

       

返回一个 TextRange 对象,该对象代表指定字符的子字符串。关于计算或浏览一段文本中字符的详细信息,请参阅 TextRange 对象。

expression.Characters(Start, Length)

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

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

Length  可选。Long 类型。要返回的字符数。

说明

如果省略 Start 参数和 Length 参数,返回的内容为指定组中第一个字符到最后一段。

如果指定 Start 参数但省略 Length 参数,返回的内容为一个字符。

如果指定 Length 参数但省略 Start 参数,返回的内容从指定组的第一个字符开始。

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

如果 Length 参数大于文本中从指定的起始字符到文本末尾的字符数,返回的内容包括全部字符。

示例

本示例设置活动演示文稿中第一张幻灯片的第二个形状的文本,并将第二个字符设为偏移 20% 的下标。

Dim charRange As TextRange
With Application.ActivePresentation.Slides(1).Shapes(2)
    Set charRange = .TextFrame.TextRange.InsertBefore("H2O")
    charRange.Characters(2).Font.BaselineOffset = -0.2
End With

本示例将第一张幻灯片上第二个形状的所有下标字符的格式设为加粗。

With Application.ActivePresentation.Slides(1).Shapes(2) _
    .TextFrame.TextRange
    For i = 1 To .Characters.Count
        With .Characters(i).Font
            If .Subscript Then .Bold = True
        End With
    Next
End With