Converting Word Document To Html

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
This was first published in November 2000

Dig deeper on Lotus Notes Domino Administration Tools

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.uk

Close