' doc2html.vbs
' Конвертация doc файлов в html
' Входные данные должны находиться в папке со скриптом в подпапке DOC
' Например: если скрипт находится в C:\VBS\doc2html.vbs, то все doc файлы 
' должны лежать в C:\VBS\DOC, в результате конверта все сохраненные файлы
' будут помещены в подпапку HTML.
'
' Примечание: 
' - для работы скрипта в системе должен быть установлен MS Word.

Dim oWordApp, oWordDocs, outputDir, inputDir, outputFileName, convertedFiles

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

oShell.CurrentDirectory = oFSO.GetParentFolderName(Wscript.ScriptFullName)

inputDir = oShell.CurrentDirectory & "\DOC\"
outputDir = oShell.CurrentDirectory & "\HTML\"

if not oFSO.FolderExists (outputDir) then oFSO.CreateFolder(outputDir)
if not oFSO.FolderExists (inputDir) then 
	MsgBox "Входная папка DOC не существует. Скопируйте *.doc файлы в папку DOC и запустите скрипт снова.", vbCritical, "doc2html converter"
	oFSO.CreateFolder(inputDir)
	WScript.Quit
end if

If oFSO.GetFolder(inputDir).Files.Count =  0  Then 
	MsgBox "Не найдено файлов для конвертации!", vbExclamation, "doc2html converter"
	WScript.Quit
End If 

convertedFiles =  0 
Set oWordApp = CreateObject("Word.Application")

for each currFile in oFSO.GetFolder(inputDir).Files
	Set oWordDocs = oWordApp.Documents.Open(currFile.Path)
	outputFileName = oFSO.GetBaseName(oWordApp.ActiveDocument.Name) & ".html"
	oWordDocs.SaveAs outputFileName,  10 
	oWordDocs.Close
	Set oWordDocs = Nothing
	convertedFiles = convertedFiles +  1 
Next

MsgBox "Конвертация успешна завершена. Сохранено " & convertedFiles & " файлов", vbInformation, "doc2html converter"

oWordApp.Quit
Set oWordApp = Nothing