Instructions: Under [Tools]-[Execute Commands]-[Edit/Run Script]. Enter the statement you want to select below, or save it for next use, with a suffix of .vbs.
The problem that needs attention is: When running the statement, it must be in Module mode. If it is executed when exporting the report, an error message will appear.
1.Name goes to the Comment field. Under normal circumstances, only fill in NAME, COMMENT can be automatically generated by running the statement.
Save the statement as HuangtSwitchCommentsToName.vbs
Statement:
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