Сохранение готового документа EXEL в Word

[Alekseygomel]

В общем ситуация такова, сделал форму отчёта в EXEL. Проверил, всё меня устроило, но как оказалось эту форму диспетчер принимает только в Word (ну так научили). Вот возник вопрос как мне желательно макросом преобразовать мой фаил в word. Файлик прилагаю. Преобразовать нужно только вторую книгу. Может кто сталкивался с похожей ситуацией?

[EducatedFool]

Макрос несложный получится.

Sub ConvertExcelToWord()
    ' © 2016 ExcelVBA.ru
    Worksheets("ОТЧЁТ").Copy        ' создаём копию листа ОТЧЁТ в новом файле
    ActiveWorkbook.SaveAs "c:\отчёт.html", xlHtml        ' сохраняем файл с отчётом в формате HTML
    ActiveWorkbook.Close False        ' закрываем временный файл

    ' запускаем Word, открываем файл "c:\отчёт.html", и пересохраняем его в формате DOC
    Set wObj = CreateObject("Word.Application")
    Set objDoc = wObj.Documents.Open("c:\отчёт.html")
    objDoc.SaveAs2 "c:\отчёт.doc", 0 ' wdFormatDocument = 0
    objDoc.Close saveChanges:=False
    wObj.Quit        ' закрываем word
End Sub

[Alekseygomel]

Спасибо,
но есть пару вопросов
1 objDoc.SaveAs2 "d:\îò÷¸ò.doc", 0 ' wdFormatDocument = 0
не поддерживается этот метод ошибка 438
(если открыть полученный html в ворде и сохранить вручную как doc, то всё получается )
2 что надо добавить в макрос что-б ориентация страницы в создаваемом вордовском документе была альбомная и без лишних полей (как у EXEL).

[Alekseygomel]

Остаётся запущенным процесс winword.exe, может проблема в версии офиса?
У меня 2003 офис.


ОГРОМНОЕ СПАСИБО!
В общем разобрался, в objDoc.SaveAs2 надо убрать 2 и всё стало сохранять!
Осталось разобраться что-б ориентация страницы в создаваемом вордовском документе была альбомная и без лишних полей (как у EXEL).
ЗЫ. С ориентацией тоже разобрался, осталось только убрать лишние полосы