利用VBA把PowerDesigner的name复制到comment

代码如下：

Option   Explicit 
'-------------------------------------------------------------------------------
'作用：PowerDesigner物理模型复制name到comment
'
'作者: Lio5n
'时间: 2015-12-18
'
'版本: V1.0
'
'说明：如果comment有值，不会覆盖；可以重复执行，不会多次复制
'-------------------------------------------------------------------------------

 ValidationMode   =   True 
 InteractiveMode   =   im_Batch

Dim   mdl   '当前模型

'获取当前活动的模型
 Set   mdl   =   ActiveModel 
 If   (mdl   Is   Nothing)   Then 
       MsgBox   "未找到活动的模型！" 
 ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then 
       MsgBox   "当前模型不是物理模型！" 
 Else 
       ProcessFolder   mdl 
       msgbox "执行完成！"
 End   If

'复制 name 到 comment 的函数
 Private   sub   ProcessFolder(folder) 
       Dim   Tab   '表处理
       for   each   Tab   in   folder.tables 
             if   not   tab.isShortcut   then
                 
                      if left(trim(tab.comment),len(trim(tab.name ))) <> trim(tab.name) then
                   tab.comment   =   trim(tab.name) + " " + trim(tab.comment)
                   tab.comment   =   trim(tab.comment)
                end if
                   
                   Dim   col   '字段处理
                   for   each   col   in   tab.columns 
                           if left(trim(col.comment),len(trim(col.name ))) <> trim(col.name) then
                         col.comment=   trim(col.name) + " " + trim(col.comment)
                         col.comment=   trim(col.comment)
                      end if
                   next 
             end   if 
       next

      Dim   view   '视图处理
       for   each   view   in   folder.Views 
             if   not   view.isShortcut   then 
                 if left(trim(view.comment),len(trim(view.name ))) <> trim(view.name) then
                   view.comment   =   trim(view.name) + " " + trim(view.comment)
                   view.comment   =   trim(view.comment)
              end if
             end   if 
       next

      '进入子floder
       Dim   f   '子folder 
       For   Each   f   In   folder.Packages 
             if   not   f.IsShortcut   then 
                   ProcessFolder   f 
             end   if 
       Next 
 end   sub