WPCi a_ٓFٓFICj]%>㒱ٰ:vkZ.G+IKS.BYC>|.A 0C 0D 0vE 0Q]F 0QFT F 0QP 00Q 0QR 1uiR SrR 1PST ST,S 72T 0Q9T 0QT 0QT 0Q,U }UU,UU 0QU 0rVVVrV 0QtVYZVVV 0QWWWWWWVpWYZrWrWrWrWrWrWrWrWrWrWrWrWrWrW 0WWWWW 0XXXX AYYYY D-1Z 0K^ZZZZZZZZZ 0o[o[o[o[o[o[o[o[o[o[o[o[ D5 _ B*?_ D5i_ B*_ D5_ B7_ B74`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4`4` C0k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k`k` 0```````````` 0Pa D5a Bbbbbbbbbbbbbbbbbbb C$b C>b CXb Crb Cb Cb Cb Cb Cb Cc C(c CBcBc D5\c Bc Bc D1c D5c B*1d D5[d B*d D5d Bd D5 e D5Ae Bveveveve 0eeeeeeeeeeeeeeeeeeeeeeeeeee DK5f 0fff 0Qggggggggg D5Sg Bg D7g D/gggg AS h^h 0D$i$i$i$i$i$i 0:hihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihihiiiiiiiiiiiiiiiHP LaserJet 5L0. Z<Century Schoolbook RegularX(>$1@11@1@9N8[ū[8 O},:i3|xU(mK Z6Times New Roman Regular.mZ0CentSchbook Win95BT 95[H:\MasterMacros\CleanSave.wcm5z!HoLQUITLOB*@"HoLQUITLOB*@%$CHECKVERSION11@'HxLIB)VBOLD(HB8HB% VFILENAME)r VFILENAMEo**Ho CleanSaveLNao-Please save the file first, to give it a nameLN[ LIBn)@+HE*,-HB3).Ho CleanSaveLNr VFILENAME/o is a read-only fileHx LIB)]o+Please save a copy for CleanSave to work onLN[LIBn)@0HE*1)3HHHB%LQ[LUB)LQB) VEXTENSION5r VEXTENSION owcm*r VEXTENSION owpt*?6Ho Unwise moveLNgo0Do not use CleanSave on macros or template filesLN[LIBn)@7HE*8:r VEXTENSION ocsb*;HvVANSLRo CleanSaveLNUo'This file already has a "csb" extensionLN[[(LIBn)@=rVANS[;>HE*?@BH#vKEEPDOCSUMMARYLaB*{CY$KEEPDOCSUMMARYDY  KEEPFILEDATEEY MAKEBACKUPFH#rKEEPDOCSUMMARYKDSYESI[rKDSYESKDSNOJr KEEPFILEDATEKFDYESK[rKFDYESKFDNOLr MAKEBACKUPMBUYESM[rMBUYESMBUNOOHE0PHB]@VLANGR[<NFIELDShHoSetupLQB'@i)rMACRODIALOGRESULT[; jHE*k mrKDSYES#KEEPDOCSUMMARYnrKFDYES KEEPFILEDATEorMBUYES MAKEBACKUPpH[o*CleanSave for WordPerfect versions 8 to 14LNGo Please wait while the macro runsLQ[[ LI[LEEm)rH[LUE*sHEk)tHEvrMBUYES wHr VFILENAMEo.csbLN[LIENx yHEzHBZ@VFONT{HB[@ VFONTSIZE}rKFDYES~Hr VFILENAMELVBJ' VDATETIMEHr VDATETIMELcB)VYEARHr VDATETIMELcB)VMONTHHr VDATETIMELcB)VDAYHr VDATETIMELcB)VHOURHr VDATETIMELcB)VMINHr VDATETIMELcB)VSECHr VDATETIMELcB)VHUNDHrVDAYLUrVMONTHLIrVYEARLErVHOURLUrVMINLUrVSECLUrVHUNDLUB) VDATETIMErKDSYESrNFIELDS[ VTAGLIST[rNFIELDS[ VSUMMARY[[ I rIrNFIELDS[2 rI[ In rI[ rI VTAGLIST[ rI[H rILIB VSUMMARY[ rI[S VSUMMARY[o* rI[ o--- VSUMMARY[HE8HEHEHEHEMHEHEHrVFONTLQEHr VFONTSIZELXErNFIELDS[-rKDSYES[ I rIrNFIELDS[2, rI[ IHI rI[S VTAGLIST[LI rI[S VSUMMARY[LQE Hr VFILENAMELN[LIENrKFDYESyH[LIEHr VFILENAMELVr VDATETIMELcBK'SUCCESSrSUCCESS{AHr VFILENAMELNKo"File date and time not changed to r VDATETIMELNBn)@AHr VFILENAMELVEyHE0HrVLANGLNEHEH[LIE<H[LIB~@Ho CleanSaveLNr VFILENAME7o CleanSaved successfullyLNBn)@HE*Hx LIB)VHRTH[L@[LIB,+ NNN rNNN aXb/FB2 rNNN a`/FB-zHvVANSLR!o Macro VersionLN]o+ You are running the first build of WPWin11rVHRToFThere is no certainty that any macro will run correctly in that build.rVHRTrVHRToYPlease install the latest service pack from ftp://ftp.corel.com/pub/WordPerfect/wpwin/11/rVHRTrVHRTo=Click "OK" to run the macro anyway. Click "Cancel" otherwiserVHRTLN[[LIBn)@rVANS[-pHE*pz[|5[)51wLQUIT++1CHECKVERSION11N!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreter  '1XS:XXX1X1XS:  _ 4x1111  CharlesE.Rossiter@Macro CleanSave Version_14.0_Ԉ@(#Page  1  ڀof  5  ڈ  charles@rossiter.co.za;(#2006February01G:\COREL\WORDPE~1\WPDOCS\FORCES\MEMBER~1.DAT2 UdAZVerdana (Z3$ !1XmQXXX1iX1XmQ  6 4FigureNum Figure  1  <NK:Letterhead01<NK:Letterhead01(J$0 H X 2   .3  Ԁ(\$0 H 08HH H 2  A  .3  Ԁ(p)4$0 H 08HH0(88 8 2  0  .3  Ԁ.jiZ0CentSchbook BT Roman($0 H 08HH0(880(( ( 2  a  .3  Ԁ lQuitvFileNameDocReadOnly NToC0F90AhvExtensionToLowerStrRightOKCancelIconQuestion KeepDocSummary$KeepCurrentStyleKeepFileDateMakeBackUpKDSYesKDSNoKCSYesKCSNoKFDYesKFDNoMBUYesMBUNovBoldvLangnFieldsWPWInDialogEditorCleanSavedBackUpvFontvFontSizefontsizevDateTimevYearvMonth vDayvHour vMin vSecvHund$vTagList[nFields$vSummary[nFieldsVersion10Version9i<nFieldsvTagList[ivSummary[iDocSumGetVersion8GetDataCurrentDocEndIfPlatformlIgnoreDeleteCSTemp DeleteCharNextWMarkMajorVersionlTryB MatchSelectionlWMarkEnd lOKDocSumSet($0 H 08HH0(880((0  2(  0  )3  Ԁ(j{$0 H 08HH0(880((00  2(  a  )3  Ԁ($0 H 08HH0(880((000  2   )3  Ԁ<NK:Letterhead01<NK:Letterhead01  ( 4BP$ pl0XL8D P@0hT@@PxXhP<P<x <hpPlease select the options for the CleanSaved FilepXCancel`$WPstatic20$8D$22^@ NDd rf POKDxHy& PLT/y& XL\< @`n\* @`vt* L,* LB @` B L ,B L( Y @,`, Z L ,Z L*xLbuttonKFDYESHOKBttnT$CancelBttn$@0CleanSave Options0\1ppDo you wish to keep the Original Document Summary?pl zh YesKDSYESt2No KDSNO3tDo you wish to keep the Original File Date and Time?t l 78 MBUNO12,MBUYES11 :h  KFDNO9$DSetup0pDo you wish to make a BackUp Copy (extension csb)?p,(104, (u'\1t23$4789TaIPVa@z`AL GXH5ք"Y <NK:Letterhead01($0 H 08HH0(880((000  2  a  )3  Ԁ<NK:Letterhead013#37=CIQYag1.a.i.(1)(a)(i)1)a))*" not us CleanSae on mac1^-Wsk0 $ IMSY_emu{serm-outlineI.A.1.a.(1)(a)i)a) SetupSetupKeep Setup&i)<NK:Letterhead01<NK:Letterhead01<NK:Letterhead01<NK:Letterhead01H,iAZArial <NK:Letterhead014>x2Arial 101Xo XXX4W1  XXo<NK:Letterhead01G:\COREL\WORDPE~1\WPDOCS\FORCES\MEMBER~1.DAT<NK:Letterhead01G:\COREL\WORDPE~1\WPDOCS\FORCES\MEMBER~1.DAT|D>@:StanLHedFontStandard Font within LetterheadsX XXX X X X X X XXXX X X X>H:StanJ-HdrFonStandard Font for JEMRB in letterheads  5XX   5_ I&mage1t<=8C Bd)!dxdx( $ Figure  1  Level 1Level 2Level 3Level 4Level 5b9X XX3X>XXX>  tttt)!dxdx&p d Pdvvvv)!dxdx&p Pd dxyxy)!dxdx3+0 d d d3+0 d d d,Sticky NoteddhMÈ8Alt Legal 1Alt Legal Style Level 12 #  1  .3    (Z3$ !1XmQXXX1iX1XmQ  )!dxdx dd ddd(d2du:StandardFontStandard Font ChoiceXXXXXXX0X?Single Blue!dxdx(Z3$ !1XmQXXX1iX1XmQ  <NK:Letterhead01"""")!dxdx d)!dxdx)!dxdx)*E<<CLevel 1Level 2Level 3Level 4Level 5($$   1  :8Alt Legal 53|x3|x3|x !1XS:XXX1X1XS:  _= ͘ `dd= % 0 Application(WordPerfect;"WordPerfect";Default!)   I1,E,1fPlatform("Comments01")#1,1,E;# t~ A@ dd A 1111  MacroCleanSave.Wcm 󀀀0  0h(#(#0h(#h(#version14.0==?(#(#(#2008May01    CharlesE.Rossiter (#(#K(# p z charles@rossiter.co.za XX/(#WordPerfectversions8X4  / 9 @ @A@ dd A 1111  Purpose: 0 ` Tosaveafilewitharefreshedinternalheader,witholdmetadataremoved.lv ` (#` (#  Application: 0 ` Similarto"Savewithoutmetadata",butwithaddedfunctionality ` (#` (#  Action: 0 ` Selectthecontentsofthefilehr ` (#` (#    ` Saveittotheclipboard '1     ` Closetheoriginalfile      ` Restorethefilecontentstoanewblankdocument     0 ` Saveitwiththeoriginalfilename,overwritingtheoriginalfile,withoutaprompt.dn ` (#` (#  Savedstatus:  ` Savesthefilewithoriginaldateandtime(optional).     ` Saveswiththeoriginaldocumentsummary(optional).   Backup:  ` Theoriginalfileissavedwiththeaddedextension".csb" )    ` tomarkitastheCleanSaveBackupfile(optional).   Restrictions: 0 ` Notforusewithmacroortemplatefiles\f` (#` (#    ` Readonlyfiles:userrequestedtomakeacopy. % @@ 1,E,1EndIfPlatform("Comments01")#1,1,E # Xb OnCancel( lQuit Q )   ! XXX!OnError(  `lQuit ` ) IS!  11 2(#. //CheckBuildofWPWin11   # M  CallCheckVersion11()  !$   #11] #W GlobalvBold=NToC(65048) #& vFileName=?path+?name #'  If(vFileName="")  $( Ѐ MessageBox (;"CleanSave";"Pleasesavethefilefirst,togiveitanameF ";IconInformation!) A%K) ЀQuit & *  EndIf  &+  If(?DocReadOnly)  ~' , Ѐ MessageBox (;"CleanSaveP";vFilename+"isareadonlyfile"+NToC(0F90Ah)+ =(G!- Ѐ"PleasesaveacopyforCleanSavetoworkon";IconHand!) (". ЀQuit )"/  EndIf  z*#0   9+C$1 vExtension=ToLower(StrRight(?name;3))   If(vExtension="wcm"ORvExtension="wpt") (#.007 //Trapthecleansaveofmacrosandtemplates JԈ t~ Ѐ MessageBox (;"Unwisemove";"DonotuseCleanSaveonmacrosortemplatefiles";IconHand!) 3 = ЀQuit    򀀀EndIf     If(vExtension="csb")  / 9 Ѐ MessageBox (vAns;"CleanSave";"Thisfilealreadyhasa""csb""extension";   ЀOKCancel!|IconQuestion!)     򀀀If(vAns<>1)  lv  ЀQuit +5   EndIf   Endif    If(NotExists(KeepDocSummary)) 0(#.::* //SetupCleanSaveoptions WԈ '1  PersistKeepDocSummary=True   PersistKeepFileDate=True   PersistMakeBackUp=True dn   EndIf  #- KDSYes=KeepDocSummary  KDSNo=1KDSYes `j KFDYes=KeepFileDate ) KFDNo=1KFDYes  MBUYes=MakeBackUp  MBUNo=1MBUYes \f PosDocTop()  vLang=?language4(#.5 5  //Getcurrentlanguage Ԉ  nFields=60 (#.;; //Modifythisvalueof60iftherearemorethan60fieldsinthedocumentsummary /Ԉ ! [[(#.  //ThismayperhapsoccurforWPWInversion14orhigher Ԉ   ~~ (#.  //Setupdialog,usingtheDialogEditor(WPWin10bugworkaround) tԈ T ^" /* !#  DialogDefine("Setup";50;50;350;140;OK!|Cancel!|Percent!;"CleanSaveOptions")(#(#K(#  !$ DialogAddText("Setup";1;60;10;230;12;WPChars!; "%   vBold+"PleaseselecttheoptionsfortheCleanSavedFile") P#Z& DialogAddText("Setup";1;30;35;230;12;WPChars!; $'   "Doyouwishtokeepthe"+vBold+"OriginalDocumentSummary?") $( DialogAddRadioButton("Setup";2;270;3530;12;"Yes";KDSYes;RadioAuto!) %) DialogAddRadioButton("Setup";3;300;3530;12;"No";KDSNo;RadioAuto!) L&V* DialogAddText("Setup";7;30;60;230;12;WPChars!;  ' +   "Doyouwishtokeepthe"+vBold+"OriginalFileDateandTime?") ' , DialogAddRadioButton("Setup";8;270;60;30;12;"Yes";KFDYes;RadioAuto!) (!- DialogAddRadioButton("Setup";9;300;60;30;12;"No";KFDNo;RadioAuto!) H)R". DialogAddText("Setup";10;30;85;230;12;WPChars!; *#/   "Doyouwishtomakea"+vBold+"BackUpCopy(extensioncsb)?") *#0 DialogAddRadioButton("Setup";11;270;85;30;12;"Yes";MBUYes;RadioAuto!) +$1 DialogAddRadioButton("Setup";12;300;85;30;12;"No";MBUNo;RadioAuto!) D,N%2 */ - &3   -&4  DialogShow("Setup")  If(MacroDialogResult<>1)   󀀀Quit t~  򀀀Endif 3 =  KeepDocSummary=KDSYes   KeepFileDate=KFDYes p z MakeBackUp=MBUYes / 9  Prompt ("CleanSaveforWordPerfectversions8to14";"Pleasewaitwhilethemacroruns";     InformationIcon!|NoButtons!;20)    Wait(15) lv   EndPrompt  +5  PosDocVeryTop()    If(MBUYes) 7(#.RR //MakeBackUpFile T Ԉ hr  ЀFileSave(vFileName+".csb";;Yes!)tt(#.664 //Createbackupfilewithcleansavebackupextension  Ԉ '1   EndIf    PosDocVeryTop()||7(#.   //Getfontdefaults !Ԉ   vFont=?font dn  vFontSize=?fontsize #-  If(KFDYes)1(#.[[//Keepfiledateandtime"Ԉ   vDateTime=GetFileDateAndTime(vFileName)2(#.MM4 //Getfiledateandtime 0#Ԉ `j vYear=DateYear(vDateTime)%(#. & //Createsubvariablesofdate&time #Ԉ ) vMonth=DateMonth(vDateTime)  vDay=DateDay(vDateTime)  vHour=TimeHour(vDateTime) \f vMin=TimeMinute(vDateTime) % vSec=TimeSecond(vDateTime)  vHund=TimeHundredth(vDateTime)  vDateTime=DateAndTime(vDay;vMonth;vYear;vHour;vMin;vSec;vHund) Xb  EndIf ! If(KDSYes)3(#.77//Keepdocumentsummary %Ԉ !  DeclarevTagList[nFields];vSummary[nFields] T ^"  IfPlatform(_Version8!)  !$ nFields=0 "%  GetData(nFields;Summary!;Count!;CurrentDoc!)mm$(#.77: //Numberoffieldsindocumentsummary K'Ԉ P#Z&  If(nFields>0)ll!(#.//nFields=0fortextfiles,forexample 'Ԉ $'  򀀀For(I;1;i0)andKDSYes) 3(#.U U & //KeepDocumentSummary .Ԉ   򀀀For(I;1;i11000000000000.0)   MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+ p z "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+ / 9 "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+   "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt;    OKCancel!|IconWarning!) lv  If(vAns>1)0 ` Quit0 ` (#` (#EndIf0 (# (#EndIf (#(#  6EndProc  hr  9#115#// EndofmacroCleanSave.wcm R: