Проверка орфографии при помощи MS Word. |
Автор Administrator | |
30.10.2002 г. | |
Этот пример запустит программу проверки орфографии Word, проверит запись в текстовом поле, и исправит ошибки.
Этот пример запустит программу проверки орфографии Word, проверит запись в текстовом поле, и исправит ошибки. Для начала сделайте следующее: Создайте стандартный .exe проект, положите на форму Текстовое поле достаточных размеров.Установите свойство текстового поля Multiline в True. Добавьте Command Button к вашей форме. Далее напишите следующий код: Private Sub Command1_Click() Dim objWord Dim tmpObjWord Dim strResults ' Продолжаем, если есть текст в текстовом поле If Len(Text1.Text) < 1 Then Exit Sub Set tmpObjWord = CreateObject("Word.Application") ' А есть ли ошибки? If tmpObjWord.CheckSpelling(Text1.Text) Then MsgBox "Текст без ошибок!" ' освободим память Set tmpObjWord = Nothing ' нет ошибок - выходим. Exit Sub End If Set tmpObjWord = Nothing Set objWord = CreateObject("Word.Application") With objWord ' Скроем Word .Visible = False ' Орфография проверяется только в пределах одного док-та .Documents.Add ' поместим наш текст в документ .Selection.TypeText Text1.Text ' Проверяем только орфографию.Если нужна и грамматика то = "True" .Options.CheckGrammarWithSpelling = False .Options.IgnoreUppercase = False ' Собственно, проверка .ActiveDocument.CheckSpelling ' Выбираем проверенный текст .Selection.WholeStory ' Копируем проверенный текст в буфер обмена .Selection.Copy ' strResults - здесь сохраним выбранный текст strResults = .Selection.Text ' освобождаем память, выходим .ActiveDocument.Close (0) .Quit End With Set objWord = Nothing ' Вставляем исправленный текст из буфера Text1.Text = Clipboard.GetText ' Все!!! End Sub Пример OrfoWord.zip 2.09Kb Виталий |