Story-Objekt (Publisher)
Den Text in einem nicht verknüpften Textrahmen Text fließt zwischen verknüpften Textrahmen oder Text in einer Tabellenzelle darstellt. Das Story-Objekt ist ein Element der TextFrame - und TextRange-Objekte sowie der Stories-Auflistung .
Verwenden Sie die Story-Eigenschaft des TextFrame - oder TextRange-Objekts , um das Story-Objekt in einem Textrahmen oder Textbereich zurückzugeben.
Verwenden Sie Stories (Index), wobei index die Nummer des Storys ist, um ein einzelnes Story-Objekt zurückzugeben.
In diesem Beispiel wird der Textabschnitt im ausgewählten Textbereich zurückgegeben, und wenn er sich in einem Textrahmen befindet, wird Text in den Textbereich eingefügt.
Sub AddTextToStory()
With Selection.TextRange.Story
If .HasTextFrame Then .TextRange _
.InsertAfter NewText:=vbLf & "This is a test."
End With
End Sub
In diesem Beispiel wird ermittelt, ob der erste Textabschnitt in der aktiven Publikation über einen Textrahmen verfügt. Wenn dies der Fall ist, formatiert die Absätze im Textabschnitt mit einem ersten Zeileneinzug von einem halben Zoll und einem Abstand von sechs Punkten vor jedem Absatz.
Sub StoryParagraphFirstLineIndent()
With ActiveDocument.Stories(1)
If .HasTextFrame Then
With .TextFrame.TextRange.ParagraphFormat
.FirstLineIndent = InchesToPoints(0.5)
.SpaceBefore = 6
End With
End If
End With
End Sub
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.