Hola a todos, alguno sabe como generar un archivo *.doc que tenga las 
caracteristicas del mismo. hasta ahora logro abrir el word atravez del 
ejemplo de activex que viene con alaska. pero no puedo colocar los textos 
que necesito.
yo estoy haciendo lo siguiente por ahora genero un txt y lo renombro como 
.doc y luego la abra. pero las idea es poder cambiar las fuentes, y otras 
caracteristicas del word.no es lo mas optimo no lo mejor pero si tiene 
alguna ayuda les agradesco.
saludos cordiales a todos


procedure en_word(venan,clave)
select formu
dbgoto(val(clave))
cfile1 := "C_"+alltrim(str(nro_ope,10))+"_"+alltrim(cliente)+".txt"
cfile0 := "C_"+alltrim(str(nro_ope,10))+"_"+alltrim(cliente)+".doc"
CFILE2 := curdrive()+":\"+curdir()+"\"+cfile1
CFILE3 := curdrive()+":\"+curdir()+"\"+cfile0
set alternate to &cfile1
set alternate on
set console off
?cdatos
set alternate off
set console on
close alternate
oWord := CreateObject("Word.Application")
IF Empty( oWord )
    MsgBox( "Microsoft Word is not installed" )
ENDIF
oWord:visible := .T.
 Open a Word document and retrieve the bookmarks
 collection.
  oWord:documents:open( cFile2)
  oDoc := oWord:ActiveDocument
  odoc:item(cdatos)
  IF(ValType(cfile)=="C")
    oDoc:saveas(cfile2)
  ENDIF
RETURN

Hola Gustavo

puedes usar xbpClipBoad() para cargar el word con texto ya formateado

también te comento que en excel apretando Alt+F11 y F2 puedes acceder a la 
descripción de todas las propiedades , y en word creo que es Alt + F11 + F1


saludos


"Gustavo M. Burgos"  escribió en el mensaje de 
noticias:d0b92e4$10f5e8e7$1273a@news.alaska-software.com...

Hola a todos, alguno sabe como generar un archivo *.doc que tenga las
caracteristicas del mismo. hasta ahora logro abrir el word atravez del
ejemplo de activex que viene con alaska. pero no puedo colocar los textos
que necesito.
yo estoy haciendo lo siguiente por ahora genero un txt y lo renombro como
.doc y luego la abra. pero las idea es poder cambiar las fuentes, y otras
caracteristicas del word.no es lo mas optimo no lo mejor pero si tiene
alguna ayuda les agradesco.
saludos cordiales a todos


procedure en_word(venan,clave)
select formu
dbgoto(val(clave))
cfile1 := "C_"+alltrim(str(nro_ope,10))+"_"+alltrim(cliente)+".txt"
cfile0 := "C_"+alltrim(str(nro_ope,10))+"_"+alltrim(cliente)+".doc"
CFILE2 := curdrive()+":\"+curdir()+"\"+cfile1
CFILE3 := curdrive()+":\"+curdir()+"\"+cfile0
set alternate to &cfile1
set alternate on
set console off
?cdatos
set alternate off
set console on
close alternate
oWord := CreateObject("Word.Application")
IF Empty( oWord )
    MsgBox( "Microsoft Word is not installed" )
ENDIF
oWord:visible := .T.
 Open a Word document and retrieve the bookmarks
 collection.
  oWord:documents:open( cFile2)
  oDoc := oWord:ActiveDocument
  odoc:item(cdatos)
  IF(ValType(cfile)=="C")
    oDoc:saveas(cfile2)
  ENDIF
RETURN

ok jorge, ahora lo voy a probar, lo de excel, con los ejemplos, pude 
solicuionar bien, ahora voy a ver lo que me comentas gracias.

Hola Gustavo

quería saber si habías avanzado algo con tu tema y el porque de generar un 
archivo nativo de word en vez de un TXT



saludos


"Gustavo M. Burgos"  escribió en el mensaje de 
noticias:2c5d3577$1cad079a$19c2d@news.alaska-software.com...

ok jorge, ahora lo voy a probar, lo de excel, con los ejemplos, pude
solicuionar bien, ahora voy a ver lo que me comentas gracias.

Si estoy en eso. el tema que es para un cliente que tiene venta de 
motovehiculos, y queria enviar los datos del vehiculo a word de tal forma 
que ellos imprima las hojas de la carpeta que lleva muchos datos. y darle un 
formato mas lindo a las hoja, desde al sistema cosa que ellos no tengan que 
cambiar en el word los font, o los parrafos, etc.
en cuanto avance al te comento.
saludos

Gustavo M. Burgos
Rivadavia N 278.
Pcia Roque Saenz Pea - Chaco
Argentina
Fijo 03732-420635
Movil 3732-408559
Burmanspm@arnet.com.ar

Hola Gustavo

No dejes de bucar en el foro sobre RTF que hay bastante

y si dado el caso el formulario es fijo y no necesita intervención del 
usuario, para ese tipo de informes yo uso VPE con la librería de Pablo 
Botella
genera PDFS que usando lo elemental salen lindos, y desde ahí el usuario 
puede imprimir o enviar por mail
cada pdf generado abre una presentación que trae el mismo VPE



"Gustavo M. Burgos"  escribió en el mensaje de 
noticias:1d97d731$3638ca8e$1afa6@news.alaska-software.com...

Si estoy en eso. el tema que es para un cliente que tiene venta de
motovehiculos, y queria enviar los datos del vehiculo a word de tal forma
que ellos imprima las hojas de la carpeta que lleva muchos datos. y darle un
formato mas lindo a las hoja, desde al sistema cosa que ellos no tengan que
cambiar en el word los font, o los parrafos, etc.
en cuanto avance al te comento.
saludos

Gustavo M. Burgos
Rivadavia N° 278.
Pcia Roque Saenz Peña - Chaco
Argentina
Fijo 03732-420635
Movil 3732-408559
Burmanspm@arnet.com.ar

Hola Gustavo,

Sugiero dar una mirada al contenido de:
<drive>:\ALASKA\XPPW32\SOURCE\samples\activex\msword

Hay una plantilla (los registros del maestro de artculos se aplican a este 
modelo) de una portada de FAX pero con los cambios apropiados se puede usar 
para generar fichas tcnicas de motos o lo que sea.

Espero haber sido de ayuda.

Saludos

Jose Luis Otermin
Alaska Software

"Gustavo M. Burgos" <Burmanspm@arnet.com.ar> escribi en el mensaje 
news:1d97d731$3638ca8e$1afa6@news.alaska-software.com...
> Si estoy en eso. el tema que es para un cliente que tiene venta de 
> motovehiculos, y queria enviar los datos del vehiculo a word de tal forma 
> que ellos imprima las hojas de la carpeta que lleva muchos datos. y darle 
> un formato mas lindo a las hoja, desde al sistema cosa que ellos no tengan 
> que cambiar en el word los font, o los parrafos, etc.
> en cuanto avance al te comento.
> saludos
>
> -- 
> Gustavo M. Burgos
> Rivadavia N 278.
> Pcia Roque Saenz Pea - Chaco
> Argentina
> Fijo 03732-420635
> Movil 3732-408559
> Burmanspm@arnet.com.ar
>

Hola jose luis. si me base en ese ejemplo para poder lograrlo, pero voy a 
estudiarlo un poco mas para ver si logro hacer lo que pretendo.
un saludo gracias

Gustavo M. Burgos
Rivadavia N 278.
Pcia Roque Saenz Pea - Chaco
Argentina
Fijo 03732-420635
Movil 3732-408559
Burmanspm@arnet.com.ar

On 6/2/2011 2:21 PM, Gustavo M. Burgos wrote:
> Hola jose luis. si me base en ese ejemplo para poder lograrlo, pero voy a
> estudiarlo un poco mas para ver si logro hacer lo que pretendo.
> un saludo gracias
>

Y dime, no te serive RTF ?

Saludos

Gustavo,

Supongo que sabrs que hay que crear en la plantilla los campos que sern 
agregados.
Sin eso NO FUNCIONAR.

Men/Insertar/Marcador/(escribir marcador)/Agregar, repetir hasta incluir 
los marcadores necesarios.

Deberan coincidir con los campos de la tabla de datos as se simplificara 
el proceso de substitucin de marcadores por datos.

Espero haber sido de ayuda.

Saludos

Jose Luis Otermin
Alaska Software


"Gustavo M. Burgos" <Burmanspm@arnet.com.ar> escribi en el mensaje 
news:4a7d7bdb$12cb21f3$22032@news.alaska-software.com...
> Hola jose luis. si me base en ese ejemplo para poder lograrlo, pero voy a 
> estudiarlo un poco mas para ver si logro hacer lo que pretendo.
> un saludo gracias
>
> -- 
> Gustavo M. Burgos
> Rivadavia N 278.
> Pcia Roque Saenz Pea - Chaco
> Argentina
> Fijo 03732-420635
> Movil 3732-408559
> Burmanspm@arnet.com.ar
>