简介：使用powerdesigner 工具显示表注释和字段注释。
操作步骤：
1、选择要操作的model，点击toole--》display preference...图（1），出现如图（2）的页面。
图（1）
2、点击table，将Comment的复选框选中，点击“ok”按钮。
图（2）
3、出现如图（3）的弹框，点击All symbols，点击“ok”按钮，就可以看到表的注释已经添加完成如图（4）。
图（3）
图（4）
4、选择要操作的model，点击toole--》display preference...图（1），出现如图（5）的页面。
图（5）
5、点击“Advanced”按钮，进入如图（6）的页面。
图（6）
6、点击图（6）中标识2的放大镜按钮，进入如图（7）的页面，将code选中，移动到第二行的位置，点击ok，关闭弹框即可，出现如图（8），选择All symbols点击ok即可。
图（7）
图（8）
7、这时会发现表格会出现两列都是显示字段名如图（9）。
图（9）
8、选中model，点击Tools--》Execute Commands--》Edit/Run Script...,弹出如图（11）的弹出框。
图（10）
图（11）
9、将以下代码复制到弹出框中点击“Run”按钮，运行成功后点击关闭按钮关闭弹出框，即可看到字段的注释也加上了如图（12）。
注意：run操作不会自动关闭弹出框，因此运行成功后需要自己关闭弹框
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim blankStr
blankStr = Space(1)
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.code = tab.comment
Dim col ' running column
for each col in tab.columns
if col.comment = "" or replace(col.comment," ", "")="" Then
col.name = blankStr
blankStr = blankStr & Space(1)
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
图（12）
至此表注释和字段注释已经完成。
如果想导出图片 可以点击Edit--》Select All，再点击Edit--》Export Image...，即可导出图片。
想要导出word，请看https://blog.csdn.net/qq_33157666/article/details/82152500