VBA继续编号列表

Question

我导出在编号列表中包含表的Word文档。我无法控制导出。我正在尝试创建一个格式化宏，该宏从表中的最后一个字符开始，退出该表，但继续对表上方的列表进行编号。我试图记录它，但是它编码了起始编号，我只希望它从表格前的编号开始继续。录制时，我会将光标放在表格中最后一个字符的末尾，按下并选择我的常规样式，然后单击编号列表按钮。

这是我尝试过的：

Sub PITA()
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Style = ActiveDocument.Styles("Normal")
ListGalleries(wdOutlineNumberGallery).ListTemplates(7).Name = ""
Selection.range.ListFormat.ApplyListTemplateWithLevel1 ListTemplate:= _
    ListGalleries(wdOutlineNumberGallery).ListTemplates(7), _
    ContinuePreviousList:=True, ApplyTo:=wdListApplyToWholeList, _
    DefaultListBehavior:=Word10ListBehavior
End Sub

这非常令人沮丧，因为我看到ContinuePreviousList设置为true。我没有复制宏的录制版本，因为它有过多的不需要的格式。