'===============================
' Office_Document to HTML Converter
' Microsoft word - must be installed
'===============================

Option Explicit

Dim objDialog,intResult
'____________________________________________________________________
' константы для форматов сохранения документа
' на всякий пожарный
const xlCSV = 6
const xlTextMSDOS = 21
const xlWorkbookNormal = -4143
const RTF = 6
const Document = 0
const Text = 2
const DOSText = 4
CONST wdFormatHTML = 8
'____________________________________________________________________

' диалог выбора файла
If WScript.Arguments.Length=0 Then 
    Set objDialog = CreateObject("UserAccounts.CommonDialog")
    objDialog.Filter = "Word Documents (*.doc, *.rtf)|*.doc;*.rtf|Все файлы (*.*)|*.*"
    objDialog.FilterIndex = 1
    intResult = objDialog.ShowOpen
        If intResult = 0 Then
            Wscript.Quit 0
        Else
            Convert (objDialog.FileName)
        End If
else 
    Convert (wscript.arguments.item(0))    
End If
wscript.quit 0

' Процедура преобразования
sub Convert(Fname)
Dim WordApp
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open Fname
WordApp.ActiveDocument.SaveAs Fname+".html",wdFormatHTML
CreateObject ("wscript.shell").run "hh -800 "+Fname+".html"
WordApp.Quit
End Sub

rem MS Office 2003
copy /Y Doc2HTML.vbs %windir%

REG ADD hkcr\Word.RTF.8\shell\RTF2HTML\command /ve /d "wscript.exe """%~dp0Doc2HTML.vbs""" """%%1"""" /f
REG ADD hkcr\Word.Document.8\shell\Doc2HTML\command /ve /d "wscript.exe """%~dp0Doc2HTML.vbs""" """%%1"""" /f