Метод TextRange.Runs (PowerPoint)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

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

TextRange

Замечания

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

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

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

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

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

Выполнение состоит из всех символов из первого символа после изменения шрифта на второй символ последнего, который имеет одинаковые атрибуты шрифта. Например, рассмотрим следующее предложение:

Это курсивное слово не является жирным.

В предыдущем предложении первый запуск состоит из слова "This" только в том случае, если пробел после слова "This" не отформатирован как курсив (если пробел курсив, первый запуск — это только первые три символа или "Thi"). Аналогичным образом второй запуск содержит слово "курсив" только в том случае, если пробел после слова отформатирован как курсив.

Сведения о подсчете или цикле выполнения в текстовом диапазоне см. в разделе Объект TextRange .

Пример

В этом примере второй запуск форматируется в форме 2 на слайде 1 в активной презентации как курсив, если он уже выделен курсивом.

With Application.ActivePresentation.Slides(1).Shapes(2) _
        .TextFrame.TextRange

    With .Runs(2).Font
        If .Italic Then
            .Bold = True
        End If
    End With

End With

См. также

Объект TextRange

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

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

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