跪求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中错误，？？？？

你这个宏命令不好，还是我上面的那段好使，你这个不能关联文件名称的。

下了，没有搞明白，怎么还多了个22.

好的，谢谢，我来看看可以用不？

没用过这个红

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

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

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

期待叫程！！

没用过这个红