WORD VBA在列表后插入文本

Question

在Word2010文档的最后，我们列出了6个项目的编号列表。我们希望使用End of Document在该文档的末尾添加一个文本，例如VBA。但是，当我尝试以下代码时，它总是将新的列表项（项目7）添加到具有该文本的列表中，如下图所示。 注意：我们无法控制文档。因此，文档的最后一行始终是列表的第6项，当用户运行VBA代码时，代码应该在文档末尾添加最后一行End of document.并且此行不应该是最后一行列表中的项目。：

Sub test()

Dim oList As List

Set oList = ActiveDocument.Lists(1)
oList.Range.InsertParagraphAfter
oDoc.Content.InsertAfter "End of Document";

End Sub

文档末尾列表的快照：

Answer 1

由于你想在文档的末尾插入，你甚至不需要找到列表，这应该这样做：

With ActiveDocument.Content
    .InsertParagraphAfter
    With .Paragraphs(.Paragraphs.Count).Range
        .InsertAfter "End of Document"
        .Style = wdStyleNormal
    End With
End With