WPCč 1?MU;9.9)vC2,iBO,&|N~Gp]2*X$v:~SRm' l\U |* _ҢeCiᓲ8BX$2e$+2r6$mE+^o#KkPR ;x)FMj=E|'D|4="H-AXeau%ɪ]X jWLjӛC̔L;ew ح?1jnk\>n`ɕR]IĢxqC-[ p9 e](q'ٴ t:LN.t4O f$'(2v\p)EtuB ʩ*Ĉq,zaODg}#3IIM:b}=B{IhO)ʸJؽMyiŊ}+pI# %6 0fi4/C z Rx\xy%w&N& &t & m/^ //U,=1 NQi1 UF 0EU: C SrۃۃT MT&WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW D5}}}}} AS B B*"""""""""""""""""""""""""""""""""" C0LLLLLLLLLLLLLLLLL D3| B7 B7 0 0 0D!!! D-eee C D3 B߇ D3 B//// CLLLLLL Bffff CI Ccccccccccccccccccccccccccccccccccc D3}}}} B D3͉͉͉͉͉ D/ D5/ D3d B* D3 B* D3 B*Q D3{ B D5ˋ D- DK---------- DMx CŌŌŌŌ Cߌ C C C- CG Caaaaaaa DI{HP LaserJet 5L0XExpand all abbreviations in the document.  + ' SCOT(>[$XXXXAXXԁLevel 1Level 2Level 3Level 4Level 5ᔉ6vxF%&3|x `LN XXXXXXXXX|XX0`dhhdddh@Pdd DDdp4D48dddddddddd84pppT|lDLxpp|xD8D\d@X`XdX<d`00d0`hddDL<d``\X`(`lX4@Pdd DDdp4D48dddddddddd84pppT|lDLxpp|xD8D\d@X`XdX<d`00d0`hddDL<d``\X`(`lDD<@L<dhXXXXXX|X|X|X|XD0D0D0D0`hhhhdddd\Xdh\dpdpLDXd@Pddd4@d<d8@@XTdDDddDTD<llp4p``t 4@Pdd DDdp4D48dddddddddd84pppT|lDLxpp|xD8D\d@X`XdX<d`00d0`hddDL<d``\X`(`l`LN XXXXXXXXX|XX0`dhhdddh@Pdd DDdp4D48dddddddddd84pppT|lDLxpp|xD8D\d@X`XdX<d`00d0`hddDL<d``\X`(`lX4@Pdd DDdp4D48dddddddddd84pppT|lDLxpp|xD8D\d@X`XdX<d`00d0`hddDL<d``\X`(`lDD<@L<dhXXXXXX|X|X|X|XD0D0D0D0`hhhhdddd\Xdh\dpdpLDXd@Pddd4@d<d8@@XTdDDddDTD<llp4p``t 4@Pdd DDdp4D48dddddddddd84pppT|lDLxpp|xD8D\d@X`XdX<d`00d0`hddDL<d``\X`(`l~Times New RomanRegular92-X- X QWManage.wcmQuickWordsExpndAll.wcml_EndOnCancelTotalAbbrevTotalCntNRowsvButtonNumPerLoc[4NumPerLoc[1NumPerLoc[2NumPerLoc[3vSpeedSkipQWCreate NToC0F90AhvBoldOnvBoldOffQWFailAttachToPageQuickWordListTableInTableQWCreateListQWRestoreListQWManagel_QWRestore"InformationIcon0GetNumberAbbreviationsl_Blank4Abbreviation[TotalAbbrev2GetCurrentAbbreviationsDocBlankl_Fail nBoxBoxCount vVar&CheckQWTableValidPosTableBeginPosTableEnd TableAppendRowSelectLineEndSelectedTextQWRestorel_SkipStrPosSelectOffQuickMarkSetPosCellNext"PosCharPreviousSelectOnCharModeQuickMarkFindrightcodeWarningIcon Abbreviation[nQWExists(AbbreviationCreatePosTableCellPosCellDown TableDeleteRow BookMarkDeleteEndPromptIconStopNotQWTable"PersonalLibrarySharedLibraryGetDatalabelledAbbCnt NumPerLoc[Loop"CurrentTemplateTemplateFileEndProc(NumPerLoc[LocationAbbrevName.Abbreviation[TotalCntl_OmitPerCentDialogAddTextWPChars*DialogAddPushButtonCancelBttnCaseOf(AbbreviationDeleteEndSwitch$PosTableCellDownUbz/8  'XڂXXXXXڂ  QWManage.wcm@66Version13.0.22007April08bb?(#Page  1  ڀof  14  ڈ  CharlesRossiter@cccharles@rossiter.co.za o At) xdE-xA ,iAZArial 95 ZG:\MasterMacros\QWManage.wcmRNoOPP5NQ.,HoLERRORLOB*@-HoLENDLOB*@0$CHECKVERSION11@3 TOTALABBREV[TOTALCNTNROWS[VBUTTONZ  REPLACEEVERYZNEWONLY4[[ NUMPERLOC[5[[[ NUMPERLOC[6[[[ NUMPERLOC[7[[[ NUMPERLOC[9[VSPEED:ABBREV;Z  SKIPQWCREATE<Hx LIB)HRTHxLIB)VBOLDONHxLIB)VBOLDOFF=[QWFAIL>[ ATTACHTOPAGE?HBREVCODES@H[LIE<CHBfAD[ QWCREATELISTE[! QWRESTORELISTF G[ QWCREATELISTH[! QWRESTORELISTIKHoQWManageLQ[2LE[2LE[LE[dLE[LI'oQuickWord ManageLNB'@LHoQWManageLQ[LQ[ LE[LE[nLE[LE;o&Create list of QuickWordsLNB'@NHoQWManageLQ[LQ[ LE[(LE[nLE[LECo&Restore QuickWords from TableLNB'@PHoQWManageLQ[LQ[2LE[ALE[FLE[LE[LI#o&Quit QWManageLNB'@RHoQWManageLQ[!r QWRESTORELISTLQB'@T)rMACRODIALOGRESULT[*1U, LQWRESTOREV1X)rMACRODIALOGRESULT[*)rMACRODIALOGRESULT[-?YHE*Z\HoQWManageLQB'@_!r QWRESTORELIST= `, LQWRESTOREa= fH5oQuickWord List creationLNOo$Retrieving QuickWords from templatesLQ[[ LIEm)hH[rVSPEED:LUE*iHBPQ jH[LIEkQ m4GETNUMBERABBREVIATIONS@nHoQWManageLNo rVBOLDONr TOTALABBREVKo" QuickWords Please WaitLQ[[ LIEm)pH[rVSPEED:LUE*qr TOTALABBREV[* rLBLANK@s ur TOTALABBREV[[" ABBREVIATION[v6GETCURRENTABBREVIATIONS@zHB){ {HEM| HIrVBOLDONeo/QuickWord Table of Abbreviations and ExpansionsLQEHEUHBUNAMErUNAMEo* oUnknownUNAME HoLCHK1LOB*@H[LIB++UNAMEoUnknownCNAMEHoLCHK2LOB*@H[LIB++CNAMEHoLERRORLOB*@HIHB)rVBOLDOFFo for User rVBOLDONrUNAMErVBOLDOFF!o on computer rVBOLDONrCNAMErVBOLDOFFLQEHEUHEUH[LUrTOTALCNTLUEH[LIEH \@LWEH[L@EoH[LIEHEH[ LIEH[LIEH[LIEH5oQuickWord List CreationLN3oGetting all QuickWordsLQ[[ LIEm)[LOOPrLOOPrTOTALCNT3)rLOOP[LOOPHE9H[LIEHIrLOOP[-SABBREVIATIONSORTED[LQEHEH%oQuickWords ListLN%o QuickWord rLOOPo rVBOLDONrLOOP[[!S ABBREVIATION[rVBOLDOFFLQ[[ LIEm)HrVSPEED[ r TOTALABBREV!:LUE*HoLFAILLOB*@HrLOOP[-SABBREVIATIONSORTED[LQEHBPHB@[*H[LIE4r ATTACHTOPAGE[ ATTACHTOPAGEH[LI[LIEHEH%oQuickWords ListLNo@Checking and counting graphics for those set to 'Attach to Page'LQ[[ LIEm)H[rVSPEED:LUE*HEHB@NBOX[LOOPrLOOPrNBOX3HrLOOPLUEHB@[*HH[LIE4r ATTACHTOPAGE[ ATTACHTOPAGEHH[LI[LIErLOOP[LOOPtHEk)r ATTACHTOPAGE[-YH%oQuickWords ListLNr ATTACHTOPAGEOo$ QuickWords include graphics set to )o 'Attach to Page' rHRTso6These have been set to 'Attach to Paragraph', but the Uo'entries are probably incorrect and the  rHRTMo#graphics may need to be dragged to Yo)the correct cells of the QuickWords table rHRTKo"It is suggested that you edit the oDoriginal QuickWords and set these graphics to 'Attach to Paragraph'.LN[LIBn)@YHoLENDLOB*@HE08CHECKFORTABLEINQUICKWORD@rQWFAIL[-H%oQuickWords ListLNrQWFAIL}o; QuickWords failed to expand. Please expand these manuallyLN[ LIBn)@,LENDHoLNOTABLELOB*@HBfA{RHEkRHoLERRORLOB*@HBfA{H-oQuick Words RestoreLNoVThe cursor must be in or just before a table of QuickWord abbreviations and expansionsLN[LIBn)@,LENDHoQWManageLNYo)Checking validity of the QuickWords tableLQ[[ LIEm)HrVSPEEDLUE**CHECKQWTABLEVALID@HEk)HE:4GETNUMBERABBREVIATIONS@r TOTALABBREV[- r TOTALABBREV[[" ABBREVIATION[6GETCURRENTABBREVIATIONS@ HEHE9H[LIB~@HE/HBAo*!H[LUErNROWS[NROWSHE/!HEj H[LIE HE H[ LIE H[LIE H[LIEHE:HoQWManageLNrNROWS_o, abbreviations listed in the QuickWord TableLQ[[ LIEm)H[rVSPEEDLUE*[LOOPrLOOPrNROWS3+#rLOOP[LOOP%#H[LIB~@HE/HBAABBREVrABBREVo*8%Ho QWRestoreLN3oBlank abbreviation -- rVBOLDON9oSkipping entry + vBoldOffLN[ LIBn)@Y SKIPQWCREATEHrVSPEED[:LUE*,LSKIP8%H+oQuickWords RestoreLN-oCreating QuickWord rLOOPo rVBOLDONrABBREVrVBOLDOFFLQ[[ LIEm)!HrVSPEED[ :rNROWS!LUE*"HEk)#HE$HE%HBiA[-&&HE'&(HE)HE*HE+HE-H[LIE.HE1HB@[.HB@[3(2Ho QWRestoreLN/oEmpty expansion for rVBOLDONrABBREVrVBOLDOFF'o Skipping entryLQ[[ LIEm)4H[rVSPEED:LUE*5Y SKIPQWCREATE6,LSKIP7(8Z QWORDEXISTS:rTOTALCNT[2D);,LSKIP<D)?[ N rNrTOTALCNT3*) rN[ NV)@Z QWORDEXISTSArABBREV rN[[!S ABBREVIATION[**BrTOTALCNT NCY QWORDEXISTSDQWEXISTS@E*F)HIr SKIPQWCREATEY**Js+KrNEWONLYZ*r QWORDEXISTSZ*?n+LHrABBREVLQ[LIEMn+NOZ SKIPQWCREATEPHEQH oArLOOPLQE RHE>TV#VHEWH[LUEXHo QuickMarkLQEuZ8CHECKFORTABLEINQUICKWORD@^LEND@iO;/;jZ SKIPQWCREATEkHoLOMITLOB*@mr REPLACEEVERYY*.nHrABBREVLQ[LIEoHrVSPEEDLUE*pH+oQuickWords RestoreLNo QuickWord rVBOLDONrABBREVrVBOLDOFF%o being replacedLQ[[ LIEm)rH[rVSPEED:LUE*sHEk)t,LOMITu.wrNEWONLYY*/x,LOMITy/{HoQWCreateLQ[2LE[2LE[LE[LE[LI+oReplace QuickWord?LNB'@|HoQWCreateLQ[ LQ[LE[LE[LE[LE[ LI)oThe abbreviation rVBOLDONrABBREVrVBOLDOFF%o already existsLQB'@~HoQWCreateLQ[ LQ[LE[(LE[LE[LE[ LIrVBOLDON=oReplace existing QuickWord?rVBOLDOFFLQB'@HoQWCreateLQ[LQ[LE[<LE[LE[LE=o&Replace existing QuickWordLNB'@HoQWCreateLQ[LQ[LE[PLE[LE[LE7o&Keep existing QuickWordLNB'@HoQWCreateLQ[LQ[LE[nLE[LE[LEGo Replace &All existing QuickWordsLNB'@HoQWCreateLQ[LQ[LE[LE[LE[LE7oAdd &New QuickWords onlyLNB'@HoQWCreateLQ[LQ[LE[LE[LE[LE[LI7o&Exit the QWManage macroLNB'@HoQWCreateLQrVBUTTONLQB'@)rMACRODIALOGRESULTVBUTTONrVBUTTONN5([* 7@Z SKIPQWCREATEHrABBREVLQ[LIEHrVSPEEDLUE*H+oQuickWords RestoreLNo QuickWord rVBOLDONrABBREVrVBOLDOFF%o being replacedLQ[[ LIEm)H[rVSPEED:LUE*HEk):([*d7@HEY SKIPQWCREATE:([*J9@Y REPLACEEVERYZ SKIPQWCREATEHrABBREVLQ[LIEHrVSPEEDLUE*H+oQuickWords RestoreLNo QuickWord rVBOLDONrABBREVrVBOLDOFF%o being replacedLQ[[ LIEm)H[rVSPEED:LUE*HEk):([*9@YNEWONLYY SKIPQWCREATE:([*:@HEHEk)HrREVCODESLIE<HEH[LUEHo QuickMarkLQEuHE0HE*:@r REPLACEEVERYZ*rNEWONLYZ*#;HoQWCreateLQB'@#;[|51:LOMITHoErrorLNIo!There are no QuickWords to expandLN[0LIBn)@LEND@rQWFAIL[QWFAIL[|Ho QWRestoreLNso6This table is the wrong size for a Quick Words listingLN[0LIBn)@,LEND??[LOOPrLOOP[2>v=rLOOP[LOOP&=HvABBCNTLR[LI[LIrLOOPLIErLOOP[[rABBCNT NUMPERLOC[J=HB$HB*z>[[[ NUMPERLOC[z>[[S NUMPERLOC[[[S NUMPERLOC[[[S NUMPERLOC[ TOTALABBREV[|5CxC[LOCATIONrLOCATION[2B?rLOCATION[LOCATIONR?[LOOPrLOOPrLOCATION[[S NUMPERLOC[[2Bb@rLOOP[LOOP?Hv ABBREVNAMELR[LI[LIrLOCATIONLIrLOOPL@Er ABBREVNAME3oTemplate Bookmark Info;r ABBREVNAME/oTemplate Prompt Info;BrTOTALCNT[TOTALCNTrTOTALCNT[[r ABBREVNAME! ABBREVIATION[rTOTALCNT[[rLOCATION! ABBREVIATION[B6@~?[cc[([!Q ABBREVIATION[ A[[H[ SA[LZ[LIB*. ABBREVIATIONSORTED[H[ WA[LaE*[|5 FFF HE0H[LIB~@Ho LNOTABLEINQWLOB*@H o:LQE%H[LIEH%oQuickWords ListLNio1At least one original QuickWord included a table. rHRTuo7This may not have been output correctly by QWManage.wcm rHRT rHRTeo/Consider using a table within a textbox insteadLNBn)@YREVCODES[|5'1F LNOTABLEINQW HH"HE#HBhANROWS$HE9%HE&HBhArNROWS;G' NOTQWTABLE@(G*HE:+[LOOPrLOOPrNROWS3HGrLOOP[LOOP.G,HE9-HBhArLOOP;G. NOTQWTABLE@/G0HE1HBiA[;HBhArLOOP;?rH2 NOTQWTABLE@3rH4HE5_G6[|5NOHoQWManageLNoError rHRTuo7Please advise Charles Rossiter about this error message rHRTWo(Send to charles@rossiter.co.za -- ThanksLNBn)@R,LENDUVHEk)WHrREVCODESLIE<XHE*\KNDN`Hx LIB)VHRTaH[L@[LIB,+ NNNb rNNN aXb/FB2 rNNN a`/FB-8NcHvVANSLR!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)@irVANS[-.NHE*.N8Nk[|5[)5 1H*LSKIP1|LNOTABLE1;LFAIL1LCHK21LCHK11O;LBLANK#1 LQWRESTORE1UILEND1NHLERROR#1/< NOTQWTABLE+11 RFCHECKQWTABLEVALID?1 CCHECKFORTABLEINQUICKWORD+1\NJCHECKVERSION11=1*?GETCURRENTABBREVIATIONS;1=GETNUMBERABBREVIATIONS1i,QWEXISTSN!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreterH<\ 9Z+.Courier New Regular(Z3$ [!XXXX"XX  "Arial Regulard"# =Q dy14 XCy14NewDialogQWManagetttt)!dxdxiE<<C d&0 d d,Sticky Notedd'dxd3+0 d d d3+0 d d d(Z2$ [!XXXX"XX  (Z3$ [!XXXX"XX  ($$   1  )!dxdxd'dxd  d'dxdP Pdd dLevel 1Level 2Level 3Level 4Level 5 ddd'dxd d'dxd' dxd)!dxdx$$$$'dxd&P d d&&&&'dxd&p d Pd(((('dxd&p Pd d****'dxd dttttt'dxdt'dxdtttt?Single Blue!dxdxttttASingle Green!dxdx(d2d(#(#(# 2007April08 0Ԉ t o  ManageQuickWords  3 . ЀA.  CreateatablelistingallQuickWordsandtheirexpansionsdefinedinthecurrent,default     andsupplementaltemplates.   ЀB.0  RestoreQuickWordsandtheirexpansionsfromtheoutputofoptionAcreatedinatablep k (#(#   with2columnsofAbbreviationsandExpansions /*    ModifiedfromCorelmacroExpndAll.wcm   200612210 ` ModifiedtodealwithmissingUsernameorComputername ` (#` (# 20070408 ` SortoptionimprovedthankstoKlausPfeiffer,WPUniverse lg  WhateveroptionisselectedwhenRestoringQuickWords,allAbbreviationsintheQuickWordtable   thatarenotintheQuickWordstemplatewillbeaddedtotheQuickWordstemplateautomatically.    CharlesRossiter  '"  charles@rossiter.co.za1(# WordPerfectversions813 Ԉ   @d_@`,,EndIfPlatform("Comments") # ``IfPlatform("Cautions")#,,#  `!`A@ ddA`    `Caution1:   QuickWordswhichincludeagraphicwithposition"AttachtoPage"areexportedintotheQuickWords FA table,butthegraphicsneedtobepositionedintothecorrectcellofthetable.Suchgraphicshavebeen  setto"AttachtoParagraph".  ItissuggestedthattheusereditstheoriginalQuickWordstosetthegraphicsto"AttachtoParagraph". B= Thismacrowouldthenneedtoberunagain.    Caution2:  z" QuickWordswithtablesmaynotbeaddedtotheQuickWordtablecorrectlynorrestoredtothelistof > 9# QuickWordscorrectly  $ TheQuickWordwithorforatablecouldbecreatedusingatextboxoriginally.`Z  {"v& `` @#@,,EndIfPlatform("Cautions") l$g) #,," #OnError(LError) %+ OnCancel(LEnd) ]&X,  2(#. //CheckBuildofWPWin11  ' .   CallCheckVersion11()V (!/  `  Y)T"0   4(#.//Setglobalvariables`Ԉ  Global(TotalAbbrev;TotalCnt=0;NRows;vButton=1;ReplaceEvery=false;NewOnly=false)  Global(NumPerLoc[4]) ~ NumPerLoc[1]=0 B = NumPerLoc[2]=0   NumPerLoc[3]=0   GlobalvSpeed=0` OO(#. //Setsminimumdisplaytimeforpromptmessages(tenthsofsecond)`yԈ > 9 GlobalAbbrev   GlobalSkipQWCreate=false    Global(HRt=NToC(0F90Ah);vBoldOn=NToC(65048);vBoldOff=NToC(65049)) {v  GlobalQWFail=0` (#. //CounterforfailuretoexpandanyQuickWord`Ԉ :5   AttachToPage=0 {{(#. //CounterfornumberofgraphicssettoAttachtoPage   GlobalRevCodes=?RevealCodesActive   RevealCodes(On!) wr  `   (#.//OfferchoiceoptionsforcreatingorrestoringQuickWordList`Ԉ    If(?TableInTable) ` aa/(#. //AssumerestoreQuickWords`TԈ   ЀQWCreateList=0 sn  ЀQWRestoreList=1 2-  Else   ЀQWCreateList=1` ,(#. //AssumecreateQuickWordlist`]Ԉ  ЀQWRestoreList=0 oj  EndIf  .)  DialogDefine("QWManage";50;50;130;100;Percent!;"QuickWordManage")   DialogAddPushButton("QWManage";3;10;15;110;18;; kf   "&CreatelistofQuickWords") *% DialogAddPushButton("QWManage";4;10;40;110;18;;    "&RestoreQuickWordsfromTable")   DialogAddPushButton("QWManage";2;50;65;70;18; gb   CancelBttn!;"&QuitQWManage") &!  DialogShow("QWManage";;;3+QWRestoreList)     If(MacroDialogResult=4)   LL&(#. //RestoreQuickWordsoptionselected Ԉ c ^"  Go(LQWRestore) "!# EndIf !$  If(MacroDialogResult=2orMacroDialogResult>4)   ,(#.- //QuitQWManagemacroselected Ԉ _#Z& Quit $'  EndIf $( DialogDestroy("QWManage")  [&V*  00%(#. //CreateTableofQuickWordsselected ' +   If(QWRestoreList)   (!- DԀGo(LQWRestore) W)R".  EndIf  *#/ `  *#0 ``//********************************************************************`  ` //StartofQuickWordListCreation`    Prompt("QuickWordListcreation ";" RetrievingQuickWordsfromtemplates "; B = ЀInformationIcon!|NoButtons!)    Wait(5*vSpeed)    If(?GraphicSelected)   z ЀBoxEnd(Save!) > 9  EndIf     GetNumberAbbreviations {v  Prompt("QWManage";""+vBoldOn+TotalAbbrev+"QuickWordsPleaseWait"; :5  ЀInformationIcon!|NoButtons!)    Wait(5*vSpeed)    If(TotalAbbrev=0)  wr  ЀLBlank` ` 661(#.` ` //TherearenoQuickWords`Ԉ 61   EndIf    GlobalAbbreviation[TotalAbbrev;2] sn   GetCurrentAbbreviations `  kk(#.//CreatearrayofAbbreviationsandExpansions` Ԉ 2-  `  (#.//AllcurrentQuickWordnamesstoredintothearray.`R!Ԉ  ``!`  (#.//Createblankdocumenttoprintentriesto,ifnecessary`"Ԉ oj  If(Not?DocBlank)  .) ЀFileNew()   EndIf   `  OO(#.//CreatetableofQuickWordsandAbbreviations`%#Ԉ *% `  /(#.//Createtextheadingfirst`#Ԉ  Type(vBoldOn+"QuickWordTableofAbbreviationsandExpansions")  HardReturn gb UName=?username &! If(UName="")   ЀUName="Unknown" ! EndIf c ^" OnError(LChk1) "!# UName=MacroInfo(UserName!) !$ Label(LChk1) "% CName="Unknown" $' OnError(LChk2) $( CName=MacroInfo(ComputerName!) %) Label(LChk2) [&V* OnError(LError) ' , Type(DateAndTime+vBoldOff+"forUser"+vBoldOn+UName W)R". Ѐ+vBoldOff+"oncomputer"+vBoldOn+CName+vBoldOff) *#/ HardReturn *#0 HardReturn +$1   S,N%2 TableCreate(2;TotalCnt)  TablePosition(AlignFull!) ~ TableColumnWidth(3.0c) B = TableApplyStyle(TableStyle7!)   TableSelectOn(Table!)   SelectTable()  z TableCellNumberFormat(TextOnly!) > 9 TableRowCanSpanPages(Yes!)   SelectMode(Off!)     Prompt("QuickWordListCreation )";" GettingallQuickWords ";InformationIcon!|NoButtons!) :5  For(Loop;1;Loop<=TotalCnt;Loop+1)    󀀀PosTableRowBegin()   ЀTableHeader(No!) wr  Ѐ UKUS.,Type ( AbbreviationSorted[Loop]) US.,UK.,M* 61  ЀPosTableRowEnd()    Prompt("QuickWordsList*";"QuickWord"+Loop+""+vBoldOn+   ЀAbbreviation[Loop;1]+vBoldOff#+;InformationIcon!|NoButtons!)  sn  Wait(vSpeed*(10/TotalAbbrev)) 2- `   (#.//OccasionallyaQuickWordwillnotexpand.OnNotFoundskipsitandcounts.`,Ԉ  OnNotFoundCall(LFail)  ЀAbbreviationExpand(AbbreviationSorted[Loop]) oj Ѐ 򀀀If(?graphicselected)   DD(#.//Anexpansionwhichisjustagraphiccanleavethegraphicselected a- .) ЀIf(?BoxAttachTo=2)   aa((#.//Isthegraphicattachedtopage?8.Ԉ  ЀBoxAttachTo(Paragraph!)  ЀAttachToPage=AttachToPage+1 kf Ѐ 򀀀EndIf  *% ЀBoxEnd(Save!;Hide!)  Ѐ EndIf   ЀPosTableCellNext() gb  EndFor  &! `  (#.//CheckforothergraphicsboxesattachedtoPage` 0Ԉ    Prompt("QuickWordsList";"Checkingandcountinggraphicsforthosesetto'AttachtoPage'0"; ! ЀInformationIcon!|NoButtons!)  c ^" Wait(3*vSpeed) "!# PosDocVeryTop() "% nBox=?BoxCount _#Z& Loop=1 $'  While(Loop<=nBox)  $( ЀBoxEdit(Loop) %) Ѐ If(?BoxAttachTo=2)  [&V* ЀBoxAttachTo(Paragraph!) ' + ЀAttachToPage=AttachToPage+1 ' , Ѐ EndIf  (!- ЀBoxEnd(Save!;Hide!) W)R". ЀLoop=Loop+1 *#/  EndWhile  *#0 EndPrompt() +$1   S,N%2  If(AttachToPage>0)   Ѐ MessageBox(;"QuickWordsList4";AttachToPage+"QuickWordsincludegraphicssetto"+    "'AttachtoPage'"P4Ԁ+HRt+"Thesehavebeensetto'AttachtoParagraph',butthe"+ ~   "entriesareprobablyincorrectandthe"4+HRt+Ԁ"graphicsmayneedtobedraggedto"+ B =   "thecorrectcellsoftheQuickWordstable"5Ԁ+HRt+"Itissuggestedthatyoueditthe"+     "originalQuickWordsandsetthesegraphicsto'AttachtoParagraph'."86;IconWarning!)   EndIf   z OnError(LEnd)   PosDocTop()     CheckForTableInQuickWord  {v   If(QWFail>0)  :5   򀀀MessageBox(;"QuickWordsList7";   ЀQWFail+"QuickWordsfailedtoexpand.PleaseexpandthesemanuallyA8";IconInformation!)     EndIf  wr  Go(LEnd)   ` //EndofQuickWordListCreation` 9  sn  `//********************************************************************`t9 2- `   `9`//********************************************************************`3:  ` //StartofQuickWordrestore`:    Label(LQWRestore)  B =  OnError(LNoTable)   If(Not?TableInTable) ` OO((#. //Movetonexttable,ifitexists`;   TablePosNextTable()  z  EndIf  > 9  OnError(LError)    Label(LNoTable)  {v   If(Not?TableInTable) ` OO((#. //Movetonexttable,ifitexists`< :5   򀀀MessageBox(;"QuickWordsRestoreo=";   Ѐ"ThecursormustbeinorjustbeforeatableofQuickWordabbreviationsandexpansions=";   ЀIconExclamation!)  wr   Go(LEnd) 61  EndIf     Prompt("QWManage";"CheckingvalidityoftheQuickWordstable>";InformationIcon!| sn  NoButtons!)  2- Wait(vSpeed)   CheckQWTableValid   EndPrompt() oj PosTableBegin()` :(#. //Tableisvalid`? .)  GetNumberAbbreviations   If(TotalAbbrev>0)  *%  󀀀GlobalAbbreviation[TotalAbbrev;2]   򀀀GetCurrentAbbreviations  EndIf  gb PosTableEnd()` ` (#.` ` //Removeblankrowsatendoftable,ifany`iAԈ   PosTableRowBegin() ! Display(On!) c ^" SelectLineEnd() "!# While(?SelectedText="") !$ ЀTableDeleteRow(1) "% ЀNRows=NRows1 _#Z& ЀSelectLineEnd() $' EndWhile $( TableAppendRow()` 773(#. //Addextraworkingrow`CCԈ [&V* TableSelectOn(Table!) ' + SelectTable() ' , TableCellNumberFormat(TextOnly!) (!- TableRowCanSpanPages(Yes!) W)R". SelectMode(Off!) *#/ PosTableBegin() *#0  Prompt("QWManage";NRows+"abbreviationslistedintheQuickWordTableD"; +$1 ЀInformationIcon!|NoButtons!)  S,N%2 Wait(5+vSpeed)  - &3  For(Loop;1;Loop<=NRows;Loop+1)   Display(On!)  SelectLineEnd() ~ Abbrev=?SelectedText B =  If(Abbrev="") ` ==+(#. //Query:isabbreviationblank?`rFԈ   Ѐ MessageBox(;"QWRestore G";"Blankabbreviation"+vBoldOn+"Skippingentry+vBoldOff>G";  z ЀIconInformation!)  > 9 ЀSkipQWCreate=true   ЀWait(vSpeed*4)     򀀀Go(LSkip) 󀀀 {v   EndIf  :5   Prompt("QuickWordsRestoreH";"CreatingQuickWord"+Loop+""+vBoldOn   Ѐ+HAbbrevvAԀ+vBoldOffGIԀ;InformationIcon!|NoButtons!)  wr  Wait(vSpeed*10/NRows) 61  EndPrompt()   SelectOff()   PosTableRowEnd() sn  While(?Column>1) 2- ЀPosCharPrevious()  EndWhile  PosCharNext() oj QuickMarkSet() .) PosCellNext()  PosCharPrevious()  SelectOn(CharMode!) *% QuickMarkFind()` PP (#. //Theexpansionisnowselected,readyforaddingtoQuickWords`KԈ  `  %(#.//Query:isQuickWordexpansionblank`'LԈ gb  If((?rightcode>=189)and(?rightcode<=197))0  ` p #886(#.pp2(#(##//Expansionisblank`LԈ &!  򀀀Prompt("QWRestoreM";"Emptyexpansionfor"+vBoldOn+Abbrev+vBoldOff+   Ѐ"SkippingentryM";WarningIcon!|NoButtons!)  ! ЀWait(4*vSpeed) c ^" ЀSkipQWCreate=true "!# Go(LSkip) !$  EndIf  "%  QWordExists=false _#Z&  `  (#.//CheckforexistingQuickWord,ifanyexist`*OԈ $'  If(TotalCnt<1) ` NN(#. //NoQuickWordsexistincurrentQuickWordfile`O $( ЀGo(LSkip) %)  EndIf  [&V*   ' , For(n;1;n<=TotalCnt;n+1)    QWordExists=false  If(Abbrev=Abbreviation[n;1])  ~ Ѐn=TotalCnt B = ЀQWordExists=True   Ѐ QWExists ` ` '(#.` ` //QuickWordexists.Chooseaction .`Q    ЀEndIf  z EndFor  > 9  Label(LSkip)      If(SkipQWCreate=true ) {v  Else :5  ЀIf((NewOnly=false)or(QWordExists=false)) `  %(#.-//CreateQuickWordwithitsexpansion`DS   ЀAbbreviationCreate(Abbrev;QuickWords!)    򀀀Endif wr  EndIf  61  SkipQWCreate=false   SelectOff()   PosTableCell("A"+Loop) sn  PosCellDown() 2-  EndFor   PosTableEnd() .) TableDeleteRow(1)` 8(#. //Deleteaddedrow`PUԈ  BookMarkDelete("QuickMark")` tt.(#. //DeleteremainingQuickMark`UԈ   CheckForTableInQuickWord *%  ` //EndofQuickWordRestore `V`  `V LEnd  &! `I// EndofMacro !  `@W`  c ^"  //RoutinesandProcedures   //********************************************************************`W`   `TX `//*PROCEDURE:QWExists`X ~ `//*INPUTVARIABLES:Non`X`e B = `4Y`//*OUTPUTVARIABLES:None`nY`   `Y`//*DESCRIPTION:ExistingQuickWord:ReplaceorSkip   `Y`//********************************************************************`dZ`  z  `ZPROCEDUREQWExists() [` > 9 `J[SkipQWCreate=false   OnCancel(LOmit)    If(ReplaceEvery=true) :5  AbbreviationDelete(Abbrev;QuickWords!)   Wait(vSpeed)    `WPrompt("`a\QuickWordsRestore\`"; wr  Ѐ"`\QuickWord"+vBoldOn+Abbrev+vBoldOff+"beingreplaced ]`";InformationIcon!|NoButtons!)  61  `i]Wait(2*vSpeed)   EndPrompt()   `8YGo(LOmit) sn  EndIf 2- ` ^If(NewOnly=true)  Go(LOmit) oj EndIf`Y .)  DialogDefine("QWCreate";50;50;180;180;PerCent!;"ReplaceQuickWord?")   `^DialogAddText("QWCreate";10;30;20;180;15;WPChars!; kf Ѐ"Theabbreviation"+vBoldOn+Abbrev+vBoldOff+"alreadyexists_`") *% ``DialogAddText("QWCreate";11;30;40;130;15;WPChars!;vBoldOn+  Ѐ"ReplaceexistingQuickWord?"+vBoldOff``)  ``DialogAddPushButton("QWCreate";1;20;60;130;15;;"&ReplaceexistingQuickWordja`") gb `aDialogAddPushButton("QWCreate";3;20;80;130;15;;"&KeepexistingQuickWordb`") &! `WbDialogAddPushButton("QWCreate";4;20;110;130;15;;"Replaceb`&`byAllexistingQuickWordsc`")    `[cDialogAddPushButton("QWCreate";5;20;130;130;15;;"Addc`&`c ~New"dyԀQuickWordsonly") ! MdDialogAddPushButton("QWCreate";2;20;160;130;15;CancelBttn!;"&yExittheQWManagemacrod`") c ^"   "!#  DialogShow("QWCreate";;;vButton)  !$ ` evButton=MacroDialogResult _#Z& Switch(vButton) $'  CaseOf1: M .(#.M M //ReplaceexistingQuickWord(f`  %) `fSkipQWCreate=false [&V* AbbreviationDelete(Abbrev;QuickWords!) ' + Wait(vSpeed) ' ,  Prompt("QuickWordsRestoreYg`"; (!- Ѐ"`gQuickWord"+vBoldOn+Abbrev+vBoldOff+"beingreplacedg`";InformationIcon!|NoButtons!)  W)R". `/hWait(2*vSpeed) *#/ EndPrompt() *#0   +$1 CaseOf3: M 1(#.M M //KeepexistingQuickWordh`    `XiSelectOff() ~ SkipQWCreate=true B =  CaseOf4: M )(#.M M //ReplaceallexistingQuickWordsj`   z  `fjReplaceEvery=true   SkipQWCreate=false    AbbreviationDelete(Abbrev;QuickWords!) {v  Wait(vSpeed) :5   Prompt("QuickWordsRestorejk`";   Ѐ"`kQuickWord"+vBoldOn+kAbbrevhԀ+vBoldOff+"beingreplaced"l`";InformationIcon!|NoButtons!)    `hlWait(2*vSpeed) wr  EndPrompt() 61   CaseOf5: M ll1(#.M M //AddnewQuickWordsonly    'm` `mNewonly=true 2- SkipQWCreate=true  CaseOf2: M 5(#.M M //ExitQWManagemacro oj .n SelectOff() .) EndPrompt()  RevealCodes(RevCodes)  PosTableEnd() kf TableDeleteRow(1)` 8(#. //Deleteaddedrow`Go`Ԉ *% `oBookMarkDelete("QuickMark")` tt.(#. //DeleteremainingQuickMark`o`Ԉ  `lpPosDocTop()  Quit gb  EndSwitch    Label(LOmit) !  If((ReplaceEvery=false)and(NewOnly=false)) c ^" DialogDestroy("QWCreate")  "!#  EndIf !$ EndProc  "% r^X` Qhp x (#%'0*,.8135@8:<H?AXr`//********************************************************************`Qr` $' `r`  $( //********************************************************************`r  `//*ROUTINE:LBlank`s  `//*INPUTVARIABLES:Non`se ~ `//*OUTPUTVARIABLES:None`Ft B = `//*DESCRIPTION:Displaysanerrormessage.`t   `//********************************************************************`u   Label(LBlank)  z  MessageBox(;" Error ";" TherearenoQuickWordstoexpand ";IconStop!)  > 9 LEnd   `//********************************************************************`Cv    `//********************************************************************`v {v  `//*ROUTINE:LFail`Lw :5  `//*INPUTVARIABLES:Non`we   `//*OUTPUTVARIABLES:None`w   `//*DESCRIPTION:IncrementscountoffailurestoexpandAbbreviations wr  `Zx`//********************************************************************`x 61  Label(LFail)   ЀQWFail=QWFail+1   Return sn  `//********************************************************************`y 2- `//********************************************************************`Uz  `//*ROUTINE:NotQWTable`z oj `//*INPUTVARIABLES:Non`2{e .) `//*OUTPUTVARIABLES:None`{  `//*DESCRIPTION:ExitsiftheQuickWordstableisthewrongsize  `{`//********************************************************************`k| kf Label(NotQWTable) *% Ѐ MessageBox(;"QWRestore,}";"ThistableisthewrongsizeforaQuickWordslisting]}";  IconStop!)   Go(LEnd) gb `//********************************************************************`~ &! `//********************************************************************`~ ! `//PROCEDURE:GetNumberAbbreviations c ^" //PURPOSE:CountthenumberofcurrentQuickWords "!# `$`//********************************************************************` !$  PROCEDUREGetNumberAbbreviations()  "%  For(Loop;0;Loop<3;Loop+1) _#Z&    0 M ` #(#. M (#M (##//0=Current,1=PersonalLibrary,2=SharedLibrary`Ԉ $' `  / / (#.//TheGetDatacommandislabelled'Obsolete',butthisisaswrittenbyCorel`Ԉ $( ЀGetData(AbbCnt;Abbreviation!;Count!;Loop) %) ЀNumPerLoc[Loop+1]=AbbCnt [&V*  EndFor  ' +  If(?CurrentTemplate=?TemplateFile)  ' , `  pp(#.//Thecurrenttemplateisthedefaulttemplate,sodon'tcountittwice.`Ԉ (!- ЀNumPerLoc[2]=0 W)R".  EndIf  *#/ TotalAbbrev=NumPerLoc[1]+NumPerLoc[2]+NumPerLoc[3] *#0  EndProc  +$1 `//********************************************************************` S,N%2 `  - &3 //********************************************************************`   `//PROCEDURE:GetCurrentAbbreviations  //PURPOSE:CreatearrayofcurrentQuickWords ~ //OUTPUT:ArrayAbbreviationofQuickWordsandlocation B = ``//********************************************************************`    PROCEDUREGetCurrentAbbreviations() !    For(Location;0;Location<3;Location+1)   z Ѐ For(Loop;1;Loop 9 `  / / (#.//TheGetDatacommandislabelled'Obsolete',butthisisaswrittenbyCorel`#Ԉ   ЀGetData(AbbrevName;Abbreviation!;Name!;Location;Loop)    󀀀 If((AbbrevName<>"TemplateBookmarkInfo")and `11%(#.A//skipautomatedtemplateinformation`vԈ {v  Ѐ (AbbrevName<>"TemplatePromptInfo"))  :5  ЀTotalCnt=TotalCnt+1   ЀAbbreviation[TotalCnt;1]=AbbrevName   ЀAbbreviation[TotalCnt;2]=Location wr  Ѐ EndIf  61   򀀀EndFor     EndFor    󀀀a[]=Abbreviation[..;1] sn  ЀGlobalAbbreviationSorted[]=SortArray(Data:a[];SortOrder:Ascending!) 2- ЀDiscarda[]   EndProc   `//********************************************************************`F .) `//PROCEDURE:CheckForTableInQuickWord  //PURPOSE:CheckforanyQuickWordwhichcontainsaTable  `͌`//********************************************************************`` kf  PROCEDURECheckForTableInQuickWord()  *% ``PosDocTop()  Display(Off!)  ЀOnNotFound(LNoTableInQW) gb ЀSearchString("> : [HdTblTab]?  ") &! ЀSearchNext(Extended!)   Ѐ MessageBox(;"`hQuickWordsList`"; ! `Ԁ"AtleastoneoriginalQuickWordincludedatable.`"+HRt+ c ^" `X{3Ԁ"ThismaynothavebeenoutputcorrectlybyQWManage.wcm"`Ԁ+HRt+HRt+`ہ "!# 3`Ԁ`p"Considerusingatablewithinatextboxinstead"`)  !$ ЀRevCodes=True "% Label(LNoTableInQW) _#Z&  EndProc  $' ````//******************************************************************** %) `Ӓ`  [&V* //********************************************************************```  ``//PROCEDURE:CheckQWTableValid  //PURPOSE:CheckthatQuickWordtablehasprecisely2cellsineveryrow ~ ``//********************************************************************`۔` B =  `IPROCEDURECheckQWTableValid() `   `ʕ   (#.//StartcheckthatthetablecouldbeavalidQuickWordstable`Ԉ   PosTableEnd()  z NRows=?Row > 9 PosTableRowBegin()   PosTableCellDown()     If(?row<>NRows)  {v  ЀNotQWTable :5   EndIf    M    ``  (#.//Checkthateachrowofthetablehasexactly2cells.``Ԉ   `r`PosTableBegin() wr   For(Loop;1;Loop<=NRows;Loop+1) 61   PosTableRowBegin()    If(?Row<>Loop)    ЀNotQWTable`` M 0(#.M M //Joinedcellsincolumn1``Ԉ sn   ``EndIf  2- PosTableRowEnd()   If((?Column<>2)or(?Row<>loop))   ЀNotQWTable M `A`j'(#.M M //Joinedorsplitcellsincolumn2``Ԉ oj  `o`EndIf .)  PosTableCellDown()   EndFor    EndProc ``k kf `C`  (#.//CompletedcheckthatthetablecouldbeavalidQuickWordstable``Ԉ *% ``  %(#.//ThistablehasNRowsand2columns.`N`Ԉ  `ŝ`//********************************************************************``  `z`  gb ``//********************************************************************`ǟ`  `5`//*ROUTINE:LSort_Fail`n`  ``//*INPUTVARIABLES:Non``e ~ `2`//*OUTPUTVARIABLES:None`l` B = ``//*DESCRIPTION:Advisethatsorthasfailed   ``//********************************************************************`Y`   `Ǣ`//Label(LSort_Fail)  z  //MessageBox(;"QWManage";"Error"+HRt+ > 9 //`"TheQuickWordlistfailedtosortautomatically`"+Hrt+   //`"Pleasesorttheentriesmanually,ifneeded."4`)``     //Return {v  ``//********************************************************************`` :5  `v`//********************************************************************`   `//*ROUTINE:LError`6` wr  `w`//*INPUTVARIABLES:Non``e 61  ``//*OUTPUTVARIABLES:None`0`   `x`//*DESCRIPTION:AsksforErrorfeedback   ``//********************************************************************`` sn  ``Label(Lerror) 2-  MessageBox(;"QWManage";"Error"+HRt+  Ѐ`"PleaseadviseCharlesRossiteraboutthiserrormessage"J`Ԁ+Hrt+  Ѐ`"Sendtocharles@rossiter.co.zaThanks"`)  oj Go(LEnd) .) `:`//********************************************************************``  ``//********************************************************************  `BLabel(LEnd) kf EndPrompt() *% RevealCodes(RevCodes)  Quit  `//********************************************************************`N` gb ` `//********************************************************************`  &! ProcedureCheckVersion11() !  l`//********************************************************************`߭` c ^" `M 2(#. //CheckBuildofWPWin11  !$ vHRt=NToC(63754) "% nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!) _#Z& If(nnn<11000000000300.0andnnn>11000000000000.0) $' MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+ $( "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+ %) "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+ [&V* "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt; ' + OKCancel!|IconWarning!) ' , If(vAns>1)0 M Quit0 M (#M (#EndIf0 (# (#EndIfW)R". (# (#  EndProc  *#0