Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Word...

Тема: Word

15.06.2007 21:08:51

All

4316 сообщения

Тема: Word

В приведенном коде при первом запуске все работает нормально, но при последующих запусках возникает ошибка Word'a: Word "висит" в памяти, но не запускается. Даже после завершения процесса в Диспетчере задач Word не запускается. Подскажите как решить эту проблему. Andrew.

Public Sub SaveToWord()

Dim wdApp As Word.Application
Dim WordTable As Object
Dim WordCell As Object
Dim TableCell As Object
Dim TableRow As Object
Dim TableCol As Object
Dim fso As New FileSystemObject
Dim D As Double
Dim Stup As Double
Dim glastKalibr As Double
Dim iTries As Integer

On Error GoTo CalcError
D = CDbl(Form1.Text1.Text)

On Error GoTo CalcError
Stup = CDbl(frmProt.cboStup.Text)

ShowWait

On Error GoTo ErrorTrap
Set wdApp = CreateObject("Word.Application")

If wdApp.Visible = True Then wdApp.Visible = False

wdApp.Documents.Add

Set WordTable = wdApp.ActiveDocument.Tables.Add(wdApp.ActiveDocument.Application.Selection.Range, 78, 2)

WordTable.AutoFormat Format:=wdTableFormatGrid1, _
ApplyBorders:=True, ApplyFont:=True, ApplyColor:=False

Set TableCol = Selection.Tables(1).Columns(1)
TableCol.SetWidth ColumnWidth:=300, RulerStyle:=wdAdjustFirstColumn

..........
.........
.........

Set TableCol = Nothing
Set TableCell = Nothing
Set WordTable = Nothing
Set wdApp = Nothing
ShowDoneWord
Exit Sub

ErrorTrap:
Select Case Err.Number

Case 440 'Ошибка Ole Automation
iTries = iTries + 1

If iTries < 10 Then
Set wdApp = CreateObject("Word.Application")
Resume
Else
Err.Raise Number:=vbObjectError + 28765, Description:="Ошибка Microsoft Word!"
ShowDone
End If

Case Else
Set wdApp = Nothing
wdApp.ActiveDocument.Application.Quit wdDoNotSaveChanges
Set wdApp = Nothing
Err.Raise Number:=Err.Number, Description:="Ошибка Word!"
wdApp.ActiveDocument.Application.Quit wdDoNotSaveChanges
End Select

CalcError: Exit Sub
ErrSave:
MsgBox "Ошибка"
Exit Sub

P.S. Клиенты автоматизации
Автор: Andrew от 0:00:00 Источник ...