WPC. ڇc ، Ki4ՇwnPN,S? 9*#f=٪ pXA [!_#Xfݙ;8yTlk}OHKq} m9`xpJdC0+2*zyDS%Џ aӍ&_̨g6v zzug7Gbk>ҍ; " s<|{0U\<-̅刟A%~ҹC$gJ{\Vau>)^G"}o/8XN"E:C?otDV(qg!ױU`rOWڠyKB Zvz4%hiƶZƂA){S\) 2pd <GvFileL dFilename1 4X PQ@)<<VL"_p\t`͕DG5XdX95 AC:\Documents and Settings\Timmy Da Mut\My Documents\Bidgood Corp\Websites\All Things WordPerfect\AllThingsWordPerfect\macros\docchkrword.wcmt{5H oVFILE oVDATA HodlgMainLQo WordPerfectLQB'@ HrVFILELVB'HWNDHrHWNDLEvVDATALRB'@HrVDATALQoV4!LQB )VRTNrVRTN[-H5oThis is a Word DocumentLNBn)@GH=oThis is not a Word DocumentLNBn)@HrHWNDLEB'@[)5+N!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreter(;3$2#  0  .3  0  !USUS.,  _=XXdd=XX/********************************************************  MacroName:DocChkrWord%   u Purpose:TotestifthefileisaWordfileornot : Author:BruceBidgood O Date:September8,2000  Note:  *************************************************************************************  c */  ( vFile=""    vData="" b   DialogShow("dlgMain";"WordPerfect") ' w  hWnd=OpenFile(vFile)  <  FileRead(hWnd;vData)   vRtn=StrPos(String:vData;SubString:"V4") v  If(vRtn>0) P    Messagebox(;;"ThisisaWordDocument")   Else     Messagebox(;;"ThisisnotaWordDocument") O EndIf d CloseFile(hWnd) (x