Word VBA求助：复制含列表的表格单元格并重启编号失败

我在Word表格第一行填了带编号列表的模板内容，想要复制该行并保留所有格式，同时让第二行的列表编号从1重新开始，但现有代码达不到预期效果。

现有代码 #

Sub copyTableData()

    Tables(1).Cell(1, 2).Range.FormattedText.Copy

    Tables(1).Cell(2, 2).Range.FormattedText.PasteAndFormat (wdListRestartNumbering)
End Sub

问题现象 #

代码能保留文本格式，但即便使用了wdListRestartNumbering参数，第二行的编号依然从第一行的末尾继续，而且最后一个列表项未被编号。

解决方案 #

方法1：遍历段落重置列表编号 #

复制文本后，手动断开新列表与原列表的关联，设置起始编号为1：

Sub copyTableDataFix()
    Dim sourceCell As Cell
    Dim targetCell As Cell
    Dim listPara As Paragraph
    
    Set sourceCell = Tables(1).Cell(1, 2)
    Set targetCell = Tables(1).Cell(2, 2)
    
    ' 复制带格式的文本
    sourceCell.Range.FormattedText.Copy
    targetCell.Range.FormattedText.Paste
    
    ' 遍历目标单元格内的段落，重启编号
    For Each listPara In targetCell.Range.Paragraphs
        If listPara.Range.ListFormat.ListType <> wdListNoNumbering Then
            ' 设置起始编号为1
            listPara.Range.ListFormat.List.ListLevels(1).StartAt = 1
            ' 断开与原列表的关联，创建独立列表
            listPara.Range.ListFormat.ApplyListTemplateWithLevel _
                ListTemplate:=listPara.Range.ListFormat.ListTemplate, _
                ContinuePreviousList:=False
        End If
    Next listPara
End Sub

方法2：复制单元格后重置列表属性 #

直接复制单元格，再修改列表的连续属性和起始编号：

Sub copyTableAndRestartNumber()
    ' 复制源单元格
    Tables(1).Cell(1, 2).Copy
    ' 粘贴并保留源格式
    Tables(1).Cell(2, 2).PasteSpecial Paste:=wdPasteAllUsingSourceStyles
    
    ' 重置目标单元格的列表编号
    With Tables(1).Cell(2, 2).Range.ListFormat
        If .ListType <> wdListNoNumbering Then
            .List.ListLevels(1).StartAt = 1
            .ContinuePreviousList = False
        End If
    End With
End Sub

问题原因说明 #

wdListRestartNumbering参数失效，是因为复制后的文本默认和原列表属于同一个实例，没有真正断开关联。通过设置ContinuePreviousList = False并指定起始编号，能让新行的列表成为独立实例，实现编号从1重启的效果。

内容的提问来源于stack exchange，提问作者ApexPolenta