如果word.ActiveDocument存在，请关闭它[VBA]

Question

这是我的代码：

    If Not (word.ActiveDocument Is Nothing) Then
          word.ActiveDocument.Close SaveChanges:=wdSaveChanges
    End If

如果没有活动文档，我会收到错误消息。我怎么能阻止这个？

Answer 1

您可以通过以下方式检查是否有打开的文档：

If word.Documents.Count Then '0 is falsy, all other values are truthy
      word.ActiveDocument.Close SaveChanges:=wdSaveChanges
End If