preciso fechar o Word no Run-time de um outro sistema

Dim WordApp As Word.Application
Set WordApp = CreateObject("Word.Application")                                 'Abre
WordApp.Documents.Open ("Documento.DOC")                  'Carrega um documento
WordApp.Activate                        'Ativa o programa do word na tela
WordApp.ActiveDocument.PrintOut   'Imprime o documento
WordApp.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges    'Fecha
Set WordApp = Nothing           'Limpa da memoria

espero ter ajudado, t+ ...