PowerDesigner导出word，PowerDesigner把表导出到word，PDM导出word文档

PowerDesigner导出word，PowerDesigner把表导出到word，PDM导出word文档

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

©Copyright 蕃薯耀 2017年4月06日
http://www.cnblogs.com/fanshuyao/
一、把注释导出成字段的执行脚本：

Sql代码


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

'This routine copy name into code for each table, each column and each view

'of the current folder

Private sub ProcessFolder(folder)

Dim Tab 'running table

for each Tab in folder.tables

if not tab.isShortcut then

if len(tab.comment) <> 0 then

tab.name = tab.comment

end if

On Error Resume Next

Dim col 'running column

for each col in tab.columns

if len(col.comment) <>0 then

col.name =col.comment

end if

On Error Resume Next

next

end if

next

end sub

二、把表导出到Word的通用模板：

见附件。

把模板解压后放在PowerDesigner的安装目录下Report Templates 文件夹里，

如D:\PowerDesigner\Resource Files\Report Templates

三、其它参考资料：
http://blog.csdn.net/ferry_passion/article/details/8948456
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

©Copyright 蕃薯耀 2017年4月06日
http://www.cnblogs.com/fanshuyao/