Demonstration script that opens a file named C:\Scripts\Test.doc and then saves that file in HTML format.

Visual Basic
Edit|Remove
Const wdFormatHTML = 8

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = _
    objWord.Documents.Open("c:\scripts\test.doc)
objDoc.SaveAs("C:\Scripts\test.htm", wdFormatHTML)