consulta en automatizacion de vfp a word
pdmor...@technonet.com.ec
El problema que tengo es al pasar desde una tabla .dbf de vfp 6 a formato word 2010:
la tabla (preguntas.dbf) tiene 350 registros y es un cuestionario con opciones multiples de respuesta (4) y respuesta correcta
la estructura es:
pregunta c 250 es una pregunta
opca c 200 es la primera opcion de respuesta a la pregunta - literal a
opcb c 200 es la segunda opcion de respuesta a la pregunta - literal b
opcc c 200 es la tercera opcion de respuesta a la pregunta - literal c
opcd c 200 es la cuarta opcion de respuesta a la pregunta - literal d
respuesta c 1 es el literal del la respuesta correcta (a ó b ó c ó d)
el programa es el siguiente:
sele preguntas
go top
nNumCeldas = Reccount("preguntas") && num.registros
oWord = CreateObject("Word.Application")
oDoc = oWord.Documents.Add()
oRange = oDoc.Range()
oDoc.Tables.Add(oRange, nNumCeldas, 1)
oTable = oDoc.Tables(1)
Scan
With oTable
.Cell(Recno("preguntas"), 1).Range.Font.Size= "10"
.Cell(Recno("preguntas"), 1).Range.Font.Name= "Arial"
.Cell(Recno("preguntas"), 1).Range.Text= allTrim(pregunta)+chr(13)+" a. "+alltrim(opca)+chr(13)+" b. "+alltrim(opcb)+chr(13)+" c. "+alltrim(opcc)+chr(13)+" d. "+alltrim(opcd)
EndWith
EndScan
oWord.ActiveDocument.SaveAs(tabla1+".doc")
oWord.Visible = .T.
el archivo de word sale asi:
|
10.La Gestión de XXXXX se sustenta en los siguientes principios. Escoja el que no aplica: a. No discriminación b. Igualdad de oportunidades c. Igualdad de derechos d. Desconcentración |
|
11.En qué subsistema de XXXXXXXXXx XXXX se utiliza más el llamado “assesment center” |
|
a. Planificación de Talento Humano b. Selección de personal c. Capacitación d. Evaluación de desempeño |
|
12.Dentro del cálculo de aporte mensual al XXX de un trabajador se debe incluir los valores correspondientes al pago de horas extras a. Verdadero b. Falso c. d. |
=================================
(esto debe ser en automatizacion)
1.formatear el documento word a 2 columnas y que en cada columna vaya un registro diferente de la tabla
2.que sola la pregunta se escriba en negrilla
3.pasar a word no como tabla sino como texto normal, porque luego necesito colocar formato y como tabla da problemas al escoger los rangos
4.controlar el interlineado (espacio entre lineas) a 6 puntos
el documento word deberia quedar asi:
10. La Gestión de XXXXX se sustenta
en los 11. En qué subsistema de XXXXXXXXXx XXXX
siguientes principios. Escoja el que no aplica: se utiliza más el llamado “assesment center”
a. No discriminación a. Planificación de Talento Humano
b. Igualdad de oportunidades b. Selección de personal
c. Igualdad de derechos c. Capacitación
d. Desconcentración d. Evaluación de desempeño
un trabajador se debe incluir los valores
correspondientes al pago de horas extras
a. Verdadero
b. Falso
c.
d.
Gracias por su colaboracion
Saludos desde Ecuador
Pedro
francisco prieto
Pedro Morales
Aviso: La información contenida en este mensaje y sus anexos tiene carácter confidencial/privilegiada, y está destinada a ser leída únicamente por la(s) persona(s) a la(s) que va dirigida. Si usted lee este mensaje y no es el destinatario señalado, el empleado o el agente responsable de entregar el mensaje al destinatario, o recibió este mensaje por error, se le informa que cualquier divulgación, distribución, reproducción o retención de éste se encuentra totalmente prohibida, y puede ser ilegal, y le solicitamos por favor nos notifique inmediatamente por este mismo medio con el mensaje original a la dirección electrónica del remitente. Gracias.