跪求SOLEDWORKS转DWG的宏文件

我复制的宏代码运行错误！！！跪求个SOLEDWORKS转DWG的宏文件，
错误的地方在下面红色地方，所以我求个SOLEDWORKS转DWG的宏文件，不要代码了，呵呵。有的传个给我，谢谢！
Dim swApp As Object
Dim Part As Object
Dim Filename As String
Dim No As Integer
Dim Title As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Filename = Part.GetPathName()
No = Len(Filename)
Filename = Left(Filename, No - 7)
Part.SaveAs2 Filename & ".DWG", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
X = MsgBox(" 已保存为 DWG 文件 ", 0)
End Sub

红色的地方在SW中错误，？？？？

大伙的用的是这个代码吗？我的怎么不行哦，高手来帮帮我呀。

说明一个，就是新建个宏，一键转换SW工程图文件为DWG文件格式，因为客户要CAD的啊，郁闷死了。每次都要另存为，所以就试着复制了这段代码，但是不行，？？？？？？？

我上传个错误的地方，让大伙好看明白，我搞什么。

在补充一下，我是在SW中2010的运用的哦，是不是在SW2010中不行呀，大伙在其他版本中运用怎么样。

没用过这个红

期待叫程！！

经过本人反复试验，已经解决掉了，原来要保存了工程图才可以调用的哦，这玩意，不会调试，真是郁闷。

在请高手帮我下，我不想保存工程图，直接保存为DWG，那这段宏代码应该怎么样修改呢？

附件为一个转换 DWG 格式的宏 （闷大出品，感谢！） 2007中间可用 2010的没有试过 你看看0...