Тема: 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