Hi Karen,

I'm glad that it might help you in your work.

However, if you want to work with _cliptext this sample might be better:

* // 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