.
.
.
Dim objApp As New Word.Application
Dim doc1 As Word.Document
Set doc1 = objApp.Documents.Add
objApp.Selection.TypeText "Esto es un texto de prueba"
doc1.SaveAs "C:\Ruta\MiDocumento.doc"
doc1.Close
Set doc1 = Nothing
objApp.Quit
Set objApp = Nothing
.
.
.