Как исправить визуализацию офисных прилож. в фоновом режиме?

[pvalery]

Подскажите, пжл, решение проблемы.
Есть следующий код на VB6:

Код: Выделить всё

Option Explicit

Dim WordApplication As Object


Private Sub Command1_Click()
On Error GoTo end_Err

Set WordApplication = CreateObject("Word.Application")
WordApplication.Visible = False
WordApplication.Documents.Add
WordApplication.Selection.Text = txtWord.Text
WordApplication.ActiveDocument.CheckSpelling
txtWord.Text = WordApplication.Selection.Text
WordApplication.ActiveDocument.Close 0 'wdDoNotSaveChanges
WordApplication.Quit
Set WordApplication = Nothing

Exit Sub

end_Err:
  If Err <> 0 Then
    MsgBox Err.Description
    Err.Clear
 
End If


End Sub

В конце обработки мелькает (отображается) окно MS Word - происходит его визуализация. Можно ли как-то от этого избавиться?
[Viper] :: Используй тэг CODE!

[migor69]

Проверил твой код...WinXP with Office XP..всё работает как надо..Может комп подтормаживает?