Имя: Пароль:
1C
1С v8
Вставить лист Excel в Word
0 Igor_CKP
 
02.08.11
13:28
Имеется процедура формирования вордовских документов на основе шаблонов (*.dot). Для заполнения используются закладки (Bookmarks):

   Word = Новый COMОбъект("Word.Application");
   wdoc = Word.Documents.Add(ПутьКШаблону);
   wdoc.Application.Visible = 1;
   bkms = wdoc.Bookmarks;
   bkms.DefaultSorting = 0;
   Если bkms.Count > 0 Тогда

Требуется в документ вставить табличный документ (который располагается на форме документа 1С).
Похоже, что вставить непосредственно табличный документ в Word не удастся в силу ограничения количества колонок (не более 63).
Решил предварительно сохранить табличный документ в Excel , а потом уже вставить лист Excel в Word.

Так вот собственно вопрос – подскажите, пожалуйста, заветную строчку (несколько строк) этого кода.
Заранее огромное спасибо.
1 Scooter
 
02.08.11
13:29
(0)включаешь макрос, вставляешь лист, отключаешь макрос, читаешь код
2 Igor_CKP
 
02.08.11
13:38
(1)

Еще хотел сказать, что в запись макросов не отправлять)
Не думаю, что это то что нужно:


Sub Макрос1()
'
' Макрос1 Макрос
'
'
   Application.WindowState = wdWindowStateNormal
   Application.Keyboard (1049)
   Selection.Paste
End Sub
3 Tatitutu
 
02.08.11
13:39
Selection.InlineShapes.AddOLEObject
4 smaharbA
 
02.08.11
13:43
Не надо так делать

Ворд=Новый COMОбъект("Word.Application");
Ворд.Visible=-1;
Доки=Ворд.Documents;
Док=Доки.Add();
Параграфы=Док.Paragraphs;
Параграф=Параграфы.Add();
Куда=Параграф.Range();
Файл="";
Ссылка=0;
Иконка=0;
Шейпы=Куда.InlineShapes;
Шейпы.AddOLEObject("Excel.Sheet", Файл, 0, 0);
5 Scooter
 
02.08.11
13:44
Selection.PasteExcelTable False, False, False
6 Igor_CKP
 
02.08.11
14:01
Scooter, Tatitutu, smaharbA спасибо большое.