нужна помощь с вордом

[007]

ситуация такая
[14:20:53] <[sov]DVD> вот кусок кода
[14:20:58] <[sov]DVD> Private Sub Command3_Click()

Dim wordapp As Word.Application
Dim worddoc As Word.Document
Dim sel As Word.Selection

Set wordapp = CreateObject("Word.Application")
wordapp.Documents.Add Template:="c:\проект\1.dot"
Set worddoc = wordapp.ActiveDocument

wordapp.Visible = True

worddoc.Bookmarks(1).Select
Set sel = Word.Selection
sel.TypeText (Text8.Text)


On Error Resume Next
worddoc.Tables(1).Cell(4, 5).Select
Set sel = Word.Selection
sel.TypeText ("hhhh")


End Sub


при первом нажатии всё вааще круто
но при втором, пишет ошибку
462 the remote server machine does not exist or is unavailable
помогите, плиз

[Gloom]

Вместо Set sel = Word.Selection
Нужно Set sel = wordapp.Selection
Хотя, ИМХО, работать через Selection неграмотно.
Я бы так сделал:

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

worddoc.Bookmarks(1).Range.Text = Text8.Text

[007]

Gloom
спасибо огромное, помогло, всё работает! ура!