FiveTech Software tech support forums

Code: Select all

Include "FiveWin.ch"

#DEFINE wdAlignParagraphLeft    0
#DEFINE wdAlignParagraphCentre  1
#DEFINE wdAlignParagraphRight   2

#DEFINE wdStory                 6
#DEFINE wdCollapseEnd           0

#DEFINE wdBorderTop            -1
#DEFINE wdLineStyleDouble       7

#DEFINE CR                     CHR(13)

//--------------------------//
Function Main()

Local oWord,oRange,oTable,nRecCount,nRow,nTotSalary:=0

USE \FWH\Samples\CUSTOMER
nRecCount:=RecCount()

oWord:=CREATEOBJECT("Word.Application")
oWord:Documents:Add()

oRange:=oWord:ActiveDocument:Range()

// Move to the end of the document, leave 2 empty lines
oRange:MoveEnd( wdStory ) 
oRange:Collapse( wdCollapseEnd )
oRange:InsertAfter( CR + CR )
oRange:Collapse( wdCollapseEnd )

// Add a table with 2 rows and 3 columns
oTable:=oWord:ActiveDocument:Tables:Add(oRange,2,3)

WITH OBJECT oTable
   // Set up borders and shading
   // If u dont want borders then set the below lines 2 lines to .F.
   :Borders:InsideLineStyle:=.T.
   :Borders:OutsideLineStyle:=.T.

   // Shade first row for headings
   :Rows[1]:Shading:Texture = 100


   // Put heading text in and set alignment
   :Cell(1,1):Range:ParagraphFormat:Alignment:=wdAlignParagraphLeft
   :Cell(1,1):Range:InsertAfter("Last Name")   
   
   
   :Cell(1,2):Range:ParagraphFormat:Alignment:=wdAlignParagraphRight
   :Cell(1,2):Range:InsertAfter("Salary")

   :Cell(1,3):Range:ParagraphFormat:Alignment:=wdAlignParagraphLeft
   :Cell(1,3):Range:InsertAfter("Hire Date")

   // Format data cells
   :Cell(2,1):Range:ParagraphFormat:Alignment:=wdAlignParagraphLeft
   :Cell(2,2):Range:ParagraphFormat:Alignment:=wdAlignParagraphRight
   :Cell(2,3):Range:ParagraphFormat:Alignment:=wdAlignParagraphLeft

   // Add data and format
   nTotSalary:=0   
   For nRow:=1 to 20 // nRecCount

       WITH OBJECT :Rows[nRow + 1]     
           :Cells[1]:Range:InsertAfter( Customer->LAST  )
           :Cells[2]:Range:InsertAfter( Customer->SALARY  )       
           :Cells[3]:Range:InsertAfter( Customer->HIREDATE  )

       END
       
       // Add a new Row
       :Rows:Add()
       
       // Calculating total
       nTotSalary+=Customer->SALARY

       Skip

   Next
   
   // Total row shade and place total 
   :Rows[ nRow + 1 ]:Shading:Texture = 100
   WITH OBJECT :Rows[ nRow + 1 ]
       :Cells[1]:Range:InsertAfter("Total Salary")
       :Cells[2]:Range:InsertAfter(nTotSalary)
   
   END
   
   // Size columns, for simplicity, let word do the work
   :Columns:Autofit()
END
oWord:ActiveDocument:SaveAs("D:\Anser")
oWord:ActiveDocument:Close()
oWord:Quit()
MsgInfo("Finished")
Return

Code: Select all

#Include "FiveWin.ch"

//--------------------------//
Function Main()

Local oWord,oDoc,oTable,nRow,nCol,nColor

oWord:=CREATEOBJECT("Word.Application")
oDoc = oWord:Documents:Open("D:\Anser.docx")

oTable = oDoc:Tables:Item(1) // 1 means, First table on the document

WITH OBJECT oTable
    nColor:=1
    For nRow = 2 To oTable:Rows:Count
        For nCol = 1 To oTable:Columns:Count
        
            // Changing the text color of the cell
            :Cell(nRow, nCol):Range:Font:ColorIndex = nColor
            
            // Write to the table cell
            :Cell(nRow, nCol):Range:Text = "Replaced with " + Str(nRow - 1)
            
            // If you want to read the contents then
            // MsgInfo( :Cell(nRow, nCol):Range:Text )
            
            iif(nColor == 16,nColor:=1,nColor++)
        Next
    Next 
    
    // Size columns, for simplicity, let word do the work
    :Columns:Autofit()
END

oWord:Visible := .T.
Return