Cuadros en Word + VFP 9.0

Si ya sabes como automatizar word desde vfp lo unico que te falta es hecharle mas vistazos a las potencialidades, te paso un ejemplo que inserta tablas en word en medio de un parrafo, hay muchas opciones, pero hay que leer un poco para saber todas las opciones disponibles.
Un saludo
Pega esto en un form y ejecuta.
#DEFINE wdToggle 9999998
#DEFINE wdTableRight -999996
#DEFINE wdAlignParagraphLeft 0
#DEFINE wdAlignParagraphCenter 1
#DEFINE wdAlignParagraphJustify 3
#DEFINE wdHorizontalPositionMargin 0
#DEFINE wdCollapseEnd 0
#DEFINE wdCollapseStart 1
#DEFINE wdParagraph 4
oWord = CREATEOBJECT("Word.Application")
oWord.Visible = .F. && Toggle this to True to see if there's
&& any difference
oDoc = oWord.Documents.Add()
oRange = oDoc.Range()
oRange.Collapse(wdCollapseStart)
WITH oRange
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Size = 14
.Font.Name = "Arial Black"
.InsertAfter("Heading for Sales Report")
.MoveEnd(wdParagraph,1)
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertParagraphAfter()
.MoveEnd(wdParagraph,1)
.Bold = .F.
.Collapse(wdCollapseEnd)
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Font.Size = 12
.Font.Name = "Times New Roman"
.InsertParagraphAfter()
.InsertParagraphAfter()
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.InsertAfter(REPLICATE("Paragraph #1 is left aligned. "+;
"Paragraph 2 is justified. ", 4))
. Collapse(wdCollapseEnd)
. InsertParagraphAfter()
. InsertParagraphAfter()
. Collapse(wdCollapseEnd)
.ParagraphFormat.Alignment = wdAlignParagraphJustify
.InsertAfter(REPLICATE("This is a long paragraph that "+;
"needs to wrap around a table that will fit in the "+;
"paragraph, aligned at the right margin. ", 3))
.Collapse(wdCollapseEnd)
ENDwith
*!* Need a table of 4 rows, 3 columns, plus cells for labels and headings.
oWord.ActiveDocument.Tables.Add(oRange, 5, 4, 1, 0) && Word 2000 syntax
*!* Arguments are Range, #rows, #cols, [DefaultTableBehavior,] [AutoFitBehavior])
*!* Word 97 syntax is oWord.ActiveDocument.Tables.Add(oRange, 5, 4)
oTable = oWord.ActiveDocument.Tables(1) && Assign a table object
WITH oTable
.Columns.SetWidth(72,0) && 72 points/inch
.Rows.WrapAroundText = .T.
.Rows.RelativeHorizontalPosition = 0 && wdHorizontalPositionMargin
.Rows.HorizontalPosition = -999996 && wdTableRight
.Autoformat(2,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.)
*!* (Format,ApplyBorders,ApplyShading,ApplyFont,ApplyColor,ApplyHeadingRows,
*!* ApplyLastRow,ApplyFirstColumn,ApplyLastColumn,AutoFit)
.Cell(2,1). Range. InsertAfter("Qtr 1")
.Cell(3,1). Range. InsertAfter("Qtr 2")
.Cell(4,1). Range. InsertAfter("Qtr 3")
.Cell(1,2). Range. InsertAfter("Eastern")
.Cell(1,3). Range. InsertAfter("Central")
.Cell(1,4). Range. InsertAfter("Western")
.Cell(2,2).Range.InsertAfter("4.5")
.Cell(2,3).Range.InsertAfter("3.7")
.Cell(2,4).Range.InsertAfter("4.2")
.Cell(3,2).Range.InsertAfter("4.7")
.Cell(3,3).Range.InsertAfter("4.1")
.Cell(3,4).Range.InsertAfter("4.3")
.Cell(4,2).Range.InsertAfter("4.9")
.Cell(4,3).Range.InsertAfter("4.0")
.Cell(4,4).Range.InsertAfter("4.5")
.Rows(5).Cells.Merge
.Cell(5,1).Range.InsertAfter("Quarterly Cookie "+;
"Sales by Region - in $ Millions")
.Cell(5,1).Range.MoveEnd(wdParagraph,1)
.Cell(5,1).Range.Bold = .T.
.Cell(5,1).FitText = .T.
.Rows(1).Shading.Texture = 200
ENDwith
oRange = oTable.Range
oRange.Collapse(wdCollapseEnd) && Move insertion point beyond table
WITH oRange
.InsertAfter("The table goes before this sentence. ")
.InsertAfter(REPLICATE("This is a long paragraph that "+;
"needs to wrap around a table that will fit in the "+;
"paragraph, aligned at the right margin. ", 5))
. InsertParagraphAfter()
. InsertParagraphAfter()
. InsertAfter("A New Paragraph")
ENDwith
oWord.Visible = .T. && Inspect the results
MESSAGEBOX("Look at results in Word.")
oWord.Quit(.F.) && Don't save changes