Office - URGENTE CON WORD PLEASE

QUE TENGO MAL....ME DA EL ERROR "NO SE HA DEFINIDO EL TIPO DEFINIDO..POR EL USUARIO.

Private Sub Command13_Click()
Dim AppWord As Word.Application
Dim DocWord As Word.Documents
'Asignamos el documento
Set AppWord = CreateObject("word.application")
Set DocWord = AppWord.Documents.OpenApp.Path & "\ofrecimiento.doc"
'Colocamos el texto en el marcador
DocWord.Bookmarks("lugarhecho").Select
AppWord.Selection.TypeText Text:=Text23.Text
'Imprimimos en segundo plano
AppWord.Documents(1).PrintOut Background
'Comprobamos que Word no sigue imprimiendo
Do While AppWord.BackgroundPrintingStatus = 1
Loop
'Cerramos el documento sin guardar cambios
AppWord.Documents.Close (wdDotNotSaveChanges)
'Liberamos
Set DocWord = Nothing
'Nos cargamos el objeto creado
AppWord.Quit
Set AppWord = Nothing
END SUB

A mi tambien me da ese error y no se cual es el motivo. Encontraste la solución?