如何用VBA代码关闭全部word文档及word进程？

作者：绿色风分类：时间：2022-08-18 浏览：110

楼主
kevinchengcw

Q: 如何用VBA代码关闭全部word文档及word进程？
A: 实现方法一：

'*****************************
' 方法一 GetObject
'*****************************
Sub test()
Dim WordApp As Object, Doc As Object
On Error GoTo Skip '设置出错跳转位置
Set WordApp = GetObject(, "word.application") '获取第一个word进程
Do While Not WordApp Is Nothing '如果成功获取进程,则进入循环操作
With WordApp
If .documents.Count > 0 Then '如果进程中有打开的文档
For Each Doc In .documents '循环各个打开的文档
Doc.Close False '关闭文档并不保存(注:想保存的话,将后面的参数改为True)
Next Doc
End If
.Quit '关闭当前的word进程
End With
Set WordApp = GetObject(, "word.application") '获取下一个word进程
Loop
Skip:
Set Doc = Nothing '结束或出错跳转至此,清空变量项目
Set WordApp = Nothing
End Sub

可以处理已打开的文档，正常关闭word进程

实现方法二：

'*****************************
' 方法二 WMI
'*****************************
Sub xq1()
Dim prcs, prc
Set prcs = GetObject("winmgmts:").instancesof("win32_process") '通过WMI枚举进程
For Each prc In prcs '循环枚举到的各个进程
If prc.Name = "WINWORD.EXE" Then prc.Terminate '如果是word进程名,则结束进程
Next
End Sub
Sub xq2()
Set prcs = GetObject("winmgmts:").execquery("select * from win32_process where name like '%.exe'") '通过WMI枚举运行中的exe文件进程
For Each prc In prcs '循环枚举到的各个进程
If prc.Description = "WINWORD.EXE" Then prc.Terminate '如果是word进程名,则结束进程
Next
End Sub

不处理已打开的文档,强制结束进程

实现方法三：

'*****************************
' 方法三任务管理器
'*****************************
Sub 关闭Word()
Shell "taskkill -im winword.exe" '利用任务管理器通过进程名结束进程
End Sub

不处理已打开的文档,强制结束进程

以上方式通过循环均可实现结束一个或多个word进程功能。
详见附件及素材源帖。

VBA关闭全部Word进程.rar

2楼
水吉果果

学习**！

3楼
bosao

谢谢版主分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表