FiveTech Software tech support forums

Code: Select all

TRY
    oWord := CreateObject("Word.Application")
CATCH
    MsgInfo("Word is not installed in this PC. Unable to continue further")
    Return NIL
END

TRY
    oDoc := oWord:Documents:Open(cWordFileName)  // 5th parameter can be the password
CATCH
    MsgInfo("Unable to open the template file "+cWordFileName)
    oWord:Quit()
    Return NIL        
END

oWord:Visible:=.T.
oDoc:Select()
oSel = oWord:Selection

// Need to insert a table in the Word file with the some details
oRange := oSel:Document:Content
cSrch:="Your text to be searched"

// Search and identify the location in the word file where you need to insert the Table. Use a unique keyword to identify the location
IF AT( cSrch, oRange:Text ) = 0; RETURN .F.; ENDIF

WHILE oRange:Find:Execute( cSrch )
    oRange:Text = ""
    oRange:Collapse( wdCollapseEnd )
ENDDO

// Add a table with required rows and columns
oTable:=oWord:ActiveDocument:Tables:Add(oRange,6,5,wdWord9TableBehavior,wdAutoFitContent)

// Whatever you need to do with the table goes here
WITH OBJECT oTable

   // Set up borders and shading
   // If u don't want borders then set the next 2 lines to .F.
   :Borders:InsideLineStyle:=.T.
   :Borders:OutsideLineStyle:=.T.

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

   // Put the heading row text and set alignment
   :Cell(1,1):Range:ParagraphFormat:Alignment:=wdAlignParagraphRight
   :Cell(1,1):Range:InsertAfter("Sl.No")   
   
   
   :Cell(1,2):Range:ParagraphFormat:Alignment:=wdAlignParagraphLeft
   :Cell(1,2):Range:InsertAfter("Details")
   
   .....
   ......
   

   :Columns:Autofit()
END