Méthode TextFrame.BreakForwardLink (Publisher)
Brise le lien de transfert du cadre de texte spécifié, si ce lien existe.
Syntaxe
expression. BreakForwardLink
Expression Variable qui représente un objet TextFrame .
Remarques
L’application de cette méthode à une forme au milieu d’une chaîne de formes avec des cadres de texte liés rompt la chaîne, laissant deux ensembles de formes liées. Toutefois, tout le texte reste dans la première série de formes liées.
Exemple
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.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.