Кто знает как обработать ошибку
Ошибка выполнения -2147023174 (800706bf)
Ошибка програмирования объекта
сервер RPC недоступен
И откуда она берется.
Ас 97

уточнение -програмируется приложение word

To Senin Victor
В цикле выводятся письма по шаблону
если начать с открытия формы то все проходит нормально .При следующем входе в процедуру вылетает такая ошибка
Если нажать завершить то при следующем запуске все в норме

Вируса нет проверил
начало программы
откр ворд
Sub startword()
On Error GoTo Err_
Dim wrd As Word.Application
Dim isrunning As Boolean
isrunning = True
Set wrd = GetObject(, "word.Application")
If isrunning = False Then
wrd.Quit
End If
Exit Sub
Err_:
If err.Number = 429 Then
Set wrd = CreateObject("word.application")
isrunning = False
Resume Next
Else
MsgBox err.Number & " " & err.Description
Exit Sub
End If
End Sub

Выставление закладок в шаблоне

Private Sub Create_bkmk(strpath As Integer)

Dim db As Database
Set db = CurrentDb
Dim wrdDoc As New Word.Document
Dim app As Word.Application 'Приложение программы
Dim strpathdot As String ' Имя шаблона
Dim rstext_vopr As Recordset
Dim kolvopr, I As Integer
Dim isrunning As Boolean
strpathdot = Find_temp(strpath)
Call startword
Set wrdDoc = New Word.Document
Set app = GetObject(, "Word.application")
app.Documents.Add strpathdot
app.Visible = True 'Отображаем документ

Set rstext_vopr = db.OpenRecordset("select boolda,text_vopr,N_pp from reglamentKK where boolda=true order by N_pp ")
If rstext_vopr.RecordCount = 0 Then
MsgBox "Список вопросов пуст!"
Exit Sub
End If
rstext_vopr.MoveLast
kolvopr = rstext_vopr.RecordCount
rstext_vopr.MoveFirst
Selection.Goto What:=wdGoToBookmark, Name:="tab"
'Selection.TypeParagraph
For I = 1 To kolvopr
Selection.Font.Bold = False
With app.ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="tab1" & I
.DefaultSorting = wdSortByName
.ShowHidden = False

End With


Selection.TypeText Text:=" "
Selection.Font.Bold = True
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="tab2" & I
.DefaultSorting = wdSortByName
.ShowHidden = False

End With
Selection.Font.Bold = True

Selection.TypeParagraph



Next I
app.Visible = True
'app.ActiveDocument.SaveAs "C:\template\prom.doc"
rstext_vopr.Close

Call create_vopr

End Sub

ошибка возникает при переходе к общей закладке
Selection.Goto What:=wdGoToBookmark, Name:="tab"
Set bla-bla=Nothing
в конце общей процедуры