Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает объект TextRange , представляющий указанное подмножество текстовых символов. Сведения о подсчете или циклике символов в текстовом диапазоне см. в разделе Объект TextRange .
Синтаксис
выражение.
Characters( _Start_, _Length_ )
выражение Переменная, представляющая объект TextRange .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Start | Необязательный | Long | Первый символ в возвращаемом диапазоне. |
| Length | Необязательный | Long | Количество возвращаемых символов. |
Возвращаемое значение
TextRange
Замечания
Если опущены значения Start и Length, возвращаемый диапазон начинается с первого символа и заканчивается последним абзацем в указанном диапазоне.
Если указан параметр Start, но параметр Length опущен, возвращаемый диапазон содержит один символ.
Если параметр Length указан, но параметр Start опущен, возвращаемый диапазон начинается с первого символа в указанном диапазоне.
Если значение Start больше числа символов в указанном тексте, возвращаемый диапазон начинается с последнего символа в указанном диапазоне.
Если длина больше числа символов от указанного начального символа до конца текста, возвращаемый диапазон содержит все эти символы.
Пример
В этом примере задается текст для второй фигуры на слайде 1 в активной презентации, а затем второй символ делается подстрочный символ со смещением в 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
В этом примере каждый подстрочный символ в форме 2 на слайде один форматирует полужирным шрифтом.
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.