Проверка ПРАВОПИСАНИЯ через Word

[Александр80]

Пишу что-то вроде блокнота, в котором подключаю MS Word для проверки правописания:

Dim x As Object
Set x = CreateObject("Word.Application")
x.Documents.Add
x.Visible = False
x.Selection.Text = ActiveForm.rtfText.Text
x.ActiveDocument.CheckSpelling
ActiveForm.rtfText.Text = x.Selection.Text
x.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
x.Quit
Set x = Nothing

Появляется окно в котором предложено исправить ошибки, но есть одно но... Есть клавиша "Отмена" если нажать на нее то окно закрывается и в моей программе с RichTextBox удаляется весь текст.
Казус....

Можно ли как-то отключить эту кнопку или обойти ее ?

[RayShade]

Можно вопрос? А зачем огород городить, когда уже и так есть Word?

[Александр80]

Просто я верстаю газеты, и в верстке я использую Word, но сохранять надо в формате RTF.
Я верстаюсь в QuarkXPress 4.1, это старая программа, но надежная, под нее много плагинов а под последние 5 и 6 версии они не встают.

Когда в Worde сохраняю текст, то QuarkXPress его не понимает, приходилось пересохранять файл с помощью обычного WordPada и все работало.

А сейчас мне это немного надоело, вот и захотел написать простенькую программку для написания текстов, но которая бы проверяла правописание, показывала количество знаков и слов, а также при сохранении подготавливала файл к тем параметрам которые нужны для верстки. Не хочется потом сидеть и в QuarkXPress заново редактировать текст.

Заодно изучаю VB.

[Nataliak]

Мне вот это помогло

Dim WordApplication As Object

If POLE.Text <> "" Then
Set WordApplication = New Word.Application
WordApplication.DOCUMENTS.Add

If POLE.Text <> "" Then
WordApplication.Visible = False
WordApplication.Selection.Text = POLE.PREZ.Text
WordApplication.ActiveDocument.CheckSpelling
If WordApplication.Selection.Text <> Chr(13) And WordApplication.Selection.Text <> "" Then
POLE.Text = WordApplication.Selection.Text
End If
End If

WordApplication.ActiveDocument.Close wdDoNotSaveChanges
WordApplication.Quit
Set WordApplication = Nothing
End If