- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 能帮我转一个文件么？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52974)
-- 发布时间：2014/6/26 15:53:00
-- 能帮我转一个文件么？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:word.zip |
老师，我不想在电脑里再装商业版，能帮我转成开发版的格式么？我好学习一下。
-- 发布时间：2014/6/26 15:55:00
--
这活干不了
-- 发布时间：2014/6/26 15:56:00
--
只有官方才能转换,并且只有在购买开发版1个月内才可以,只提供2次机会!
-- 发布时间：2014/6/26 16:02:00
--
操作word，新版本不需要这么麻烦了，直接写下面的代码
Dim app As New MSWord.Application
try
Dim fileName = "d:\\test.doc"
app.Documents.Open(fileName)
Dim count = app.Documents(fileName).Characters.Count
Dim rng As MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)
msgbox(rng.Text)
App.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
\'app.Quit
End try
参考 http://msdn.microsoft.com/zh-cn/library/tcyt0y1f%28v=vs.80%29.aspx