如何生成传统世系表

aslxt

建议采用现代文档排版模式,大排序使用世次,小排序使用兄弟排行,这样比较简单,也符合现代人的阅读习惯,常规Word就可以胜任.
如果非要采用古谱式样,你可以研究一下Word的文字竖排,分栏.重点是如何截断相同世次的文字长度,不至于跨到下一栏.当然,还可以使用不限制页面尺寸的绘图软件(如visio,cad等),绘制完成后,再进行打印分页.
实际上,古谱的特点就是从右上角往下一世一栏,从右到左为同世次的兄弟,纸张无限大(与treeview类似,只是treeview是从左上到右下),然后根据需要进行裁剪装订而已.把古谱单页(上下为世次,右左为兄弟)平铺拼接后,确实很直观.

aslxt

只能简单做成这样的了

aslxt

当然是代码,主要过程:1,打开word.application,新增document
2,设置document的文字为垂直,分成5栏(每页显示的从上到下的世代数量),其他使用默认值
3,按每代人一个document的方式导出为临时分表,当然要设置族人信息的不同部分的文字格式(加粗/字体/字号/双行合一...)
4,为document的每一栏的开始添加世代信息
5,重复1~4,顺序导出相邻的五代人为5个分表
6,新建document(5代人的总表),按照栏目/页/分表文件的方式循环,分别复制分表的一栏的文字到总表中粘贴,关闭分表   
7,调整5代人的总表的格式    ----以上已经完成.
8,重复i~7,顺序得出下一个相邻的五代人的总表,直至所有族人信息导出完成.
9,把各个五代人的总表,按照世代顺序,合并为一个document,完成.
还在改进中.如有兴趣,可加QQ:853156456