请教，图纸无法关闭

xkaeli

新手刚刚入门，编辑的代码无法关闭图纸，请教高手指点。代码如下

1. 
   
2. n = InStrRev(ActiveDocument.FullName, "\")
   
3. filepath = Left(ActiveDocument.FullName, n)
   
4. For i = 0 To files.ListCount - 1
   
5.     filepath = filepath + files.List(i)
   
6.     On Error Resume Next
   
7.     ThisDrawing.Application.Documents.Open filepath, True
   
8.     For Each doc In Documents
   
9.         If doc.FullName = filepath Then
   
10.         doc.Close
    
11.         End If
    
12.     Next
    
13. Next
    

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

xkaeli

已经搞定
要用doc.Close False, doc.Name
不知跟doc.Close有啥区别