Разделы
Главная

Windows API
Реестр
MS Access
Visual Basic
Download
Форум
Гостевая книга
Ссылки

E-mail

Партнерская программа WWW.PORTA.RU (on-line магазин портативной аудио, видео, фототехники). Самая щедрая, самая честная, самая популярная. Приглашаем всех веб-мастеров к участию!



Submitter.ru - Free promoting
Visual Basic

вернуться назад Проверка орфографии с помощью MS Word

' Проверка орфографии
' для работы необходимо добавить:
' надпись Label1
' две кнопки Command1 и Command2
' текстовое поле Text1

' В меню Project (Проект) щелкните на команде References (Ссылки).
' Появится диалоговое окно References (Ссылки), в котором нужно установить
' флажок напротив ссылки Microsoft Word 8.0 Object Library.


Окно References (Ссылки)



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байт)