ArcMap и экспорт в MS Word

Question

Доброго времени суток, коллеги !

Может быть кто-нибудь в курсе такой ситуации.

Написал код для экспорта атрибутивной информации в MS Word. При первом запуске все проходит идеально, все работает. Но при повторном экспорте вылетает с ошибкой Run-time error '462'.

Если все переменные связанные с Word-ом делаю Nothing без Application.Quit, то повторно запускается, но судя по 'Диспетчеру задач' Word не закрывается.

Если делаю Application.Quit - то соответственно Word закрывается, но как уже выше было сказано, при повторном запуске экспорта, вылетает с ошибкой '462'

Answer 1

Код покажете?

Answer 2

Код выглядит примерно так:

Private Sub cmdSoilReport_Click()

Dim WordApp As Object

Dim DocWord As Object

Set WordApp = CreateObject("Word.Application")

Set DocWord = WordApp.Documents.Add

DocWord.Application.Selection.PageSetup.LeftMargin = CentimetersToPoints(3)

DocWord.Application.Selection.PageSetup.RightMargin = CentimetersToPoints(1.5)

DocWord.Application.Selection.PageSetup.TopMargin = CentimetersToPoints(2)

    DocWord.Application.Selection.PageSetup.BottomMargin = CentimetersToPoints(2)

     . . .

     Здесь идет создание таблиц и их заполнение атрибутами

     . . .

WordApp.Visible = True

End Sub

Answer 3

Доброго времени суток !

Коллеги, разрешил проблему своими силами. Оказалось не все так сложно !!!

Если у кого-то возникла такая же проблема, пишите на ldokov@mail.ru постараюсь помочь