请教 RichTextBox

警长

如何将richtextbox控件中的文本内容，复制到Word文档中，要保留格式。代码怎么写？

七叶一枝梅

richtextbox中文本可以存为“RTF”格式，所有格式都保存了，直接用Word打开所存的文件不就行了吗？

警长

谢谢七叶一枝梅，每次都是你指点我，非常感谢。

我要做工作是：把word文档的内容调如到vb程序中的一个richtextbox控件中进行编辑，编辑完成后再存回到word文档中去。我现在的方法是先存成一个rtf格式的文件，把开始的word文件删除掉，然后再调用word把这个rtf文件另存为doc文件，非常麻烦。

七叶一枝梅

以下是引用警长在2005-11-14 15:30:27的发言：我现在的方法是先存成一个rtf格式的文件，把开始的word文件删除掉，然后再调用word把这个rtf文件另存为doc文件，非常麻烦。

上面加入ＯＬＥ控件，然后下面选择是用已有的文档还是新建一个空白文档：

下图是利用一个已存在的文档：

下面是对文档进行编辑的方式

警长

太谢谢七叶一枝梅了。让你费那么大功夫。

我确实是要在vb程序中编辑的word文档，但编辑是在程序代码中完成的，即在word文档中插入光标后，在另一个界面中双击鼠标就在word文档中选定的位置插入一个程序生成的字符串。然后该操作重复若干次。

ole这个控件我试了一下，有两个问题：第一、是程序运行中，编辑文字时，不是在ole窗体上编辑，而是在word文档上编辑；第二、操纵这个文档的代码怎么写？

七叶一枝梅

你能不能花点时间，把你的需求说得更详细些？从你上面所说来看，我怀疑你很可能根本不必使用ＯＬＥ，仅仅是在ＶＢ中调用相应的Word文档，然后执行你所说的插入操作。甚至整个的这个过程都可以是在后台进行了，无需启动Word。

警长

好的，是这样的：

1、软件功能：将word文档中引用的excel中的数据更新。（虽然word带这个功能，但是复制过去的文字格式不对）。

2、实现的方法：在vb中放两个控件分别是richtextbox和msflexgird。在vb中调用word文档和excel分别放在这个控件中，然后在richtextbox的文章中，在要更新的数子前点击光标后，到msflexgird中点击更新的数据所在的单元格，程序自动把单元格地址放到richtextbox光标处（如[sheet1!A1])...。所有工作都完成后，把加完标记的文章再存回到原来的word文档中。然后运行程序根据word文档中的单元格位置，到excel中找到对应的数据用来更新。

3、困难：我现在能够把word文档的文字和格式都复制在richtextbox控件中，也能把excel表格复制在msflexgird中（没有格式），但解决不了的就是：

richtextbox控件中的文章无法复制回word文档中，复制回去的都是乱码。

警长

焦急等待中....

警长

最后再提一次，还没有人回答，就想别的办法了。

gues1688

我不用VB，偶尔使用delphi，上面所说的问题，好像可以在word的VBA直接来实现吧？