关于wordapp.Quit的问题，在线等~

furao_1011

有以下代码

Dim wordapp As Word.Application
Dim thisword As Word.Document
Set wordapp = New Word.Application
wordapp.Visible = False

LOOP

Set thisword = wordapp.Documents.Open(Filename:=content, ReadOnly:=False)
....

LOOP END
wordapp.Quit

执行功能之前，如果没有开着其他word（执行对象以外）文件，功能没有问题。
但是，如果开着任意一个word文件（执行对象以外）文件，执行wordapp.Quit就会提示错误信息，而且任务管理器里也显示出来程序执行未关闭的和我自己开的两个word进程。
问题：程序创建的进程不是有wordapp的句柄么，为什么关闭的时候还去管我手动开的那个进程而报错呢。
请大神答疑，多谢了

wj2368

附件没有问题啊
Set MyWord = Nothing
就可以 了

furao_1011

wj2368 发表于 2015-1-9 13:55
附件没有问题啊
Set MyWord = Nothing
就可以 了

已经有写了

furao_1011

wj2368 发表于 2015-1-9 13:55
附件没有问题啊
Set MyWord = Nothing
就可以 了

你说附件哪里没有问题？？
程序运行完，任务管理器里有两个进程，这不就是问题么。

loquat

1.需要先关闭文档再关闭程序
2.关闭程序时将所调用模板的Saved属性设置为True
   Dim wdApp As New Word.Application
   Dim aDoc As Document
   Set aDoc = wdApp.Documents.Add
   ……
   aDoc.Close True
   Set aDoc = Nothing
   wdApp.NormalTemplate.Saved = True
   wdApp.Quit '注意其他有改动的文档
   Set wdApp = Nothing

wj2368

furao_1011 发表于 2015-1-9 17:43
你说附件哪里没有问题？？
程序运行完，任务管理器里有两个进程，这不就是问题么。

我是win7 excle2010下，运行后没有进程留住

furao_1011

loquat 发表于 2015-1-9 21:18
1.需要先关闭文档再关闭程序
2.关闭程序时将所调用模板的Saved属性设置为True
   Dim wdApp As New Word. ...

谢谢各位了，我知道问题了。在quit后面加参数0

furao_1011

wj2368 发表于 2015-1-10 07:39
我是win7 excle2010下，运行后没有进程留住

谢谢各位了，我知道问题了。在quit后面加参数0

loquat

0是不保存吧

furao_1011

loquat 发表于 2015-1-13 13:22
0是不保存吧

是的，word模板不用保存。