Cómo automatizar Word de Visual FoxPro y agregar una tabla a un documento

#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
ThisForm.Release