不记得是哪位大侠的代码了.
---------------------------------------------------------------------------
作用：将c:\下面的test.doc另存为test.htm
要求：1.IE的设置允许（或者提示）对没有标记为安全的ActiveX进行初始化和运行；2.机器上安装了Word；3.在C:\下面存在test.doc文件。
<HTML>
<HEAD>
<TITLE>WalkingPoison's Word-to-HTML sample</TITLE>
<script language=javascript>
function saveword(){
var oWordApp=new ActiveXObject("Word.Application");
var oDocument=oWordApp.Documents.Open("C:\\test.doc");
oDocument.SaveAs("C:\\test.htm", 8)
oWordApp.Quit();
}
</script>
</HEAD>
<BODY>
Click the "save" button to save the file "C:\test.doc" to "C:\test.htm":
<input type=button onclick="saveword()" value=save></BODY>
</HTML>
---------------------------------------------------------------------------
作用：将c:\下面的test.doc另存为test.htm
要求：1.IE的设置允许（或者提示）对没有标记为安全的ActiveX进行初始化和运行；2.机器上安装了Word；3.在C:\下面存在test.doc文件。
<HTML>
<HEAD>
<TITLE>WalkingPoison's Word-to-HTML sample</TITLE>
<script language=javascript>
function saveword(){
var oWordApp=new ActiveXObject("Word.Application");
var oDocument=oWordApp.Documents.Open("C:\\test.doc");
oDocument.SaveAs("C:\\test.htm", 8)
oWordApp.Quit();
}
</script>
</HEAD>
<BODY>
Click the "save" button to save the file "C:\test.doc" to "C:\test.htm":
<input type=button onclick="saveword()" value=save></BODY>
</HTML>
'
' 调用方法：doc2html c:\doc2html c:\doc2html
' 调用方法：doc2html -s c:\doc2html\a.doc c:\doc2html
'
'**********************************************************Dim Objword
Dim Objdoc
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 FunctionFunction 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 FunctionFunction Wordinterface(Strfilename,Formattedfilename)
Objword.Documents.Open Strfilename
Set Objdoc = Objword.Activedocument
'Stop
'set The Title Of The Document To Match The Filename
Objdoc.Builtindocumentproperties(1) = Formattedfilename
'1 = Wdpropertytitle In Vba Objdoc.Saveas Strtarget & "\" & Formattedfilename & ".htm",8
'objdoc.Saveas "C:\Doc2Html\" & Formattedfilename & ".htm",8
On Error Resume Next
Objdoc.Close
End Function'stop
Set Objfso = Createobject("Scripting.FileSystemObject")
Set Objword = Createobject("Word.Application")
Objword.Visible = False
Call GetparamsIf Bbatch Then
Call Batchprocessing
Else
Call Singleprocessing
End IfObjword.Quit
Set Objword = Nothing
function openword()
{ onerror=errormsg
excelsheet=new actaveXobject(word.application);
exelsheet.application.visible=true;
var mydoc=excelSheet.document.add("",0,1);
myrange=mydoc.Range(0,1)
if(myeditor.document.body.innerText=="");
{ myeditor.document.body.innerText=="";
}
var sel=myeditor.document.body.createTextrange()
sel.select();
myeditor.document.execcommand('copy');
sel.moveEnd('character');
myRange.paste();
excelSheet.activewindow.activepane.view.type=3;
wordflag=1;
}
excelsheet=new activeXobject("word.application");
我想编“痕迹保留”