Вопрос один, как мне перенести строку или табличную часть в Word.

А можно уточнить версию 1С? и что именно вы хотите перенести в MS Word, или просто хотите формировать печатную форму в формате MS Word.

Версия 1С: 1С 8.0.18.2.
Задача: Изменилась с момента написания сообщения и выглядит теперь так, как програмно добавить страницу в объект типа Word.
Пояснения к задаче: 

- создаю объект СОМ типа Word на основе макета Active Document:


Макет = ПолучитьМакет("Макет");
Word = Макет.Получить();


- получаю  документ в этом объекте:


Документ = Word.Application.Documents(1);
Документ.Activate();


- дальше встает проблема, как добавить страницу в данном документе, первая страница там уже есть, надо добавить к приемеру ещё  одну - вторую;

Личные рассуждения (в расчет можно не принемать): я так понимаю с объектами СOМ, в частности с приложением Word нужно общаться на Visual Basic. Хотелось бы узнать, какая функция отвечает за добавление страницы в документе и есть ли она там вообще.

 

Да, и ещё одна проблемка, как програмно распечатать сраницу документа в той же 1С 8.0

Вот пример добавления новой страницы в ворд

            word = Новый COMОбъект("Word.Application");
            word.Visible=1;
            док = word.Documents.Add();
            док.ActiveWindow().Selection.InsertBreak(1)

Народ, помогите, как перенести этот код в 1С?


"ПунктСФаксимиле" - название закладки, макрос переходит на эту закладку и удаляет ее и пустую стоку.

В семерки просто все 

    ВыбратьСтроки();
        Ном=0;   
        Пока (ПолучитьСтроку() = 1) Цикл 
            Ном=Ном+1;      
            Если Ном>1 Тогда
                Док.Tables.Item(2).Rows.Add();      
            КонецЕсли;
            For i=2 to 6 Do
                Если i=2 Тогда 
                    Значение=Товар.Наименование;
                ИначеЕсли i=3 Тогда
                    Значение=Товар.ЕдИзм.Наименование;
                ИначеЕсли i=4 Тогда
                    Значение=Формат(КолВо,"Ч010.2");
                ИначеЕсли i=5 Тогда
                    Значение=Формат(Товар.Цена,"Ч010.2");
                ИначеЕсли i=6 Тогда
                    Значение=Формат(Товар.Цена*КолВо,"Ч015.2");
                    
                КонецЕсли;            
                Док.Tables.Item(2).Cell(Ном+1,i).Range.InsertAfter(СокрЛП(Строка(Значение)));         
            EndDo;      
            
        КонецЦикла;
    конецесли;