Propiedad TextRange2.Runs (Office)
Obtiene un objeto TextRange2 que representa el subconjunto especificado de series de texto. Un segmento de texto consta de un rango de caracteres que comparten los mismos atributos de fuente. Solo lectura.
Sintaxis
expresión. Ejecuciones (Inicio, Longitud)
Expresión Expresión que devuelve un objeto TextRange2 .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Start | Opcional | Long | Primer segmento del intervalo devuelto. |
| Length | Opcional | Long | Número de segmentos que se devuelve. |
Valor devuelto
TextRange2
Comentarios
Si se omiten Start y Length , el intervalo devuelto comienza con la primera ejecución y finaliza con el último párrafo del intervalo especificado.
Si se especifica Start pero se omite Length , el intervalo devuelto contiene una ejecución.
Si se especifica Length pero se omite Start , el intervalo devuelto comienza con la primera ejecución en el intervalo especificado.
Si Start es mayor que el número de ejecuciones en el texto especificado, el intervalo devuelto comienza con la última ejecución del intervalo especificado.
Si Length es mayor que el número de ejecuciones desde la ejecución inicial especificada hasta el final del texto, el intervalo devuelto contiene todas esas ejecuciones.
Una serie consta de todos los caracteres desde el primer carácter tras un cambio de fuente hasta el penúltimo carácter con los mismos atributos de fuente. Por ejemplo, considere la siguiente frase:
Esta palabra en cursiva no está en negrita.
En la oración anterior, el primer segmento se compone de las palabras "Esta palabra" sólo si el espacio que hay después de "palabra" no tiene formato de cursiva (si el espacio tiene formato de cursiva, el primer segmento consta sólo de los caracteres "Esta palabr"). Del mismo modo, la segunda serie contiene la palabra "cursiva" sólo si el espacio que hay detrás de la palabra tiene formato de cursiva.
Ejemplo:
En este ejemplo se da formato a la segunda serie de la forma dos en la diapositiva uno de la presentación activa como cursiva negrita si ya es cursiva.
With Application.ActivePresentation.Slides(1).Shapes(2) _
.TextFrame.TextRange2
With .Runs(2).Font
If .Italic Then
.Bold = True
End If
End With
End With
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.