Word from FW with OpenXML

[Otto]

Hello,
now with Harbourino preprocessor we can use this simple codeing syntax for our OpenXML word programming.
Best regards
Otto

Code: Select all  Expand view  RUN

method OffertDetailsHeader()
    local cPositionen    := ""
    *----------------------------------------------------------
   
   cPositionen +=  '<w:tbl>' + CRLF
   
   cPositionen +=  '<w:tblGrid>' + CRLF
    cPositionen +=  '<w:gridCol w:w="9083"/>' + CRLF
    cPositionen +=  '</w:tblGrid>' + CRLF
   
   cPositionen +=  '<w:tr w:rsidR="006E5E3D" w:rsidTr="006E5E3D">' + CRLF

    $-> TableColumnLeft.prg :   prozent= 60;  content='Bezeichnung'
    $-> TableColumnRechts.prg :   prozent= 10;  content='Menge'
    $-> TableColumnRechts.prg :   prozent= 10;  content='Preis'
    $-> TableColumnRechts.prg :   prozent= 20:  content='Wert'

   cPositionen += '</w:tr>' + CRLF

   cPositionen +=  '</w:tbl>'    + CRLF


return( cPositionen )
//----------------------------------------------------------------------------//

 

TableColumnLeft.prg

Code: Select all  Expand view  RUN

 &-
   
   cPositionen +=  '
   <w:tc>
       <w:tcPr><w:tcW w:type="pct" w:w="|prozent|"/></w:tcPr>
       <w:p w:rsidR="0062457A" w:rsidRDefault="00290886" w:rsidP="00290886">
        <w:pPr><w:rPr><w:color w:val="404040"/></w:rPr>
        </w:pPr><w:rPr><w:color w:val="404040"/></w:rPr>
        
        <w:t>'+ |content|+'</w:t>
       </w:p>
   </w:tc>
   '  + CRLF
   
   -&

 

Best regards
Otto