Запуск макроса документа Word
☑
0
sanja26
19.08.13
✎
16:56
{ВнешняяОбработка.ПечатьЗаказаПоставщику.МодульОбъекта(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("ДобавлениеВторойТаблицы");
1
sanja26
19.08.13
✎
16:56
Пример скопипизжен отсюда
2
sanja26
19.08.13
✎
17:11
Теперь другая ошибка
{ВнешняяОбработка.ПечатьЗаказаПоставщику.МодульОбъекта(1059)}: Ошибка при вызове метода контекста (Run): Произошла исключительная ситуация (Microsoft Word): Не удается запустить указанный макрос
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший