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

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

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

©Copyright 蕃薯耀 2017年4月06日

http://www.cnblogs.com/fanshuyao/

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

1. Option Explicit
2. ValidationMode = True
3. InteractiveMode = im_Batch
4. Dim mdl 'the current model
5. 'get the current active model
6. Set mdl = ActiveModel
7. If (mdl Is Nothing) Then
8. MsgBox "There is no current Model"
9. ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
10. MsgBox "The current model is not an Physical Data model."
11. Else
12. ProcessFolder mdl
13. End If
14. 'This routine copy name into code for each table, each column and each view
15. 'of the current folder
16. Private sub ProcessFolder(folder)
17. Dim Tab 'running table
18. for each Tab in folder.tables
19. if not tab.isShortcut then
20. if len(tab.comment) <> 0 then
21. tab.name = tab.comment
22. end if
23. On Error Resume Next
24. Dim col 'running column
25. for each col in tab.columns
26. if len(col.comment) <>0 then
27. col.name =col.comment
28. end if
29. On Error Resume Next
30. next
31. end if
32. next
33. 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/