客户端开发:tips一例-VWd2aek-ChinaUnix博客

mysql乐园(linux)60376

首页　| 　博文目录　| 　关于我

VWd2aek

博客访问： 606745
博文数量： 841
博客积分： 5000
博客等级：大校
技术积分： 5010
用户组：普通用户
注册时间： 2008-10-28 10:08

文章分类

全部博文（841）

未分配的博文（841）

文章存档

2011年（1）

2008年（840）

我的朋友

最近访客

推荐博文

客户端开发:tips一例

分类：

2008-10-28 10:15:50

　　This function will convert the specified sSourceFile to HTML format and if successful, output the resulting HTML to the specified sHtmlFile
　　
　　Note: This function requires Word 97 / 2000 to be installed on the host machine　　
　　Function ConvertToHtml(sSourceFile As String, sHtmlFile As String) As Integer
　　Dim sExtension As String
　　Dim vApp As Variant
　　Dim vDocument As Variant
　　
　　ConvertToHtml = False
　　
　　sExtension = Lcase$(Right$(sSourceFile, (Len(sSourceFile) - Instr(1, sSourceFile, \".\"))))
　　Select Case sExtension
　　Case \"doc\"
　　Set vApp = CreateObject(\"Word.Application\")
　　vApp.Visible = False
　　Call vApp.Documents.Open(sSourceFile)
　　Set vDocument = vApp.Documents(1)
　　Call vDocument.SaveAs(sHtmlFile, 8&)
　　Call vDocument.Close
　　Call vApp.Quit
　　Set vApp = Nothing
　　ConvertToHtml = True
　　
　　End Select
　　
　　End Function