替換PD模型中的名稱Name和編號Code

'替換PD模型中的名稱Name和編號Code

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 code for each table and each column
' of the current folder
Private sub ProcessFolder(folder)
   Dim Tab 'running  table
   sFindCode = "findCode"
   sReplaceCode = "ReplaceCode"
   sFindName = "FindName"
   sReplaceName = "ReplaceName"
   for each Tab in folder.tables
      if not tab.isShortcut then
            tab.code=Replace(tab.code,sFindCode,sReplaceCode)
            tab.name=Replace(tab.name,sFindName,sReplaceName)
         Dim col ' running column
         for each col in tab.columns
            col.code=Replace(col.code,sFindCode,sReplaceCode)
            col.name=Replace(col.name,sFindName,sReplaceName)
         next
      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