ник: osmor
Вы мне так и не ответили где должен выполняться код...
Этот код нужно вставить в 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
|