TextFrame.BreakForwardLink メソッド (Word)

  • [アーティクル]

指定されたテキスト枠に、次のテキスト枠へのリンクが設定されている場合、このリンクを解除します。

構文

式。 BreakForwardLink

expression 必須です。 TextFrame オブジェクトを表す変数です。

注釈

テキスト枠を含む複数の図形がリンクしている場合に、リンクの中間にある図形に対してこのメソッドを使用すると、リンクが解除され、2 組のリンクに分かれます。 文字列はすべて、解除位置の前のリンクした図形に含まれます。

例

次の使用例は、新しい文書を作成し、文書に 3 つのテキスト ボックスを追加してリンクを作成します。次に、2 番目のテキスト ボックスの後でリンクを解除します。

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 のサポートおよびフィードバックを参照してください。