ListFormat.ApplyListTemplateWithLevel 方法 (Word)
會選擇性地針對所指定層級套用一組清單格式設定特性。
語法
expression。 ApplyListTemplateWithLevel
( _ListTemplate_
, _ContinuePreviousList_
, _ApplyTo_
, _DefaultListBehavior_
, _ApplyLevel_
)
表達 代表 'ListFormat' 物件的變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
ListTemplate | 必要 | ListTemplate | 要套用的清單範本。 |
ContinuePreviousList | 選用 | Variant | True 可繼續上一個清單的編號 為 false ,開始新的清單。 |
ApplyTo | 選用 | 變數 | 其中一個 WdListApplyTo 常數,指定要套用清單範本的清單部分。 |
DefaultListBehavior | 選用 | Variant | 會設定指定是否 Microsoft Word 針對新的 Web 導向格式較佳的清單中顯示的值。 可以是下列 WdDefaultListBehavior 常數之一: wdWord8ListBehavior (使用與 Microsoft Word 97 相容的格式) 或 wdWord9ListBehavior (使用 Web 導向格式)。 基於相容性考量預設常數 wdWord8ListBehavior ,但在新的程序中所應使用 wdWord9ListBehavior 充分運用改善 Web 導向格式的縮排及多層次清單會。 |
ApplyLevel | 選用 | 變數 | 要套用清單範本的層級。 |
範例
下列範例會將變數 myRange
設定為使用中檔內的範圍,然後驗證該範圍是否有清單格式設定。 如果尚未套用任何清單格式設定,則會將第四個大綱編號清單範本套用至該範圍。
Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
Start:= myDoc.Paragraphs(3).Range.Start, _
End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
myRange.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdOutlineNumberGallery) _
.ListTemplates(4)
End If
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。