Public Sub GetAllDrawings()
Dim DocColl As DocumentCollection = Application.DocumentManager
Dim docArr() As Document
Dim i As Integer = 0
Dim ent As Document
ReDim docArr(DocColl.Count - 1)
For Each ent In DocColl
docArr(i) = ent
i = i + 1
Next
End Sub
我是这样做的,能获取所有的文档