主题：建议增强狐表与word办公软件的兼容性

老大，强烈建议增强狐表与word办公软件的兼容性，这样对提高办公的效率会有更大的提高，灵活性也会有很大的提高

这好像是两回事，不过只有贺老师才知道能否实现！

应该能吧，报表不是和excell的兼容很好吗，如果数据能够在word当中很好地引用不是更好吗，目前狐表和word 的兼容性还是有一定的差距

如果仅仅是在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()

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

。。。。。。

我以前对"电脑阅卷王"的改进建议中也提到这个问题,但现在感觉没有必要,理由如下:用WORD以前是考虑快速排版需要,现用EXCEL照样可快速排版;同时WORD的邮件合并功能用4楼的知识完全可兼容.

我试过，替换后出的文档就不能在修改了，这样灵活性就不够了

套打时设为打印预览，在另存为试试！

Dim rp As New RtfPrinter("c:\Data\report.rtf") rp.Replace("{Today}", Date.Today) rp.Preview() 中“Date.Today”能不能替换为引用数据表的某列的数据，应该如何设置代码，请大侠予以指导，先谢谢了。 我想实现WORD的邮件合并功能，请哪位高手多指点以下，能够提供比较完整的代码 rtf文件能不能批量生成报表,就像excell那样。

程总：请您将rtf格式另存为doc试试，看看什么结果就知道此狐友为什么会提出“强烈建议增强狐表与word办公软件的兼容性，这样对提高办公的效率会有更大的提高，灵活性也会有很大的提高”的需求了。

用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