access->word, как обработать ошибки?

[demon416]

Друг попросил помочь сделать вывод данных из формы acces в документ word.
вывод я сделал но очень часто вылетают ошибки при выполнении
если word запущен ругается на

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

wd.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=10, NumColumns _
        :=3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed

если word был недавно закрыт на последнюю строчку

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

Dim wd As New Word.Application
wd.Documents.Add
Form_All.SetFocus
wd.Selection.PageSetup.LeftMargin = CentimetersToPoints(0.5)

подскажите как сделать обработчик для этих ошибок или избежать их появления
и как сделать чтобы эта vba программа работала на любом офисе (хотя бы 2000-2003)?
базу можно скачать тут http://letitbit.net/download/061150106652/1.rar.html

[Teslenko_EA]

Здравствуйте demon416.
Прекрасный пример от "Leader Access"
Евгений.

[demon416]

Спасибо за пример .
ошибка нашлась
Создание таблицы я скопировал с макроса и в двух местах не проставил что selection относиться к word-у, тоесть правильно надобыло так :

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

wd.ActiveDocument.Tables.Add Range:=[b]wd.[/b]Selection.Range, NumRows:=10, NumColumns _
        :=3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed