2002-12-19 18:58

'From:  Andrew Shelkovenko  Thu Dec 19, 2002  3:04 am
'This open document in Word, copy text to clipboard and past text
'to RichEdit.


     DIM Object AS QOLEOBJECT
     CREATE Explorer AS QOLECONTAINER
      Left = 220
      Top = 75+20
      Width=RichEdit.Width
      Height = RichEdit.Height
      visible=false
     END CREATE

'------
     IF INSTR (filename$, "doc")>0 THEN
'Object.Container=Explorer
      Object.CreateObject("Word.Basic")
      Object.AppMinimize
      Object.fileOpen(filename$)
      Object.EditSelectAll
      Object.EditCopy
      FileEdit.PasteFromClipboard
      Object.FileExit
     END IF

2002-12-19 18:58