Есть следующий код на 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!