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

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
'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
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-12-19 18:58:34