Private Frm As Form
Private WithEvents Tmr As Timer
Private mCol As New Collection

Event Done(result As Boolean)

Public Function StartPrint()
    mCol.Add  1 
End Function

Private Sub Class_Initialize()
    Set Frm = New frmTimer
    Load Frm
    Set Tmr = Frm.Timer1
End Sub

Private Sub Class_Terminate()
    Tmr.Enabled = False
    Set Tmr = Nothing
    Unload Frm
    Set Frm = Nothing
End Sub

Private Sub Tmr_Timer()
If mCol.Count =  0  Then Exit Sub
mCol.Remove mCol.Count
Call PrintDoWord
End Sub

Private Sub PrintDoWord()
If Not ActivateWord Then
    RaiseEvent Done(False)
    Exit Sub
End If
On Error Resume Next
WordObj.Visible = True
'Set WordDoc = WordObj.Documents.Add(App.Path & "\Offer.dot")
Set WordDoc = WordObj.Documents.Add(Template:= _
        App.Path & "\Offer.dot", NewTemplate:=False, DocumentType:= 0 )
WordObj.Run "Splash" ', PathF & mvarNameZakazForFileName & ".txt"
Set WordDoc = Nothing
Set WordObj = Nothing
RaiseEvent Done(False)
End Sub

Private Function ActivateWord() As Boolean
On Error GoTo labGetObj
Set WordObj = GetObject(, "Word.Application")
If WordObj Is Nothing Then
    ActivateWord = False
    Exit Function
Else
    ActivateWord = True
    Exit Function
End If
labGetObj:
Set WordObj = CreateObject("Word.Application")
Resume Next
End Function