选择工具——Execute Commands——Edit /Run Script
将代码粘贴到此处，然后执行。即成功加入注释
1 Option Explicit 2 ValidationMode = True 3 InteractiveMode = im_Batch 4 5 Dim mdl 'the current model 6 7 'get the current active model 8 Set mdl = ActiveModel 9 If (mdl Is Nothing) Then 10 MsgBox "There is no current Model" 11 ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then 12 MsgBox "The current model is not an Physical Data model." 13 Else 14 ProcessFolder mdl 15 End If 16 17 'This routine copy name into code for each table, each column and each view 18 'of the current folder 19 Private sub ProcessFolder(folder) 20 21 Dim Tab 'running table 22 for each Tab in folder.tables 23 if not tab.isShortcut then 24 if len(tab.comment) <> 0 then 25 tab.name = tab.comment 26 end if 27 On Error Resume Next 28 Dim col 'running column 29 for each col in tab.columns 30 if len(col.comment) <>0 then 31 col.name =col.comment 32 end if 33 On Error Resume Next 34 next 35 end if 36 next 37 end sub