Visual Basic para Aplicaciones - URgente...... Cerrar sin guardar los cambios

Estoy realizando una apliacacion en visual basic donde necesito cerrar un documento word activo sin guardar los cambio.....

utilizo el siguiente codigo:

Dim wb As Object
Set wb = CreateObject("Word.Basic")
wb.ChDefaultDir "C:\Documents and Settings\jesus.hernandez\Mis documentos\sistema\formatos", 0
wb.FileOpen Name:="cumplimiento codigo de etica.doc"
wb.AppShow
wb.AppMaximize

Dim apli As Object
Set apli = CreateObject("word.application")
With apli

.Selection.GoTo What:=wdGoToBookmark, Name:="localidad"
.Selection.TypeText Text:=Text95.Text
.Selection.GoTo What:=wdGoToBookmark, Name:="estado"
.Selection.TypeText Text:=Text96.Text

End With
Dim WrdObj As Object

Set WrdObj = GetObject(, "Word.application")

WrdObj.Visible = False
WrdObj.ActiveDocument.PrintOut ' Se imprime

ThisDocument.Close (Word.wdDoNotSaveChanges) ' "aqui me marca el error y no se porque "

me pueden ayudar por favor .........

Puedes utilizar antes de cerrar:
ActiveDocument.Undo (NumeroCambios)
Donde el Parámetro: NumeroCambios... es el número de cambios que deseas deshacer.

Puedes utilizar:
ActiveDocument.Close (0)
Para cerrar sin guardar cambio alguno.

Excelente, esto me funciono