リストの後ろにテキストを挿入するためのVBA VBA

Question

Word2010文書の最後に、6つの項目の番号付きリストがあります。この文書の末尾になどのテキストを追加する場合は、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