Table of contents
TOC
Réduire la table des matières
Développer la table des matières

TextFrame.BreakForwardLink, méthode (éditeur)TextFrame.BreakForwardLink Method (Publisher)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
2 Collaborateurs

Annule le lien de transfert du cadre de texte spécifié, si un tel lien existe.Breaks the forward link for the specified text frame, if such a link exists.

SyntaxeSyntax

expression. BreakForwardLinkexpression. BreakForwardLink

_expression_A variable qui représente un objet TextFrame ._expression_A variable that represents a TextFrame object.

RemarquesRemarks

Lorsque vous appliquez cette méthode à une forme placée au milieu d'une chaîne de formes contenant des cadres de texte liés, vous rompez la chaîne et il ne restera que deux ensembles de formes liées. Toutefois, le texte entier restera dans la première série de formes liées.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.

ExempleExample

Cet exemple crée une nouvelle composition, ajoute une chaîne de trois zones de texte liées, puis brise le lien après la deuxième zone de texte.This example creates a new publication, adds a chain of three linked text boxes to it, and then breaks the link after the second text box.

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
© 2018 Microsoft