Visual Basic - ERROR 462 EN TIMEPO EJECUCION.

Hola:

Tengo un formulario de presentacion del programa con un boton que al pulsarlo salta a otro formulario con una serie de campos de texto. Éste último dispone de un boton que al pulsarlo abre word e inmediatamente despues una plantilla de word fusionandose los datos de los textbox en los marcadores de la plantilla. Hasta hay bien.

El problema viene cuando despues de cerrar el documento generado, vuelvo al formulario, cambio los datos de los textbox y vuelvo a generar un nuevo documento con los nuevos datos, la plantilla de word me la abre pero no se fusioann los datos porque aparece un mensaje de error que dice así:

"error 462 en tiempo de ejecución"
"El equipo servidor remoto no existe o no está disponible"

¿Como puedo solucionar el problema?

Para abrir Word y fusionar los datos uso:

Dim Word As Word.Application
Set Word = New Word.Application
Word.Application.Visible = True
Word.Documents.Open FileName:="C:\PROYECTO\COMPRAS.dot"
Word.ActiveDocument.Bookmarks.Item("Texto1").Select
Word.Selection.TypeText Text:=Form1.Combo2.Text
Set oWord = Nothing

Hola! Estuve probando con un codigo parecido al tuyo, simulando casi la misma situacion y llegue al mismo resultado. Para solucionarlo, le agregue un control de errores. La verdad lo que hago es un asco para la programacion... pero funciona... =) Bueno, entonces tu codigo modificado seria algo como lo que sigue, espero te sirva.Saludos

Dim Word As Word.Application
On Error GoTo manejar_error
Set Word = Nothing
Set Word = New Word.Application
Word.Application.Visible = True
Word.Documents.Open FileName:="C:\PROYECTO\COMPRAS.dot"
Word.ActiveDocument.Bookmarks.Item("Texto1").Select
Word.Selection.TypeText Text:=Form1.Combo2.Text
Set oWord = Nothing
Exit Sub
manejar_error:
If Err.Number = 462 Or Err.Number = 429 Then
Set Word = New Word.Application
Resume Next
End If