既存のスタイルのベースになることができます別のスタイルの書式を設定または返します。 値の取得と設定が可能なバリアント型 (Variant) の値です。
構文
expression。 BaseStyle
式 'Style' オブジェクトを表す変数。
注釈
BaseStyle プロパティを設定するには、基本スタイル、整数、 wdbuiltinstyle クラス の定数のローカル名またはベースのスタイルを表すオブジェクトのいずれかを指定します。 、 Wdbuiltinstyle クラス の定数の一覧については、 スタイル オブジェクトのプロパティを設定するを参照してください。
例
この例では、新しい文書を作成し、"myHeading" という名前の新しい段落スタイルを追加します。新しいスタイルの基本スタイルとして見出し 1 が割り当てられます。 次に、新しいスタイルに 25.4 mm (72 ポイント) の左インデントを指定します。
Dim docNew As Document
Dim styleNew As Style
Set docNew = Documents.Add
Set styleNew = docNew.Styles.Add("NewHeading1")
With styleNew
.BaseStyle = docNew.Styles(wdStyleHeading1)
.ParagraphFormat.LeftIndent = 72
End With
次の使用例は、段落スタイル "本文" の基準になるスタイルを取得します。
Dim styleBase As Style
styleBase = ActiveDocument.Styles(wdStyleBodyText).BaseStyle
MsgBox styleBase
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。