خطای Automation Error

[ali1964]

دوستان سلام
یک مشکل خیلی بزرگ دارم
من یک برنامه نوشتم که در ویندوز 98 با افیس 97 کار میکنه اما در اکس پی خطای
Automation error
The object invoked has disconnected from its clients.
-2147417848
میدهد
سورس ان بصورت ذیل است
بصورت کلاس تعریف شده

Option Explicit
Public WithEvents objWord As Word.Application
'Public WithEvents objWord As Word.Application
Public wrdDoc As Object
Private myRange As Object
Private wrdRange As Range


Private Sub objWord_Quit()
On Error GoTo Err_Quit
Dim strString As String

Set myRange = wrdDoc.Range(Start:=wrdDoc.Bookmarks("Esp").Range.End, _
End:=wrdDoc.Bookmarks("ESpEnd").Start - 1)


DoEvents
myRange.Copy
DoEvents
DoEvents
DoEvents
Clipboard.Clear
objWord.Quit
Set objWord = Nothing
Set wrdRange = Nothing
Set wrdDoc = Nothing
Exit Sub
Err_Quit:
MsgBox Err.Description
Debug.Print Err.Description
Debug.Print Err.Number
objWord.Quit
Set objWord = Nothing
Set wrdRange = Nothing
Set wrdDoc = Nothing

End Sub

خطا در قسمت Set myRange روی میدهد

[qolkaram]

salam
man ham hamin moshkel ro dashtam
elate error man in book ke to macro man baiad yekseri file ro baiad import mikardam ama size bazi az file ha sefr bood be hamin ellat in error ro midad
albate to site microsoft ham dar morede in error ye matlab hast be on ham moraje konin linkesho batoon gozashtam
mibakhshin az inke farsi type nakardam . akhe man iran nistamva keyboardam farsi nist
http://support.microsoft.com/kb/813120