Documents.Add "new
doc.
doc"
Active Document.SaveAs FileName:="new doc.htm", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.View.Type = wdWebView
---------------------------------------------------------------
doc2html.vbs
'**********************************************************
'
' 调用方法: doc2html c:/ doc2html c:/ doc2html
' 调用方法: doc2html -s c:/ doc2html/a. doc c:/ doc2html
'
'**********************************************************
Dim Objword
Dim Obj doc
Dim Objfso
Dim Strsource
Dim Strtarget
Dim Bbatch
'得到命令行参数,有三种可能的格式:[-s] 要进行转换的源文件目录或文件 转换成Html文件后保存的目录
Function Getparams()
Dim Objarg
If Wscript.Arguments.Count >= 2 Then
If Wscript.Arguments.Item(0) = "-s" Or Wscript.Arguments.Item(0) = "-S" Then
Strsource = Wscript.Arguments.Item(1)
Strtarget = Wscript.Arguments.Item(2)
Bbatch = False
Else
Strsource = Wscript.Arguments.Item(0)
Strtarget = Wscript.Arguments.Item(1)
Bbatch = True
End If
Else
Wscript.Quit(1)
End If
End Function
Function Batchprocessing()
Dim Objfolder
Dim Objfile
Dim Lpos
Dim Strfilename
Lpos = 0
Set Objfolder = Objfso.Getfolder(Strsource)
For Each Objfile In Objfolder.Files
Lpos = Instr(1,Mid(Objfile.Path,Len(Objfile.Path) - 3,4)," Doc",1)
If Lpos > 0 Then
Strfilename = Objfso.Getbasename(Objfile.Path)
Wordinterface Objfile.Path,Strfilename
End If
Next
End Function
Function Singleprocessing()
Dim Objfile
Set Objfile = Objfso.Getfile(Strsource)
Strfilename = Objfso.Getbasename(Objfile.Path)
Wordinterface Objfile.Path,Strfilename
End Function
Function Wordinterface(Strfilename,Formattedfilename)
Objword. Documents.Open Strfilename
Set Obj doc = Objword.Active document
'Stop
'set The Title Of The Document To Match The Filename
Obj doc.Builtin documentproperties(1) = Formattedfilename
'1 = Wdpropertytitle In Vba
Obj doc.Saveas Strtarget & "/" & Formattedfilename & ".htm",8
'obj doc.Saveas "C:/ Doc2Html/" & Formattedfilename & ".htm",8
On Error Resume Next
Obj doc.Close
End Function
'stop
Set Objfso = Createobject("Scripting.FileSystemObject")
Set Objword = Createobject("Word.Application")
Objword.Visible = False
Call Getparams
If Bbatch Then
Call Batchprocessing
Else
Call Singleprocessing
End If
Objword.Quit
Set Objword = Nothing
Active Document.SaveAs FileName:="new doc.htm", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.View.Type = wdWebView
---------------------------------------------------------------
doc2html.vbs
'**********************************************************
'
' 调用方法: doc2html c:/ doc2html c:/ doc2html
' 调用方法: doc2html -s c:/ doc2html/a. doc c:/ doc2html
'
'**********************************************************
Dim Objword
Dim Obj doc
Dim Objfso
Dim Strsource
Dim Strtarget
Dim Bbatch
'得到命令行参数,有三种可能的格式:[-s] 要进行转换的源文件目录或文件 转换成Html文件后保存的目录
Function Getparams()
Dim Objarg
If Wscript.Arguments.Count >= 2 Then
If Wscript.Arguments.Item(0) = "-s" Or Wscript.Arguments.Item(0) = "-S" Then
Strsource = Wscript.Arguments.Item(1)
Strtarget = Wscript.Arguments.Item(2)
Bbatch = False
Else
Strsource = Wscript.Arguments.Item(0)
Strtarget = Wscript.Arguments.Item(1)
Bbatch = True
End If
Else
Wscript.Quit(1)
End If
End Function
Function Batchprocessing()
Dim Objfolder
Dim Objfile
Dim Lpos
Dim Strfilename
Lpos = 0
Set Objfolder = Objfso.Getfolder(Strsource)
For Each Objfile In Objfolder.Files
Lpos = Instr(1,Mid(Objfile.Path,Len(Objfile.Path) - 3,4)," Doc",1)
If Lpos > 0 Then
Strfilename = Objfso.Getbasename(Objfile.Path)
Wordinterface Objfile.Path,Strfilename
End If
Next
End Function
Function Singleprocessing()
Dim Objfile
Set Objfile = Objfso.Getfile(Strsource)
Strfilename = Objfso.Getbasename(Objfile.Path)
Wordinterface Objfile.Path,Strfilename
End Function
Function Wordinterface(Strfilename,Formattedfilename)
Objword. Documents.Open Strfilename
Set Obj doc = Objword.Active document
'Stop
'set The Title Of The Document To Match The Filename
Obj doc.Builtin documentproperties(1) = Formattedfilename
'1 = Wdpropertytitle In Vba
Obj doc.Saveas Strtarget & "/" & Formattedfilename & ".htm",8
'obj doc.Saveas "C:/ Doc2Html/" & Formattedfilename & ".htm",8
On Error Resume Next
Obj doc.Close
End Function
'stop
Set Objfso = Createobject("Scripting.FileSystemObject")
Set Objword = Createobject("Word.Application")
Objword.Visible = False
Call Getparams
If Bbatch Then
Call Batchprocessing
Else
Call Singleprocessing
End If
Objword.Quit
Set Objword = Nothing