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

expressão. Execuções (Início, Comprimento)

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

Parâmetros

Valor de retorno

TextRange2

Comentários

Se Iniciar e Comprimento forem omitidos, o intervalo devolvido começa com a primeira execução e termina com o último parágrafo no intervalo especificado.

Se Iniciar for especificado, mas Comprimento for omitido, o intervalo devolvido contém uma execução.

Se Comprimento for especificado, mas Iniciar for omitido, o intervalo devolvido começa com a primeira execução no intervalo especificado.

Se Iniciar for maior do que o número de execuções no texto especificado, o intervalo devolvido começa com a última execução no intervalo especificado.

Se Comprimento for maior do que o número de execuções da execução inicial especificada até ao fim do texto, o intervalo devolvido contém 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á a 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.