Table of contents
TOC
Recolher sumário
Expandir sumário

Método TextFrame.BreakForwardLink (Editor)TextFrame.BreakForwardLink Method (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Quebra o vínculo sequencial do quadro de texto especificado, se tal vínculo existir.Breaks the forward link for the specified text frame, if such a link exists.

SintaxeSyntax

expressão. BreakForwardLinkexpression. BreakForwardLink

_expression_A variável que representa um objeto TextFrame ._expression_A variable that represents a TextFrame object.

ComentáriosRemarks

A aplicação deste método a uma forma no meio de uma cadeia de formas com quadros de texto vinculados irá quebrar a cadeia, deixando dois conjuntos de formas vinculadas. Todo o texto, porém, permanecerá na primeira série de formas vinculadas.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.

ExemploExample

Este exemplo cria uma nova publicação, adiciona uma cadeia de três caixas de texto vinculadas a ela e, em seguida, rompe o vínculo após a segunda caixa de texto.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