|
| |
|
|
| |
для: Дмитрий Смаль
(01.06.2012 в 19:08)
| | |
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
|
Сохраните как фал с расширением .vbs. Запускайте его и выберите в диалоге файл, который надо конвертировать. Можно перетаскивать на иконку этого скрипта документы doc для их конвертирования. Можно запускать из командной строки, а в качестве параметра указывать имя файла, который надо конвертировать, например:
file_name.vbs file_name.doc
В директории .doc файла будет создана его копия в формате html.
Можете написать .bat файл который переберет все doc файлы этого каталога с конвертированием. Можно и в этот vbs-файл дописать цикл.
Учтите только, что вордовский html, это куча мусора. | |
| |
|
|
| |
|
|
| |
для: cheops
(01.06.2012 в 18:53)
| | | ворд позволяет
есть очень много файлов в формате вород на сервере которые могут изменятся
нужно автоматически их конвертировать в нтмл
к сожалению пхп не может сам открывать ворд и нажимать кнопку "сохранить как нтмл" | |
| |
|
|
| |
|
|
| |
для: Дмитрий Смаль
(01.06.2012 в 18:49)
| | | Так Word вроде так и так позволяет сохранять файлы в виде HTML? | |
| |
|
|
| |
|
|
| | Здравствуйте
есть ли необходимые классы или функции чтобы на пхп конвертировать файл word в html? | |
| |
|
|
|
