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

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

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

©Copyright 蕃薯耀 2017年4月06日

http://fanshuyao.iteye.com/

 

一、把注释导出成字段的执行脚本：

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://fanshuyao.iteye.com/