Guidance
指路人
g.yi.org
software / rapidq / Examples / COM & OLE / Word Clipboard2.bas

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
'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
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sun 2019-7-21  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-12-27 20:21:08