интеграция word и access

[serg1969]

Как можно копировать SELECTION из WORD в поле таблицы access
Если можно-дайте ссылки на русские ресурсы

[RayShade]

В общем случае как то так:

Код: Выделить всё

dim recordset as dao.recordset
dim wordapplication as word.application
set recordset=currentdb.openrecordset("tablename")
recordset.fields("fieldname")=wordapplication.selection.range.text

[serg1969]

Спасибо RayShade
При этом приложение access должно быть открыто ?

[RayShade]

Ну, вообще этот код сделан для выполнения в Access самом.

То есть, его можно вставить в Access VBA проект.

И выполняться соответствнно, он будет, когда Access открыт.



Да, wordapplication надо инициализировать еще сперва - то есть сопоставить приложению Word:

Код: Выделить всё

set wordapplication = getobject(,"Word.Application")


[serg1969]

RayShade, спасибо за ответ!
Моя мысль была противоположной-
открытые 1.doc 1.mdb
в ворде выделяем текст или картинку- в userform выбираем название
поля( и файла) н а ж и м а е м на к н о п о ч к у и текст уже в базе
ответь пожалуйста!

[RayShade]

А кнопочку где нажимаем? В Word или Access?

[serg1969]

в ворде

[RayShade]

Ну так тогда берем, мой код и модифицируем его немного:

Код: Выделить всё

dim db as dao.database
dim recordset as dao.recordset
set db = opendatabase(userform1.textbox1.text)
set recordset=db.openrecordset("tablename")
recordset.fields(userform1.textbox2.text)=application.selection.range.text

Ну вот.

Заносит в поле имя которого содержится в TextBox2 и базу, в файле с именем TextBox1 текущий Selection.

[serg1969]

Спасибо большое, попробую
Есть еще проблема- как с помощью find
добыть имена файлов из директории
все экземплы почему то ограничиваются msgbox ом
если не затруднит

[RayShade]

На форуме в общем то куча примеров.

Можно поискать мой, я его тут недавно выкладывал.

Его можно найти по ключевым словам XLS

[serg1969]

Спасибо попробую найти