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

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

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