Fields.AddHorizontalInVertical メソッド (発行元)

縦書きテキストのストリームに横書きテキストを挿入し、新しい横書きテキストを フィールド オブジェクトとして返します。

構文

式。AddHorizontalInVertical (範囲、 テキスト)

式Fields オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Range 必須 TextRange 横書きのテキストを挿入するテキスト範囲を指定します。
Text 必須 String 挿入する横書きのテキストを指定します。

戻り値

Field

例

この例では、アクティブな文書の 1 ページ目の図形 1 にある既存の垂直テキストの後にテキスト [水平テスト] を水平方向に挿入します。

Dim rngTemp As TextRange 
Dim fldTemp As Field 
 
With ActiveDocument.Pages(1).Shapes(1) 
 Set rngTemp = .TextFrame.TextRange.InsertAfter("") 
 
 Set fldTemp = .TextFrame.TextRange.Fields _ 
 .AddHorizontalInVertical(Range:=rngTemp, Text:="Horizontal Test") 
End With

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on