InlineTextRange Property [Publisher 2003 VBA Language Reference]

  • Article

Returns a ****

Visit TextRange

object that reflects the position of the inline shape in its containing text range. Read-only.

expression.InlineTextRange

expression Required. An expression that returns a Shape object. Note that the shape must be an inline shape contained within the ****

Visit InlineShapes

collection.

Remarks

The returned text range will contain a single object representing the inline shape. An automation error is returned if the shape is not inline.

Example

The following example finds the first shape (a text box) on the first page of the publication, and determines if the text range within the text box contains inline shapes. If inline shapes are found, the InlineTextRange property is used to represent the inline shape after a block of text is inserted.

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

Applies to | Shape Object | ShapeRange Collection