word(.doc)文件是二进制文件,vb做程序直接打开这个文件(无论文本或二进制方式)是无法理解文件内的数据的。
通常的办法是在VB程序的项目中引用WORD提供的库文件,通过库文件提供的类中的属性和方法来操作word文件。
相关内容可以在网上搜索一下,这里没办法说清楚了,多查找资料,多实践就好。
打开word文件:
Set obj = CreateObject(, "word.application ")
obj.open Filename:= "x:\text.doc "
打开并读取:
Set wordObj = CreateObject("Word.Application") '创建word应用类
wordObj.Visible = False
wordObj.Documents.Open ( "x:\text.doc" )
Text1.Text = wordObj.ActiveDocument.Content.Text
wordObj.Quit
Set wordObj = Nothing
写操作
wordObj.DisplayAlerts = wdAlertsNone
wordObj.ActiveDocument.SaveAs App.Path & "\test.doc"
wordObj.Quit '退出Word文件
wordObj.DisplayAlerts = wdAlertsMessageBox
Set wordObj= Nothing