Método TextRange.Runs (PowerPoint)

Retorna um objeto TextRange que representa o subconjunto especificado de sequências de texto. Um fluxo de texto consiste em um intervalo de caracteres que compartilham os mesmos atributos de fonte.

Sintaxe

expressão. Runs( _Start_, _Length_ )

Expressão Uma variável que representa um objeto TextRange .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Start	Opcional	Long	O primeiro fluxo do intervalo retornado.
Length	Opcional	Long	O número de fluxos a serem retornados.

Valor de retorno

TextRange

Comentários

Se Start e Length forem omitidos, o intervalo retornado iniciará com a primeira sequência e terminará com o último parágrafo no intervalo especificado.

Se Start for especificado, mas Length for omitido, o intervalo retornado conterá uma sequência.

Se Length for especificado, mas Start for omitido, o intervalo retornado iniciará com a primeira sequência no intervalo especificado.

Se Start for maior que o número de sequências no texto especificado, o intervalo retornado iniciará com a última sequência no intervalo especificado.

Se Length for maior que o número de sequências a partir da linha de início especificada até o final do texto, o intervalo retornado conterá todas essas sequências.

Uma sequência consiste em todos os caracteres a partir do primeiro caractere após uma alteração de fonte até o penúltimo caractere com os mesmos atributos de fonte. Por exemplo, considere a seguinte sentença:

Esta palavra em itálico não está em negrito.

Na frase anterior, o primeiro fluxo consistirá na palavra "Este" somente se o espaço após a palavra "Este" não estiver formatado com itálico (se o espaço for itálico, o primeiro fluxo será formado apenas pelos três primeiros caracteres, ou "Est"). Da mesma forma, o segundo fluxo só conterá a palavra itálico se o espaço após a palavra estiver formatado com itálico.

Para obter informações sobre contagem e loop pelos fluxos de um intervalo de texto, consulte o objeto TextRange.

Exemplo

Este exemplo formata o segundo fluxo na forma dois do slide um da apresentação ativa com negrito e itálico se ele já for itálico.

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

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

End With

Confira também

Objeto TextRange

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.