[求助]玩转插入Excel中的Word对象

iamsomebody

上一回我向各位求助怎样控制插入EXCEL中的WORD对象，现在这个问题已经得到了较好的解决。但好景不长，我又发现了新的问题：操作是能操作了，但是退出EXCEL以后，WORD的进程还驻留在内存中，调出任务管理器，发现一个40多M的WORD进程挥之不去。有没有可以结束WORD进程的语法或方法？我的VBA代码如下：

Private Sub excelcontrolword()

 Dim WordObj As Object 
 Set WordObj = Worksheets("Sheet1").OLEObjects(1)'假定事先在EXCEL中插入了WORD对象，序号就是1
    WordObj.Activate
     With WordObj.Object.Application.WordBasic
    .EditSelectAll
    .EditCopy
 End With
 Worksheets("sheet1").Range("A1").Activate

     End Sub

无论是用Quit也好：

WordObj.Object.Application.Quit

还是下面这样：

Set WordObj = Nothing
都没有效果。

EXCEL版本：2003，操作系统：XP+SP2

请明白人指点一下，谢谢！

冰山上的来客

好像见过结束进程的帖子。楼主可以搜索一下的。

iamsomebody

谢谢“冰山上的来客”！

已经找到了结束WORD进程的语句，但缺点是它会结束处于进程中的所有WORD，这就带来一个问题：该方法将会关闭用户已经打开了但不希望关闭的其它WORD文档。另外：我的意图是将插入EXCEL中的事先写好了的WORD文档（OLEOBJECT）里的内容拷贝出来，然后新建一个WORD文档，再把内容复制进去，同时将EXCEL表中已经计算好的数据插入到这个新建文档中，形成一份工程计算书。因此后续代码中还将用到WORD进程，我是希望有一种方法，只把那个OLE对象（也即事先插入EXCEL中的那个WORD对象）的进程用完后关掉，而不影响其它WORD进程的工作。

期待一个满意的答案！感谢所有关注此问题的朋友！

zhui_

由于打开后此窗口最前,在没改变前可变通实现关闭功能,所以紧跟发送键码指令就能关闭打开的窗口
SendKeys "%fx", True