oWord = CREATEOBJECT("Word.Application")

m.cDocPath = 'C:\____TMP\test_word\'
m.fn1 = 'file_1.docx'
m.fn2 = 'file_2'


WITH oWord
? .Documents.count()

    .WindowState = 1
*       .WindowState = 2    && Minimize Word.
    .Visible=.T.      && Make Word visible.
    .Documents.Add
    .ActiveDocument.SaveAs( cDocPath + m.fn1)
    .Selection.TypeText('file_1')
    
    ? .Documents.count()
    .Documents.Add
    .ActiveDocument.SaveAs( cDocPath + m.fn2)
    .Selection.TypeText('file_2')
    
    .Documents[2].Activate
    .Selection.TypeText('file_1')

    .ActiveDocument.Bookmarks("\StartOfDoc").Select
    .ActiveDocument.Save()

    .Documents[1].Activate
    .Selection.TypeText('file_2')

    .ActiveDocument.Bookmarks("\StartOfDoc").Select
    .ActiveDocument.Save()

    ? .Documents.count()
    ? .Documents[1].name
    ? .Documents[2].name
    ? .Documents( m.fn1)
    
    *.Documents[1].Close()    && закрывать умею
    *.Documents[1].Close()
    *RELEASE( oWord)
    * = NULL && не работает
ENDWITH