Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

291 - Exportar un documento de word a Html

Función para abrir desde el visual basic un documento de Microsoft word y exportarlo a formato Html

En el código hay una función llamada Exportar_Word_Html con dos parámetros.

El primer parámetro es el path del documento de word y el segundo es la ruta y nombre de achivo del Html a generar

Para el ejemplo colocar un Command1 y el siguiente código fuente en un formulario

Option Explicit ' Función para exportar el documento de Word a Html '********************************************************** Function Exportar_Word_Html(Path_Word As String, _ Path_Html As String) As Boolean On Local Error GoTo Err_Function Dim Obj_Word As Object ' Nueva refencia de objeto para usar Word Set Obj_Word = CreateObject("Word.Application") 'Abre el documento a exportar Obj_Word.Documents.Open Path_Word ' Exporta el documento a Html Obj_Word.ActiveDocument.SaveAs FileName:=Path_Html, FileFormat:=100, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False ' Cierra el word y descarga la referencia Obj_Word.Quit Set Obj_Word = Nothing Exportar_Word_Html = True Exit Function ' Error Err_Function: MsgBox Err.Description, vbCritical On Error Resume Next Obj_Word.Quit Set Obj_Word = Nothing Exportar_Word_Html = False End Function Private Sub Command1_Click() If Exportar_Word_Html("c:\archivo.doc", "c:\archivo.html") Then MsgBox " Archivo Html exportado correctamente ", vbInformation End If End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb