Метод TextRange. Methods (PowerPoint)TextRange.Runs method (PowerPoint)

Возвращает объект TextRange , представляющий заданное подмножество текстовых запусков.Returns a TextRange object that represents the specified subset of text runs. Текстовый тест состоит из диапазона символов, которые используют одни и те же атрибуты шрифта.A text run consists of a range of characters that share the same font attributes.

СинтаксисSyntax

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

Expression (выражение ) Переменная, представляющая объект TextRange .expression A variable that represents a TextRange object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
НачалоStart НеобязательныйOptional LongLong Первый запуск в возвращенном диапазоне.The first run in the returned range.
LengthLength НеобязательныйOptional LongLong Число возвращаемых запусков.The number of runs to be returned.

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

TextRangeTextRange

ПримечанияRemarks

Если начало и длина опущены, возвращаемый диапазон начинается с первого запуска и заканчивается последним абзацем в указанном диапазоне.If both Start and Length are omitted, the returned range starts with the first run and ends with the last paragraph in the specified range.

Если указано значение Start, но длина опущена, возвращаемый диапазон содержит один запуск.If Start is specified but Length is omitted, the returned range contains one run.

Если длина указана, но параметр start опущен, возвращаемый диапазон начинается с первого запуска в указанном диапазоне.If Length is specified but Start is omitted, the returned range starts with the first run in the specified range.

Если параметр start имеет значение, превышающее число запусков в указанном тексте, возвращаемый диапазон начинается с последнего запуска в указанном диапазоне.If Start is greater than the number of runs in the specified text, the returned range starts with the last run in the specified range.

Если длина превышает количество запусков из указанного начального запуска до конца текста, возвращенный диапазон содержит все выполняемые данные.If Length is greater than the number of runs from the specified starting run to the end of the text, the returned range contains all those runs.

Выполнение состоит из всех символов из первого символа после изменения шрифта на второй символ с одинаковыми атрибутами шрифта.A run consists of all characters from the first character after a font change to the second-to-last character that has the same font attributes. Например, рассмотрим следующее предложение:For example, consider the following sentence:

Курсив не выделено полужирным шрифтом.This italic word is not bold.

В предыдущем выражении первый запуск состоит из слова "this" только в том случае, если пространство после слова "this" не отформатировано как курсив (если пространство имеет курсив, первый запуск состоит только из первых трех символов или "Си").In the preceding sentence, the first run consists of the word "This" only if the space after the word "This" isn't formatted as italic (if the space is italic, the first run is only the first three characters, or "Thi"). Аналогично, второй запуск содержит слово "italic" только в том случае, если пространство после слова отформатировано как курсив.Likewise, the second run contains the word "italic" only if the space after the word is formatted as italic.

Сведения о том, как подсчитать или циклически выполнить инвентаризацию в пределах текстового диапазона, можно узнать в объекте TextRange .For information about counting or looping through the runs in a text range, see the TextRange object.

ПримерExample

В этом примере второй фрагмент кода форматируется двумя на слайде в активной презентации как полужирный курсив, если он уже выбран курсивом.This example formats the second run in shape two on slide one in the active presentation as bold italic if it is already 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


См. такжеSee also

Объект TextRangeTextRange Object

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.