Dim objWord
Dim Nombre
Nombre = Time
Set objWord = createobject("Word.application")
Set Doc = objWord.Documents.Add()
objWord.Selection.Text = "123 probando!"
Doc.SaveAs("D:\testdoc1.doc")
Doc.close
Tengo este script, funciona ok, asi q pueden cogerlo y modificarlo a su antojo.
Ahora solo quiero ver si de alguna forma puedo generar el nombre del fichero usando alguna funcion de tiempo o algo asi.
Saludos.