Hola Luis María!
El artículo es fantástico. Hace tiempo tuve el mismo problema pero no
encontré ninguna solución.
Para convertir los archivos htm a word utilizo el siguiente código:
#DEFINE wdPrintView 3
loWord = CREATEOBJECT("word.application")
LOCAL loDoc
loDoc = loWord.Documents.Open([c:\vfp9\bodyhtml1.htm])
loDoc = loword.ActiveWindow.View.Type = wdPrintView
lodoc = loword.activedocument.SaveAs('c:\vfp9\bodyhtml1.doc',1)
loWord.Visible = .T.
Pero, por cada archivo htm que abre Word sale un mensaje con título
"convertir archivo" y una lista donde está seleccionado "documento
html" y hay que pulsar "Aceptar". Además el diseño de vista es "diseño
web" y desearía que el documento word quedara con "diseño impresión".
¿Hay alguna manera de automatizar abrir el fichero htm sin tener que
confirmar que el fichero es html y que la presentación sea de diseño
impresión??
Muchas gracias.
Javier Barrera - Zaragoza.
On 8 sep, 14:10, Luis Maria Guayan <
luismar...@gmail.com> wrote:
> Hola Carlos, un placer tenerte por aquíaunque ya no eres el "dueño" jajaja
> Ta paso una solución alternativa que puedes utilizar:
> -- Expandiendo expresiones con TextMerge() --
http://www.portalfox.com/article.php?sid=2615
> El código del artículo te genera archivos .HTM, el cual lo puedes abrir con Word. En el caso de necesitar que sean .DOC, los abres mediante automatización y lo guardas como tipo .DOC
> Me dices de cualquier inquietud y si te ayuda esta técnica.
> Saludos,
>
> Luis María Guayán
> Tucumán, Argentina
> _________________________
http://www.PortalFox.com