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


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


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

On Error GoTo ErrorHandler

AppWord.Documents.Add

Me Caption = "checking words... "

'(проверка слов... )

Set DRange = AppWord.ActiveDocument.Range

DRange.InsertAfter Text1.Text

Set SpellColiection = DRange.SpellingErrors

If SpellColiection.Count > 0 Then

SuggestionsForm.List1.Clear

SuggestionsForm.List2.Clear

For iWord = 1 To SpellColiection.Count

 SuggestionsForm!List1.Addltem _

SpellColiection.Item(iWord)

Next

End If

Me.Caption = "Word VBA Example"

SuggestionsForm.Show

Exit Sub

ErrorHandler:

MsgBox "The following error occured during the document's _

spelling"& vbCrLf & Err.Description

' (Во время проверки обнаружена следующая ошибка ...)

End Sub

Во второй форме приложения основное внимание сконцентрировано в Word на обработке события Click в окне Words in Question. Каждый раз, когда выполня­ется щелчок на элементе списка в левом окне ListBox, программа вызывает метод GetSpellingSuggestions

объекта AppWord, передавая выбранное слово в качестве параметра. Обратите внимание, что к значению свойства Listlndex объекта List прибавляется 1, чтобы отобразить тот факт, что индексация элементов семейства начинается с 1, в то время как индексация элементов окна списка ListBox начина­ется с 0. Метод GetSpellingSuggestions возвращает другое семейство, содержащее предложенные слова, которые помещены во второе (правое) окно элемента управления ListBox, помещенное на форме с помощью следующего фрагмента.

Программа 14.14. Обработчик события

Click в окне списка

Private Sub Listl_Click()

Screen.MousePointer = vbHourglass

Set CorrectionsCollection = _

AppWord.GetSpellingSuggestions(SpellColiection.Item _

(List1.ListIndex + 1))

List2.Clear

For iSuggWord = 1 To CorrectionsCollection.Count




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



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