| |
|
|
| |
to: ДрЮня
(20.11.2006 в 14:58)
|
| | 
| |
| |
| |
| |
|
|
| |
to: Шветка
(21.11.2006 в 16:12)
|
| | Вы мне так и не ответили где должен выполняться код...
Этот код нужно вставить в Excel и из него выполнять.
ФАйл Excel должен быть сохранен на диске, иначе не сработает, поскольку вставляется файл с диска
Public Sub ToWord()
Dim WordApp As Object
Dim WordDoc As Object
On Error GoTo Err_ToWord
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
WordDoc.InlineShapes.AddOLEObject "Excel.Sheet", ActiveWorkbook.FullName, False, False
WordApp.Activate
Exit_ToWord:
Exit Sub
Err_ToWord:
Select Case Err.Number
Case Else
MsgBox "(" & Err.Number & ") " & Err.Description & " в процедуре ToWord "
Resume Exit_ToWord
End Select
End Sub
|
| |
| |
| |
| |
|
|
| |
to: ДрЮня
(20.11.2006 в 14:58)
|
| | спасибо!!!!!!!!!!!!!!! обращусь еще!!!  | |
| |
| |
| |
|
|
| |
to: ДрЮня
(20.11.2006 в 14:58)
|
| | дак теперь вроде все понтно... или нет??? | |
| |
| |
| |
|
|
| |
to: Шветка
(21.11.2006 в 14:39)
|
| | отнюдь
-----------
Ваша проблема решается минут за 15, если вопрос сформулировать в понятной форме
а так бедняга OSMOR из Вас пасатижами вытаскивает подробности, начиная с 16.11.2006 | |
| |
| |
| |
|
|
| |
to: ДрЮня
(20.11.2006 в 14:58)
|
| | не смешно.. | |
| |
| |
| |
|
|
| |
to: Шветка
(20.11.2006 в 14:45)
|
| | дама отвечает лаконично, как на экзамене  | |
| |
| |
| |
|
|
| |
to: osmor
(17.11.2006 в 23:42)
|
| | новый..... | |
| |
| |
| |
|
|
| |
to: Шветка
(20.11.2006 в 00:42)
|
| | макрос где должен выполняться?
Нужно создать новый файл Word или в существующий? | |
| |
| |
| |
|
|
| |
to: osmor
(17.11.2006 в 23:42)
|
| | надо через макрос... | |
| |
| |
| |
|
|
| |
to: Шветка
(17.11.2006 в 22:09)
|
| | см. приложение в предыдущем ответе
word - меню - вставка- объект - Создание из файла .... | |
| |
| |
| |
|
|
| |
to: osmor
(17.11.2006 в 18:00)
|
| | вставить в ворд как обьект... | |
| |
| |
| |
|
|
| |
to: osmor
(16.11.2006 в 16:57)
|
| | я незнаю как... | |
| |
| |
| |
 15 Кб. |
|
| |
to: Шветка
(17.11.2006 в 17:10)
|
| | что - "ДА" ? | |
| |
| |
| |
|
|
| |
to: osmor
(16.11.2006 в 16:57)
|
| | да | |
| |
| |
| |
|
|
| |
to: Шветка
(16.11.2006 в 16:50)
|
| | вставить в ворд как объект | |
| |
| |
| |
44 Кб. |
|
| | перетащить таблицу сделанную в excel ....в word | |
| |
| |
