Здравствуйте! Столкнулся со следующей проблемой:
Написал макрос. На домашнем компьютере он у меня работает без нареканий. Принес на работу, а там он работает на половине машин. В чём дело - не знаю. У меня XP и Офис 2003, работает на 2003 Server тоже, а на машинах с опятьже XP и Office 2003 работает не всегда.
Вылетает ошибка
"Run time error '91':
Object variable or With block variable not set"

Вот в этом фрагменте кода:
Private Sub Open_Document(res)
Dim w As Object

fname = ActiveWorkbook.Path & "\cardio\" & Cells.Item(ActiveCell.Row, 2).Value & "_" & res & ".doc"

If FileExists3(fname) = False Then
MsgBox ("Файл не найден")
Else
Set w = CreateObject("word.application")
w.Documents.Open ActiveWorkbook.Path & "\cardio\" & Cells.Item(ActiveCell.Row, 2).Value & "_" & res
w.Visible = True
End If

End Sub

Private Function FileExists3(fname) As Boolean
Set filesys = CreateObject("scripting.filesystemobject")
FileExists3 = filesys.fileexists(fname) //На этой строке происходит ошибка
End Function