依次执行 1 - 5 步，实现 注释转名称 或者名称转注释，两个转换脚本附上
1. 名称转注释脚本：
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) On Error Resume Next 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 ‘把列名称和comment合并为comment col.comment = col.name 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
2. 注释转名称
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) On Error Resume Next Dim Tab ‘running table For Each Tab In folder.tables If Not tab.isShortcut Then tab.name = tab.comment Dim col ‘ running column For Each col In tab.columns If col.comment = "" Then Else col.name = col.comment End If Next End If Next Dim view ‘running view For Each view In folder.Views If Not view.isShortcut Then view.name = view.comment 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
原文：https://www.cnblogs.com/wudeyun/p/13021409.html