Option Explicit 
ValidationMode=True 
InteractiveMode=im_Batch 

Dim MDL 'the current model 

'get the current active model 
The Set of 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." 
The Else 
ProcessFolder MDL 
End the If 

'This routine copies the name into code for each table, the column and the view 
'of the current folder 
Private sub ProcessFolder (folder) 
Dim pag 
Dim the Tab 'running table 
Dim Col '
For each pag in folder. Packages 
For each Tab in pag. Tables 
Tab.com ment="aliasName:" + TAB. "comment:" + name + tab.com ment 
For each Col Tab. In the Columns 
Col.com ment="aliasName:" + col. "comment:" + name + col.com ment 
Next 
Next 
Next 
End sub