Freigeben über

Shape.InlineTextRange-Eigenschaft (Publisher)

  • Artikel

Gibt ein TextRange -Objekt zurück, das die Position der Inlineform im zugehörigen Textbereich angibt. Schreibgeschützt.

Syntax

Ausdruck. InlineTextRange

expression Eine Variable, die ein Shape-Objekt darstellt.

Hinweise

Der zurückgegebene Textbereich enthält ein einzelnes Objekt, das die Inlineform darstellt. Ein Automatisierungsfehler wird zurückgegeben, wenn die Form nicht inline ist.

Beispiel

Das folgende Beispiel sucht nach der ersten Form (einem Textfeld) auf der ersten Seite der Publikation und bestimmt, ob der Textbereich innerhalb des Textfelds Inlineformen enthält. Wenn Inlineformen vorhanden sind, wird die InlineTextRange -Eigenschaft die Inlineform nach dem Einfügen eines Textblocks.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.