Sub Generate()
    Worksheets("0").Activate
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
Dim test_count As Integer 
Dim y As Integer
Dim quest_count_I As Integer 
Dim quest_count_II As Integer
Dim max_quest_II, max_quest As Integer 
Dim min_quest_II As Integer 
Dim list As String 
Dim m() As Integer
    Dim WRD
    Set WRD = CreateObject("Word.Application")
    WRD.Visible = True
    WRD.Documents.Open "D:\test.doc" ' !!!!  
    test_count = 3 ' 
    quest_count_I = 5 ' 
    quest_count_II = 8 ' 
    min_quest_II = 37
    max_quest_II = 43 ' 
    max_quest = 36
    sea = 2
    ReDim m(quest_count_I)
    Randomize
    For i = 1 To test_count Step 1
         WRD.Selection.Font.Size = 14
         WRD.Selection.Font.Bold = True
         WRD.Selection.TypeText Text:="Ýêçàìåíàöèîííûé ëèñò " + CStr(i)
         WRD.Selection.Font.Bold = wdToggle
         WRD.Selection.TypeParagraph
         WRD.Selection.Font.Size = 12
         Worksheets("0").Cells(sea, 1).Value = "Ýêçàìåíàöèîííûé ëèñò " + CStr(i)
         sea = sea + 1      
        For j = 1 To quest_count_I Step 1 
          Worksheets("Îñíîâíîé áëîê").Activate 
          ActiveCell.SpecialCells(xlLastCell).Select
          MaxString = ActiveCell.Row    
          num = Int(Rnd * max_quest) + 1
            tmp = 0
            For Z = 1 To MaxString Step 1
             y = m(Z): m(Z) = m(num): m(num) = y
                If (Int(Cells(Z, 2).Value) = num) Then
                 ' MsgBox (Cells(Z, 3).Value)
                    tmp = Z
                    Exit For 
                End If
            Next Z   
            If tmp = 0 Then
               str1 = "Íîìåð âîïðîñà íå íàéäåí: " + CStr(num)
               MsgBox (str1) 
            End If
                     Next j
  sea = sea + 1
    Next i

End Sub