关于richtextbox内嵌word的问题

Question

用richtextbox嵌入word之后,添加的任何东西都是对象啊~就是一张图片,连添加一个特殊字符都当作是图片,能不能有方法在嵌入word环境之后,richtextbox里面跟没嵌入word之前一样,自由编写啊,还有就是我在网上down了一个题库管理系统,看它嵌入word是用ole,ole嵌入的word可以用在richtextbox上吗?2者不都是失去焦点就退出word环境了吗  在下初学,希望各位老大多多指点迷津!!!在线等!!!

Answer 1

RichtextBox.OLEObjects.Add , "word1", , "word.document"

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    RichTextBox1.OLEObjects.Add , , "d:\1.doc", "Word.Document"
End Sub添加OLE对象的方法，参考MSDN如下：
______________________________________________________________ 
Add 方法（OLEObjects 集合）
      把 OLEObject 对象添加到 OLEObject 集合。不支持命名的参数。语法object.Add index, key, sourcedoc, classAdd 方法的语法包含下面部分：部分 描述 
object 必需的。对象表达式，其值是“应用于”列表中的一个对象。 
index 可选的。整数，它标识对象集合中的一个成员。如已提供，新成员将被插入在索引所指定的成员之后。 
key 可选的。一个唯一的字符串表达式，它可用于访问集合中的成员。key 参数和 index 参数可与集合的 Item 方法一起交互地使用，以便对 OLEObject 对象进行检索。 
sourcedoc 必需的。作为内嵌对象模板文档使用的文件名。RichTextBox 控件不支持链接，所以该文件的内容将被复制进 OLEObject 对象。如果不指定源文档，则必须使用一个零长度字符串 ("")。 
class 可选的。是内嵌对象的 OLE 类名。这个参数被系统注册表中的 OLE 用作 ProgID。如果已指定 sourcedoc 的文件名，这个参数将被忽略。 
说明以下代码是把一个 Microsoft Excel 工作单添加到 RichTextBox 中，并把 Key 属性设置为“SalesData”：RichTextBox1.OLEObjects.Add , "SalesData", , "Excel.Sheet.5"当对象添加到集合中时，它即变成现场激活，因此可以给它添加数据。