Public Sub Word1()

    
    DoEvents
    frmStatus.Show vbModeless
    frmStatus.lblTitlle.Caption = "Подключение к Microsoft Word ..."
    frmStatus.ProgressBar1.Value =  20 
    DoEvents
    Call SetTemp
    
    Dim myWord As Object
    Set myWord = CreateObject("Word.Application")
    myWord.Visible = False
    
    
    Dim myDoc As Object
    Set myDoc = CreateObject("Word.Document")
    
    
    myWord.Documents.Open mTmpFN
    Set myDoc = myWord.Documents( 1 )
    
    myWord.ActiveWindow.View.ShowBookmarks = False
    
    
    DoEvents
    frmStatus.lblTitlle.Caption = "Заполнение блока ""Договор"" ..."
    frmStatus.ProgressBar1.Value =  40 
    DoEvents
    
    
    ' Шапка договора
    myDoc.Bookmarks("AgN").Range.Text = Doc.cAg.Agn
    myDoc.Bookmarks("AgDay").Range.Text = Doc.cAg.AgDay
    myDoc.Bookmarks("AgMonth").Range.Text = Doc.cAg.AgMonth ' lcase правка от 01.03.06
    myDoc.Bookmarks("AgYear").Range.Text = Doc.cAg.AgYear
....
End sub