из word в excel

Подскажите как с помощью VB перенести данные(строку например) из Word в ячейку Excel.

нашел такой код

Sub aaaaa()
Dim SelTmp As String
Dim AppExcel As New Excel.Application
Dim wBook As Workbook
        SelTmp = Selection.Text 'Присваиваем SelTemp значение строки выделенного текста
    Set AppExcel = CreateObject("Excel.Application") 'Запускаем Excel
    Set wBook = AppExcel.Workbooks.Add 'Создаем книгу
        AppExcel.Worksheets(1).Cells(1, 1).Value = SelTmp 'Присваиваем ячейке с координатами (1;1) ("A1") значение выделенного текста
        AppExcel.Visible = True 'Показываем окно Excel
'************************************************************************
'* Если это использовать в программе, то раскомментировать строки ниже: *
'************************************************************************
'        AppExcel.ActiveWorkbook.Close True
'        AppExcel.Quit
'    Set wBook = Nothing
'    Set AppExcel = Nothing
End Sub

но при использование его пишет такое "user-defined type not defined"

[EvroStandart]

В какой строке ошибка?

Dim AppExcel As New Excel.Application
в этой.

[gandalf_g]

надо импортировать ActiveX объект (Excel & Word) в VB.

Сообщение от gandalf_g

надо импортировать ActiveX объект (Excel & Word) в VB.

а поподробней можно )

[gandalf_g]

DOric:
а поподробней можно )

Добавьте к проекту ссылку к Microsoft Word 8.0 Object Library (команда Project|References).

тут

соотв в добавок добавить Excel Object Library, версии могут отличаться в зависимости от установленном на компе оффисе