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
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


0