请教，图纸无法关闭

 
n = InStrRev(ActiveDocument.FullName, "")
filepath = Left(ActiveDocument.FullName, n)
For i = 0 To files.ListCount - 1
    filepath = filepath + files.List(i)
    On Error Resume Next
    ThisDrawing.Application.Documents.Open filepath, True
    For Each doc In Documents
        If doc.FullName = filepath Then
        doc.Close
        End If
    Next
Next