关于读取word 文档的问题

feifei0079 2003-03-20 12:49:15

我用richtextbox 读入word 文档是读出的是乱码
那位大侠帮帮我啊
告诉我怎么做阿?
最好有代码

...全文

46 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxcc 2003-03-20

打赏
举报

'引用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

feifei0079 2003-03-20