原文地址:https://blog.csdn.net/fzqlife/article/details/72769959?utm_source=blogxgwz7

在菜单栏找到：Tools-->Execute Commands --> Edit/Run Script

快捷键：Ctrl+Shift+X

输入下边的代码就可以了。（UCase大写 LCase小写）

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch

Dim mdl ' the current model

' 取得当前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

   for each Tab in folder.tables

         tab.code = LCase(tab.code)

         '修改字段名

         Dim col

         for each col in tab.columns

            col.code= LCase(col.code)

         next

         '修改索引名

         Dim idx

         for each idx in tab.indexes

            idx.code= LCase(idx.code)

         next

         '修改主键名

         Dim key

         for each key in tab.keys

            key.code= LCase(key.code)

         next

   next

' 同理处理视图

' Dim view

'   for each view in folder.Views

   '   if not view.isShortcut then

       ' view.code = 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