Option Explicit

Private Sub Комманда1_Click()
Dim WordApp As Object
Dim DocWord As Object
Dim ZEN$
Dim J%

'Set WordApp = New Word.Application
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
'Set DocWord = WordApp.Documents.Open(App.Path & "\Primer_prog.doc")
Set DocWord = WordApp.Documents.Add(App.Path & "\Primer_prog.doc")

With DocWord
        With .Tables( 1 )
        For J =  0  To  5 
        .Cell(.Rows.Count,  1 ).Select
        If J >  0  Then WordApp.Selection.InsertRowsBelow  1 
        
        .Cell(J +  3 ,  1 ).Range.Text =  10  + J
        .Cell(J +  3 ,  2 ).Range.Text = " Время № " & J
        Next J
        
        End With
End With
ZEN = Format(Now, "yyyymmdd_hhnnss") & ".doc"

DocWord.SaveAs App.Path & "\" & ZEN
DocWord.Close
Set DocWord = Nothing
WordApp.Quit
Set WordApp = Nothing

End Sub