Метод TextRange.Characters (PowerPoint)

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

Синтаксис

выражение. Characters( _Start_, _Length_ )

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

Параметры

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

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

TextRange

Примечания

Если опущены поля "Начн" и "Длина", возвращается диапазон, который начинается с первого символа и заканчивается последним абзацем указанного диапазона.

Если указано значение "Нач", но опущена длина, возвращаемый диапазон содержит один символ.

Если указан параметр "Длина", но опущен параметр "Начало", возвращаемый диапазон начинается с первого символа указанного диапазона.

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

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

Пример

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

В этом примере каждый подстрочный знак в второй фигуре на первом слайде выделен полужирным шрифтом.

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

См. также

Объект TextRange

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.