[Gustav]

На скорую руку, не описывая переменные как-то так:

Sub Test()
    Set COMAppl = CreateObject("Word.Application")
    
    COMAppl.Visible = True
    
    Set COMDocuments = COMAppl.documents
    Set COMDocument = COMDocuments.Add("E:\data\222.dot")
    Set COMBookmarks = COMDocument.bookmarks
    Set COMBookmark = COMBookmarks.Item("label")
    Set COMrange = COMBookmark.Range
    COMrange.InsertAfter "label"
    
End Sub