Visual Basic 6. Руководство разработчика


Проверка орфографии документов - часть 3


SpellCollection

описывает семейство, содержащее все слова с орфо­графическими ошибками, а переменная CorrectionsCollection - семейство, содержащее предложенные программой проверки орфографии варианты замены для опреде­ленного слова. Значение переменной CorrectionsCollection присваивается каждый раз, когда пользователь выбирает другое слово с орфографической ошибкой в окне Spelling Suggestions (см. рис. 14.16).

После выполнения щелчка на кнопке Spell Check Document программа обра­щается к приложению Word. Сначала с помощью функции Get0bject() программа пытается соединиться с запущенным экземпляром Word. Если в настоящее время нет ни одного запущенного экземпляра Word, запускается новый экземпляр. Это выполняет следующий фрагмент программы.

Программа 14.12. Обращение к Word

Set AppWord = Get0bject ("Word Application")

If AppWord Is Nothing Then

Set AppWord = CreateObject ("Word.Application")

If AppWord Is Nothing Then

MsgBox "Could not start Word Application will end"

' (Невозможно открыть Word Работа приложения

' будет прекращена)

End

End If

End If

После того как связь с Word установлена, программа создает новый документ и с помощью метода InsertAfter объекта Range копирует содержимое окна элемента управления TextBox в новый документ. Это выполняется следующим образом:

AppWard.Documents.Add

DRange.InsertAfter Textl.Text

Теперь VB-программа вызывает метод SpellingErrors объекта Range, который возвращает семейство объектов Word. Результат метода SpellingErrors присваивается объектной переменной SpellCollection:

Set SpellCollection = DRange.SpellingErrors

Приведенный ниже фрагмент программы добавляет слова, содержащиеся в переменной SpellCollection, к левому списку второй формы и отображает эту форму.

Программа 14.13. Кнопка Check Document

Private Sub Command1_C1ick()

Dim DRange As Range

Me.Caption = "starting word   "

' (начальное слово)

On Error Resume Next

Set AppWord = Get0bject ("Word.Application")




Начало  Назад  Вперед



Книжный магазин