Método TextFrame.BreakForwardLink (Publisher)

Interrumpe el vínculo hacia delante del marco de texto especificado, en caso de que dicho vínculo exista.

Sintaxis

expresión. BreakForwardLink

expresión Variable que representa un objeto TextFrame .

Observaciones

La aplicación de este método a una forma en medio de una cadena de formas con marcos de texto vinculado interrumpe la cadena, dejando dos conjuntos de formas vinculadas. Sin embargo, todo el texto permanece en la primera serie de formas vinculadas.

Ejemplo

En este ejemplo se crea una publicación nueva, se agrega una cadena de tres cuadros de texto vinculados a ella y, a continuación, se interrumpe el vínculo detrás del segundo cuadro de texto.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.