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

85 - Leer el contenido de un archivo de Word y guardar solo el texto en un .txt

Por ejemplo si tenemos un .Doc que tiene tablas, texto, imágenes etc..., y solo queremos obtener el texto del archivo, podemos salvarlo a un txt mediante el método SaveAs con el parámetro wdFormatText.

Este ejemplo simple abre un archivo de Word , y usando el método SaveAs, se guarda en el directorio el contenido del .doc pero en formato txt, con el nombre Archivodetexto.txt

La desventaja de este método es que obviamente necesitamos tener el Microsoft word Instalado en el sistema

Nota: Agregar la referencia de Word desde el menú referencias de Visual basic

Código fuente en el form

Option Explicit Private Sub Word_Txt(Path_Doc As String) On Error GoTo errSub 'Variable de objeto para poder abrir el Word Dim obj_Word As Word.Application 'Variable de tipo documento de Word Dim obj_Documento As Word.Document 'Creamos la referencia para llamar a la aplicación Set obj_Word = New Word.Application 'Abrimos el archivo.doc que está en el app.path Set obj_Documento = obj_Word.Documents.Open(Path_Doc) With obj_Documento 'Guardamos el contenido del .Doc en formato txt, _ es decir solo el texto sin tablas o cualquier _ objeto que contenga el mismo ActiveDocument.SaveAs FileName:=App.Path & "\archivodetexto.txt", _ FileFormat:=wdFormatText End With 'Cerramos la aplicacion obj_Word.Quit 'Descargamos las variables de la memoria Set obj_Word = Nothing Set obj_Documento = Nothing Exit Sub errSub: MsgBox Err.Description, vbCritical On Local Error Resume Next obj_Word.Quit Set obj_Word = Nothing Set obj_Documento = Nothing End Sub Private Sub Command1_Click() Call Word_Txt("c:\Archivo_word.Doc") End Sub

Recursos vb 6.0 - Enlaces relacionados

Ejemplos de Word y visual basic

Buscar en Recursos vb