Имя: Пароль:
1C
1С v8
Word + 1C
0 Profenixxx
 
06.07.16
11:07
Добрый день!
О.Content.Select();
О.Content.Copy();
Ворд();
О.Close();



    ФормаВыполненияОбработки.Закрыть();
    Возврат Неопределено;

    
    
    
КонецФункции

Процедура Ворд()
    
     Wk2 = Новый COMОбъект("Word.Application");

     Документ2 =  Wk2.Documents.Open(ПутьКфайлу1);
    //док = Wk2.Documents.Add();
    //док.ActiveWindow().Selection.InsertBreak(5);

     Документ2.Content.Paste();

     Документ2.Save();
       Документ2.Close();
Wk2 ="";
    КонецПроцедуры


Суть задачи в том что бы перебрать печатный макет и сохранить 1 файлом в ворд постранично. Этот код сохраняет весь документ целиком а нужно что бы добавлял в имеющийся. В Сом соединении не силен, поможите чем сможите.
1 DrZombi
 
гуру
06.07.16
11:12
(0) Что нужно?
Вы в курсе, что у вас "Word"?

    Selection.TypeText Text:="ывыва"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="ыва"
    Selection.TypeParagraph
    Selection.TypeText Text:="ыв"
    Selection.TypeParagraph
    Selection.TypeText Text:="аы"
    Selection.TypeParagraph
    Selection.TypeText Text:="ва"
    Selection.WholeStory
    Selection.Copy
    Selection.MoveDown Unit:=wdScreen, Count:=1
    Selection.InsertNewPage
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.InsertNewPage
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
2 Profenixxx
 
06.07.16
11:43
Да в курсе нужно просто Скопированный элемент заполнять в 1документ WORD
3 Profenixxx
 
06.07.16
13:32
Ап.
Нужно просчитывать и вставлять какой то разрыв?
4 Profenixxx
 
07.07.16
09:40
Я просто в запросе копирую всю печатную форму документ АктивХ Ворд, затем вставляю, как добиться не полного затирания прошлого?
5 Profenixxx
 
07.07.16
09:41
Т.е. у нас есть 50 документов справка которую нужно по этим документам записать в 1Н ворд файл как это реализовать?