返回一个 WdContinue 常量(wdContinueDisabled、wdResetList 或 wdContinueList),该常量表明是否接续上一列表编号。
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