关于读取word 文 档的 问题

Question

'引用word对象库
On Error Resume Next '忽略错误
    Set Wrd = GetObject(, "Word.Application") '查找一个正在运行的Excel拷贝
    If Err.Number <> 0 Then '如果 Excel 没有运行则
    Set Wrd = CreateObject("Word.Application") '运行它
    End If
    Err.Clear '清除发生错误的 Err 对象
    On Error GoTo 0 '保留普通错误进程
    
    Dim dot As String    
    dot = "filepath and filename" '比如 c:\1.doc
    Documents.Open FileName:=dot, _
       ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _
       PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
       WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                0
       Wrd.Visible =true

Answer 1

是读了 word文档,但是怎么把他输入到richtextbox 里阿
还要不是乱码?