|
Вставить лист 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 спасибо большое.
|
|