Запуск макроса документа Word

{ВнешняяОбработка.ПечатьЗаказаПоставщику.МодульОбъекта(1011)}: Метод объекта не обнаружен (I_nsertLines)

Не могу понять в чем дело.

MSWord = Новый COMОбъект("Word.Application");
--------\\\------------------
WordDocument = MSWord.ActiveDocument();
--------\\\------------------

ДобавлениеВторойТаблицы = "Sub Макрос2()
|    Selection.MoveDown Unit:=wdLine, Count:=2
|    With ListGalleries(wdNumberGallery).ListTemplates(7).ListLevels(1)
//|        .NumberFormat = "%1."
|        .TrailingCharacter = wdTrailingTab
|        .NumberStyle = wdListNumberStyleArabic
|        .NumberPosition = CentimetersToPoints(0.5)
|        .Alignment = wdListLevelAlignLeft
|        .TextPosition = CentimetersToPoints(1.13)
|        .TabPosition = wdUndefined
|        .ResetOnHigher = 0
|        .StartAt = 1
|        With .Font
|            .Bold = True
|            .Italic = wdUndefined
|            .StrikeThrough = wdUndefined
|            .Subscript = wdUndefined
|            .Superscript = wdUndefined
|            .Shadow = wdUndefined
|            .Outline = wdUndefined
|            .Emboss = wdUndefined
|            .Engrave = wdUndefined
|            .AllCaps = wdUndefined
|            .Hidden = wdUndefined
|            .Underline = wdUndefined
|            .Color = wdUndefined
|            .Size = wdUndefined
|            .Animation = wdUndefined
|            .DoubleStrikeThrough = wdUndefined
|            .Name = ""
|        End With
|        .LinkedStyle = ""
|    End With
|    ListGalleries(wdNumberGallery).ListTemplates(7).Name = ""
|    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
|        ListGalleries(wdNumberGallery).ListTemplates(7), ContinuePreviousList:= _
|        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
|        wdWord10ListBehavior
|    Selection.PasteAndFormat (wdListRestartNumbering)
|End Sub";

VBComponents = WordDocument.VBProject.VBComponents;
Count = VBComponents.Count();
VBComponents.Add(1);
VBComponents.Item(Count + 1).CodeModule.I_nsertLines(1, ДобавлениеВторойТаблицы);

ТаблицаВордОсновная.Select();
MSWord.Selection.Copy();

MSWord.Run("ДобавлениеВторойТаблицы");