Automatizar Word de Visual FoxPro y agregar una tabla a un documento

13 views

Skip to first unread message

NeoWolfman

unread,

Jul 30, 2007, 10:17:45 PM7/30/07

to Programación VFoxpro - VB - VB.net - TSQL y otras yerbas

1. Inicie Visual FoxPro.
2. En el menú Archivo, haga clic en Nuevo. En la lista de opciones
Tipo de archivo, seleccione Formulario y a continuación, haga clic en
el botón New Form.
3. En el Cuadro de herramientas Form Controls, agregue un botones
Command hasta el formulario nuevo.
4. Haga doble clic en el botones nuevo Command para ir a la página de
código como el Botón de comando hace clic en evento.
5. Agregue el código siguiente al procedimiento Click del botones
Command:

#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.")