Помогите пожалуйста!
У меня проблема: есть Б.Д. с полем OLE (Документ Word), подскажите пожалуйста можно ли как-нибудь перевести все эти данные в тип поля "текстовой" (в ручную это сделать не реально т.к. 1000 записей), мне просто все эти данные надо перенести в другую Б.Д., но уже в нормальном виде. (Посмотрел все темы по OLE в форуме, но что-то ничего не нашел).
Мне было бы лучше перевести данные не программно (т.к. VBA я знаю плохо), а, если это возможно, с помощью RAD инструментов.

Буду признателен за любой совет по данной теме!!! :-)

RAD (rapid application development tool) - инструмент быстрой разработки приложений. А Вы предлагаете 1000 записей Copy & Paste? Я не против программного подхода, я просто не знаю, как работать с VBA.

Спасибо большое за пример!
Но уж простите меня бестолкового, у меня теперь такая загвоздка-
во второй строке пишу:
Table = "(user-tabl)"
а комп ругается на эту строчку и пишет:
Compile error:
Invalid outside procedure!!!
P.S. Библиотеки вроде все подключил.

HELP ME PLEASE!!!

Может я что-то не правильно понял, но я запускаю этот макрос из VBA.

Вот:

Dim I As Long, Table As String
Table = "(user-tabl)"
DoCmd.OpenTable Table, acNormal, acEdit
For I = 1 To 1000
SendKeys "{TAB}", True 'перейти на поле OLE (оно у меня в таблице второе поле)
SendKeys "^~", True ' нажать на клавишу Ctrl+Enter
SendKeys "^a", True ' Выделить весь текст в Word
SendKeys "^{INSERT}", True ' Скопировать в буфер
SendKeys "%{F4}", True ' Закрыть приложение
SendKeys "{TAB}", True ' Перейти на следующее поле для вставки (Текст)
SendKeys "+{INSERT}", True ' Вставить из буфера
DoCmd.GoToRecord acDataTable, Table, acNext ' Переход на следующую запись
SendKeys "+{TAB}", True ' Вернуться на предыдущее поле
SendKeys "+{TAB}", True ' Вернуться на предыдущее поле
Next I

Если что, заранее извиняюсь за полное незнание данного вопроса!

В VBA - "Run".

Ну можно и кнопкой, если это поменяет суть дела!-)

Ннннда и почему я такой бестолковый, сам себе удивляюсь.
Но я не понял:
А что значит "пометить в общий модуль" "и обрамить процедурой"?
А просто из VBA его запустить нельзя что ли?

Вот я балда!
Все сделал, а создать макрос не догадался!!! Спасибо. :-)))

Запустил макрос, пишет:
“Введенное выражение содержит имя функции, которое приложению Access не удается найти.” Суть в том, что он не находит таблицу user-tabl, а почему, не понимаю.

Слово Public перед описанием функции-написал.
Имя функции в модуле не отличается от того имени в макросе.
Не находит таблицу user-tabl, т.к. при запуске VBA, пишет, что не удается найти объект (user-tabl). :-)

Спасибо бльшое, у меня все запустилось!!!
Но он выполняет только три первых строчки, а остальные не успевает выполнять (т.к. не успевает закрыть Word) и берет в буфер обмена всю табличку.
Я написал программу "задержки" по времени:

Public Declare Function timeGetTime_
Lib "winmm.dll" () As Long
IPause = 10
ITimeStart = timeGetTime()
ITime = timeGetTime() - ITimeStart < IPause
ITime = timeGetTime() - ITimeStart
Loop

но она почему-то не хочет работать, ругает две первых строчки, подскажите пожалуйста, что я не так делаю.

Программу задержки выполнил так:
For N = 1 To 20000
Next N

Но программка все-равно выполняет только первые три строчки!!!
Помогите, что же делать?

"Какая разница автору вопроса, какой чужой код передирать - программный или не программный?" Разница есть: не программно для меня понятней и я смогу в нем что-либо изменить (т.к. данные из одного OLE поля мне надо было: 1.разнести по трем полям 2.разнести по шести полям).
Кстати (может кому-нибудь пригодится), после долгих раздумий я все-таки решил проблему!
Надо просто открыть и держать открытым Word, тогда все работает без проблем, а временная задержка здесь не помогает! :-)))
P.S. Спасибо всем за советы!