將一組清單格式設定特性套用至指定的 ListFormat 物件。
語法
運算式。ApplyListTemplate (ListTemplate、 ContinuePreviousList、 ApplyTo、 DefaultListBehavior)
需要 expression。 代表 List 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| ListTemplate | 必要 | ListTemplate | 要套用的清單範本。 |
| ContinuePreviousList | 選用 | Variant | True 可繼續上一個清單的編號 為 false ,開始新的清單。 |
| ApplyTo | 選用 | Variant | 是要套用至清單範本的清單部分。 可以是下列其中一個 WdListApplyTo 常數: wdListApplyToSelection、 wdListApplyToWholeList 或 wdListApplyToThisPointForward。 |
| DefaultListBehavior | 選用 | Variant | 設定值,指定 Microsoft Word 是否使用新的網頁導向格式設定,以改善清單顯示效果。 可以是下列其中一個 WdDefaultListBehavior 常數:wdWord8ListBehavior (使用與 Microsoft Word 97) 相容的格式設定,或 wdWord9ListBehavior (使用 Web 導向格式設定) 。 基於相容性原因,預設常數為 wdWord8ListBehavior,但在新的程式中,您應使用 wdWord9ListBehavior 來利用縮排和多層級清單方面改進的 Web 導向格式設定。 |
範例
此範例會將變數 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 支援與意見反應。