Fields.AddHorizontalInVertical メソッド (Publisher)

垂直テキストのストリームに水平テキストを挿入し、新しい水平テキストを Field オブジェクトとして返します。

構文

式。AddHorizontalInVertical (Range, Text)

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