Здравствуйте!
Как запустить из 1С макрос на сравнение 2-х файлов?
Текст макроса такой:
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Application.CompareDocuments OriginalDocument:=Documents("Файл1.docx"), _
RevisedDocument:=Documents("Файл2.docx"), _
Destination:=wdCompareDestinationNew, Granularity:=wdGranularityWordLevel _
, CompareFormatting:=True, CompareCaseChanges:=True, CompareWhitespace:= _
True, CompareTables:=True, CompareHeaders:=True, CompareFootnotes:=True, _
CompareTextboxes:=True, CompareFields:=True, CompareComments:=True, _
CompareMoves:=True, RevisedAuthor:="Информатики Отдел", _
IgnoreAllComparisonWarnings:=False
ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth
End Sub
Обязательные первые 2 параметра.
Через ШаблонВорд.VBProject путем программной построчной вставки кода макроса не получается. В офисе 2019 выдает ошибку Метод объекта не обнаружен (InsertLines). Никак не победить. В предыдущих версиях InsertLines получался.
Как запустить из 1С макрос на сравнение 2-х файлов?
Текст макроса такой:
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Application.CompareDocuments OriginalDocument:=Documents("Файл1.docx"), _
RevisedDocument:=Documents("Файл2.docx"), _
Destination:=wdCompareDestinationNew, Granularity:=wdGranularityWordLevel _
, CompareFormatting:=True, CompareCaseChanges:=True, CompareWhitespace:= _
True, CompareTables:=True, CompareHeaders:=True, CompareFootnotes:=True, _
CompareTextboxes:=True, CompareFields:=True, CompareComments:=True, _
CompareMoves:=True, RevisedAuthor:="Информатики Отдел", _
IgnoreAllComparisonWarnings:=False
ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth
End Sub
Обязательные первые 2 параметра.
Через ШаблонВорд.VBProject путем программной построчной вставки кода макроса не получается. В офисе 2019 выдает ошибку Метод объекта не обнаружен (InsertLines). Никак не победить. В предыдущих версиях InsertLines получался.
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Сравнение файлов Word через COM-объект:
ОбъектWord = Новый COMОбъект("Word.Application");
ОбъектWord.Visible = 0;
ОбъектWord.WordBasic.DisableAutoMacros(1);
Документ = ОбъектWord.Documents.Open(ПутьКФайлу1);
Документ.Revisions.AcceptAll();
Документ2 = ОбъектWord.Documents.Open(ПутьКФайлу2);
Документ2.Revisions.AcceptAll();
wdCompareDestinationNew = 2;
wdGranularityCharLevel = 0;
CompareFormatting = Истина;
IgnoreAllComparisonWarnings = Истина;
ОбъектWord.CompareDocuments(
Документ,
Документ2,
wdCompareDestinationNew,
wdGranularityCharLevel,,,,,,,,,,,
IgnoreAllComparisonWarnings
);
ОбъектWord.Visible = 1;
ОбъектWord.Activate();
wdDoNotSaveChanges = 0;
Документ.Close(wdDoNotSaveChanges);
Документ2.Close(wdDoNotSaveChanges);
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот