我想用VB 调用 一个WORD文件并对其进行操作
假如有文件test.doc应该放在哪个路径上然后怎么调用。还有调用后对其操作的话有些什么相关语句?...
假如有文件 test.doc 应该放在哪个路径上然后怎么调用。
还有调用后对其操作的话 有些什么相关语句? 展开
还有调用后对其操作的话 有些什么相关语句? 展开
2个回答
展开全部
打开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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |