FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Winword and OLE
Colin Haig
Posts: 310
Joined: Mon Oct 10, 2005 05:10 AM
Winword and OLE
Posted: Thu Sep 16, 2010 06:00 AM

Hi All

I have office 2010 and would lilke to open a word document and replace some text using
OLE

Can anyone provide a small sample.

Regards

Colin

Richard Chidiak
Posts: 946
Joined: Thu Oct 06, 2005 07:05 PM
Re: Winword and OLE
Posted: Thu Sep 16, 2010 06:49 AM
Colin

This is a sample, the code was originated by Enrico, i adapted it to my needs

HTH

Richard

Code (fw): Select all Collapse
      TRY
         oWORD := CREATEOBJECT( "word.Application" )
      CATCH
         MSGSTOP("L'Application Microsoft WORD n'est pas installée sur cet Ordinateur !" )
         RETURN NIL
      END

      oDoc = oWord:Documents:Open(CFILE )
      oDoc:Select()
      oSel = oWord:Selection

      WORDREPLACE( oSel, "#nom#", ALLTRIM(DNOM))

      oWord:ActivePrinter = CNAME
      oDoc:PrintOut()
      oDoc:Close( 0 )
   oWord:Quit()

STATIC FUNCTION WORDREPLACE( oSel, cSrc, cRpl )
oSel:Start = 0
oSel:End = -1

WHILE oSel:Find:Execute( cSrc )
     oSel:Range:Text = cRpl
ENDDO
RETURN NIL
http://www.cbati.com

Uestudio
Fwh 13.05 Harbour 3.2 MSVC 2013
Colin Haig
Posts: 310
Joined: Mon Oct 10, 2005 05:10 AM
Re: Winword and OLE
Posted: Thu Sep 16, 2010 07:21 AM

Hi Richard

Thanks for your reply - I get the following error

Error description: Error word.Application:DOCUMENTS/9 'Item' is not a property.: OPEN

Stack Calls

Called from: C:\xHarbour\source\rtl\win32ole.prg => TOLEAUTO:OPEN(0)

All the samples I have found use the same code as you provided.

Regards

Colin

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Winword and OLE
Posted: Thu Sep 16, 2010 07:39 AM
This is an improved version that I'm using currently:

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


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
Colin Haig
Posts: 310
Joined: Mon Oct 10, 2005 05:10 AM
Re: Winword and OLE
Posted: Thu Sep 16, 2010 09:56 AM

Hi All

The document I was trying to open was a docx - I tried a another doc document and
it openned.

Cheers

Colin

driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Winword and OLE
Posted: Thu Oct 28, 2010 05:30 PM

To me this is a very interesting topic.

But I have 2 more questions.

  1. (To Enrico) I tried your example of WordReplace(), but I got an error that the variable WDCOLLAPSEND doesn't exist. Any idea ? The original code, proposed in this topic, is working just fine.

  2. How can I search for a character, a word or a sentence, using this idea ?

  3. Is there any difference between : DO WHILE ..... ENDDO and WHILE ..... ENDDO ?

Thank you very much in advance.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Winword and OLE
Posted: Thu Oct 28, 2010 07:39 PM
driessen wrote:I got an error that the variable WDCOLLAPSEND doesn't exist.


Code (fw): Select all Collapse
#define wdCollapseEnd 0


driessen wrote:How can I search for a character, a word or a sentence, using this idea ?


Code (fw): Select all Collapse
IF oRng:Find:Execute( cString )
    // Found!
ENDIF


driessen wrote:Is there any difference between : DO WHILE ..... ENDDO and WHILE ..... ENDDO ?


No.

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
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Winword and OLE
Posted: Thu Oct 28, 2010 08:15 PM

Enrico,

Thank you very much for your answer.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Winword and OLE
Posted: Thu Oct 28, 2010 08:44 PM

Enrico,

Maybe just another question.

I noticed that the text is not replaced in de header and footer. Any idea how that can be solved ?

Thanks a lot in advance.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Winword and OLE
Posted: Thu Oct 28, 2010 08:55 PM
Code (fw): Select all Collapse
FUNCTION WORDREPLACERNGALL( oDoc, cSrc, cRpl )

    LOCAL lOk := .F.

    LOCAL oRng

    TRY
        oRng = oDoc:StoryRanges[ 7 ]

        IF AT( cSrc, oRng:Text ) > 0
            WHILE oRng:Find:Execute( cSrc )
                oRng:Text = cRpl
                oRng = oDoc:StoryRanges[ 7 ]
            ENDDO

            lOk = .T.
        ENDIF
    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
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Winword and OLE
Posted: Thu Oct 28, 2010 11:25 PM

Enrico,

Thanks a lot.

I'll try it out this weekend.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Winword and OLE
Posted: Fri Oct 29, 2010 04:21 PM

Enrico,

I tried you last example. Unfortunately I got an error : Error Word.Application:SELECTION/0 S_OK:STORYRANGES.

Does STORYRANGES need to be defined ? If yes, how ?

Thank you in advance.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Winword and OLE
Posted: Fri Oct 29, 2010 07:38 PM

You can't have errors using my sample because the access to StoryRange is enclosed in a TRY/CATCH/END structure.

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
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Winword and OLE
Posted: Fri Oct 29, 2010 08:33 PM

Enrico,

You are right. But I tried your example first and noticed that my Word-document wasn't changed at all.

So I did remark the TRY ... CATCH ... END lines. And then that error occurred. To my opinion the reason why my document wasn't changed ?

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Winword and OLE
Posted: Fri Oct 29, 2010 08:46 PM

Please show a reduced sample of the problem so I can try to fix 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
Static archive · New replies & topics via GitHub Discussions