Метод TextRange.Runs (PowerPoint)

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

Синтаксис

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

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

Параметры

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

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

TextRange

Примечания

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

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

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

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

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

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

Это слово не является смелым.

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

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

Пример

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

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 и обратная связь.