|
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Н ворд файл как это реализовать?
|
| Форум | Правила | Описание | Секции | Поиск |