VB вызывает пример функции проверки орфографии Word

Как мы все знаем, в Word есть собственная функция проверки орфографии. В VB на самом деле очень просто вызвать функцию проверки орфографии Word. Метод заключается в том, чтобы сначала создать объект слова, затем поместить строку, которую необходимо проверить, в WORD, вызвать проверку орфографии слова, а затем извлечь возвращаемое значение. и, наконец, закройте объект.

Конкретный код реализации каждого шага выглядит следующим образом:

 Функция CheckSpell(IncorrectText as string) as stringDim Word As Object, retText$ При ошибке Возобновить Далее 'Создайте объект WORD и откройте Set Word = CreateObject("Word.Basic")'Поместите СТРОКУ, которую необходимо проверить, в WORDWord.AppShowWord .FileNewWord. Insert IncorrectText'Вызовите проверку правописания WORD.ToolsSpellingWord.EditSelectAll'получите возвращаемое значение retText = Word.Selection$()CheckSpell = Left$(retText, Len(retText) - 1)'Закройте файлWord.FileClose 2 ShowSet Word = NothingEnd Function

Этот пример снабжен подробными комментариями, чтобы помочь читателям понять. Кроме того, читатели могут обращаться к другим материалам, основанным на этом примере, чтобы внести дальнейшие улучшения для достижения более мощных функций!