2002-12-27 20:21

'From:  Pablo Bouvier  Fri Dec 27, 2002  12:18 pm

     $ESCAPECHARS ON

     DIM Object AS QOLEOBJECT

     Object.CreateObject("Word.Basic")

     Object.AppShow
     Object.AppMaximize("", 1)
     Object.FileOpen("profan.doc")
     Object.EditSelectAll
     Object.EditCopy
'Object.PasteFromClipboard
     Object.FileExit

     DECLARE SUB Button1Click (Sender AS QBUTTON)

     CREATE Form AS QFORM
      CAPTION = "Form1"
      Width = 637
      Height = 486
      Center
      CREATE RichEdit1 AS QRICHEDIT
       Left = 36
       Top = 69
       Width = 569
       Height = 281
      END CREATE
      CREATE Button1 AS QBUTTON
       CAPTION = "Process"
       Left = 40
       Top = 379
       TabOrder = 1
       OnClick = Button1Click
      END CREATE
     END CREATE

'Insert your initialization code here

     Form.SHOWMODAL

'--------- Subroutines ---------

     SUB Button1Click (Sender AS QBUTTON)
      Richedit1.Text=ClipBoard.Text
     END SUB

     SLEEP 5

     Object.Free

2002-12-27 20:21