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