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

159 - Exportar un archivo .Doc a formato RTF

La siguiente función muestra como utilizar automatización desde Visual basic para exportar y guardar un archivo de Word .DOC a Formato RTF

Este ejemplo está generado con el creador de macros de Word.

Hay una función llamada Exportar_DOC_RTF a la cual se le debe pasar el path del .Doc y el Path del Rtf a generar o exportar

Para abrir el documento se utiliza el método Open del objeto Documents, con varios parámetros, algunos de ellos son opcionales.

Para exportar y guardarlo en formato RTF se utiliza el método SaveAs del Objeto Documents

Notar que para exportar a RTF, se utiliza el valor 6 en el parámetro FileFormat.

Código fuente en un Módulo bas:

'Sub para guardar un documento de Word en formato .RTF '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Exportar_DOC_RTF(PathOrigen As String, PathDestino As String) 'Variable para utilizar el Word Dim Obj_Word As Object On Error GoTo errSub Screen.MousePointer = vbHourglass 'Crea una referencia de objeto para utilizar Word Set Obj_Word = CreateObject("Word.Application") 'Abre el documento .DOC especificado en el parámetro Obj_Word.Documents.Open _ FileName:=PathOrigen, _ ConfirmConversions:=False, _ ReadOnly:=False, _ AddToRecentFiles:=False, _ PasswordDocument:="", _ PasswordTemplate:="", _ Revert:=False, _ WritePasswordDocument:="", _ WritePasswordTemplate:="", _ Format:=0 'Lo guarda y esporta a RTF en el path especificado Obj_Word.ActiveDocument.SaveAs _ FileName:=PathDestino, _ FileFormat:=6, _ LockComments:=False, _ password:="", _ AddToRecentFiles:=True, _ WritePassword:="", _ ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, _ SaveFormsData:=False, _ SaveAsAOCELetter:=False 'Cierra el documento Obj_Word.ActiveDocument.Close False 'Elimina la referencia de la variable de objeto Set Obj_Word = Nothing Screen.MousePointer = vbDefault Exit Sub 'Error errSub: MsgBox "Error: " & Err.Description, vbCritical Screen.MousePointer = vbDefault Obj_Word.ActiveDocument.Close False Set Obj_Word = Nothing End Sub

y por ejemplo para llamarlo desde un Command1:


Call Exportar_DOC_RTF("c:\Archivo.DOC", "c:\Archivo.RTF")

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb