Resumen Como hacer para guardar un .doc en .html

Mensaje enviado por "Ignacio Napal" <inapal@equiplus.com>


La instrucción de "SaveAs" del documento debería quedar así:

WApp.ActiveDocument.SaveAs "G:\DOC\" & aux & "htm", WApp.FileConverters(6).SaveFormat


OJO: Fijate que el Word tenga instalado el filtro para HTML. Es una opción del proceso de instalación. Una manera de darte cuenta es probando directamente en el Word, si se puede guardar un archivo en este formato.

Ignacio Napal
Equiplus S.A.
e-mail: inapal@equiplus.com
----- Original Message -----
From: Luis Serrano <luis@lared.es>
To: <vb-esp@ccc.uba.ar>
Sent: Friday, April 27, 2001 11:54 AM
Subject: vb-esp : Como hacer para guardar un .doc en .html


>
> he conseguido guardarlo como texto y como rtf pero como html no he podido
> yo hago lo siguiente:
>
> Private Sub Command1_Click()
> Dim aux As String, Fichero As String
> Dim pp As FileConverter
> Dim Vari
>
>
> Screen.MousePointer = vbHourglass
> 'inicializo el objeto word
> Set WApp = New Word.Application
>
> 'obtengo el nombre de los ficheros .doc del directorio
> Fichero = Dir("G:\DOC\*.doc")
> While Fichero <> ""
> 'abro el fichero con word
> WApp.Documents.Open "G:\DOC\" & Fichero
> 'lo grabo en formato texto
> aux = Left(Fichero, InStr(Fichero, "."))
> WApp.ActiveDocument.SaveAs "G:\DOC\" & aux & "txt", wdFormatText
>
> 'lo cierro
> WApp.ActiveDocument.Close False
> 'busco el siguiente
> Fichero = Dir()
> Wend
> 'cierro word
> WApp.Quit
> 'libero la memoria
> Set WApp = Nothing
> Screen.MousePointer = vbDefault
>
> End Sub
>
>
> Que debo hacer para guardarlo como html ?????????
> ayuda por favor !
>
> Muchas gracias
>



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com