[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Проверка орфографии (Проверка орфографии)
Проверка орфографии
ilimДата: Среда, 09.11.2011, 22:36 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Private Sub Command1_Click()
Text1 = SpellCheck(Text1)
End Sub

Public Function SpellCheck(ByVal IncorrectText$) As String
Dim Word As Object, retText$
On Error Resume Next

'Создать объект и загрузить Word
Set Word = CreateObject("Word.Basic"
'Показать Word и вставить в него ваш текст
Word.AppShow
Word.FileNew
Word.Insert IncorrectText
'Запустить проверку орфографии
Word.ToolsSpelling
Word.EditSelectAll
'Выделить текст и загрузить его обратно в TextBox
retText = Word.Selection$()
SpellCheck = Left$(retText, Len(retText) - 1)
'Закрыть файл в Word и вернуться в Visual Basic.
Word.FileClose 2
Show
'Освободить память от объекта word
Set Word = Nothing
SendKeys "%{F4}", True 'закрыть.
End Function


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Проверка орфографии (Проверка орфографии)
Страница 1 из 11
Поиск: