Question

返回一个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