|
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Н ворд файл как это реализовать?
|
|