TextFrame.BreakForwardLink-Methode (Word)
Hebt die Textfeldverknüpfung für den angegebenen Textrahmen auf, wenn eine solche Verknüpfung vorhanden ist.
Syntax
expression. BreakForwardLink
Ausdruck: Erforderlich. Eine Variable, die ein TextFrame-Objekt darstellt.
Hinweise
Wenn Sie diese Methode auf eine Form in der Mitte einer Kette von Formen mit verknüpften Textrahmen anwenden, wird diese Kette unterbrochen und es verbleiben zwei Gruppen verknüpfter Formen. Der gesamte Text bleibt jedoch in der ersten Gruppe verknüpfter Formen.
Beispiel
In diesem Beispiel wird ein neues Dokument erstellt, eine Kette mit drei verknüpften Textfeldern hinzugefügt und anschließend die Verknüpfung nach dem zweiten Textfeld aufgehoben.
Dim shapeTextbox1 As Shape
Dim shapeTextbox2 As Shape
Dim shapeTextbox3 As Shape
Documents.Add
Set shapeTextbox1 = ActiveDocument.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=InchesToPoints(1.5), _
Top:=InchesToPoints(0.5), _
Width:=InchesToPoints(1), _
Height:=InchesToPoints(0.5))
shapeTextbox1.TextFrame.TextRange = "This is some text. " _
& "This is some more text. This is even more text."
Set shapeTextbox2 = ActiveDocument.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=InchesToPoints(1.5), _
Top:=InchesToPoints(1.5), _
Width:=InchesToPoints(1), _
Height:=InchesToPoints(0.5))
Set shapeTextbox3 = ActiveDocument.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=InchesToPoints(1.5), _
Top:=InchesToPoints(2.5), _
Width:=InchesToPoints(1), _
Height:=InchesToPoints(0.5))
shapeTextbox1.TextFrame.Next = shapeTextbox2.TextFrame
shapeTextbox2.TextFrame.Next = shapeTextbox3.TextFrame
MsgBox "Textboxes 1, 2, and 3 are linked."
shapeTextbox2.TextFrame.BreakForwardLink
Siehe auch
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.