SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Ramontxu en Martes 10 de Diciembre de 2002, 19:56

Título: Error 2147023174
Publicado por: Ramontxu en Martes 10 de Diciembre de 2002, 19:56
Necesito modificar un documento de Word con datos que obtengo de una base de datos . Cuando lo hago una vez funciona pero al pulsar otra vez para incorporar otros datos me aparece el error. Al tratar de depurar aparece la linea de error donde he colocado el asterisco.

Private Sub Command1_Click()
Dim AppWord As Word.Application
Dim DocWord As Word.Document
Set AppWord = CreateObject"word.application")
Set DocWord = AppWord.Documents.Open("d:hola.doc")
*Selection.TypeText Text:="AÑO: "
Selection.TypeText Text:="2002"
Selection.TypeText Text:=" "
Selection.TypeText Text:="CICLO: "
Selection.TypeText Text:=(CI)
Selection.TypeText Text:="GRUPO: "
Selection.TypeText Text:=(DE)

AppWord.Documents(1).PrintOut Background
AppWord.Documents.Close (wdDotNotSaveChanges)
Set DocWord = Nothing
AppWord.Quit
Set AppWord = Nothing
End Sub