run-time error 462 , Ошибка выполнения '462': Удаленный сервер не существует или недоступен

Процедура вызыватся несколько раз из формы.
Первый раз создается таблица и word закрываем.
При вторичном вызове процедуры появляется ошибка №462.
Текст процедуры привожу ниже

Public Sub WordDoc()
Dim appWord As Word.Application, _
    docWord As Word.Document, _
    rngCurrent As Word.Range, _
    objTable As Word.Table
  
        Set appWord = New Word.Application
        Set docWord = appWord.Documents.Add()
        docWord.PageSetup.LeftMargin = 60
        appWord.Visible = True
 
            Set rngCurrent = docWord.Range
            With rngCurrent
                .InsertParagraphAfter
                .Collapse Direction:=wdCollapseEnd
                .Text = "Первая таблица : названиe"
                .Font.Name = "Times New Roman"
                .Font.Size = 14
                .Font.Italic = True
                .ParagraphFormat.Alignment = wdAlignParagraphLeft
            End With
    
        Set rngCurrent = docWord.Range
        With rngCurrent
            .InsertParagraphAfter
            .Collapse Direction:=wdCollapseEnd
        End With
        
        
        Set objTable = docWord.Tables.Add(Range:=rngCurrent, NumRows:=4, NumColumns:=15)
        
        
        With objTable
            .Borders.Enable = True
            .Rows.Height = 10
            .Columns(1).Width = CentimetersToPoints(1.04)
            .Columns(2).Width = CentimetersToPoints(2.33)
            .Columns(3).Width = CentimetersToPoints(1.06)
            .Columns(4).Width = CentimetersToPoints(1.16)
            .Columns(5).Width = CentimetersToPoints(1.16)
            .Columns(6).Width = CentimetersToPoints(1.06)
            .Columns(7).Width = CentimetersToPoints(1.06)
            .Columns(8).Width = CentimetersToPoints(1.47)
            .Columns(9).Width = CentimetersToPoints(1.69)
            .Columns(10).Width = CentimetersToPoints(1.07)
            .Columns(11).Width = CentimetersToPoints(1.07)
            .Columns(12).Width = CentimetersToPoints(1.07)
            .Columns(13).Width = CentimetersToPoints(1.07)
            .Columns(14).Width = CentimetersToPoints(1.2)
            .Columns(15).Width = CentimetersToPoints(1.2)
     End With
 
    Set objTable = Nothing
    Set appWord = Nothing
 
End Sub

M

Где ошибка?
Помогите

А где appWord.Quit?
И не забывайте использовать тег "Code". Исправьте постинг.

Пользоватль должен в открытом окне Word
поработать и САМ записать документ. А потом
снова вызвать процедуру

И что? не нравится - используй РАННЕЕ связывание.

У меня работает без ошибок

---

прочел внимательней.. сделал так-же.. ошибка)
Прошу прощения, за внесенное недоразумение)

Сообщение отредактировано: IMMORTAL_S - 18.11.09, 13:47

Цитата Akina @ 18.11.09, 12:28

И что? не нравится - используй РАННЕЕ связывание

А это как?

1) пишем

Dim appWord As New Word.Application

2) убираем строку

Set appWord = New Word.Application

А ещё лучше - сначала читаем теорию, потом пишем код.

Не работает. Ошибка 462

Error 462

Цитата

Visual Basic has established a reference to Word due to a line of code that calls a Word object, method, or property without qualifying it with a Word object variable. Visual Basic does not release this reference until you end the program. This errant reference interferes with automation code when the code is run more than once.

Иными словами, appWord следует определить As New не на уровне процедуры, а на уровне модуля либо приложения.

Не работает. Ошибка 462

Тогда подробнее о последовательности действий - и юзера, и программных.

Цитата Akina @ 18.11.09, 15:25

Тогда подробнее о последовательности действий - и юзера, и программных.

На форме командная кнопка. Пользователь щелкает по ней, загружается WORD,
создается таблица, прога забивает в нее результаты (это из кода убрано);
пользователь просматривает таблицу, записывает документ и программа возвращается
обратно на форму. Пользователь снова щелкает по ней, снова загружается WORD
в новую таблицу забиваются другие результаты и конец.
На первом этапе все создается, результаты в таблице, а по ВТОРОМУ щелчку
загружается WORD, создается таблица и на этапе изменения ширины столбцов
возникает ошибка №462

Option Explicit
 
Dim appWord As Word.Application
Dim docWord As Word.Document
Dim i As Integer
 
Private Sub cmdStep1_Click()
If appWord.Documents.Count = 0 Then
    Set docWord = appWord.Documents.Add
End If
Call InsertTable
End Sub
 
Private Sub cmdStep2_Click()
If appWord.Documents.Count = 0 Then
    MsgBox "Run step 1, then step2."
Else
    Call InsertTable
End If
End Sub
 
Private Sub cmdQuit_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
Set appWord = New Word.Application
appWord.Visible = False
i = 1
End Sub
 
Sub InsertTable()
Dim rngCurrent As Word.Range
Dim objTable As Word.Table
docWord.PageSetup.LeftMargin = 60
Set rngCurrent = docWord.Range
With rngCurrent
    .InsertParagraphAfter
    .Collapse Direction:=wdCollapseEnd
    .Text = "Table No. " & CStr(i) & ": TableName"
    i = i + 1
    .Font.Name = "Times New Roman"
    .Font.Size = 14
    .Font.Italic = True
    .ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
Set rngCurrent = docWord.Range
With rngCurrent
    .InsertParagraphAfter
    .Collapse Direction:=wdCollapseEnd
End With
Set objTable = docWord.Tables.Add(Range:=rngCurrent, NumRows:=4, NumColumns:=15)
With objTable
    .Borders.Enable = True
    .Rows.Height = 10
    .Columns(1).Width = CentimetersToPoints(1.04)
    .Columns(2).Width = CentimetersToPoints(2.33)
    .Columns(3).Width = CentimetersToPoints(1.06)
    .Columns(4).Width = CentimetersToPoints(1.16)
    .Columns(5).Width = CentimetersToPoints(1.16)
    .Columns(6).Width = CentimetersToPoints(1.06)
    .Columns(7).Width = CentimetersToPoints(1.06)
    .Columns(8).Width = CentimetersToPoints(1.47)
    .Columns(9).Width = CentimetersToPoints(1.69)
    .Columns(10).Width = CentimetersToPoints(1.07)
    .Columns(11).Width = CentimetersToPoints(1.07)
    .Columns(12).Width = CentimetersToPoints(1.07)
    .Columns(13).Width = CentimetersToPoints(1.07)
    .Columns(14).Width = CentimetersToPoints(1.2)
    .Columns(15).Width = CentimetersToPoints(1.2)
End With
appWord.Visible = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If docWord Is Nothing Then
    appWord.Quit wdDoNotSaveChanges
    Set appWord = Nothing
    Exit Sub
End If
If docWord.Saved Then
    docWord.Close wdDoNotSaveChanges
    Set docWord = Nothing
    appWord.Quit wdDoNotSaveChanges
    Set appWord = Nothing
Else
    MsgBox "Save changes before quit."
    Cancel = True
End If
End Sub

Единственная возможная ошибка - если юзер закроет Ворд руками. При этом программа вылетит по той же 462. Однако проверить, что юзер закрыл Ворд, простыми методами не получится.

Код работает. При щелчкам по кнопкам в документ WORDа таблицы вставляются
после записи документа WORD закрывается (его в диспетчере задач нет).
Прога активна. Но при повторных щелчках ОШИБКА 462 !

Мне жаль тебя огорчать, но у Word.Application нет штатного способа отменить его выгрузку. А посему надавать юзеру по рукам и запретить выгружать документ.