WORD VBA 在列表后插入文本答案

【问题标题】：WORD VBA to INSERT text after a listWORD VBA 在列表后插入文本
【发布时间】：2016-12-27 10:07:53
【问题描述】：

在我们的 Word2010 文档的末尾，我们有 6 个项目的编号列表。我们想使用VBA 在该文档的末尾添加一个文本，例如End of Document。但是当我尝试下面的代码时，它总是将一个新的列表项（第 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

文档末尾的列表快照：

【问题讨论】：

标签： vba ms-word

【解决方案1】：

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

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

【讨论】：