VBA + OLE

Begin VB.Form Main
  Caption         =   "Main"
  ClientHeight    =   5520
  ClientLeft      =   165
  ClientTop       =   735
  ClientWidth     =   7350
  LinkTopic       =   "Form1"
  ScaleHeight     =   5520
  ScaleWidth      =   7350
  StartUpPosition =   3  'Windows Default
  Begin VB.Menu mnuProgramm
     Caption         =   "&Файл"
     Begin VB.Menu mnuPorgramNew
        Caption         =   "&Новый"
        Begin VB.Menu mnuFormat
           Caption         =   "&Форматирование"
        End
        Begin VB.Menu mnuTable
           Caption         =   "&Таблици"
        End
     End
     Begin VB.Menu mnuExit
        Caption         =   "&Выход"
     End
  End
  Begin VB.Menu mnuZadanie
     Caption         =   "&Задание"
     Begin VB.Menu mnuVupolnit
        Caption         =   "В&ыполнить"
     End
     Begin VB.Menu mnuProverit
        Caption         =   "&Проверка"
     End
     Begin VB.Menu mnuZadanieRezyltat
        Caption         =   "&Результат"
     End
  End
  Begin VB.Menu mnuHelp
     Caption         =   "&Помощ"
     Begin VB.Menu mnuAbout
        Caption         =   "&О программе"
     End
     Begin VB.Menu mnuAfftor
        Caption         =   "&Автор"
     End
  End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WordApp As Word.Application
Dim DocWord As Word.Document

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuFormat_Click()
Zadanie.Show
Main.Hide
End Sub

Private Sub mnuProverit_Click()
Dim i As Integer
Set WordApp = New Word.Application
Set DocWord = WordApp.Documents.Open("D:\test.doc")
DocWord.Activate
With DocWord.Application.ActiveDocument.Range
If Zadanie.Razmer.Value And .Font.Size = Val(Zadanie.Razm.Text) Then
MsgBox (Zadanie.Razm.Text)
MsgBox (Str(.Font.Size))
End If
If Zadanie.Shrift.Value And .Font.Name = Zadanie.Name_s.Text Then
MsgBox (Zadanie.Name_s.Text)
End If
If Zadanie.L_p.Value And .PageSetup.LeftMargin = CentimetersToPoints(Val(Zadanie.Ots_l.Text)) Then
MsgBox (Zadanie.Ots_l.Text)
End If
If Zadanie.P_p.Value And .PageSetup.RightMargin = Val(Zadanie.Ots_p.Text) Then
MsgBox (Zadanie.Ots_p.Text)
End If
If Zadanie.U_p.Value And .PageSetup.TopMargin = Val(Zadanie.Ots_u.Text) Then
MsgBox (Zadanie.Ots_u.Text)
End If
If Zadanie.D_p.Value And .PageSetup.BottomMargin = Val(Zadanie.Ots_d.Text) Then
MsgBox (Zadanie.Ots_d.Text)
End If
If Zadanie.Kyrsiv.Value And .Font.Italic = True Then
MsgBox ("Text kyrsivnuj")
End If
If Zadanie.Polygur.Value And .Font.Bold = True Then
MsgBox ("Text polugurnuj")
'For i = 0 To Zadanie.Cvet.ListCount - 1
'If Zadanie.Cvet.List(i) Then
End If
End With
'For i = 1 To DocWord.Application.ActiveDocument.Words.Count
WordApp.Quit
End Sub

Private Sub mnuTable_Click()
Tables.Show
Main.Hide
End Sub

Private Sub mnuVupolnit_Click()
Vupolnit.Show
Main.Hide
End Sub