topic-41349

Posts: 17

Joined: Wed Feb 04, 2009 09:38 PM

TWord multiple pages
Posted: Fri Jan 28, 2022 01:13 PM

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 (fw): Select all Collapse

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: TWord multiple pages
Posted: Fri Jan 28, 2022 01:35 PM

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Ladinilson

Posts: 17

Joined: Wed Feb 04, 2009 09:38 PM

Re: TWord multiple pages
Posted: Fri Jan 28, 2022 01:43 PM

karinha wrote:

Code (fw): Select all Collapse

#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

FiveTech Support Forums

Continue the discussion