| Pregunta: | 3422 - COMO HACER MERGE EN WORD DESDE VFP |
| Autor: | Victor F. Rodriguez |
| Por esta misma via he aprendido a imprimir un documento de Word desde VFP. Si alguien tiene la respuesta, quisiera saber dos cosas: 1. Si tengo una carta hecha en Word, y deseo cambiarle, por el ejemplo, el nombre del destinatario y su direccion, como puedo modificar estas dos lineas desde VFP? 2. Cuando trato de imprimir el documento de Word desde VFP, lo hace con el default printer. Como puedo cambiar el default printer a Word desde VFP? El comando SET PRINTER TO NAME GETPRINTER() no funciona cuando mandamos a imprimir con oWord=CREATEOBJECT("word.Application") oWord=... | |
| Respuesta: | jose Jaimes |
| la manera mas facil es con el comando RUN /n (Ruta de word)
y mas facil inserta a Word como un Ole y luego llamalo de un boton de commando con thisform.ole.doverb() | |
| Respuesta: | Javier Amoros |
| Hola, yo lo unico que tengo con VFP y Word, es lo siguiente, espero que te sirva de algo. ************************************************** * LlamarWord * * Llama al Word a traves de la creacion de Object * puede recibir parametros de documento a abrir * * Parametros * ----------------------------------------------- * tcDocu Documento a abrir * tcRuta Ruta donde se encuentra el documento ************************************************** PARAMETERS tcDocu, tcRuta IF TYPE(´tcDocu´) # ´C´ STORE ´Nuevo´ TO tcDocu ENDIF IF TYPE(´tcRuta´) # ´C´ * oGest.cDirEmp, es una propiedad * De un objeto CUSTOM, donde guardo * ciertos valores para la aplicacion STORE oGest.cDirEmp TO tcRuta endif STORE ALLTRIM(tcDocu) TO tcDocu STORE ALLTRIM(tcRuta) TO tcRuta STORE tcRuta + ´\´ + tcDocu + ´.DOC´ TO tcFichero oWord = CreateObject(´Word.Application´) IF TYPE(´oWord´) # ´O´ * No se ha podido crear MESSAGEBOX(´No dispone de Word para el enlace de aplicaciones´,48,´Control de datos´) RETURN ENDIF * Se ha generado el objeto oWord ********************************* oWord.Documents.Open(´&tcFichero´) oWord.caption=´Prueba de enlace con Word´ oWord.Documents(´&tcFichero´).ACTIVATE oWord.visible=.T. oWord.Activedocument.PrintPreview ************ fin ********** | |
| Respuesta: | Foxito |
| Hola: VisualFox tienen un aistente para combinar correspondencia con Word... revisalo! | |