TWord multiple pages

[Ladinilson]

Good Morning

I needed to make a sheet of a Word file where it contains fields to be filled in, could create several pages and I tried with...

Code: Select all | Expand

LOCAL oWord,a:=1
oWord := TWord():New()
oWord:OpenDoc( "C:\document\TEST.docx" )
DO WHILE a < 11
   oWord:STARTPAGE()
   oWord:Replace('@number', STRZERO(a,2)  )                  
   oWord:ENDPAGE()
   a++
ENDDO
oWord:Visualizar()
 

Thank you!

[karinha]

Code: Select all | Expand

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL nI, nCopias := 3  // em um GET o usuario escolhe, ok?

   // SetCopies
   FOR nI := 1 TO nCopias

      IMP_WORD_PAGES()  // multiples pages.

   NEXT

RETURN NIL

FUNCTION IMP_WORD_PAGES()

   LOCAL oWord

   oWord := TWord():New()

   oWord:OpenDoc( "C:\document\TEST.docx" )

   oWord:STARTPAGE()

   oWord:Replace('@number', STRZERO(a,2)  )

   oWord:ENDPAGE()

   oWord:Visualizar()

RETRUN NIL
 

Regards, saludos.

[Ladinilson]

Code: Select all | Expand

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL nI, nCopias := 3  // em um GET o usuario escolhe, ok?

   // SetCopies
   FOR nI := 1 TO nCopias

      IMP_WORD_PAGES()  // multiples pages.

   NEXT

RETURN NIL

FUNCTION IMP_WORD_PAGES()

   LOCAL oWord

   oWord := TWord():New()

   oWord:OpenDoc( "C:\document\TEST.docx" )

   oWord:STARTPAGE()

   oWord:Replace('@number', STRZERO(a,2)  )

   oWord:ENDPAGE()

   oWord:Visualizar()

RETRUN NIL
 

Regards, saludos.

So my friend it creates separate files and not pages in the same file