В 1с у документа есть красочная печатная форма, с таблицами, изображением и прочими данными. Нужно её сохранить в ms word в альбомном формате. Можно ли сохранить сразу весь этот макет предварительно программно сформировав его по документу?

никто не подскажет примером?

можно
табдок.записать(<имяфайла>,типфайлатабличногодокумента.DOCX);

(2) скачал пример, пробую делать через active document
то что вы говорите сильно просто думаете просто так сработает? Зачем тогда приведены эти сложные примеры?

Сейчас такое предктновение, создаю active document, загружаю туда документ .docx в альбомном формате, но он не создается (((( При нажатии на готово никакой реакции.

(3) почему бы сначала не попробовать простой способ?

(4) попробую

(4) слушай ниче так получилось одной строкой, только почему то приходится программу выбирать юля просмотра, по умолчанию без привязки лежит к ms word почему то(( ну и ещё мож какие преткновения этого метода потом выявятся!

(4) А как в этом случае задать альбомный формат? Не подскажете? Открывается в портретном...

мож так ТабДокумент.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;

такой ход не помог, предварительный просмотр все равно в портретной ориентации

    ТабДокумент.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
    ТабДокумент.Записать("Y:\Check_"+Прав(Номер,4)+".docs",типфайлатабличногодокумента.DOCX);

как подобраться к ms word задать ориентацию страницу ландшафт, почему не работает (9) ?

как то решал такой вопрос в эксель, подобное сюда прикручу

    ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    ИмяФайла        = ПутьКФайлу;
    //_Ориентация      = ОриентацияСтраницы.Ландшафт;
    ПолеСлева       = 0;
    ПолеСправа      = 0;
    ПолеСверху      = 0;
    ПолеСнизу       = 0;
    АвтоВысотаСтрок = Ложь;
    Попытка
        Excel                          = Новый COMОбъект("Excel.Application");
        Excel.Visible                  = False;
        Workbook                       = Excel.Workbooks.Open(ИмяФайла);
        Лист                           = Workbook.Sheets(1);
        Лист.PageSetUp.Zoom            = False;
        Лист.PageSetUp.FitToPagesWide  = 1; // По ширине листа
        Лист.PageSetUp.FitToPagesTall = False;
        //Если Ориентация = ОриентацияСтраницы.Ландшафт Тогда
            Лист.PageSetup.Orientation = 2; // xlLandscape
        //Иначе
        //   Лист.PageSetup.Orientation = 1; // xlPortrait
        //КонецЕсли;
        //Лист.PageSetup.LeftMargin   = Excel.Application.InchesToPoints(ПолеСлева  / 25.4); // Поле слева
        //Лист.PageSetup.RightMargin  = Excel.Application.InchesToPoints(ПолеСправа / 25.4); // Поле справа
        //Лист.PageSetup.TopMargin    = Excel.Application.InchesToPoints(ПолеСверху / 25.4); // Поле сверху
        //Лист.PageSetup.BottomMargin = Excel.Application.InchesToPoints(ПолеСнизу  / 25.4); // Поле снизу
        //
        Лист.PageSetup.LeftMargin   = Excel.Application.InchesToPoints(ПолеСлева);  // Поле слева
        Лист.PageSetup.RightMargin  = Excel.Application.InchesToPoints(ПолеСправа); // Поле справа
        Лист.PageSetup.TopMargin    = Excel.Application.InchesToPoints(ПолеСверху); // Поле сверху
        Лист.PageSetup.BottomMargin = Excel.Application.InchesToPoints(ПолеСнизу);  // Поле снизу
        //
        Если АвтоВысотаСтрок Тогда
            // Устанавливаем высоту строк
            НомерСтроки = 1;
            Пока НомерСтроки < 100000 Цикл
                Ячейка = Лист.Cells(НомерСтроки, 1);
                Строка = Ячейка.EntireRow();
                Строка.AutoFit();
                Если ПустаяСтрока(Ячейка.Value) Тогда
                    Прервать;
                КонецЕсли;
                НомерСтроки = НомерСтроки + 1;
            КонецЦикла;
        КонецЕсли;
        Excel.DisplayAlerts = False;
        Workbook.Save();
        Workbook.Close();
        Workbook = Неопределено;
        Excel.Quit();
        // 2014_09_19 LivingStar ->
        Excel.Visible         = True;
        Excel.DisplayAlerts = True;
        // <-
        Excel                 = Неопределено;
    Исключение
    КонецПопытки;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

как в ворде подобно (11) задать ораентацию страницы подскажет кто?

up!

(0) down!

подскажите не найду ни одного примера как изменить ориентацию страницы в форд

запиши макрос в "форде"

(16) да какой макрос! в Excel я делал как в (11) сохраняешь файл на диск а следом обрабатываешь его из 1с тем же макросом

для ворда реально не найду ни одно примера, там методы различные с (11)

(17) Ты не знаешь, что такое макрос в пакете мс офис - поищи в интернете.

(18) зачем мне макрос в ворде???? я его и делаю из 1с, не прикалывайся!!!!

(19) http://upload.wikimedia.org/wikipedia/commons/thumb/3/3b/Paris_Tuileries_Garden_Facepalm_statue.jpg/300px-Paris_Tuileries_Garden_Facepalm_statue.jpg

Если в вашем приложении используется печать, чаще всего без использования этого объекта не обойтись. Он позволяет программным образом настроить то, что на графическом экране настраивается через меню Файл->Параметры страницы. Объект PageSetup является вложенным в объекты Document, Selection и Range, и обычно обращение к нему происходит через эти объекты. Например, чтобы при печати документа он был выведен в альбомной ориентации, можно воспользоваться командой

ThisDocument.PageSetup.Orientation = wdOrientLandscape

http://www.askit.ru/custom/vba_office/m10/10_06_07_word_pagesetup_object.htm

(20) Отличная картинка! :)

(21) я это видел спасибо, я не могу подобраться к ThisDocuments

(23) http://mtdata.ru/u24/photo71AA/20792805648-0/original.jpg#20792805648

(21)
как будет правильно?

        Word                          = Новый COMОбъект("Word.Application");
        Word.Visible                  = False;
        Word.Documents.Open(ИмяФайла);
        ThisDocument = Word.ActiveDocument();        
        ThisDocument.PageSetup.Orientation = Orientation.wdOrientLandscape;

(25) так не работает?

Word                          = Новый COMОбъект("Word.Application");
        Word.Visible                  = False;
        ThisDocument                  = Word.Documents.Open(ИмяФайла);
        ThisDocument.PageSetup.Orientation = Orientation.wdOrientLandscape;        

|

после вот этой строки слетает, как нужно?

        ThisDocument.PageSetup.Orientation = Orientation.wdOrientLandscape;

И откуда 1с должна знать про какую-то там Orientation?

Попытка
        Word                          = Новый COMОбъект("Word.Application");
        Word.Visible                  = False;
        ThisDocument                  = Word.Documents.Open(ИмяФайла);
        ThisDocument.PageSetup.Orientation = 1;        
        Word.DisplayAlerts = False;
        ThisDocument.Save();
        ThisDocument.Close();
        //Workbook.Save();
        //Workbook.Close();
        Workbook = Неопределено;
        Word.Quit();
        // 2014_09_19 LivingStar ->
        Word.Visible        = True;
        Word.DisplayAlerts = True;
        // <-
        Word                = Неопределено;
    Исключение
    КонецПопытки;

(29) Ну вроде ж везде в примерах без Orientation в правой части пишут.

(30) так вообще не будет работать, они где то выше определили её значит

(31) "они".
Инопланетяне?

(31) Класс WdOrientation, но что-то в com соединении оно не работает

ну вот так в кратце
|
    Попытка
        Word                                = Новый COMОбъект("Word.Application");
        Word.Visible                        = False;
        ThisDocument                        = Word.Documents.Open(ИмяФайла);
        ThisDocument.PageSetup.Orientation  = 1;        
        ThisDocument.PageSetup.BottomMargin = 10;
        ThisDocument.PageSetup.RightMargin  = 10;
        ThisDocument.PageSetup.LeftMargin   = 10;
        ThisDocument.PageSetup.TotMargin    = 10;
        Word.DisplayAlerts                     = False;
        ThisDocument.Save();
        ThisDocument.Close();
        Word.Visible        = True;
        Word.DisplayAlerts = True;        
        Word.Quit();
        Word                = Неопределено;
    Исключение
    КонецПопытки;
|

но вот заметил на производительности это не очень сказывается, подвисает при создании этого ворда

оптимизировать если это нужно делать через Active document макет, но я пробовал создать макет, выбирая нужный шаблон из ворд, так по готово никакой реакции, что туда нужно добавлять то? Из за чего может не принимать?

(34) Поток сознания

так что там нужно загружать в макет Active documents? .docx почему не идет? там изображение таблица разноцветная, текст...