Метод TextRange.Characters (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. Символы (начало, длина)

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

Параметры

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

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

TextRange

Замечания

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

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

Пример

В этом примере задается текст первой фигуры на первой странице активного документа, а затем шрифт первых двух символов — 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 и обратная связь.

Поделиться через