主题：请教word报表

大师：如何把表a,生成word模板报表？如实例。

模板内容

 

[表A内容]

 

代码

 

 

Dim tm As String  = ProjectPath & "Attachments\123.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\123.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
Dim str As String = ""
For Each r As Row In Tables("表A").rows '逐行生成报表
    For Each c As Col In Tables("表A").Cols
        str &= r(c.name) & "  "
    Next
    str &= vbcrlf
Next
wrt.Replace("[表A内容]",str)
wrt.Build
wrt.Show() '显示报表

还是不能生成一样的模板报表，模板是表格形式的，例子只是简化未制作为表格。

word报表没办法。你只能用excel报表。

大师：转换后，原有表中的记录为列名后，列名太长，而引用该列名写不下如何办？如工资-中国齐齐哈尔大学教授大红袍大师，如何办？

不明白你什么意思

能否这样转换，原来记录

可以这样，写不写什么意思啊，列名不限制啊

就是设置模板时，如：

可以不固定表格的宽度啊，也可以固定表格宽度，然后用自适应控制字体啊