1、RTF可以压缩上传
2、DrawCell只是影响数据在表中的显示格式,不影响文章套打,
如果文章套打也要同样的格式,代码改一下:
rp.Replace("{出生日期}", Tables("表A")(i,"出生日期"))
改为:
rp.Replace("{出生日期}", Format(Tables("表A")(i,"出生日期"),"yyyy年MM月dd日"))