modificar el alto de la fila y justificar el texto con automatizacion (VFP 5.0 a Excel)

[Noe]

Local linea,contador,pasotexto

linea=11

Store 0 To contador

Store Space (100) To pasotexto

vt1='Los datos contenidos en el presente documento,'

vt2=' han sido verificados por el área correspondiente,'

vt3=' por lo que certificamos que todo personal relacionado no ha recibido el premio solicitado,'

vt4='  y que de conformidad con los Lineamientos del Premio Nacional de Antiguedad en el Servico Público 2014,'

vt5=' cumplen con los requisitos para hacerse acreedores al premio,'

vt6='  por lo que culaquier pago indebido que se genere por este concepto,'

vt7=' es unicamente  responsabilidad de los firmantes.'

pasotexto=vt1+vt2+vt3+vt4+vt5+vt6+vt7

ObjXls=Createobject("EXCEL.APPLICATION")

With ObjXls

  .workbooks.Open("c:\pant\datos_excel\datos")

  .activeworkbook.activesheet.pagesetup.Orientation=2 

  .ActiveWorkbook.ActiveSheet.UsedRange.Columns().Autofit

  .Visible=.T.

  .Range("A10").Select

  .ActiveCell.FormulaR1C1 = "PATERNO"

  .Range("B10").Select

  .ActiveCell.FormulaR1C1 = "MATERNO"

  .Range("C10").Select

  .ActiveCell.FormulaR1C1 = "NOMBRE"

  .Range("D10").Select

  .ActiveCell.FormulaR1C1 = "NUM/EMP"

  

  Select * From datos Order By paterno,materno Into Cursor c_paso

  Scan

    .Range("A"+Allt(Str(linea+contador))).Select

    .ActiveCell.FormulaR1C1 = c_paso.paterno

    .Range("B"+Allt(Str(linea+contador))).Select

    .ActiveCell.FormulaR1C1 = c_paso.materno

    .Range("C"+Allt(Str(linea+contador))).Select

    .ActiveCell.FormulaR1C1 = c_paso.nombres

    .Range("D"+Allt(Str(linea+contador))).Select

    .ActiveCell.FormulaR1C1 = c_paso.numemp

    contador = contador + 1

  Endscan

  

  .Columns("A:A").ColumnWidth = 22.00

  .Columns("B:B").ColumnWidth = 22.00

  .Columns("C:C").ColumnWidth = 22.00

  .Columns("D:D").ColumnWidth = 9.14

  .Range("A"+Allt(Str(linea+10+contador))).Select

  .ActiveCell.FormulaR1C1 = pasotexto

  

  .Range("A"+Allt(Str(linea+10+contador))+":"+"M"+Allt(Str(linea+10+contador))).Select

  ObjXls.Selection.MergeCells = .T.

  

  * el archivo que utiliso algunas veces son 80 a 150 registros

  * lo que deseo hacer es lo sig. en la fila que inserte la variable pasotexto

  * quiero modificar el alto de la fila y justificar el texto, en excel lo hago 

  * con esto (formato,celdas,alineacion) horizontal=justificar vertical=justificar

  * como lo haogo la automatizacion ?

  

  .ActiveWorkbook.SaveAs("c:\pant\datos_excel\reporte")

  ObjXls = .Null.

  Release ObjXls

  .Range("A9").Select 

Endwith