Dim Doc As Word.Document
Dim FileName As String
If IsNull(Me.UnText) Then
        Dim Response
         Response = MsgBox( "Но тем не менее его неплохо бы добавить, так ведь?" , vbYesNo)
        If Response = vbYes Then
            FileName = OpenFile( "c:\" )
            Me.UnText.Visible = True
            Me.UnText.Class =  "Word.Document" 
            Me.UnText.SourceDoc = FileName
            Me.UnText.OLETypeAllowed = acOLELinked
            Me.UnText.Action = acOLECreateLink
            Screen.PreviousControl.SetFocus
            Me.UnText.Visible = False
            DoCmd.RunCommand (acCmdSaveRecord)
            Me.Requery
            MsgBox  "Добавление успешно завершено" 
        Else
            Exit Sub
        End If
        
    Else:
        Set Doc = Me.UnText.Object
        Doc.Activate
        Doc.PrintOut False
        Set Doc = Nothing
    End If