TextFrame.BreakForwardLink-Methode (Publisher)

Hebt die Textfeldverknüpfung für den angegebenen Textrahmen auf, wenn eine solche Verknüpfung vorhanden ist.

Syntax

Ausdruck. BreakForwardLink

Ausdruck Eine Variable, die ein TextFrame-Objekt darstellt.

HinwBemerkungeneise

Durch das Anwenden dieser Methode auf eine Form in der Mitte einer Kette von Formen mit verknüpften Textrahmen wird die Kette unterbrochen, sodass zwei Sätze verknüpfter Shapes verbleiben. Der gesamte Text verbleibt jedoch in der ersten Reihe verknüpfter Shapes.

Beispiel

Dieses Beispiel erstellt eine neue Publikation, fügt eine Kette aus drei verknüpften Textfeldern hinzu und hebt dann nach dem zweiten Textfeld die Verknüpfung auf.

Sub BreakTextLink() 
 Dim shpTextbox1 As Shape 
 Dim shpTextbox2 As Shape 
 Dim shpTextbox3 As Shape 
 
 Set shpTextbox1 = ActiveDocument.Pages(1).Shapes.AddTextbox _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=72, Top:=36, Width:=72, Height:=36) 
 shpTextbox1.TextFrame.TextRange = "This is some text. " _ 
 & "This is some more text. This is even more text. " _ 
 & "And this is some more text and even more text." 
 
 Set shpTextbox2 = ActiveDocument.Pages(1).Shapes.AddTextbox _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=72, Top:=108, Width:=72, Height:=36) 
 
 Set shpTextbox3 = ActiveDocument.Pages(1).Shapes.AddTextbox _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=72, Top:=180, Width:=72, Height:=36) 
 
 shpTextbox1.TextFrame.NextLinkedTextFrame = shpTextbox2.TextFrame 
 shpTextbox2.TextFrame.NextLinkedTextFrame = shpTextbox3.TextFrame 
 MsgBox "Textboxes 1, 2, and 3 are linked." 
 shpTextbox2.TextFrame.BreakForwardLink 
End Sub

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.