OLE and MS Word

[driessen]

Hello,

I use OLE to connect my application with MS Word.

For one document, everything goes fine.

But how can I handle a second document at the same time ? Of course I need to know at any moment which document has the focus or how I have to change the focus from one document to the second one.

Thanks a lot in advance.

[driessen]

Nobody any idea ?

[gkuhnert]

Try something like this:

you can handle the documents by object name.

Code: Select all  Expand view

function Wordnew()
  local oWord, oDoc, oWord2, oDoc2

   TRY
     oWord := GetActiveObject ( "Word.Application" )
     oWord2 := GetActiveObject ( "Word.Application" )
   CATCH
    TRY
      oWord := CREATEOBJECT( "Word.Application" )
      oWord2 := CREATEOBJECT( "Word.Application" )
    CATCH
      MsgInfo( "Could not start MS Word!")
      return .f.
    END
   END

   oDoc:= oWord:Documents:Add()
   oDoc2:= oWord2:Documents:Add()

   oWord:Visible := .t.
   oWord2:Visible := .t.

return .t.

[driessen]

Gilbert,

Thanks a lot for your help.

I'll try it out.