‘**
    ‘ File: name2comment.vbs
    ‘     Title: Name to Comment Conversion
    ‘ Model: Physical Data Model
    ‘     Objects: Table, Column, View
    ‘ Author: steveguoshao
    ‘     Created: 2013-11-29
    ‘ Mod By:
    ‘     Modified:
    ‘ Version: 1.0
    ‘     Memo: Modify from name2code.vbs
    ‘**

    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

    ‘ This routine copy name into comment for each table, each column and each view
    ‘ of the current folder
    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
    col.comment= col.name
    next
    end if
    next

    1.   Dim   view   'running   view <br />      for   each   view   in   folder.Views <br />            if   not   view.isShortcut   then <br />                  view.comment   =   view.name <br />            end   if <br />      next
    4.   '   go   into   the   sub-packages <br />      Dim   f   '   running   folder <br />      For   Each   f   In   folder.Packages <br />            if   not   f.IsShortcut   then <br />                  ProcessFolder   f <br />            end   if <br />      Next <br />end   sub