Hola
para los que deseen aprender o los que saben crear
controles ActiveX ...aqui les dejo el codigo en visualBasic
para crear una DLL que permite transformar archivos Word,Excel,PowerPoint y txt
a HTML
bueno esta dll tiene una clases Covertir.cls
primero deben abrir el visual basic y crear un nuevo proyecto del tipo DLL activeX
luego ir a el menu Proyecto->Referencia y deben agregar en referencia:
"Microsoft Word 9 Object Library"
"Microsoft Excel 9 Object Library"
"Microsoft PowerPoint 9 Object Library"
"Microsoft Office 9 Object Library"
ok...crearemos la clase
*Covertir.cls*
Function Word(DocPath As String, RutaHtml As String) As Integer
Dim Hoja As Word.Application
Set Hoja = New Word.Application
Hoja.Documents.Open FileName:=DocPath, ReadOnly:=True
Hoja.ActiveDocument.SaveAs FileName:=RutaHtml, FileFormat:=wdFormatHTML
Hoja.Quit
Set Hoja = Nothing
DoEvents
Word = 1
Exit Function
End Function
Function Excel(DocPath As String, RutaHtml As String) As Integer
Dim Hoja As Excel.Application
Set Hoja = New Excel.Application
Hoja.Workbooks.Open FileName:=DocPath, ReadOnly:=True
Hoja.ActiveWorkbook.SaveAs FileName:=RutaHtml, FileFormat:=xlHtml
Hoja.Quit
Set Hoja = Nothing
DoEvents
Excel = 1
Exit Function
End Function
Function PowerPoint(DocPath As String, RutaHtml As String) As Integer
Dim Hoja As PowerPoint.Application
Set Hoja = New PowerPoint.Application
Hoja.Visible = True
Hoja.Presentations.Open FileName:=DocPath, ReadOnly:=True
Hoja.ActivePresentation.SaveAs FileName:=RutaHtml, FileFormat:=ppSaveAsHTML, EmbedTrueTypeFonts:=msoTrue
Hoja.Quit
Set Hoja = Nothing
PowerPoint = 1
Exit Function
End Function
Sigue.....
