Ms access 如果存在word.ActiveDocument,请关闭它[VBA]

Ms access 如果存在word.ActiveDocument,请关闭它[VBA],ms-access,ms-word,vba,Ms Access,Ms Word,Vba,这是我的密码: If Not (word.ActiveDocument Is Nothing) Then word.ActiveDocument.Close SaveChanges:=wdSaveChanges End If 如果没有活动文档,则会出现错误。我怎样才能防止这种情况 您可以通过以下方式检查是否有打开的文档: 如果word.Documents.Count那么“0”是虚假的,所有其他值都是真实的 word.ActiveDocument.Close

这是我的密码:

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

如果没有活动文档,则会出现错误。我怎样才能防止这种情况

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

如果word.Documents.Count那么“0”是虚假的,所有其他值都是真实的
word.ActiveDocument.Close SaveChanges:=wdSaveChanges
如果结束

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

如果word.Documents.Count那么“0”是虚假的,所有其他值都是真实的
word.ActiveDocument.Close SaveChanges:=wdSaveChanges
如果结束

可能在IF语句之前添加“On Error Resume Next”。发布更多代码,以便我们提供更具体的建议。文档是否在循环中打开?可能在IF语句之前添加“On Error Resume Next”。发布更多代码,以便我们提供更具体的建议。文档是否在循环中打开?