Propriedade TextRange2.Runs (Office)

Obtém um objeto TextRange2 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. Somente leitura.

Sintaxe

mais simples. Execuções (início, comprimento)

expressão Uma expressão que retorna um objeto TextRange2 .

Parâmetros

Valor de retorno

TextRange2

Comentários

Se Start e Length forem omitidos, o intervalo retornado começará com a primeira execução e terminará com o último parágrafo no intervalo especificado.

Se Start for especificado, mas Length for omitido, o intervalo retornado conterá uma execução.

Se Length for especificado, mas Start for omitido, o intervalo retornado começará com a primeira execução no intervalo especificado.

Se Start for maior que o número de execuções no texto especificado, o intervalo retornado começará com a última execução no intervalo especificado.

Se Length for maior que o número de execuções do trecho inicial especificado até o final do texto, o intervalo retornado conterá todas essas execuções.

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, a segunda sequência conterá a palavra "itálico" apenas se o espaço após a palavra estiver formatada como itálico.

Exemplo

Este exemplo formata a segunda sequência na forma dois no slide um na apresentação ativa como negrito itálico se já estiver em itálico.

With Application.ActivePresentation.Slides(1).Shapes(2) _ 
        .TextFrame.TextRange2 
    With .Runs(2).Font 
        If .Italic Then 
            .Bold = True 
        End If 
    End With 
End With

Confira também

• Membros do objeto TextRange2

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.