Hi Doug

In VBA you would need something like the following. You'll need to
translate the syntax to the language your choice.

Sub SaveActiveDocAsHTML

Dim oDoc as Word.Document
Dim appWord as Word.Application
Dim sSavePFN as string

   set appWord = Word.Application 'you'll have to get a reference to
the Word app some how

   on error resume next
   'You can't ever be certain that there is an active document
   set oDoc = appWord.ActiveDocument
   on error goto 0 'you need better error handling in the real world

   'Get the path and file name to which you want to save the document
   sSavePFN = "c:\whatever\somewhere.htm"

   oDoc.SaveAs FileName:=sSavePFN , _
       FileFormat:=wdFormatHTML, _
       AddToRecentFiles:=True

End Sub

This will save the document as an HTML file at the location specified.

Hope this helps.

Shauna Kelly.  Microsoft MVP.
http://www.shaunakelly.com/word