Word de office en visual fox

Saludos.
Es sencillo tengo el sistema con todos los datos pero quiero hacer una constancia de trabajo a un cliente.
1) Busco el cliente con cedula
2) Una vez que lo tengo en pantalla quiero
Cuando pulse un botón abra word un documento con la plantilla de la carta de trabajo, y que allí automáticamente me salga el nombre cuando gana fecha de ingreso etc...
Todos los datos del trabajador los tengo en una dbf pero quisiera eso que pasen a word pulsando imprimir y que abra ese documentop ya con los datos

3 respuestas

Respuesta
1
Te paso una rutina que yo utilizo para crear una lista en word si no la entiendes por favor avisame parte de este codigo deberias ponerlo en tu boton
COLE = 'COLEGIO'+' '+cur_valores.COLEGIO
 GES = 'Gestión :'+ALLTRIM(STR(cur_valores.ano))
 fec = 'Fecha: '+fecha(DATE(),'Santa Cruz, ')
oWord = CREATEObject("Word.Application")
oWord.Visible = .T.
oWord.documents.add
titulo='Lista de Alumnos'
columnas=4
SELECT cur_alumno
count for curso=thisform.cmbcurso1.value to nroreg
*oWord.activedocument.content.Insertafter(titulo)
oWord.Selection.Font.Bold = .T.
oWord.Selection.Font.Size = 14
oword.Selection.Text=Cole
oWord.Selection.Font.Bold = .T.
oWord.Selection.Font.Size = 10
oWord.activedocument.content.InsertParagraphAfter
oWord.selection.movedown
oword.Selection.Text=fec
oWord.activedocument.content.InsertParagraphAfter
oWord.selection.movedown
oWord.activedocument.content.InsertParagraphAfter
oword.Selection.Text=Ges
oWord.activedocument.content.InsertParagraphAfter
oWord.selection.movedown
oWord.activedocument.content.InsertParagraphAfter   &&& inserta una linea en blanco
oWord.selection.movedown
oWord.Selection.Font.Bold = .T.
oWord.Selection.Font.Size = 14
***oWord.Selection.activedocument.content= wdAlignParagraphCenter
oword.Selection.Text=titulo
oWord.activedocument.content.InsertParagraphAfter
oWord.selection.movedown
***oWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
oWord.Selection.Font.Bold = .T.
oWord.Selection.Font.Size = 10
oword.Selection.Text=curs
oWord.activedocument.content.InsertParagraphAfter   &&& inserta una linea en blanco
oWord.selection.movedown
oWord.Selection.Font.Bold = .F.
oWord.Selection.Font.Size = 8
OWord. Activedocument. Content.InsertParagraphAfter   &&& inserta una linea en blanco
oWord.selection.movedown
oword. ActiveDocument. Content. Tables. Add(oword. Selection.range, nroreg+1, columnas)
 x=1
    * Escribe la cabecera para cada tabla
 oWord.ActiveDocument.Tables(x).Cell(1,1).Range.InsertAfter("NRO")
  oWord.ActiveDocument.Tables(x).Cell(1,2).Range.InsertAfter("CODE")
 oWord.ActiveDocument.Tables(x).Cell(1,3).Range.InsertAfter("N O M I N A")
 oWord.ActiveDocument.Tables(x).Rows(1).select
 oWord.selection.font.bold = .T.
 oWord.ActiveDocument.Tables(x).Rows(1).select
 ***oWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 ** aqui empieza a escribir en Word desde el array   
 x=1
 linea=1
 go top
 Do While !eof()
   oWord.activedocument.tables(x).Cell(linea+1,1).Range.InsertAfter(RECNO())
   oWord.activedocument.tables(x).Cell(linea+1,2).Range.InsertAfter(codigo)
   oWord.activedocument.tables(x).Cell(linea+1,3).Range.InsertAfter(ALLTRIM(NOMINA))
   oWord.activedocument.content.InsertParagraphAfter
   oWord.selection.movedown
   linea=linea+1
   skip
 Enddo 
 oWord.WindowState = 1
RELEASE oWord
Respuesta
1
Puedes utilizar este enlace
http://support.microsoft.com/kb/250501/es
Hay un buen ejemplo de automatización de word con vfp
Respuesta
Yo he hecho eso pero funciona con la version de office 2003 pero no lo he probado con la version 2007

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Automatizar Fox a Word

¿De ser factible podrías enviarme una rutina o procedimiento que permita automatizar el pase de los datos de una tabla hecha en Fox a Word?.
3 respuestas

Word en un formulario web browser en vfp

Quiero abrí documentos word en un formulario en vfp he leído que puede hacerse con el web browser si alguien puede ayudarme le agradezco mucho...
1 respuesta

VB6 y word

Quiero crear informes en formato word (*.doc) a partir de datos tipo Text extraídos de una aplicación que he creado de VB6. ¿Cómo debo hacerlo? Es decir, cómo los "mando" a un archivo word. ¿Debo crearme u documento patrón o algo similar? Necesito...
1 respuesta

Importar de un datagrid a mysql

Disculpa pero tengo problemas con insertar datos en mi tabla en mysql tengo el siguiente código el cual recorre mi datagrid el cual contiene lo datos que voy a insertar 'Definimos dos arrays de String, C,f y t, que contendrn, respectivamente, los...
1 respuesta

Exportar a pdf o word

Soy la persona que ayudastes con el tema de las fecha y el calculo de cuotas... Como puedo crear un botón que me permite exportar a word o a pdf el resulta que genera a través del formulario, es decir el convenio de pago del crédito...
1 respuesta

Imprimir html desde vb

Mi nombre es pamela... Espero me puedas ayudar... Lo que necesito es desde visual basic mandar a imprimir un archivo html... Eso es...
2 respuestas

Ayuda con Word y VB.6

Mi duda es como poder darle un formato a un archivo en word que yo hago desde visual basic 6, el resultado que quisiera es este: Y a la hora de ejecutar vb6 y darle clic en Exportar a Word me sale lo siguiente: Como puedes observar sale todo...
1 respuesta

Tablas insertadas con Word

Soy usuario de Visual Basic 6 desde hace un año. Tengo problemas a la hora de entender el mecanismo de OLE Automatización entre otras cosas porque no lo tengo documentado a pesar de tener varios libros de VB 6, uno muy bueno de 1200 págs. Pero donde...
1 respuesta

Macro formato de fecha

Quería ver si me pueden ayudar en lo siguiente, tengo la fecha en las columnas "F:F" y "G:G" y están de la siguiente forma 21/03/12. Estas fechas las extraigo de un archivo txt algunas me las muestra con formato completo es decir 21/03/2012 y otras...
1 respuesta

Visual Foxpro 9 y SQL server

Estoy trabajando en un proyecto y necesito insertar registros de fox en una base de datos sql ya tengo creada a conexión y todo funciona bien solo que cuando intento guardar desde una ventana con muchos datos excedo el limite de caracteres permitidos...
2 respuestas