Syntax
expression.BreakForwardLink expression An expression that returns a TextFrame object. Remarks Applying this method to a shape in the middle of a chain of shapes with linked text frames will break the chain, leaving two sets of linked shapes. All of the text, however, will remain in the first series of linked shapes. See Also Next property, Previous property, ValidLinkTarget method. Example This example creates a new document adds a chain of three linked text boxes to it, and then breaks the link after the second text box.Documents.Add
Set myTB = ActiveDocument.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=InchesToPoints(1.5), _
Top:=InchesToPoints(0.5), _
Width:=InchesToPoints(1), _
Height:=InchesToPoints(0.5))
myTB.TextFrame.TextRange = "This is some text. This is some more text. " _
& "This is even more text."
Set myTB2 = ActiveDocument.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=InchesToPoints(1.5), _
Top:=InchesToPoints(1.5), _
Width:=InchesToPoints(1), _
Height:=InchesToPoints(0.5))
Set myTB3 = ActiveDocument.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=InchesToPoints(1.5), _
Top:=InchesToPoints(2.5), _
Width:=InchesToPoints(1), _
Height:=InchesToPoints(0.5))
myTB.TextFrame.Next = myTB2.TextFrame
myTB2.TextFrame.Next = myTB3.TextFrame
MsgBox "Textboxes 1, 2, and 3 are linked."
myTB2.TextFrame.BreakForwardLink