[求助]帮我看一下

heyong

Public Sub startcad()
On Error Resume Next
Set acadapp = CreateObject("AutoCAD.Application")
Set acaddoc = acadapp.ActiveDocument
If Err Then
MsgBox Err.Description
Exit Sub
End If
acadapp.Visible = True
acadapp.Top = 0 '设置AutoCad窗口的位置
acadapp.Left = 0
acadapp.Caption = "CORECAD" '设置AutoCad窗口的标题
acaddoc.New ("coremode2.dwt")
End Sub
意思是用模版文件("coremode2.dwt")新建一个文件，在r14下通过，在2002下不行，请帮我诊断一下。谢谢

雪山飞狐_lzh

acadapp.Documents.Add "acad.dwt"

heyong

可以了，谢谢