Я написал макросы в Worde. Создал форму в VB. Вставил туда один макрос. Но Basic не понимает объект Selection.
Как сделать, чтобы:
1. Basic не понимал объект Selection и др. объекты VBA?
2. В VBA обратиться к процедурам из модуля в текущем проекте?

Извините, исправил опечатку не понимал kminasЯ написал макросы в Worde. Создал форму в VB. Вставил туда один макрос. Но Basic не понимает объект Selection.
Как сделать, чтобы:
1. Basic понимал объект Selection и др. объекты VBA?
2. В VBA обратиться к процедурам из модуля в текущем проекте?

TIKOReverences подключал для Ворда?

Как только подключил References - заработало, но, потом, изменил name формы и все пропало и в этой форме и в других.

TIKOчто все?
Нет не все. Я прямо вставил макрос из Worda в кнопку CommandBatton и, сразу после подключения References (а у меня русский Бэсик - называется Информация) Microsoft Word 10.0 Object Library текст вставился в таблицу, но чёрт меня дёрнул изменить name формы и, никакой реакции. Даже не выдает ошибку. Вот текст этого макроса

Private Sub CmdInsert1_Click()
'Sub НорияГ175()
On Error GoTo errr
' НорияГ175 Макрос

Selection.MoveRight Unit = wdCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeText Text:= _
"Нория производительностью 175 т/час, с электродвигателем "
Selection.MoveRight Unit = wdCharacter, Count:=1
Selection.TypeText Text:="У8-УН-175 по графической "
Selection.MoveRight Unit = wdCharacter, Count:=1
Selection.TypeText Text:="---"
Selection.MoveRight Unit = wdCharacter, Count:=1
Selection.TypeText Text:= _
"ОАО Грязинский "
Selection.MoveRight Unit = wdCharacter, Count:=1
Selection.TypeText Text:="к-т"
Selection.MoveRight Unit:=wdCharacter, Count:=3
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:= _
"N=0.0кВт, с правым расположением привода, высота нории "
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeText Text:="спецификации 000-0-ТХ л."
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.TypeText Text:="машиностроительный "
Selection.MoveRight Unit:=wdCharacter, Count:=5
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="Н=000мм, в комплекте:"
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="завод ""ЭММ"""
Selection.MoveRight Unit:=wdCharacter, Count:=4
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="- с датчиками контроля сбегания ленты и подпора продукта "
Selection.MoveRight Unit:=wdCharacter, Count:=7
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="типа ДС-2-2 -2 комплекта;"
Selection.MoveRight Unit:=wdCharacter, Count:=7
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="- радиолокационным устройством контроля скорости типа РДКС-01"
Selection.MoveRight Unit:=wdCharacter, Count:=7
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=" -1 комплект;"
Selection.MoveRight Unit:=wdCharacter, Count:=7
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="- тормозным устройством;"
Selection.MoveRight Unit:=wdCharacter, Count:=7
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="- взрыворазрядным устройством в головке нории"
Selection.InsertRowsBelow 2
Selection.MoveRight Unit:=wdCharacter, Count:=1

Exit Sub

errr:
n = Err.Number
If n = 4605 Then
MsgBox "Мадмуазель Вы ошиблись! " & Chr(13) & "Поставьте, пожалуйста, курсор" & Chr(13) & "в ЛЕВУЮ НИЖНЮЮ ЯЧЕЙКУ таблицы!" _
& MyVar, Title:="Информирует ЗаСПав:", _
Buttons:=vbExclamation
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Resume Next
End If
End Sub

Пробовал и так

Dim sel As Word.Selection

Private Sub CmdInsert1_Click()
'Sub НорияГ175()
On Error GoTo errr
' НорияГ175 Макрос
' Макрос записан 24.01.06 костя

'Set sel = Word.Selection
sel.Selection.MoveRight Unit = wdCell
sel.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
sel.Selection.TypeText Text:= _
"Нория производительностью 175 т/час, с электродвигателем "
sel.MoveRight Unit = wdCharacter, Count:=1
sel.TypeText Text:="У8-УН-175 по графической "
sel.MoveRight Unit = wdCharacter, Count:=1
sel.TypeText Text:="---"
sel.MoveRight Unit = wdCharacter, Count:=1
sel.TypeText Text:= _
"ОАО Грязинский "
sel.MoveRight Unit = wdCharacter, Count:=1
sel.TypeText Text:="к-т"

(пробовал только этот кусок и выражение Set sel = Word.Selection)

СПАСИБО