大家快帮我看看这段代码啊！

[fanyang111]

类模块有myword,mydoc的定义：
窗体代码如下：
for i=1 to 10
Set mydoc = myword.Documents.Open(......)'文档名和I有关！
Set mytable = mydoc.Tables(1)
mydoc.Saved = True 'true代表不保存
mydoc.PrintOut
mydoc.Close
Set mydoc = Nothing
Set myword = Nothing
myword.Quit
next i

现在问题是这样的！每个循环都会在系统后台产生一个winword的进程（按下 Ctrl+Alt+Del 查看）， 这样的话最终会导致系统死机！可是我不明白的是为什么我都set nothing 了！怎么还会有winword的进程啊？哪位高手帮忙解答一下哦！

[fanyang111]

楼上的：quit如果在set nothing 之前 就会弹出一个对话框
”word正在打印，如果退出word就会取消尚未完成的作业！“

• 打赏
• 举报

回复 赞

[沐NeMo]

你把myword.Quit放在Set mydoc = Nothing前面：
mydoc.Quit
Set mydoc = Nothing
myword是在用FOR之前就有新建的一个进程吧，这也就要在for这后kill掉myword.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
for i=1 to 10
Set mydoc = myword.Documents.Open(......)'文档名和I有关！
Set mytable = mydoc.Tables(1)
mydoc.Saved = True 'true代表不保存
mydoc.PrintOut
mydoc.Close
mydoc.Quit
Set mydoc = Nothing
next i
myword.Quit
Set myword = Nothing

• 打赏
• 举报

回复 赞

[yenight]

学习!!

• 打赏
• 举报

回复 赞