以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  是否可以通过代码将专业报表直接存为word 文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84987)
--  作者：zunwoun
--  发布时间：2016/5/14 19:01:00
--  是否可以通过代码将专业报表直接存为word 文件
是否可以通过代码将专业报表直接存为word 文件，并保存原有格式位置不变？
--  作者：大红袍
--  发布时间：2016/5/15 22:54:00
--  

 没有直接保存的方法。你可以保存成html，然后再另存为word，比如代码

 

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef \'设置网格线
\'下面的代码向表格中填入值
For r As Integer = 0 To 5
    For c As Integer = 0 To 5
        Dim rx As New prt.RenderText \'定义一个文本对象
        rx.Text = r & "," & c \'为文本对象设置内容
        rt.Cells(r, c).RenderObject = rx \'将文本对象放置在单元格中
    Next
Next
doc.SaveHTM("d:\\test.doc")

Dim strs As String = FileSys.ReadAllText("d:\\test.doc")
Dim idx As Integer = strs.IndexOf("<html")
strs = strs.SubString(idx)
FileSys.WriteAllText("d:\\test.doc", strs, False)
--  作者：zunwoun
--  发布时间：2016/5/16 15:16:00
--  

可以转换，但图片大小及字体大小全部变了，有什么办法可以控制？
--  作者：大红袍
--  发布时间：2016/5/16 15:18:00
--  
以下是引用zunwoun在2016/5/16 15:16:00的发言：

可以转换，但图片大小及字体大小全部变了，有什么办法可以控制？

 

没办法的
--  作者：zunwoun
--  发布时间：2016/5/16 15:23:00
--  

或者转成word 文件后，通过代码对word文件重新调整字体大小和图片大小，可以吗
--  作者：大红袍
--  发布时间：2016/5/16 15:25:00
--  
 不可以。