IMHO.WS - из word в excel

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - из word в excel (https://www.imho.ws/showthread.php?t=107104)

из 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"

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

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

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

Цитата:

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

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

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

Цитата:

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

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

тут

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