Voici une façon de faire, ce ne doit pas être la seule :
Option Explicit
Dim WordObject As Object
Sub Lance_Word()
'pour appeler Word sans charger de document, il faut
'utiliser CreateObject
Set WordObject = GetObject("C:\Mes Documents\1.Doc")
WordObject.Application.Visible = True
End Sub
Sub Ferme_Word()
WordObject.Application.Quit
' Supprime la variable objet.
Set WordObject = Nothing
End Sub