1

Тема: VBScript: Office Document to HTML Converter

Просматривать документы, и уж тем более читать книги в текстовом редакторе(процессоре) - мягко говоря, не практично
И думаю все со мной согласятся, что самый оптимальный вариант для просмотра и чтения это HTML в браузере.

Следующий скрипт использует Word'овский COM-сервер для конвертирования документов в формат HTML.
MS office должен быть установлен.
Doc2HTML.vbs

'===============================
' 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

Пример:

Doc2HTML.vbs sample.doc

Или же просто перетащите в проводнике файл документа на иконку скрипта. В директории создасться файл sample.doc.html




Чтобы зарегистрировать для файлов .Rtf  и .Doc соответствующий пункт в меню проводника, выполните из директории хранения скрипта следующий BAT-файл:
INSTALL.BAT

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

__
С использованием материалов сайта Script-coding.com