SoloCodigo

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