怎样用API获取当前表格栏的文件类型？（做了个批量更改自定义属性的玩意）

Set Part = swApp.OpenDoc(PathName & Filename, 1)用单个的命令可以打开零件图，装配图和工程图，
但是现在我不知道这个表格里的文件类型是哪种，怎么先做一个判断然后打用这种命令去打开它。
直接用If swModel.GetType = 2 Then 是不行的，因为这条语句必须用在打开文件命令的前面。。
求正确的语句使用方法。

其实我最终的目的是要做到能打开零件和装配体并更改其自定义属性，现在的效果只能分别用2个VBA来单独处理零件和装配体，想集成在一个VBA里实现，所以求大神指点！

期待成果出来，工程图自动调整，解决尺寸飘移、视图比例，焊接等符号的自动调整也是难题，摸索中

读入文件时，将文件名后缀取出来，转换成大写，通过SLDPR\SLDDRW\SLDASM判断文件类型。

加油，支持一个

期待着

期待兄台分享~

我最终想做成的功能是：批量更改自定义属性+将自定义属性里的图号+文件名自动提取出来，然后对该零件或装配体进行重命名操作，现在重命名的程序在论坛大大的帖子里找到了，自定义属性的也只差一点。再努力一把，完成后将会把成果上传上来共享！