VB6 E WORD

[FraChiara]

Ciao a tutti, ho un problema.
Io faccio delle selezioni su una tabella access che mi restituisce nominativi e indirizzi di persone; per ognuna di queste persone devo creare una lettera in word.Quello che faccio io è:

1. Aprire l'oggetto word

Set objWord = New Word.Application
Set objdoc = objWord.Documents.Add
Set objdocTemplate = objWord.Documents.Add
'rende attivo il documento appena creato
objdoc.Activate
Set objdocTemplate = objWord.Documents.Open("percorso")

2. Salvare il documento con un altro nome
objdocTemplate.SaveAs FileName:="percorso1"
Set objdoc = objWord.Documents.Open("percorso2")

3. copio il template della lettera e lo incollo su una nuova pagina

4. salvo il documento
objdoc.Save

5. chiudo documento e oggetto word
objdoc.Close
objWord.Quit


Il problema è che quando chiudo l'oggetto word e poi lo riapro mi esce il seguente errore: "Il computer server remoto non esiste o non è disponibile".
Qualcuno sa spiegarmi perchè? Il problema viene risolto se dal task manager chiudo word e rieseguo l'operazione...ma perchè? forse non è abbastanza fare objword.quid per abbandonare l'oggetto?

Vi prego, aiutatemi!!!! VVoVe:

[Brainjar]

Prova così :

objdoc.Close 
objWord.Quit 

Set objWord = Nothing

Ciao,

[FraChiara]

ah, dimenticavo di dire che l'errore esce alla seguente istruzione:

Selection.Goto what:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""

Non mi da alcun problema sull'istruzione
objdoc.Content.Tables(1).Cell(8, 4).Range.Text = ""
quindi vuol dire che cmq apre l'oggetto word e modifica anche!
Ma sulla selezione mi da il problema prima citato

[FraChiara]

Niente....l'errore esce comunque....

[Jupy64]

Ciao, ma l'oggetto objdocTemplate lo chiudi???

[FraChiara]

purtroppo non è quello il problema.....
ho provato anche a toglierlo completamente e a utilizzare solo objdoc...ma niente da fare...

[FraChiara]

ragazzi, ho capito che è l'oggetto selection che crea problemi.
Come devo fare? c'è un'alternativa? Perchè mi crea questo problema?