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