Propiedad Shape.InlineTextRange (Publisher)

Devuelve un objeto TextRange que refleja la posición de la forma de línea en el intervalo de texto que la contiene. Solo lectura.

Sintaxis

expresión. InlineTextRange

expresión Variable que representa un objeto Shape.

Observaciones

El intervalo de texto devuelto contiene un único objeto que representa la forma insertada. Si la forma no está intercalada, se devuelve un error de automatización.

Ejemplo

En el siguiente ejemplo se busca la primera forma (un cuadro de texto) en la primera página de la publicación y se determina si el intervalo de texto dentro del cuadro de texto contiene formas entre líneas. Si se encuentran formas entre líneas, la propiedad InlineTextRange se usa para representar la forma entre líneas después de inserta un bloque de texto.

Dim theShape As Shape 
Dim theTextRange As TextRange 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
If Not theShape.IsInline = True Then 
 With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 Set theTextRange = theShape.TextFrame.Story.TextRange 
 For i = 1 To .InlineShapes.Count 
 With .InlineShapes(i) 
 .InlineTextRange.InsertAfter (" (Figure " & i & ") ") 
 End With 
 Next 
 End If 
 End With 
End If

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.