Sub SaveWordDocDemo()
Const wdFormatDocument =  0 
Const wdNewBlankDocument =  0 

Dim W As Object

    Set W = CreateObject("word.application")

    W.Visible = True

    W.Documents.Add DocumentType:=wdNewBlankDocument

    W.Selection.TypeText Text:="hallo in line 1"
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:="hallo in line 2"
    
    W.ChangeFileOpenDirectory "C:\temp\"
    W.ActiveDocument.SaveAs Filename:="Doc2.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False

    W.Quit
    Set W = Nothing
End Sub