У меня из базы информация определенным образом группируется и поступает в документ Word. Все работает в принципе нормально. Делаю я все ч/з объектную Word - вскую библиотеку. Ну т.е . завожу объекты типа word.application and word.document. Все работает. Но стоит мне закрыть Word и повторить перекачку данных в новый документ, дает ошибку пишет что ссылка уже существует. Нажимая Ctrl+Alt+Delete и действительно вижу , Word торчит
Но я в конце процедуры использую очистку объектных переменных с помощью Nothing . В чем же дело? Видать не доходит до места с Nothing. Как уничтожить ссылку?\

(кстати это все в windows 98).


Вот впрочем кусок кода.

Dim wrd As Word.Application
Set wrd = CreateObject("word.application")
With wrd

.Documents.Add



With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
.LeftMargin = CentimetersToPoints(0.3)
.RightMargin = CentimetersToPoints(0.3)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
End With
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
= wdMasterView Then
ActiveWindow.ActivePane.View.Type = wdPageView
End If
With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=3
.EvenlySpaced = True
.LineBetween = False
.Width = CentimetersToPoints(8.87)
.Spacing = CentimetersToPoints(1.25)
End With

.....

потом идут действия где я используя DAO . Recordset - отбираю записи и пихаю в документ активный. И в конце вот очищаю ссылки

.....

Set wrd = Nothing
Set rs1 = Nothing
Set rs2 = Nothing
Set rs3 = Nothing
Set rs4 = Nothing

В Access ссылка на библиотеку word стоит.


Помогите с вопросом , ребята! Кто возился с автоматизацией Access & Word?

2 Senin Viktor
Так ведь закрываю Word , а по тройному нажатию он все равно виден!

2 Темный
Спасибо. Просветил! И как же этот объект убить, почему он не уничтожается когда я Word закрываю?

Что этот объект из себя представляет? Word.Application? Ведь именно его я создаю через CreateObject . Он, да он. Как его уничтожить то?

В свете полученной информации перефразирую вопрос.
Как убить не ссылку , а объект Word ?

Виктор!
Надо чтобы Access cформировал word -вский документ и оставил его на экране.Юзер сам его сохранит и закроет . Но он закрывает его, а Word все равно висит!

Спасибо!
Т.е создаем приложением Word.Application и потом добавляем word.Document . Так , а потом шлепаем ссылку именно на word.document .

Теперь бы вспомнить как сделать явную ссылку на документ Может здесь имется ввиду физически создать документ на винте, а потом его открыть? Или как?

Знатоки word - вской объектной библиотеки как назло наверное водку пьют.

Или кто знает?

Виктор спасибо.

Спасибо за выкладки.

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

Ты подскажи именно как выпутаться с условием , что уже открыт Word и добавлен документ, в него "слиты" и сгруппированы записи из БД.

>Тогда надо просто получить ссылку на этот уже открытый документ и делать с этим документом все, что душе угодно.

Виктор!
Во во во! Это и нужно! Только вот как это "замочить" то? Как получить ссылку на открытый документ? Эта ссылка ведь Access создается? Им же и надо убить? Когда Word обычным образом закрываю, он не торчит же скрыто! А эта черт её дери автоматизация все переворачивает

Вечером из дома зайду в интернет и посмотрю. А сейчас надо домой.

Виктор еще раз спасибо.

Сижу вожусь уже дома.

Я понял тебя.