BreakForwardLink 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