小
小黄鱼
Unregistered / Unconfirmed
GUEST, unregistred user!
我有个组卷系统，试题和答案存储在access数据库的memo字段中，数据类型是richedit类型，好像与word内容兼容，当我把这些数据从richedit中转移到word时，出了些问题：
1， 直接粘贴，没有问题。（但是我要用程序做，不能直接粘贴了，并且要编辑字体，例如试卷标题和内容的字体大小是不一样的）
2， 但是使用delphi调用word时，就出现了问题，如果对worddocument1.Range.Text赋值，这是针对整体的，不能编辑字体，如果使用worddocument1.Range.insertafter(text),就会出现乱码，好像是insertafter不支持richedit的格式。
总之就是要实现，把数据库中的内容转移到word中，并自动设置字体，形成一份完整的试卷。不知道我哪里出了错误，有没有更好的办法呢？
1， 直接粘贴，没有问题。（但是我要用程序做，不能直接粘贴了，并且要编辑字体，例如试卷标题和内容的字体大小是不一样的）
2， 但是使用delphi调用word时，就出现了问题，如果对worddocument1.Range.Text赋值，这是针对整体的，不能编辑字体，如果使用worddocument1.Range.insertafter(text),就会出现乱码，好像是insertafter不支持richedit的格式。
总之就是要实现，把数据库中的内容转移到word中，并自动设置字体，形成一份完整的试卷。不知道我哪里出了错误，有没有更好的办法呢？
.Range;