TextRange.Lines 方法 (Publisher)

返回一个 TextRange 对象，该对象代表指定的行。

语法

表达式。行 (开始、 长度)

表达 一个代表 TextRange 对象的变量。

参数

名称	必需/可选	数据类型	说明
Start	必需	Long	返回的范围中的第一行。
Length	可选	Long	要返回的行数。 默认值为 1。

返回值

TextRange

备注

如果 Start 大于指定文字中的行数，返回的范围将从指定范围中的最后一行开始。

如果 Length 大于从指定的起始行到文本末尾的行数，则返回的范围包含所有这些行。

示例

以下示例用指定的字符串替换第一页上第一个形状的前三行。

Sub ReplaceLines() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Lines(Start:=1, Length:=3) 
 
 rngText.Text = "This is replacement text." & vbCrLf 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。