' Проверка орфографии
' для работы необходимо добавить:
' надпись Label1
' две кнопки Command1 и Command2
' текстовое поле Text1
' В меню Project (Проект) щелкните на команде References (Ссылки).
' Появится диалоговое окно References (Ссылки), в котором нужно установить
' флажок напротив ссылки Microsoft Word 8.0 Object Library.
Private Sub Command1_Click()
Dim X As Object
'создать переменную для объекта Word
Set X = CreateObject("Word.Application")
X.Visible = False
'скрыть Word
X.Documents.Add
'открыть новый документ
X.Selection.Text = Text1.Text
'скопировать текстовое окно в документ
X.ActiveDocument.CheckSpelling
'запустить проверку
Text1.Text = X.Selection.Text
'скопировать результаты обратно
X.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
X.Quit
'закрыть Word
Set X = Nothing
'очистить переменную
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Me.Caption = "Персональная проверка грамматики"
Label1.Caption = "Введите в текстовое окно одно или несколько слов,а затем нажмите кнопку Проверка"
Command1.Caption = "Проверка"
Command2.Caption = "Закрыть"
End Sub
В результате у нас получится:
Проверка орфографии (1 907байт)