"Billi must die" или руки кривые

Привет
Вот такой простенький код у меня срабатывает с точностю 1/2

Private Sub Кнопка49_Click()
Dim WrdA As Word.Application
Dim WrdD As Word.Document
Set WrdA = CreateObject("Word.Application")
WrdA.Visible = True
Set WrdD = WrdA.Documents.Add
Selection.TypeText ("Hello wold")
Set WrdD = Nothing
Set WrdA = Nothing
end sub

Перво нажатие: работает
- Закрываем Word
Второе: Создаётса документ потом ошибка 462 The remote server machine does not exist or unaveible
- Закрываем Word
Третье: работает

и так далее

Может хто штота подскажет или мне прямо за шаманским бубном отправлятса

Dim WrdA As Word.Application
Dim WrdD As Word.Document
Set WrdA = CreateObject("Word.Application")
WrdA.Visible = True
Set WrdD = WrdA.Documents.Add
WrdD.Content.InsertAfter "Hello wold"
Set WrdD = Nothing
Set WrdA = Nothing

может quit или exit какой делать (явный)?

Роман Петрик

Private Sub Кнопка49_Click() Dim WrdA As Word.Application Dim WrdD As Word.Document Set WrdA = CreateObject("Word.Application") WrdA.Visible = True Set WrdD = WrdA.Documents.Add Selection.TypeText ("Hello wold") Set WrdD = Nothing Set WrdA = Nothing end sub Может хто штота подскажет или мне прямо за шаманским бубном отправлятса

Вы сделали типичную ощибку.
Вы обратились к Selection, не указав объект к которому относится это свойство/метод, что недопустимо. Это привело к созданию скрытой публичной переменной... etc
Подробности почитайте здесь You may receive the "Run-time error '-2147023174' (800706ba)" error message or the "Run-time error '462'" when you run Visual Basic code that uses Automation to control Word in Office XP Developer and in Office 2000 Developer

Спасибо заработало.
А можна в двух словах теоретическую базу прочему некатит Selection и как с ним правильно работать

Спасибо всем большое.
Сначала спросил потом увидел шо уже подробно всьо описали