关于一键转X-T图档宏的问题

zqkzqk2008

这样的一段代码怎么写，求指点：转档成X-T时,保存的文件名为提取Description当中的字符，如果Description当中没有字符，则以原文档名称保存。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
( F, d6 r3 |8 a( ^8 R% ^Dim longstatus As Long, longwarnings As Long
# B) g6 C6 B; s1 kDim Locatie As String
Dim Locatie_aangepast As String
' P! `' w( ]# BDim OpenDoc As Object
$ i5 a5 z3 A/ f% ZDim Extensie_nieuw As String
: }/ z4 I! {! v/ L! bDim Extensie_oud As String
Dim retval As String
, M$ @. z3 }' q% ^- yDim Naam As String
Dim Naam_aangepast As String

( H' W! h& d' C, t8 [# M  q) `3 u/ H
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
, v8 m; y1 F/ ^& ~, sSet OpenDoc = swApp.ActiveDoc()
% V7 Q0 K% \  V6 X1 ?Extensie_oud = ".SLDPRT"
# \) ^! a/ C+ G  U  s8 n+ FExtensie_nieuw = ".x_t"
Locatie = OpenDoc.GetPathName
  R' O% j7 f1 f* W4 p& q4 jLocatie_aangepast = Left(Locatie, Len(Locatie) - 7)
retval = Dir$(Locatie_aangepast & Extensie_oud)
  L9 D3 S% O' KNaam = Dir$(Locatie)
/ y" x9 u, _: x  R+ J) {+ l! ZNaam_aangepast = Left(Naam, Len(Naam) - 7)
Titel = OpenDoc.GetTitle
9 E+ P' \) Y) q6 ~) W, G9 tTitel = Left(Titel, (Len(Titel)))

  ~7 a1 E+ @6 B8 R; e1 v; q0 n
' N# l! |, i. f

zqkzqk2008

自己来顶一下，等高人