Private Sub Command1_Click()
Dim oWordApp As Object
'Start a new instance of Microsoft Word
Set oWordApp = CreateObject("Word.Application")
With oWordApp
'Create a new document
'.Documents.Add
'OPEN
.Documents.Open ("xxx")
'Add text to the document
.Selection.TypeText Text:="one"
.Selection.TypeParagraph
.Selection.TypeText Text:="two"
.Selection.TypeParagraph
.Selection.TypeText Text:="three"
'Save the document
.ActiveDocument.SaveAs "c:\Doc1.doc"
End With