Style. linktolisttemplate メソッド (Word)Style.LinkToListTemplate method (Word)

指定されたスタイルを箇条書きテンプレートにリンクし、そのスタイル書式を箇条書きに適用できるようにします。Links the specified style to a list template so that the style's formatting can be applied to lists.


expression.expression. LinkToListTemplate( _ListTemplate_ , _ListLevelNumber_ )

expression 必須です。expression Required. 'Style' オブジェクトを表す変数を取得します。A variable that represents a 'Style' object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
ListTemplateListTemplate 必須Required ListTemplate objectListTemplate object スタイルをリンクする箇条書きテンプレートを指定します。The list template that the style is to be linked to.
ListLevelNumberListLevelNumber 省略可能Optional VariantVariant スタイルをリンクする箇条書きのレベルに対応する整数を指定します。An integer corresponding to the list level that the style is to be linked to. この引数を省略すると、スタイルのレベルが使用されます。If this argument is omitted, then the level of the style is used.


次の使用例は、新しい箇条書きテンプレートを作成し、[見出し 1] ~ [見出し 9] スタイルをレベル 1 ~ 9 にリンクします。This example creates a new list template and then links heading styles 1 through 9 to levels 1 through 9. 新しい箇条書きテンプレートを文書に適用します。The new list template is then applied to the document. 見出しスタイルが設定された段落は、箇条書きテンプレートに基づいて番号が付けられます。Any paragraphs formatted as heading styles will assume the numbering from the list template.

Dim ltTemp As ListTemplate 
Dim intLoop As Integer 
Set ltTemp = _ 
For intLoop = 1 To 9 
 With ltTemp.ListLevels(intLoop) 
 .NumberStyle = wdListNumberStyleArabic 
 .NumberPosition = InchesToPoints(0.25 * (intLoop - 1)) 
 .TextPosition = InchesToPoints(0.25 * intLoop) 
 .NumberFormat = "%" & intLoop & "." 
 End With 
 With ActiveDocument.Styles("Heading " & intLoop) 
 .LinkToListTemplate ListTemplate:=ltTemp 
 End With 
Next intLoop 
ActiveDocument.Content.ListFormat.ApplyListTemplate _ 

関連項目See also

Style オブジェクトStyle Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.