>* // Test function >CopyDoc2Clip(GETFILE()) > >* // Copy Text into Clipboard >FUNCTION CopyDoc2Clip as Boolean >LPARAMETERS pcFile as String > > LOCAL loWord as Object, llReturn as Boolean > llReturn = .F. > IF FILE(pcFile) > TRY > loWord = CREATEOBJECT([Word.Application]) > loWord.documents.open(pcFile) > loWord.ActiveDocument.Content.Copy > loWord.quit > loWord = .null. > RELEASE loWord > llReturn = .T. > CATCH > * Display message if anything went wrong > ENDTRY > ENDIF > RETURN llReturn > >ENDFUNC >