vb问题 Richtextbox 如何增加内容

Question

界面有一个richtextbox控件
里面的格式和内容已经提前写好了一部分
请问：怎样用代码实现在richtextbox控件最后面增加文字内容,而且不会影响到前面已经输入好的格式和内容。

谢谢
朋友ljl88900 的方法确实可行
不过增加的内容总在第一行，怎样才能加在鼠标指定的地方呢？
还得麻烦朋友你！谢谢

另外不知道朋友有没有可以对word文档进行文本和插入图像操作的源代码实例，本人现在对此头疼不已，谢谢
邮箱：[email protected]

采纳答案后 追加50分！

Answer 1

根据补充信息，修改如下：
楼上几位的方法都会使Richtextbox格式发生变化。
我的做法是通过API来实现：

一、把下面代码放入模块中：
Option Explicit
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageByNum Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessageByString Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const EM_LINELENGTH = &HC1
Private Const EM_REPLACESEL = &HC2
Private Const EM_SETSEL = &HB1
Private Const EM_GETSEL = &HB0

Public Sub AddText(RichTextBoxName As Object, SendString As String, Optional Position As String)
Dim K As Long, Hwd As Long
Hwd = RichTextBoxName.hWnd
Select Case LCase(Position)
Case "top"
K = 0
Case "end"
K = Len(RichTextBoxName.Text)
Case Else
SendMessage Hwd, EM_GETSEL, 0, K
End Select
SendMessageByNum Hwd, EM_SETSEL, K, K
SendMessageByString Hwd, EM_REPLACESEL, 1, SendString
End Sub

二、调用举例：
AddText RichTextBox1, "11111", "top" '在文本头插入
AddText RichTextBox1, "2222", "end" '在文本尾追加
AddText RichTextBox1, "3333" '在当前位置插入

通过上述方法追加的文本不会影响原有的格式。

Answer 2

利用COMDLG打开一个文件，然后
Dim tmpfile '储存到临时文件
Open sFile For Binary As #1
tmpfile = Input(LOF(1), 1)
Close #1
richtext = richtext & vbNewLine & tmpfile '换行，然后和rich相加

Answer 3

用:

RichTextBox1.Text = RichTextBox1.Text & Text1.Text

或

RichTextBox1.Text = RichTextBox1.Text & Text1.Text & vbCrLf

Text1.Text 是你输入的文字。

Answer 4

推荐你试一下以下方法
用word写几个文字（用其他颜色设置）
之后保存为 rtf格式
最后用记事本打开就明白了

Answer 5

richtext1.text=richtext1.text+"fsdafDSAF"

Answer 6

加 & 来连接