TextFrame-Objekt (Herausgeber)TextFrame object (Publisher)

Stellt den Textrahmen in einem Shape -Objekt dar.Represents the text frame in a Shape object. Enthält den Text im Textrahmen sowie die Eigenschaften, durch die die Ränder und die Ausrichtung des Textrahmens gesteuert werden.Contains the text in the text frame and the properties that control the margins and orientation of the text frame.

BeispielExample

Verwenden Sie die TextFrame-Eigenschaft, um das TextFrame-Objekt für ein Shape zurückzugeben. ****Use the TextFrame property to return the TextFrame object for a shape. Die TextRange Eigenschaft gibt ein TextRange -Objekt, das den Textbereich innerhalb des angegebenen Textrahmens darstellt.The TextRange property returns a TextRange object that represents the range of text inside the specified text frame. Im folgenden Beispiel wird Text in den Textrahmen von Form 1 in der aktiven Publikation hinzugefügt und dann den neuen Text formatiert.The following example adds text to the text frame of shape one in the active publication, and then formats the new text.

Sub AddTextToTextFrame() 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 .Text = "My Text" 
 With .Font 
 .Bold = msoTrue 
 .Size = 25 
 .Name = "Arial" 
 End With 
 End With 
End Sub

Hinweis Einige Formen unterstützen keinen verbundenen Text (z. B. Linien, Freihandformen, Bilder und OLE-Objekte). Wenn Sie versuchen, Eigenschaften zum Steuern von Text in Textrahmen für diese Objekte festzulegen oder zurückzugeben, tritt ein Fehler auf.Note Some shapes do not support attached text (lines, freeforms, pictures, and OLE objects, for example). If you attempt to return or set properties that control text in a text frame for those objects, an error occurs.

Verwenden Sie die HasTextFrame -Eigenschaft, um zu bestimmen, ob die Form einen Textrahmen aufweist, und verwenden Sie die HasText -Eigenschaft, um zu bestimmen, ob der Textrahmen Text enthält (siehe das folgende Beispiel).Use the HasTextFrame property to determine whether the shape has a text frame and use the HasText property to determine whether the text frame contains text, as shown in the following example.

Sub GetTextFromTextFrame() 
 Dim shpText As Shape 
 
 For Each shpText In ActiveDocument.Pages(1).Shapes 
 If shpText.HasTextFrame = msoTrue Then 
 With shpText.TextFrame 
 If .HasText Then MsgBox .TextRange.Text 
 End With 
 End If 
 Next 
End Sub

Textrahmen können miteinander verknüpft werden, sodass der Text aus dem Textrahmen der einen Form in den Textrahmen einer anderen Form fließt.Text frames can be linked together so that the text flows from the text frame of one shape into the text frame of another shape. Verwenden Sie die Eigenschaften NextLinkedTextFrame und PreviousLinkedTextFrame , um Textrahmen zu verknüpfen.Use the NextLinkedTextFrame and PreviousLinkedTextFrame properties to link text frames. Im folgenden Beispiel wird ein Textfeld (ein Rechteck mit einem Textrahmen) erstellt und Text hinzugefügt.The following example creates a text box (a rectangle with a text frame) and adds some text to it. Klicken Sie dann ein anderes Textfeld erstellt, und die beiden Textrahmen miteinander verknüpft, sodass der Text aus dem ersten Textrahmen in den zweiten fließt.It then creates another text box and links the two text frames together so that the text flows from the first text frame into the second one.

Sub LinkTextBoxes() 
 Dim shpTextBox1 As Shape 
 Dim shpTextBox2 As Shape 
 
 Set shpTextBox1 = ActiveDocument.Pages(1).Shapes.AddTextbox _ 
 (msoTextOrientationHorizontal, 72, 72, 72, 36) 
 shpTextBox1.TextFrame.TextRange.Text = _ 
 "This is some text. This is some more text." 
 
 Set shpTextBox2 = ActiveDocument.Pages(1).Shapes.AddTextbox _ 
 (msoTextOrientationHorizontal, 72, 144, 72, 36) 
 shpTextBox1.TextFrame.NextLinkedTextFrame = shpTextBox2 _ 
 .TextFrame 
End Sub

MethodenMethods

NameName
BreakForwardLinkBreakForwardLink
ValidLinkTargetValidLinkTarget

EigenschaftenProperties

NameName
AnwendungApplication
AutoFitTextAutoFitText
SpaltenColumns
ColumnSpacingColumnSpacing
HasNextLinkHasNextLink
HasPreviousLinkHasPreviousLink
HasTextHasText
IncludeContinuedFromPageIncludeContinuedFromPage
IncludeContinuedOnPageIncludeContinuedOnPage
MarginBottomMarginBottom
MarginLeftMarginLeft
MarginRightMarginRight
MarginTopMarginTop
NextLinkedTextFrameNextLinkedTextFrame
OrientationOrientation
OverflowingOverflowing
Übergeordneter SchlüsselParent
PreviousLinkedTextFramePreviousLinkedTextFrame
StoryStory
TextRangeTextRange
VerticalTextAlignmentVerticalTextAlignment

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.