我就想问 RichTextBox 导入 word 文件 不出现乱码 为什么没人理啊 是问题太简单 还是 分太少了？？这是今天刚给我的10分 就这些了

Question

我把一word文件 另存未 rtf 后缀格式的文件 然后Private Sub Command1_Click()
 CommonDialog1.Filter = "Rich Text Format files|*.rtf"
   CommonDialog1.ShowOpen
//此处出错 说 无效文件格式 去掉rtfRTF  就行了 不过显示的是乱码
   wordRTB.LoadFile CommonDialog1.filename, rtfRTF  
End Sub如果直接调用word 文件 还是乱码  
怎么办啊  这是为什么 为什么 为什么  为什么 为什么  为什么

Answer 1

Private Sub Form_Load()
    On Error Resume Next
    Dim objword As Word.Application
    Set objword = New Word.Application
    objword.Documents.Open "E:\abc.doc"
    Text1.Text = objword.Documents(objword.Documents.Count).Content
    Set objword = Nothing
End Sub

Answer 2

wordRTB.LoadFile CommonDialog1.filename, rtfRTF  '注意这行
在保存时,要用 wordRTB.savefile filename (1),这里用1还是0,对应着是存为文本还是RTF,打开时也要用对这个参数.用对这个就应该不会有问题的.