CanContinuePreviousList 方法

       

返回一个 WdContinue 常量(wdContinueDisabledwdResetListwdContinueList),该常量表明是否接续上一列表编号。

expression.CanContinuePreviousList(ListTemplate)

expression   必需。该表达式返回一个 List ListFormat 对象。

ListTemplate   ListTemplate 对象,必需。一个应用于文档中先前段落的列表模板。

说明

本方法返回指定列表格式的“继续前一列表”和“重新开始编号”选项状态,这些选项位于“项目符号和编号”对话框中。设置 ApplyListTemplate 方法的 ContinuePreviousList 参数可修改这些选项的设置。

示例

本示例检查前面的列表的编号是否有效。如果无效,则应用当前的列表模板,其编号接续先前列表的编号。所选内容必须位于第二个列表中,否则导致出错。

Dim lfTemp As ListFormat
Dim intContinue As Integer

Set lfTemp = Selection.Range.ListFormat

intContinue = lfTemp.CanContinuePreviousList( _
    ListTemplate:=lfTemp.ListTemplate)
If intContinue <> wdContinueDisabled Then
    lfTemp.ApplyListTemplate _
        ListTemplate:=lfTemp.ListTemplate, _
        ContinuePreviousList:=True
End If