Set ww = WScript.CreateObject("word.Application") 
Set dct=ww.documents.add 
ww.Selection.typetext "BONJOUR" 
dct.saveAs "c:\zaza.doc" 
dct.close 
ww.quit 
Set dct=nothing 
Set ww=nothing