java word 另存为,在Java中将Word文件另存为html

最新推荐文章于 2024-08-12 19:22:20 发布

浪客宏非

最新推荐文章于 2024-08-12 19:22:20 发布

阅读量226

点赞数

文章标签： java word 另存为

这篇博客讲述了如何使用Java通过宏命令将Word文件转换为HTML。作者首先分享了他们如何成功地将Word文件保存为XML文件，然后提供了一个VBA宏代码，该宏可以在Word中运行以将文档另存为HTML格式。这个宏被调用通过Java的Runtime.exec方法执行。

摘要由CSDN通过智能技术生成

I try to save a word file as html using java. I save a word file as xml and its working for me

Runtime rt1 = Runtime.getRuntime();

rt1.exec("C:/Program Files/Microsoft Office/Office12/WINWORD.EXE /msaveasxml C:/myfolder/AB_00040.doc");

It save my doc file as xml file in the specific folder C:/myfolder and I view that xml file at C:/myfolder/AB_00040.xml

If i want to save the same file as html what can i do. Any one help

rt1.exec("C:/Program Files/Microsoft Office/Office12/WINWORD.EXE /msaveas??? C:/myfolder/AB_00040.doc");

Thanks in advance

解决方案

I found the answer with the hint of Zack Macomber i use a macro for convert word file to html file. I give the coding for that macro. Save the name of macro as "saveashtml"

Sub saveashtml()

Dim xmlname As String

xmlname = ActiveDocument.FullName

xmlname = Replace(xmlname, ".docx", ".html", , , vbTextCompare)

xmlname = Replace(xmlname, ".doc", ".html", , , vbTextCompare)

ActiveDocument.SaveAs FileName:=xmlname, FileFormat:=wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False

Application.Quit

End sub

You can execute this macro by

Runtime rt1 = Runtime.getRuntime();

rt1.exec("C:/Program Files/Microsoft Office/Office12/WINWORD.EXE /msaveashtml C:/myfolder/AB_00040.doc");

saveasxml macro coding

Sub saveasxml()

Dim xmlname As String

xmlname = ActiveDocument.FullName

xmlname = Replace(xmlname, ".docx", ".xml", , , vbTextCompare)

xmlname = Replace(xmlname, ".doc", ".xml", , , vbTextCompare)

ActiveDocument.SaveAs FileName:=xmlname, FileFormat:=wdFormatFlatXML, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False

End Sub