主题：能帮我转一个文件么？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:word.zip

老师，我不想在电脑里再装商业版，能帮我转成开发版的格式么？我好学习一下。

这活干不了

只有官方才能转换,并且只有在购买开发版1个月内才可以,只提供2次机会!

操作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