Winword and OLE

[Colin Haig]

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]

Colin

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

HTH

Richard

Code: Select all  Expand view

      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

 

[Colin Haig]

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]

This is an improved version that I'm using currently:

Code: Select all  Expand view

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

[Colin Haig]

Hi All

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

Cheers

Colin

[driessen]

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.

[Enrico Maria Giordano]

I got an error that the variable WDCOLLAPSEND doesn't exist.

Code: Select all  Expand view

#define wdCollapseEnd 0

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

Code: Select all  Expand view

IF oRng:Find:Execute( cString )
    // Found!
ENDIF

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

No.

EMG

[driessen]

Enrico,

Thank you very much for your answer.

[driessen]

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.

[Enrico Maria Giordano]

Code: Select all  Expand view

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

[driessen]

Enrico,

Thanks a lot.

I'll try it out this weekend.

[driessen]

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.

[Enrico Maria Giordano]

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

EMG

[driessen]

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 ?

[Enrico Maria Giordano]

Please show a reduced sample of the problem so I can try to fix it.

EMG