如果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