Метод TextRange.Characters (PowerPoint)

Статья
04/07/2023

Возвращает объект 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

См. также

Объект TextRange

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

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

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