TextStyles.Add メソッド (Publisher)

指定した TextStyles コレクションに新しい TextStyle オブジェクトを追加し、新しい TextStyle オブジェクトを返します。

構文

式。Add (StyleName、 Font、 ParagraphFormat、 BasedOn)

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

パラメーター

名前	必須 / オプション	データ型	説明
StyleName	必須	String	新しいテキスト スタイルの名前を指定します。 指定した名前が既存のテキスト スタイルと一致する場合は、既存のテキスト スタイルが上書きされます。
フォント	省略可能	フォント	新しいテキスト スタイルに適用するフォント設定を指定します。
ParagraphFormat	オプション	ParagraphFormat	新しいテキスト スタイルに適用する段落書式を指定します。
BasedOn	省略可能	String	新しいテキスト スタイルの基になるテキスト スタイルの名前を指定します。 指定した名前が既存のテキスト スタイルと一致しない場合は、エラーが発生します。

戻り値

TextStyle

例

次の使用例は、"Normal" のテキスト スタイルを基にした作業中の文書に、新しいテキスト スタイルを追加します。

Dim tsNew As TextStyle 
 
Set tsNew = ActiveDocument.TextStyles _ 
 .Add(StyleName:="Title", BasedOn:="Normal")

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

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