Метод TextRange.Lines (Publisher)

Статья
04/07/2023

Возвращает объект TextRange , представляющий указанные строки.

Синтаксис

expression. Строки (начало, длина)

Выражение Переменная, представляющая объект TextRange .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Start	Обязательный	Long	Первая строка в возвращаемом диапазоне.
Length	Необязательный	Long	Количество возвращаемых строк. По умолчанию используется значение 1.

Возвращаемое значение

TextRange

Замечания

Если значение Start больше числа строк в указанном тексте, возвращаемый диапазон начинается с последней строки в указанном диапазоне.

Если длина больше, чем количество строк от указанной начальной строки до конца текста, возвращаемый диапазон содержит все эти строки.

Пример

В этом примере первые три строки первой фигуры на первой странице заменяются указанной строкой.

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 и обратная связь.