Работает в VBA, но не работает в VBS
Формулировка задачи:
Прошу помощи разобраться с методом, который получил из записи макроса. Он работает в VBA, но не работает в VBS
На третьей строке выдает ошибку: object doesn't support this property or method: "doc.comparedocuments"
Set obj = CreateObject("Word.Application")
Set doc = obj.Documents.Open("C:\fob\5.doc", , False, , , , , , , , , True)
doc.CompareDocuments "C:\fob\2.doc", "C:\fob\3.doc", wdCompareDestinationNew , wdGranularityWordLevel, True, True, True, True, True, True, True, true, True, True, "user", False
doc.SaveAs "C:\fob\4.docx"
Set doc = Nothing
obj.Quit
Set obj = Nothing
На третьей строке выдает ошибку: object doesn't support this property or method: "doc.comparedocuments"
Set obj = CreateObject("Word.Application")
Set doc = obj.Documents.Open("C:\fob\5.doc", , False, , , , , , , , , True)
doc.CompareDocuments "C:\fob\2.doc", "C:\fob\3.doc", wdCompareDestinationNew , wdGranularityWordLevel, True, True, True, True, True, True, True, true, True, True, "user", False
doc.SaveAs "C:\fob\4.docx"
Set doc = Nothing
obj.Quit
Set obj = Nothing
Решение задачи: «Работает в VBA, но не работает в VBS»
textual
Листинг программы
' Сравнение двух документов
' Сравнение двух документов запуск сравнения и сохранение результата в отдельный файл
Set Application = CreateObject("Word.Application") ' Создаём объект с Word-ом
Application.Visible = True ' делаем видимым Word
Set doc1 = Application.Documents.Open("C:\doc\doc1.docx", , False, , , , , , , , , True)
Set doc2 = Application.Documents.Open("C:\doc\doc2.docx", , False, , , , , , , , , True)
Set doc3 = Application.CompareDocuments(doc1, doc2, , False, , , , , , , , , True)
doc3.SaveAs("C:\doc\doc3.docx")
Application.Quit ' закрываем Word