TextRange.Characters 方法 (Publisher)
返回一个 TextRange 对象,该对象代表指定的文本字符子集。
语法
表达式。字符 (开头、 长度)
表达 一个代表 TextRange 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Start | 必需 | Long | 返回的范围中的第一个字符。 |
Length | 可选 | Long | 要返回的字符数。 默认值为 1。 |
返回值
TextRange
备注
如果 Start 大于指定文字中的字符数,返回的范围将从指定范围中的最后一个字符开始。
如果 Length 大于从指定的起始字符到文本末尾的字符数,则返回的范围包含所有这些字符。
示例
本示例设置当前文档中第一页上的第一个形状的文字,然后将前两个字符设置为字号 15 磅,加粗字体。
Sub CharRange()
Dim rngCharacters As TextRange
Set rngCharacters = Application.ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange.InsertBefore(NewText:="Hello World.")
With rngCharacters.Characters(Start:=1, Length:=2).Font
.Size = 15
.Bold = msoTrue
End With
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。