作者:乔山办公网日期:
返回目录:word文档
'加一个Command1, OLE1
Private Sub Command1_Click()
FileName = "?:\xxx.doc"
'调用抄Word文档。
OLE1.SourceDoc = FileName
OLE1.Action = 1
OLE1.Action = 7
End Sub
这样直百接打开word 你在里度面进行问操作就可以答了!~
word(.doc)文件是二进制文件,vb做程序直接打开这个文件(无论文来本或二进制方式)是无法理解文件内的数据的。
通常的办法是自在VB程序的项目中引用WORD提供的库文件,通过库文件提供的类中的属性和方法来操作word文件。
相关知内容可以在网上搜索一下,道这里没办法说清楚了,多查找资料,多实践就好。
别白费力气来了,Word的文件格式就这样读取?修改也不可能正常显示的,试试用别的控件或建立Word对象来操作doc文件源吧
你走的路线不对,WORD文件 是不可以按照文本方式打开的知,打开以后一定会是乱码。
直接 工程-引用-微软WORD组件
然后 添加部件 -可插入对象-WORD部件
呵呵...
他保存又不是纯文本道格式
首先你要在VB的“工程”->“引用”中引用“Microsoft Word 9.0 Object LibraryPrivate Sub Command1_Click()'打开指定的Word文件
Dim wdApp As Word.Application
Dim aDoc As Document
Set wdApp = New Word.Application
Set aDoc = wdApp.Documents.Open(FileName:="你要打开的Word文件路径及文件名")
wdApp.Visible = True'设置Word对象可见
End Sub
不过你要关闭word文件时要释e68a84e799bee5baa6337放对象
aDoc.Close'关闭文件
wdApp.Quit'退出Word程序
Set aDoc = Nothing'释放对象
Set wdApp = Nothing
你可以再放一个按钮,将上面代码放进去,用这个按钮来关闭Word并释放对象。
如果你直接在Word程序中关闭文件的话,就将word对象定义在一个类模块中Public WithEvents wdApp As Word.Application,再在wdApp_Quit()事件中加入释放对象的代码。
如果关闭word文件而没有释放对象的话,你只有重新运行刚才用来打开word文件的程序才能再次打开word文件。