vfp读取excel写入word,word出毛病了

[needacoder]

程序代码如下:
select student
FOR m.xjh=2310832007010001 TO 2310832007019999
xjh0=m.xjh
*xjh0=学籍号
*MESSAGEBOX(xjh0)
thisform.Caption=STR(xjh0)

wole=CREATEOBJECT('Word.application')
wole.visible=.t.
wole.documents.Open('c:\format.doc')

xingming=""
SCAN FOR 学籍号=xjh0
IF EMPTY(xingming)
xingming=姓名
ENDIF
bookmark=ALLTRIM(科目)+FIELD(3)
zd=FIELD(3)
*MESSAGEBOX("next zd")
*MESSAGEBOX(zd)
zd0=&zd
*MESSAGEBOX("next zd0")
*MESSAGEBOX(zd0)
wole.ActiveDocument.Bookmarks(bookmark).Select
wole.Selection.TypeText(ALLTRIM(STR(zd0)))
ENDSCAN
filename="c:\"+STR(xjh0,16)+" "+xingming
wole.ActiveDocument.saveas(filename)
wole.quit
FOR i=1 TO 10000
next
next

程序运行后出现了两个word文档

其中一个出现了一个对话框,内容如下:
请选择：
打开只读副本
创建本地副本，稍后合并更改
在原始副本可能时接收通知

其中另一个也出现了一个对话框,内容如下:
Normal.dot 正由另一Word会话编辑，如果您用原名保存此文档，将会改写在其他会话中所做的任何更改。
是否仍用原名保存文档？
是/否/取消

vfp中也出现了一个对话框,内容如下:
OLE IDispatch exception code 0 from Microsoft Word命令失败.
Cancel/Suspend/Ignore/Help

是什么原因?
我想可能是我的程序快速地打开和关闭word文档,word状态跟不上了. 是不是要填加个判断word状态的什么命令? 怎么改下代码?

[WWWWA]

wole=CREATEOBJECT('Word.application')
wole.visible=.t.
wole.documents.Open('c:\format.doc')

提到FOR之前

[十豆三]

wole=Createobject('Word.application')
wole.Visible=.T.
Select student
For m.xjh=2310832007010001 To 2310832007019999
xjh0=m.xjh
*xjh0=学籍号
*MESSAGEBOX(xjh0)
Thisform.Caption=Str(xjh0)
wole.documents.Open('c:\format.doc')
xingming=""
Scan For 学籍号=xjh0
If Empty(xingming)
xingming=姓名
Endif
bookmark=Alltrim(科目)+Field(3)
zd=Field(3)
*MESSAGEBOX("next zd")
*MESSAGEBOX(zd)
zd0=&zd
*MESSAGEBOX("next zd0")
*MESSAGEBOX(zd0)
wole.ActiveDocument.Bookmarks(bookmark).Select
wole.Selection.TypeText(Alltrim(Str(zd0)))
Endscan
filename="c:\"+Str(xjh0,16)+" "+xingming
wole.ActiveDocument.SaveAs(filename)
wole.ActiveDocument.Close
For i=1 To 10000
Next
Next
wole.Quit
Release wole

[needacoder]

Thanks a million. It works well.