Enregistrer le fichier word en html dans java

Question

J'essaie d'enregistrer un fichier word en html en utilisant java. Enregistrer un fichier Word au format XML et son travail pour moi

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

Il sauve mon fichier doc sous forme de fichier XML dans le dossier spécifique C:/myfolder et je considère que le fichier xml C: /myfolder/AB_00040.xml

Si je veux enregistrer le même fichier que html que puis-je faire. Toute une aide

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

Merci à l'avance

Answer 1

J'ai trouvé la réponse avec le soupçon de Zack Macomber j'utiliser une macro pour convertir le fichier de texte dans le fichier html. Je donne le code pour cette macro. Enregistrez le nom de macro "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 

Vous pouvez exécuter cette macro par

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

saveasxml codage macro

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