Метод TextFrame.BreakForwardLink (Word)

Статья
04/07/2023

Прерывает прямую ссылку для указанного текстового фрейма, если такая ссылка существует.

Синтаксис

выражение. BreakForwardLink

выражение (обязательно). Переменная, представляющая объект TextFrame .

Замечания

Применение этого метода к фигуре в середине цепочки фигур со связанными текстовыми кадрами разорвёт цепочку, оставив два набора связанных фигур. Однако весь текст останется в первой серии связанных фигур.

Пример

В этом примере создается новый документ, в который добавляется цепочка из трех связанных текстовых полей, а затем разрывается ссылка после второго текстового поля.

Dim shapeTextbox1 As Shape 
Dim shapeTextbox2 As Shape 
Dim shapeTextbox3 As Shape 
 
Documents.Add 
 
Set shapeTextbox1 = ActiveDocument.Shapes.AddTextbox _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=InchesToPoints(1.5), _ 
 Top:=InchesToPoints(0.5), _ 
 Width:=InchesToPoints(1), _ 
 Height:=InchesToPoints(0.5)) 
shapeTextbox1.TextFrame.TextRange = "This is some text. " _ 
 & "This is some more text. This is even more text." 
 
Set shapeTextbox2 = ActiveDocument.Shapes.AddTextbox _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=InchesToPoints(1.5), _ 
 Top:=InchesToPoints(1.5), _ 
 Width:=InchesToPoints(1), _ 
 Height:=InchesToPoints(0.5)) 
 
Set shapeTextbox3 = ActiveDocument.Shapes.AddTextbox _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=InchesToPoints(1.5), _ 
 Top:=InchesToPoints(2.5), _ 
 Width:=InchesToPoints(1), _ 
 Height:=InchesToPoints(0.5)) 
 
shapeTextbox1.TextFrame.Next = shapeTextbox2.TextFrame 
shapeTextbox2.TextFrame.Next = shapeTextbox3.TextFrame 
MsgBox "Textboxes 1, 2, and 3 are linked." 
shapeTextbox2.TextFrame.BreakForwardLink

См. также

Объект TextFrame

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через