以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  建议增强狐表与word办公软件的兼容性  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6705)
--  作者：cxabc123
--  发布时间：2010/4/21 15:29:00
--  建议增强狐表与word办公软件的兼容性
老大，强烈建议增强狐表与word办公软件的兼容性，这样对提高办公的效率会有更大的提高，灵活性也会有很大的提高
--  作者：程兴刚
--  发布时间：2010/4/21 16:27:00
--  
这好像是两回事，不过只有贺老师才知道能否实现！
--  作者：cxabc123
--  发布时间：2010/4/21 17:34:00
--  
应该能吧，报表不是和excell的兼容很好吗，如果数据能够在word当中很好地引用不是更好吗，目前狐表和word 的兼容性还是有一定的差距
--  作者：程兴刚
--  发布时间：2010/4/21 18:05:00
--  

如果仅仅是在word中替换数据，现在也可以啊？

关于文章套打

RtfPrinter类用于文章套打。
文章的类型必须是RTF格式，常用的文字处理软件，例如Word，都可以将文章保存为RTF格式。

打印一篇文章的代码非常简单：

Dim rp As New RtfPrinter("c:\\Data\\report.rtf")
rp.Preview()

上面的代码是预览，如果要直接打印，代码为：

Dim rp As New RtfPrinter("c:\\Data\\report.rtf")
rp.Print()

显然，我们的目的是套打，套打的原理非常简单，我们在编辑文章的时候，可以在文章中插入一些特殊的标记，然后利用RtfPrinter的Replace方法，将这些标记替换为数据。
例如你在文章中插入了一个特殊的标记"{Today}"，希望套打的时候，能够将这个标记替换为当天的日期：

Dim rp As New RtfPrinter("c:\\Data\\report.rtf")
rp.Replace("{Today}", Date.Today)
rp.Preview()

虽然你可以使用任何字符作为标记，但是我们推荐您用大括号加上说明字符作为标记，以便于维护。


。。。。。。
--  作者：xl
--  发布时间：2010/4/21 19:47:00
--  
我以前对"电脑阅卷王"的改进建议中也提到这个问题,但现在感觉没有必要,理由如下:用WORD以前是考虑快速排版需要,现用EXCEL照样可快速排版;同时WORD的邮件合并功能用4楼的知识完全可兼容.
--  作者：cxabc123
--  发布时间：2010/4/22 8:52:00
--  
我试过，替换后出的文档就不能在修改了，这样灵活性就不够了
--  作者：程兴刚
--  发布时间：2010/4/22 8:54:00
--  
套打时设为打印预览，在另存为试试！
--  作者：cxabc123
--  发布时间：2010/4/23 8:43:00
--  

Dim rp As New RtfPrinter("c:\\Data\\report.rtf")
rp.Replace("{Today}", Date.Today)
rp.Preview()
中“Date.Today”能不能替换为引用数据表的某列的数据，应该如何设置代码，请大侠予以指导，先谢谢了。


我想实现WORD的邮件合并功能，请哪位高手多指点以下，能够提供比较完整的代码


rtf文件能不能批量生成报表,就像excell那样。

[此贴子已经被作者于2010-4-23 14:52:44编辑过]
--  作者：ztmdnzc
--  发布时间：2013/11/19 15:50:00
--  
程总：请您将rtf格式另存为doc试试，看看什么结果就知道此狐友为什么会提出“强烈建议增强狐表与word办公软件的兼容性，这样对提高办公的效率会有更大的提高，灵活性也会有很大的提高”的需求了。
--  作者：狐狸爸爸
--  发布时间：2013/11/19 15:52:00
--  

用vba吧：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=14778&skin=0

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=39839&skin=0