FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Word and labels
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Word and labels
Posted: Thu Jul 11, 2013 12:29 PM
Hello,

I wish to generate a new Word document (ALL.DOC) with all my customer麓s labels.

So I have a template, LABELS.DOC, and I have to add it to the Word document and next replace the fields for each Customer.

But I only get a page with the template loaded.


This is the code:

Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "xbrowse.ch"

#DEFINE wdCollapseEnd 0
//----------------------------------------------------------------------------//


FUNCTION MAIN()

   LOCAL oWord := CREATEOBJECT( "Word.Application" )

   LOCAL oSel

   oWord:Documents:Open( HB_DIRBASE()+"NEWDOC.DOC" ):Select()


   // First customer
   oSel = oWord:Selection

   oSel:InsertFile(HB_DIRBASE()+"LABEL-TEMPLATE.DOC")

   WORDREPLACE( oSel, "<MyField>", "Replaced Cusomer 1" )



   // Second customer
   oSel:InsertFile(HB_DIRBASE()+"LABEL-TEMPLATE.DOC")
   WORDREPLACE( oSel, "<MyField>", "Replaced Cusomer 2" )


   // etc, I will put a do while !eof()



   oWord:Visible = .T.






   oWord:Documents:Close(0)
   oWord:Quit()


RETURN NIL





// Those functions are from (c) Enrico .it

FUNCTION WORDREPLACE( oSel, cSrc, cRpl )

   LOCAL oRng := oSel:Document:Content

   IF AT( cSrc, oRng:Text ) = 0; RETURN .F.; ENDIF

   oRng:Find:Execute( cSrc )

   oRng:Text = cRpl

   RETURN .T.


FUNCTION WORDREPLACEALL( oSel, cSrc, cRpl )

   LOCAL oRng := oSel:Document:Content

   IF AT( cSrc, oRng:Text ) = 0; RETURN .F.; ENDIF

   WHILE oRng:Find:Execute( cSrc )
       oRng:Text = cRpl
       oRng:Collapse( wdCollapseEnd )
   ENDDO

   RETURN .T.

//----------------------------------------------------------------------------//



Thank you very much for your help.

Kind regards
Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Word and labels
Posted: Thu Jul 11, 2013 01:12 PM
Lucas,

lucasdebeltran wrote:But I only get a page with the template loaded.


Can you send me the two docs, please?

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: Word and labels
Posted: Thu Jul 11, 2013 02:53 PM

Enrico,

Of course:

http://ul.to/ulnshy3r

Thank you very much,

Best regards

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Word and labels
Posted: Thu Jul 11, 2013 05:17 PM
Lucas,

lucasdebeltran wrote:oSel:InsertFile(HB_DIRBASE()+"LABEL-TEMPLATE.DOC")


oSel:InsertFile(HB_DIRBASE()+"LABELS-TEMPLATE.DOC")

:-)

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: Word and labels
Posted: Fri Jul 12, 2013 07:08 AM

Hello,

Thank you so much !!.

It is working now.

Two more questions please?.

The way I close Word, is it correct?.

How to replace a field with a Image/Photo?.

Thanks a lot.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: Word and labels
Posted: Mon Jul 15, 2013 06:25 PM

Hello,

Two more questions please.

The way I close Word, is it correct?.

How to replace a field with a Image/Photo?.

Thanks.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Word and labels
Posted: Mon Jul 15, 2013 06:34 PM
Lucas,

lucasdebeltran wrote:Hello,


Two more questions please.

The way I close Word, is it correct?.


No. You don't have to Quit() if you want to show the document. You have to choose: Visible = .T. or Quit(), not both.

lucasdebeltran wrote:How to replace a field with a Image/Photo?.

Thanks.


I use a text frame and the function below:

Code (fw): Select all Collapse
FUNCTION WORDREPLACEIMG( oDoc, cSrc, cImg )

    LOCAL lOk := .F.

    LOCAL oRng

    LOCAL i

    IF AT( cSrc, oDoc:Content:Text ) = 0; RETURN .F.; ENDIF

    TRY
        FOR i = 1 TO oDoc:StoryRanges[ wdMainTextStory ]:ShapeRange:Count
            IF oDoc:StoryRanges[ wdMainTextStory ]:ShapeRange[ i ]:TextFrame:HasText != 0
                oRng = oDoc:StoryRanges[ wdMainTextStory ]:ShapeRange[ i ]:TextFrame:TextRange

                IF oRng:Text = cSrc
                    oRng:Text = ""

                    IF !EMPTY( cImg )
                        oDoc:InlineShapes:AddPicture( cImg, .F., .T., oRng )
                    ENDIF

                    lOk = .T.

                    EXIT
                ENDIF
            ENDIF
        NEXT
    CATCH
    END

    RETURN lOk


EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Word and labels
Posted: Tue Jul 16, 2013 11:27 AM
Sorry, remove this:

Code (fw): Select all Collapse
IF AT( cSrc, oDoc:Content:Text ) = 0; RETURN .F.; ENDIF


EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: Word and labels
Posted: Tue Jul 16, 2013 07:28 PM

Mr. Enrico,

In the Word file, I will have a string, for example, <Picture>, and I need to replace it with a particular picture.

Could be posible please?.

Thanks.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Word and labels
Posted: Tue Jul 16, 2013 08:47 PM
Lucas,

lucasdebeltran wrote:Mr. Enrico,

In the Word file, I will have a string, for example, <Picture>, and I need to replace it with a particular picture.

Could be posible please?.

Thanks.


Yes, that's exactly what my function does. You have to create a text frame with the size of the image and put your string inside it.

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: Word and labels
Posted: Thu Jul 18, 2013 04:27 PM

Mr. Enrico,

Can you please indicate me wdMainTextStory ?

Also, I need please a .doc test, as I can麓t get it working.

Thank you very much.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Word and labels
Posted: Thu Jul 18, 2013 05:30 PM
Lucas,

lucasdebeltran wrote:Mr. Enrico,

Can you please indicate me wdMainTextStory ?

Also, I need please a .doc test, as I can麓t get it working.

Thank you very much.


Please send me your sample and your DOC so I can test it here and fix it.

#define wdMainTextStory 1

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: Word and labels
Posted: Fri Jul 19, 2013 08:57 AM

Enrico,

Here is the Word:

http://uploaded.net/file/kkibvanc

Thank yuy very much.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Word and labels
Posted: Fri Jul 19, 2013 09:52 AM
Lucas,

lucasdebeltran wrote:Enrico,

Here is the Word:
http://uploaded.net/file/kkibvanc

Thank yuy very much.


The link is not accessible from here. Please, send the file to my email.

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions