FoxPro/Visual FoxPro - TABLAS EN QORD

   
Vista:

TABLAS EN QORD

Publicado por RICARDO (153 intervenciones) el 26/11/2007 17:08:58
VERIES ES UNA COSA CURIOSA PERO NO CONSIGO QUE ME FUNCIONE.
cREOUN DOCUMENTO DE WORD

oWord = CREATEOBJECT("Word.Application")
oWord.Visible = .t.
oDoc = oWord.Documents.Add()
oRange = oDoc.Range()

ESTO PERFECTO Y SIGO

WITH ORANGE
.ParagraphFormat.Alignment = 1 && cENTRADO
.Font.Size = 14
.Font.Name = "Arial Black"
.InsertAfter("Informe de fichas")
.MoveEnd(4,1)
oWord.Selection.MoveDown

.Collapse(0)
.InsertParagraphAfter()
.MoveEnd(4,1)
* mE CREOUN ATABLA
oWord.ActiveDocument.Tables.Add(oRange, 6, 3, 1, 0) && Word 2000 syntax
oTable = oWord.ActiveDocument.Tables(1)

* tAMAÑO DE LAS COLLUMNAS
With oTable
.Columns(1).Width = 200
.Columns(2).width = 200
.Columns(3).Width = 200
endwith

* cARGARIA LOS VALORES DE LAS CELDAS
* OTRA LINEA DEL DOCUMENTO WORD

.ParagraphFormat.Alignment = 1 && cENTRADO
.Font.Size = 8
.Font.Name = "Arial Black"
.InsertAfter("atienza")
.MoveEnd(4,1)
oWord.Selection.MoveDown

.Collapse(0)
.InsertParagraphAfter()
.MoveEnd(4,1)

* PERO SI QUIERO CREA UNA NUEVA TABLA
* ESTO YA NO FUNCIONA
oWord.ActiveDocument.Tables.Add(oRange,7,43, 1, 0) && Word 2000 syntax
oTable = oWord.ActiveDocument.Tables(1)

ME LO DEJA TODO EN UBNA SOLA TABLA, SI CAGO, UN VALOR EN LA CELDA 1,1 DE ESTA SEGUNDA TABLA APARECE EN LA priemra tabla que cree, no se que hago mal

SOCORROOOOOOOO
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

RE:TABLAS EN QORD

Publicado por Ernesto Hernandez (4632 intervenciones) el 27/11/2007 04:52:24
quizas esto te pueda ayudar

http://support.microsoft.com/?scid=kb%3Bes%3B252615&x=7&y=23
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

RE:TABLAS EN QORD

Publicado por RICARDO (153 intervenciones) el 27/11/2007 16:22:03
pero lo necesito para word
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