WORD VBA to INSERT текст после списка

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