select mugs *Save the General Field to a table. *NOTE* If you are saving more than one field, *the Gen field must be the first field in the table . Copy fields mugshot_b to c:\tmpPics lnHandle = Fopen('c:\tmpPics.dbf',12) Fseek(lnHandle,43) Fwrite(lnHandle,'M') && Changing General to Memo Fclose(lnHandle) Select 0 USE c:\tmpPics Scan STRTOFILE(mugshot_b, 'c:\Picture'+Ltrim(Str(Recno()))+'.jpg') EndScanThen try some Office Automation to open the document.
LOCAL oWord as "word.application" oWord = CREATEOBJECT("word.application") oWord.Documents.Open(SomeTempFileName) oword.Visible = .T.