FoxPro/Visual FoxPro - Viñetas en Word (Automatización)

   
Vista:

Viñetas en Word (Automatización)

Publicado por Alejandro Díaz (1 intervención) el 26/02/2012 04:23:19
Cordial saludo.

Estoy generando un documento de Word por automatización desde VFP. Necesito incluir viñetas algunos parrafos y no he podido saber como.

Me podrían colaborar indicándome cual es la instrucción correcta para ello

GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Viñetas en Word (Automatización)

Publicado por miguel angel gonzalez zaragoza migues70@hotmail.com (1 intervención) el 05/05/2015 02:30:39
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
ox=CreateObject("word.basic")
ox.appshow
ox.filenew
 
store str(day(date()),2)+" "+cmonth(date())+" "+str(year(date()),4) to lfecha
 
ox.insert('CONTRATO DE ARRENDAMIENTO QUE CELEBRAN POR UNA PARTE COMO "EL ARRENDADOR" ' + ALLTRIM(xnombre) +" Y POR OTRA " + ALLTRIM(xlocales) + ' A QUIEN SE LE DENOMINARA EN ESTE CONTRATO COMO "EL ARRENDATARIO", ADEMÁS TAMBIEN COMPARECE ' + ALLTRIM(xfiador) + ' A QUIEN SE DENOMINARA "EL FIADOR" EN ESTE ACTO, CON RESPECTO DEL INMUEBLE UBICADO EN ' + ALLTRIM(xldireccion) + " DE LA COLONIA " + ALLTRIM(xlcolonia) + " DE ESTA CIUDAD DE  C.P. " +ALLTRIM(xlcp) + " , CONFORME A LAS SIGUIENTES DECLARACIONES Y CLAUSULAS:" + CRLF) 
ox.insert(" "+CRLF)
ox.insert("                                                          DECLARACIONES"+" "+CRLF)
ox.insert(" "+CRLF)
ox.insert("I. Declara el ARRENDADOR que:"+CRLF)
ox.insert("a) Está plenamente facultado para dar en arrendamiento el inmueble ubicado en "+ALLTRIM(xldireccion)+ " DE LA COLONIA "+ALLTRIM(xlcolonia)+ " DE ESTA CIUDAD "+ALLTRIM(xlciudad)+" , C.P."+ALLTRIM(xlcp) +CRLF)
ox.insert("b) Es su deseo dar en arrendamiento al ARRENDATARIO el inmueble objeto de este contrato."+CRLF)
ox.insert("c) Señala como su domicilio Fiscal ubicado en Blvd. Diaz Ordaz No. 3195 1° Piso del Fracc. " + "Las Reynas de esta ciudad de Irapuato, Gto., C.P. 36660"+" su número telefonico (462)6254515"+CRLF)
ox.insert(" "+CRLF)
 
ox.EditfindClearFormatting
 
ox.editselectall
ox.justifypara
ox.font("arial")
ox.fontsize(11)
 
ox.editfind ("Está plenamente facultado")
ox.wordleft(6)
ox.formatnumber
 
ox.editfind ("Es su deseo dar en arrendamiento")
ox.wordleft
ox.formatnumber
 
ox.editfind ("Señala como su domicilio Fiscal ubicado")
ox.wordleft
ox.formatnumber
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar