如何用vba不保存关闭所有打开的word文档？

在用vba遍历文件夹中的word文档时，可以选择每个文档打开后关闭，也可以选择全部文档打开后再批量关闭。

要关闭word文档，需要用到Document.Close方法。

它的语法如下：

expression . Close( SaveChanges , OriginalFormat , RouteDocument )

其中SaveChanges参数是指定是否需要保存对打开的文档的修改，可以是以下值：

OriginalFormat , RouteDocument参数较少使用，可以不输入。

以下是关闭所有打开的word文档的代码：

Sub QQ1722187970()
    Const wdDoNotSaveChanges = 0
    Const wdPromptToSaveChanges = -2
    Const wdSaveChanges = -1
    Dim oDoc As Document
    For Each oDoc In Word.Documents
        oDoc.Close wdDoNotSaveChanges
    Next
End Sub