Word.aplication.

Supeniendo que queres cerrar el Word y guardar todos los documentos seria algo asi
Dim MSWord As Word.Application
Set MSWord = New Word.Application
Dim MiDoc As Word.Document
For Each MiDoc In MSWord.Documents
MiDoc.Save
Next
MSWord.Quit
Set MSWord = Nothing
Si podes darme mas datos sobre lo que queres hacer quizas te pueda dar una respuesta mas precisa...
te doy otro ejemplo (te comento las lineas mas importantes)
Dim MSWord As Word.Application
Set MSWord = New Word.Application ' Creo un nuevo Word
MSWord.Visible = True ' Hago la instancia de Word visible
Dim MiDoc As Word.Document
Set MiDoc = MSWord.Documents.Add() ' Creo un nuevo documento
MiDoc.Content.Text = "hola mundo" ' Le escribo hola mundo al documento
MiDoc. SaveAs "c:\test.doc" ' Salvo el doc en c:\test.doc
MiDoc. Close ' Cierro el doc
MSWord. Quit ' Salgo de Word
Set MSWord = Nothing