xkaeli 发表于 2012-3-29 09:36:48

请教，图纸无法关闭

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

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

xkaeli 发表于 2012-3-30 11:59:10

已经搞定
要用doc.Close False, doc.Name
不知跟doc.Close有啥区别
页: [1]
查看完整版本: 请教，图纸无法关闭