将name的值快速复制到comment中

Tools->Excute Commands->Edit/Run Scripts

 

 

 

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl 'the current model
'get the current active model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
    MsgBox "There is no current Model"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
    MsgBox "The current model is not an Physical Data model."
Else
    ProcessFolder mdl
End If

Private sub ProcessFolder(folder)
    Dim Tab 'running table
    for each Tab in folder.tables
        if not tab.isShortcut then
            tab.comment = tab.name
            Dim col 'running column
            for each col in tab.columns
                if  trim(col.comment)="" then
                  col.comment= col.name
                end if
            next
        end if
    next
    Dim view 'running view 
        for each view in folder.Views 
            if not view.isShortcut then 
            view.comment = view.name 
        end if 
    next  
    'go into the sub-packages 
    Dim f 'running folder 
    For Each f In folder.Packages 
        if not f.IsShortcut then 
            ProcessFolder f 
        end if 
    Next 
end sub