Sub CATMain()
Dim ModelPath As String
Dim oDoc(1000) As Document
Dim odocs As Documents
Dim p As String
Dim x As String
Dim pc(1000) As ProductDocument
Dim pr(1000) As PartDocument
Dim y As String
Dim n As Long
Dim m As Double
'利用文件查找对话框获得新文件夹路径
ModelPath = ""
ModelPath =...