| |
 44 Кб. |
|
| | перетащить таблицу сделанную в excel ....в word | |
| |
| |
| |
|
|
| | вставить в ворд как объект | |
| |
| |
|
|
| |
15 Кб. |
|
| | что - "ДА" ? | |
| |
| |
| |
|
|
| | вставить в ворд как обьект... | |
| |
| |
|
|
| |
|
|
| | см. приложение в предыдущем ответе
word - меню - вставка- объект - Создание из файла .... | |
| |
| |
|
|
| |
|
|
| | макрос где должен выполняться?
Нужно создать новый файл Word или в существующий? | |
| |
| |
|
|
| |
|
|
| | дама отвечает лаконично, как на экзамене  | |
| |
| |
|
|
| |
|
|
| | отнюдь
-----------
Ваша проблема решается минут за 15, если вопрос сформулировать в понятной форме
а так бедняга OSMOR из Вас пасатижами вытаскивает подробности, начиная с 16.11.2006 | |
| |
| |
| |
|
|
| | дак теперь вроде все понтно... или нет??? | |
| |
| |
| |
|
|
| | Вы мне так и не ответили где должен выполняться код...
Этот код нужно вставить в 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
|
| |
| |
| |
| |
|
|
| | спасибо!!!!!!!!!!!!!!! обращусь еще!!!  | |
| |
| |
|
|
