WPC  '4ߵTeƇҴ'4 8AypslwW4仚׍dQRްMo)ch Y{ɹpy*!U:??| -d}E jAJP=zX]5m|}1;i\cÛ6AUJ@ۃ{iOi{ϛJRbiR'Qu` e0iq,9N i—a&Nh͠, OTKFj?%mr+R Fs +/$Tx,ځxb'?;FGv„f֠ԓ$[U~1_" 09j] ! eЇGg2F-Ӹ _Ru"ątřC5Yy3CGL-/Gp֪gL!gP'n`HB+P?HE@$BHBPCH[LI[LIEDTHHx LIB)VHRTHxLIB)VBOLDONHxLIB)VBOLDOFFINCHARSNWORDS NSENTENCESNLINES NPARAGRAPHSNPAGESJ$NAVGWORDLENGTH0NAVGWORDSPERSENTENCE0NMAXWORDSPERSENTENCEKHB=VMODFLAGHB@  VBLOCKACTIVELHB3MYVMODFLAGNPr VBLOCKACTIVEZ*<QHHB8HB%LQB) VFILENAMERS1oFor the selected text VFILENAMETWHBD  VDOCORIGINALX[&VDOCBLOCKACTIVEYHEMZHBD%VDOCBLOCKACTIVE\HvWIN95LaB*{]ZWIN95^`H[LIB++ VPNa rVPNoWin95* rVPNoWin98*? rVPNoWinME*?rWIN95Z* bYWIN95dHo WordCountLNoHPlease do not run this macro more than 3 or 4 times in one WPWin sessionHx LIB)mo3There are resource issues in Win95, Win98 and WinMELN[LIBn)@e gH)vCOUNTSTOCLIPBOARDLaB* hh jZ*COUNTSTOCLIPBOARDZ,DOCINFOTOCLIPBOARDkxHr VDOCORIGINALLCEyr VBLOCKACTIVE zHE{Ho mWordCountLQE|0 }HE8~HEHEHBD%rVDOCBLOCKACTIVE; H%rVDOCBLOCKACTIVELCE HEHE0[ DELAY_COUNT[(DELAYCODES_COUNT[  NODELAYPAGESHEԁHBB@NPAGESHEԁHoLNEXT1LOB*@HE=H oELQE%H[LIE'rDELAYCODES_COUNT['DELAYCODES_COUNT,LLOOP1HEHoLNEXT2LOB*@H oDLQE%H[LIEr DELAY_COUNT[ DELAY_COUNT,LLOOP2r DELAY_COUNT'rDELAYCODES_COUNT-H9o[DelayCodes] code problemLNoPPlease check your [DelayCodes]. There appears to be a [DelayCodes] code missingLNBn)@HE*r DELAY_COUNT'rDELAYCODES_COUNT2H/o[Delay] code problemLNoLPlease check your [Delay] codes. There appears to be a [Delay] code missingLNBn)@HE*'rDELAYCODES_COUNTr DELAY_COUNT[*,LENDNOWH[LIB@HEH[LIB~@HoLAGAINLOB*@HoLAGAINLOB*@[ VVVY #(F1-FIRST)r DELAY_COUNTr #(F1-FIRST)( rVVV-[c #(F1-STEP)%r #(F1-STEP) rVVV VVVZ #(F1-FIRST) rVVVr #(F1-STEP)[2-2[ NODELAYPAGESH o LQE*HB* RCHEr NODELAYPAGES[ NODELAYPAGESHx,LSEH o{r NODELAYPAGES o}LQE*Ho{Enter}LQE*Ho{Ctrl+A}LQE*HB@<HE<HB* RCH[LIEHB+HEr rRC o ;r NODELAYPAGESrNPAGES-?HE]HE(H[LI[LUE4HE=H oELQE%HoLQE&H[LIE-HE^ #(F1-FIRST) #(F1-STEP)[n VDLGWIDTH/oMain Text Word Count,VMAINTEXTWORDCOUNT/oFootnotes Word Count.VFOOTNOTESWORDCOUNT-oEndnotes Word Count,VENDNOTESWORDCOUNT1oText Boxes Word Count.VTEXTBOXESWORDCOUNT-oComments Word Count,VCOMMENTSWORDCOUNT1oWatermarks Word Count0VWATERMARKSWORDCOUNT-oCaptions Word Count,VCAPTIONSWORDCOUNT+oHeaders Word Count*VHEADERSWORDCOUNT+oFooters Word Count*VFOOTERSWORDCOUNT'oTotal Word Count&VTOTALWORDCOUNToE&xit VBUTTONEXIT o&OK VBUTTONOKo&About  VBUTTONABOUTAo&View WP Document Information VBUTTONVIEWco. Place WP &Document Information on Clipboard$VBUTTONDOCINFOao- Place Word &Count Information on Clipboard" VBUTTONCOUNTS;oOptions for saving resultsVOPTIONSrVBOLDONCoMacro WordCount.wcm (v13.1.0)rVBOLDOFFrVHRTao-for WordPerfect for Windows, versions 9 -- 13ABOUT01H[LI[LUB)rVBOLDONMo# Charles Rossiter, 2006 December 05rVHRT3ocharles@rossiter.co.zaABOUT02rVBOLDON1oWPWin8 not supported:rVBOLDOFFABOUT03o_This version of WordCount.wcm does not work with WPWin8. Please e-mail me if you need a WPWin8rVHRToIversion, and I will modify the macro so that it does function adequately.rVHRTo<WPWin8 does not necessarily give the same word counts as for'o WPWin9-WPWinX3.ABOUT04rVBOLDONCoCompanion Macro: CharCount.wcmrVBOLDOFFABOUT05obThis companion macro provides the character and white space counts, in addition to the word countsrVHRTuo7It is provided separately as it is rather more complex.rVHRTrVHRTo<This macro is available from http://rossiter.co.za/downloadsABOUT06 [ NCOUNTTEXT [$NCOUNTFOOTNOTE [" NCOUNTENDNOTE[ NCOUNTBOX[" NCOUNTCOMMENT[&NCOUNTWATERMARK[" NCOUNTCAPTION[  NCOUNTHEADER[  NCOUNTFOOTER[ NCOUNTTOTAL[VEXITZ*VCOMMENTINTEXTBOXY INDICMAINHE=Ho mWordCountLQEHEH[LIB@!r NCOUNTTEXTHBAWORD_CNT NCOUNTTEXT"r NCOUNTTEXT NCOUNTTOTAL%HoCountsLQ[ZLE[2LEr VDLGWIDTH[ZLEx LE[LIEoDocument Word Count InformationLNB'@)HoCountsLQ[eLQ[ LE[ LEr VDLGWIDTHLE[ LE[LI+rVMAINTEXTWORDCOUNTLQB'@*HoCountsLQ[fLQr VDLGWIDTH[LE[ LE[2LE[ LE[[LIr NCOUNTTEXTLQB'@+HoCountsLQ[gLQ[ LE[LEr VDLGWIDTHLE[LE[LI)rVHEADERSWORDCOUNTLQB'@,HoCountsLQ[hLQr VDLGWIDTH[LE[LE[2LE[ LE[[LIr NCOUNTHEADERLQB'@-HoCountsLQ[iLQ[ LE[)LEr VDLGWIDTHLE[LE[LI)rVFOOTERSWORDCOUNTLQB'@.HoCountsLQ[jLQr VDLGWIDTH[LE[(LE[2LE[ LE[[LIr NCOUNTFOOTERLQB'@/HoCountsLQ[kLQ[ LE[8LEr VDLGWIDTHLE[ LE[LI-rVFOOTNOTESWORDCOUNTLQB'@0HoCountsLQ[lLQr VDLGWIDTH[LE[7LE[2LE[ LE[[LI#rNCOUNTFOOTNOTELQB'@1HoCountsLQ[mLQ[ LE[GLEr VDLGWIDTHLE[ LE[LI+rVENDNOTESWORDCOUNTLQB'@2HoCountsLQ[nLQr VDLGWIDTH[LE[FLE[2LE[ LE[[LI!r NCOUNTENDNOTELQB'@3HoCountsLQ[oLQ[ LE[VLEr VDLGWIDTHLE[ LE[LI-rVTEXTBOXESWORDCOUNTLQB'@4HoCountsLQ[pLQr VDLGWIDTH[LE[ULE[2LE[ LE[[LIr NCOUNTBOXLQB'@5HoCountsLQ[qLQ[ LE[eLEr VDLGWIDTHLE[ LE[LI+rVCAPTIONSWORDCOUNTLQB'@6HoCountsLQ[rLQr VDLGWIDTH[LE[dLE[2LE[ LE[[LI!r NCOUNTCAPTIONLQB'@7HoCountsLQ[sLQ[ LE[tLEr VDLGWIDTHLE[ LE[LI+rVCOMMENTSWORDCOUNTLQB'@8HoCountsLQ[tLQr VDLGWIDTH[LE[sLE[2LE[ LE[[LI!r NCOUNTCOMMENTLQB'@9HoCountsLQ[uLQ[ LE[LEr VDLGWIDTHLE[ LE[LI/rVWATERMARKSWORDCOUNTLQB'@:HoCountsLQ[vLQr VDLGWIDTH[LE[LE[2LE[ LE[[LI%rNCOUNTWATERMARKLQB'@;HoCountsLQ[wLQ[ LE[LEr VDLGWIDTHLE[ LE[[ LIrVBOLDON%rVTOTALWORDCOUNTLQB'@<HoCountsLQ[xLQr VDLGWIDTH[LE[LE[2LE[ LE[[[ LIrVBOLDONr NCOUNTTOTALLQB'@>HoCountsLQ[LQ[ LE[LEr VDLGWIDTH[GLE[ LE[LIr VBUTTONVIEWLNB'@?HoCountsLQ[LQ[ LE[LE[=LE[ LE[LIr VBUTTONABOUTLNB'@@HoCountsLQ[LQr VDLGWIDTH[LE[LE[=LE[ LE[[LIr VBUTTONEXITLNB'@AHoCountsLQ[LQ[LE[LEr VDLGWIDTH[PLE[1LE[[ [LIrVBOLDONrVOPTIONSLQB'@CH oCountsLQ[LQ[ LE[LEr VDLGWIDTH[GLE[ LE!r VBUTTONCOUNTSLN)vCOUNTSTOCLIPBOARDLRB u'@DH oCountsLQ[LQ[ LE[LEr VDLGWIDTH[GLE[ LE#rVBUTTONDOCINFOLN+vDOCINFOTOCLIPBOARDLRB u'@HHoCountsLQxLLQ[ LE[ LEr VDLGWIDTH[ILE[0LE[LIB{'@IHoCountsLQxMLQ[ LE[ LEr VDLGWIDTH[GLE[-LE[[[ LIrABOUT01LQB'@JHoCountsLQxNLQ[ LE[#LEr VDLGWIDTH[CLE[LE[[ LIrABOUT02LQB'@KHoCountsLQxOLQ[ LE[ALEr VDLGWIDTH[GLE[ LE[[[ LIrABOUT03LQB'@LHoCountsLQxPLQ[ LE[QLEr VDLGWIDTH[GLE[2LE[[[ LIrABOUT04LQB'@MHoCountsLQxQLQ[ LE[LEr VDLGWIDTH[GLE[ LE[[[ LIrABOUT05LQB'@NHoCountsLQxRLQ[ LE[LEr VDLGWIDTH[GLE[2LE[[[ LIrABOUT06LQB'@QHoPropLQ[6LE[=LExPLE[LE[LIo PropertiesLNB'@RHoPropLQoArialLN g$@LMB'@SHoPropLQ[LQ[(LE[LE[,LE[LE[[LIo InformationLQB'@THoPropLQ[LQ[(LE[<LE[$LE[ LE[LIo Characters:LQB'@UHoPropLQ[LQ[(LE[KLE[$LE[ LE[LIoWords:LQB'@VHoPropLQ[LQ[(LE[ZLE[$LE[ LE[LIo Sentences:LQB'@WHoPropLQ[LQ[(LE[iLE[$LE[ LE[LIoLines:LQB'@XHoPropLQ[LQ[(LE[xLE[$LE[ LE[LIo Paragraphs:LQB'@YHoPropLQ[LQ[(LE[LE[$LE[ LE[LIoPages:LQB'@ZHoPropLQ[ LQ[(LE[LExLE[LE[[[@LIr VFILENAMELQB'@[HoPropLQ[ LQ[ULE[<LE[$LE[ LE[LIrNCHARSLQB'@\HoPropLQ[ LQ[ULE[KLE[$LE[ LE[LIrNWORDSLQB'@]HoPropLQ[ LQ[ULE[ZLE[$LE[ LE[LIr NSENTENCESLQB'@^HoPropLQ[ LQ[ULE[iLE[$LE[ LE[LIrNLINESLQB'@_HoPropLQ[LQ[ULE[xLE[$LE[ LE[LIr NPARAGRAPHSLQB'@`HoPropLQ[LQ[ULE[LE[$LE[ LE[LIrNPAGESLQB'@aHoPropLQ[LQ[LE[<LE[HLE[ LE[LI/oAverage word length:LQB'@bHoPropLQ[LQ[LE[KLE[^LE[ LE[LI;oAverage words per sentenceLQB'@cHoPropLQ[LQ[LE[ZLE[jLE[ LE[LI=oMaximum words per sentence:LQB'@dHoPropLQ[LQ[LE[<LE[$LE[ LE[LI#rNAVGWORDLENGTHLQB'@eHoPropLQ[LQ[LE[KLE[$LE[ LE[LI/rNAVGWORDSPERSENTENCELQB'@fHoPropLQ[LQ[LE[ZLE[$LE[ LE[LI/rNMAXWORDSPERSENTENCELQB'@gHoPropLQoOKBttnLQx LE[LE[2LE[LE[LI o&OKLNB'@lHo Counts.101LQ[LIE'mHo Counts.102LQ[LIE'nHo Counts.103LQ[LIE'oHo Counts.104LQ[LIE'pHo Counts.105LQ[LIE'qHo Counts.106LQ[LIE'rHo Counts.107LQ[LIE'sHo Counts.108LQ[LIE'tHo Counts.109LQ[LIE'uHo Counts.110LQ[LIE'wHo Counts.111LQ[LIE'xHo Counts.112LQ[LIE'yHo Counts.113LQ[LIE'zHo Counts.114LQ[LIE'{Ho Counts.115LQ[LIE'|Ho Counts.116LQ[LIE'}Ho Counts.117LQ[LIE'~Ho Counts.118LQ[LIE'Ho Counts.119LQ[LIE'Ho Counts.120LQ[LIE'Ho Counts.130LQ[LIE'Ho Counts.131LQ[LIE'Ho Counts.132LQ[LIE'Ho Counts.133LQ[LIE'Ho Counts.134LQ[LIE'Ho Counts.135LQ[LIE'Ho Counts.1100LQ[LIE'Ho Counts.1101LQ[LIE'Ho Counts.1102LQ[LIE'Ho Counts.1103LQ[LIE'Ho Counts.1104LQ[LIE'Ho Counts.1105LQ[LIE'Ho Counts.1106LQ[LIE'HEk)HoCountsLQ!o PerfectScriptLQo DIALOGMSGSLO o132LQB'@HE*[|[[S DIALOGMSGS[R(x*S@, CASEOF273(x*S@HoCountsLQB'@HE*,L_CANCEL@r INDICMAINY*SL_MAIN@SHo Counts.101LQ[LIE'Ho Counts.102LQ[LIE'Ho Counts.103LQ[LIE'Ho Counts.104LQ[LIE'Ho Counts.105LQ[LIE'Ho Counts.106LQ[LIE'Ho Counts.107LQ[LIE'Ho Counts.108LQ[LIE'Ho Counts.109LQ[LIE'Ho Counts.110LQ[LIE'Ho Counts.111LQ[LIE'Ho Counts.112LQ[LIE'Ho Counts.113LQ[LIE'Ho Counts.114LQ[LIE'Ho Counts.115LQ[LIE'Ho Counts.116LQ[LIE'Ho Counts.117LQ[LIE'Ho Counts.118LQ[LIE'Ho Counts.119LQ[LIE'Ho Counts.120LQ[LIE'Ho Counts.130LQ[LIE'Ho Counts.131LQ[LIE'Ho Counts.132LQr VBUTTONEXITLQE'Ho Counts.132LQ[LIE'Ho Counts.133LQ[LIE'Ho Counts.134LQ[LIE'Ho Counts.135LQ[LIE'[[S DIALOGMSGS[6Z( o130*Z@HoPropLQB'@ ( o132*U[@rVEXIT[*Z,L_ABOUTI[HoCountsLQB'@HE*,L_CANCEL ( o134*[@[)rCOUNTSTOCLIPBOARD)COUNTSTOCLIPBOARD ( o135*g\@[+rDOCINFOTOCLIPBOARD+DOCINFOTOCLIPBOARD ( o131*c@[VEXITHo Counts.101LQ[LIE'Ho Counts.102LQ[LIE'Ho Counts.103LQ[LIE'Ho Counts.104LQ[LIE'Ho Counts.105LQ[LIE'Ho Counts.106LQ[LIE'Ho Counts.107LQ[LIE'Ho Counts.108LQ[LIE'Ho Counts.109LQ[LIE'Ho Counts.110LQ[LIE'Ho Counts.111LQ[LIE'Ho Counts.112LQ[LIE'Ho Counts.113LQ[LIE'Ho Counts.114LQ[LIE'Ho Counts.115LQ[LIE'Ho Counts.116LQ[LIE'Ho Counts.117LQ[LIE'Ho Counts.118LQ[LIE'Ho Counts.119LQ[LIE'Ho Counts.120LQ[LIE'Ho Counts.130LQ[LIE'Ho Counts.131LQ[LIE'Ho Counts.133LQ[LIE'Ho Counts.134LQ[LIE'Ho Counts.135LQ[LIE'Ho Counts.1100LQ[LIE'Ho Counts.1101LQ[LIE'Ho Counts.1102LQ[LIE'Ho Counts.1103LQ[LIE'Ho Counts.1104LQ[LIE'Ho Counts.1105LQ[LIE'Ho Counts.1106LQ[LIE' ( o99*@[VEXIT Ho Counts.101LQ[LIE' Ho Counts.102LQ[LIE' Ho Counts.103LQ[LIE' Ho Counts.104LQ[LIE' Ho Counts.105LQ[LIE'Ho Counts.106LQ[LIE'Ho Counts.107LQ[LIE'Ho Counts.108LQ[LIE'Ho Counts.109LQ[LIE'Ho Counts.110LQ[LIE'Ho Counts.111LQ[LIE'Ho Counts.112LQ[LIE'Ho Counts.113LQ[LIE'Ho Counts.114LQ[LIE'Ho Counts.115LQ[LIE'Ho Counts.116LQ[LIE'Ho Counts.117LQ[LIE'Ho Counts.118LQ[LIE'Ho Counts.119LQ[LIE'Ho Counts.120LQ[LIE'Ho Counts.130LQ[LIE'Ho Counts.131LQ[LIE'Ho Counts.132LQr VBUTTONEXITLQE' Ho Counts.133LQ[LIE'!Ho Counts.134LQ[LIE'"Ho Counts.135LQ[LIE'$Ho Counts.1100LQ[LIE'%Ho Counts.1101LQ[LIE'&Ho Counts.1102LQ[LIE''Ho Counts.1103LQ[LIE'(Ho Counts.1104LQ[LIE')Ho Counts.1105LQ[LIE'*Ho Counts.1106LQ[LIE'+, L_ENDMAIN.0 TOCLIPBOARD@2HB+l3HE4k6HBD%rVDOCBLOCKACTIVE;l7H%rVDOCBLOCKACTIVELCE8l9H[LIE;HBDr VDOCORIGINAL;%m<Hr VDOCORIGINALLCE=%m>r VBLOCKACTIVEm?Ho mWordCountLQEs@HEAHo mWordCountLQEuBHECmErVMODFLAGZ*r VBLOCKACTIVEZ*oGH-oWordCount FinishingLNrVBOLDONrVHRTUo' Please wait for WordCount to completerVHRTrVBOLDOFFrVHRTLQ[ [LIEm)JH[LIEKHr VFILENAMELVELoNHoGOODBYELOB*@O)rVCOMMENTINTEXTBOXRrPH/oComment in a TextBoxLN5oThere was at least one rVBOLDONoCommentrVBOLDOFFo inside a rVBOLDONoTextBoxrVBOLDOFFrVHRTUo'The counts for such comments have been 7oincluded under Comments,rVHRTGo not as part of the TextBox countLQ[[ LIEm)THEl)URrVXHE*^_r INDICMAINY*r`Z INDICMAINaHEbrdHEe[ COUNTSHOW@h[ COUNTSHOW@jH[LIB*@kH!o L_ENDFOOTNOTELOB*@moH oLQE%pH[LIEqHErHE8sH[LIB VNNu#rNCOUNTFOOTNOTE rVNN#NCOUNTFOOTNOTEvr NCOUNTTEXT rVNN NCOUNTTEXTzHE{HE|HE}[ COUNTSHOW@~#,L_CONTFOOTNOTE[ COUNTSHOW@HE0Ho L_ENDENDNOTELOB*@H oLQE%H[LIEHEHE8H[LIB VNN!r NCOUNTENDNOTE rVNN! NCOUNTENDNOTEr NCOUNTTEXT rVNN NCOUNTTEXTHEHEHE[ COUNTSHOW@!, L_CONTENDNOTE[ COUNTSHOW@HEHB@[2w!, L_ENDGRAPHICSwH!o L_ENDGRAPHICSLOB*@HB@NBOXES[ IrNBOXESzwx rI[ I6x[ COUNTSHOW@H rILUEHB@[; y#,L_SKIPGRAPHICS yHE@HE8H[LIB VNNr NCOUNTBOX rVNN NCOUNTBOXr NCOUNTTEXT rVNN NCOUNTTEXT[ COUNTSHOW@HB+CzHEzHBPzH[LI[LIEzWxHBPzH[LI[LIEz[ COUNTSHOW@[ COUNTSHOW@HEHB@[2{, L_ENDCAPTION{Ho L_ENDCAPTIONLOB*@HB@NBOXES[ IrNBOXESp~5| rI[ I{[ COUNTSHOW@H rILUEHB@[;|!, L_SKIPCAPTION|HEHE8H[LIB VNN!r NCOUNTCAPTION rVNN! NCOUNTCAPTIONr NCOUNTTEXT rVNN NCOUNTTEXT[ COUNTSHOW@HB+~HE}HEHBPd~H[LI[LIEd~|HBP~H[LI[LIE~[ COUNTSHOW@[ COUNTSHOW@HE!r NCOUNTCOMMENT[<-xH!o L_ENDCOMMENTSLOB*@[ COUNTSHOW@H o}LQE%H[LIEHEHEHE8HEH[LIB VNN!r NCOUNTCOMMENT rVNN! NCOUNTCOMMENTr NCOUNTTEXT rVNN NCOUNTTEXTHEHB+.HE. HBP\ H[LI[LIE Y)VCOMMENTINTEXTBOX r NCOUNTTEXT rVNN NCOUNTTEXT r NCOUNTBOX rVNN NCOUNTBOX[ COUNTSHOW@\HE[ COUNTSHOW@HEHoL_WBLOB*@HoL_WBLOB*@[ COUNTSHOW@ H oLQE%!H[LIE"H[LIEт$HE8%H[LIB VNN'%rNCOUNTWATERMARK rVNN%NCOUNTWATERMARK(r NCOUNTTEXT rVNN NCOUNTTEXT)HE*HE+, L_STARTWA/1HE2HoL_HALOB*@3HoL_HALOB*@46[ COUNTSHOW@8H oLQE%9H[LIE:H[LIE҂;HE8=H[LIB VNN?%rNCOUNTWATERMARK rVNN%NCOUNTWATERMARK@r NCOUNTTEXT rVNN NCOUNTTEXTAHEBHEC, L_STARTWBGHHEIHoL_HBLOB*@JHoL_HBLOB*@KL[ COUNTSHOW@NH oLQE%OH[LIEPH[LIERHE8SH[LIB VNNUr NCOUNTHEADER rVNN NCOUNTHEADERVr NCOUNTTEXT rVNN NCOUNTTEXTXHEYHEZ, L_STARTHA^`HEaHoL_FALOB*@bHoL_FALOB*@ce[ COUNTSHOW@gH oLQE%hH[LIEiH[LIEjHE8kH[LIB VNNmr NCOUNTHEADER rVNN NCOUNTHEADERnr NCOUNTTEXT rVNN NCOUNTTEXTpHEqHEr, L_STARTHBuwHExHoL_FBLOB*@yHoL_FBLOB*@z{[ COUNTSHOW@}H oLQE%~H[LIEH[LIEHE8H[LIB VNNr NCOUNTFOOTER rVNN NCOUNTFOOTERr NCOUNTTEXT rVNN NCOUNTTEXTHEHE[ COUNTSHOW@, L_STARTFAHEH)oL_ENDFOOTERHEADERLOB*@H)oL_ENDFOOTERHEADERLOB*@[ COUNTSHOW@H oLQE%H[LIEH[LIEHE8H[LIB VNNr NCOUNTFOOTER rVNN NCOUNTFOOTERr NCOUNTTEXT rVNN NCOUNTTEXTHEHE[ COUNTSHOW@, L_STARTFBHE0[| @[|5!1Y CASEOF2731VRrGOODBYE!1# L_STARTFB11֎L_ENDFOOTERHEADER!1zي L_STARTFA1L_FB!1c L_STARTHB1uvL_FA!1K L_STARTHA1^L_HB!14 L_STARTWB1GL_HA!1 L_STARTWA1/L_WB)1x L_ENDCOMMENTS)1} L_SKIPCAPTION'1p~ L_ENDCAPTION+1yL_SKIPGRAPHICS)1z L_ENDGRAPHICS'1=w L_ENDENDNOTE)1fu L_CONTENDNOTE+1msL_CONTFOOTNOTE)1+u L_ENDFOOTNOTE!1 L_ENDMAIN1cL_ABOUT1^grL_MAIN1.kL_CANCELKDHEM)rCOUNTSTOCLIPBOARD+rDOCINFOTOCLIPBOARD?@H%oTimes New RomanLQEH g(@LXEHI[ LII[LIEYHIr VFILENAMELQEHE`HIrVHRTrVHRT oOn LQEHEeHoHH:mm:ssLNB)VTIMHIo at rVTIMAo, the counts were as follows:rVHRTrVHRTLQE)rCOUNTSTOCLIPBOARDYHIrVBOLDON-oThe Word Count was:rVBOLDOFFrVHRTLQEHIo Main Text:LQEH[LI b@LXEHEHIr NCOUNTTEXTrVHRTLQEHIoHeaders:LQEH[LI b@LXEHEHIr NCOUNTHEADERrVHRTLQEHIoFooters:LQEH[LI b@LXEHEHIr NCOUNTFOOTERrVHRTLQEHIo FootNotes:LQEH[LI b@LXEHEHI#rNCOUNTFOOTNOTErVHRTLQEHIo EndNotes:LQEH[LI b@LXEHEHI!r NCOUNTENDNOTErVHRTLQEHIo Text Boxes:LQEH[LI b@LXEHEHIr NCOUNTBOXrVHRTLQEHIo Captions:LQEH[LI b@LXEHEHI!r NCOUNTCAPTIONrVHRTLQEHIo Comments:LQEH[LI b@LXEHEHI!r NCOUNTCOMMENTrVHRTLQEHIo Watermarks:LQEH[LI b@LXEHEHI%rNCOUNTWATERMARKrVHRTLQEHIrVBOLDONo Total Words:LQEH[LI b@LXEHEHIrVBOLDONr NCOUNTTOTALrVBOLDOFFrVHRTrVHRTLQEY+rDOCINFOTOCLIPBOARDäHIrVBOLDONAoThe Document Information was:rVBOLDOFFrVHRTLQEHIo Characters:LQEH[LI b@LXEHEHIrNCHARSrVHRTLQEHIoWords:LQEH[LI b@LXEHEHIrNWORDSrVHRTLQEHIo Sentences:LQEH[LI b@LXEHEHIr NSENTENCESrVHRTLQEHIoLines:LQEH[LI b@LXEHEHIrNLINESrVHRTLQEHIo Paragraphs:LQEH[LI b@LXEHEHIr NPARAGRAPHSrVHRTLQEHIoPages:LQEH[LI b@LXEHEHIrNPAGESrVHRTLQEHI/oAverage Word Length:LQEH[LI b@LXEHEHI#rNAVGWORDLENGTHrVHRTLQEHI;oAverage Words / Sentence:LQEH[LI b@LXEHEHI/rNAVGWORDSPERSENTENCErVHRTLQEHI9oMaximum Words / Sentence:LQEH[LI b@LXEHEHI/rNMAXWORDSPERSENTENCErVHRTrVHRTLQEä)rVCOMMENTINTEXTBOXHIrVBOLDON1oComment in a TextBox:rVBOLDOFFrVHRT5oThere was at least one rVBOLDONoCommentrVBOLDOFFo inside a rVBOLDONoTextBoxrVBOLDOFFrVHRTo?The counts for such comments have been included under Comments,rVHRTGo not as part of the TextBox countrVHRTrVHRTLQEHI[LIEYH[LIE\HImo3Count produced by macro WordCount.wcm, version 13.0rVHRTLQEHI1oCopyright, Charles E.LQEHELHI;oRossiter, 2006 December 05rVHRTLQEHE`HIoMThere was no request to send information from WordCount.wcm to the ClipBoard.LQEHE8HEH[LIEY[|5unNNNHo Counts.102LQr NCOUNTTEXTLQE'Ho Counts.102LQ[LIE'Ho Counts.120LQrVBOLDONr NCOUNTTOTALLQE'Ho Counts.120LQ[LIE' rNNN([*ح@Ho Counts.101LQ[LIE'Ho Counts.103LQ[LIE' Ho Counts.105LQ[LIE' Ho Counts.107LQ[LIE' Ho Counts.109LQ[LIE' Ho Counts.111LQ[LIE' Ho Counts.113LQ[LIE'Ho Counts.115LQ[LIE'Ho Counts.117LQ[LIE'M([*@Ho Counts.108LQ#rNCOUNTFOOTNOTELQE'Ho Counts.108LQ[LIE'M([*8@Ho Counts.110LQ!r NCOUNTENDNOTELQE'Ho Counts.110LQ[LIE'M([*߯@Ho Counts.112LQr NCOUNTBOXLQE'Ho Counts.112LQ[LIE'M([*@Ho Counts.116LQ!r NCOUNTCOMMENTLQE'Ho Counts.116LQ[LIE'!M([*A@"Ho Counts.118LQ%rNCOUNTWATERMARKLQE'#Ho Counts.118LQ[LIE'%M([*@&Ho Counts.114LQ!r NCOUNTCAPTIONLQE''Ho Counts.114LQ[LIE')M([*@*Ho Counts.104LQr NCOUNTHEADERLQE'+Ho Counts.104LQ[LIE'-M([*J@.Ho Counts.106LQr NCOUNTFOOTERLQE'/Ho Counts.106LQ[LIE'1M@2 rNNN|3[|54ʵõNNN8H[LIBNCHARS9H[LIBNWORDS:rNWORDS NNN;H[LIBNLINES<H[LIB NSENTENCES=H[LIB NPARAGRAPHS>H[LIBNPAGES?H[LIB#NAVGWORDLENGTH@H[LIB/NAVGWORDSPERSENTENCEAH[LIB/NMAXWORDSPERSENTENCEC rNNN|E[|5GHHE*KMHx LIB)VHRTNH[L@[LIB,+ NNNO rNNN aXb/FB2 rNNN a`/FB-չPHvVANSLR!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)@VrVANS[-˹HE*˹չX[|5[)51LAGAIN1LENDNOW1LLOOP21QLNEXT21 LLOOP11LNEXT11GʵLQUIT+!1W COUNTSHOW+1KCHECKVERSION11#1R DIALOGMSGS%1 TOCLIPBOARD14WORD_CNTN!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreterHs d,Sticky Noteddy&"&Sticky Note Text <CXddddKKKK,Yellow Filldd(h3%$ d\!< XGXXX ^X XG  )!dxdxLevel 1Level 2Level 3Level 4Level 5)!dxdx&0 d d d)!dxdxd>q:StandardFontStandard Font ChoiceX?XXX;X?XXX?4>u+2Arial 10 Xo XXX4W   XXo  d)!dxdxP Pd)!dxdx)!dxdx d)! dxdx)!dxdx)!dxdx&P d d)!dxdx&p d Pd)!dxdx&p Pd d)!dxdx3+0 d d d3+0 d d dd ddd(d2d7) h (#.hh#//Needfor12emptydocumentforwritingofresults l 3 MessageBox(;"WordCount";"Thismacroneedstouseoneortwoemptydocuments"+vHRt+ +    "Youarenowusing8or9availabledocuments"+vHRt+vHRt+ v    "Pleasecloseonedocument,andthenrerunWordCount"+vHRt) 5    Display(On!) h    ReDisplay() '    Go(lQuit) r    EndIf 1  While(?SubStructure)0 #0(#.  (# (##//Footnotes,endnotesetc.Ԉ #     SubStructureExit() n    Endwhile - While(?GraphicSelected())0  #  '(#.(#(##//CheckforagraphicsboxselectedԈ     BoxEnd(Save!;Hide!) j   EndWhile )  @//Initialsetupandtest Ԉ  Global(vHRt=NToC(63754);vBoldOn=NToC(65048);vBoldOff=NToC(65049)) % Global(nChars;nWords;nSentences;nLines;nParagraphs;nPages) X Global(nAvgWordLength;nAvgWordsPerSentence;nMaxWordsPerSentence)  Global(vModFlag=?DocModified;vBlockActive=?BlockActive) b If(?DocReadOnly) !   vModFlag=True T   EndIf !! If(vBlockActive=False) "#   GlobalvFilename=ToLower(?path+?name) P#$ Else $%   GlobalvFilename="Fortheselectedtext" $Z& Endif %'    FF1(#.//SetUpWorkingDocuments  ')  GlobalvDocOriginal=?DocNumber 'V* GlobalvDocBlockActive=0 ( + ЀFileNew() H) , ЀvDocBlockActive=?DocNumber *!- If(NotExists(Win95)) +#/ ЀPersistWin95=False D,#0 EndIf -$1   -N%2 vPN=MacroInfo(InfoItem:PlatformName!) t If((vPN="Win95"orvPN="Win98"orvPN="WinME")andWin95=False) 3  Win95=True  ~ MessageBox(;"WordCount";"Pleasedonotrunthismacromorethan3or4timesinoneWPWin  = session"+NToC(0F90Ah)+"ThereareresourceissuesinWin95,Win98andWinME";IconWarning!) p  EndIf /  If(Exists(CountsToClipboard))  9 Else l 0  #nn(#.(#(##//SetdefaultnottosaveWordCountsandDocinfototheClipboard +   Persist(CountsToClipboard=False;DocInfoToClipboard=False) v  EndIf 5  IfPlatform(_version13!)0  #(#.  (# (##//WordCountSettingsinWPWinX3modifyadocumentwordcount 3Ԉ '  WordCountSetting(Headers!;On!) r  WordCountSetting(Footers!;On!) 1  WordCountSetting(Comments!;On!) d  WordCountSetting(Footnotes!;On!) #  WordCountSetting(Endnotes!;On!) n  WordCountSetting(Watermarks!;On!) - WordCountSetting(Textboxes!;On!) ` WordCountSetting(BoxCaptions!;On!)  EndIfPlatform() j SwitchDoc(vDocOriginal) \ If(vBlockActive)    EditCopy() f   BookMarkCreate("mWordCount")  &(#.(//Setsbookmarkaroundselectedtext % p  Else X   SelectAll()    EditCopy() b EndIf   !   SelectOff() T     If(?DocNumber<>vDocBlockActive) !^"   SwitchDoc(vDocBlockActive) "#   EndIf P#$   EditPaste() $%   PosDocTop() $Z&  ,@h, ^IfPlatform(Thanks)# ^, ,@h"# L&(  A@ dd&KARemovalofDelayCodes  ~' * SpecialthankstoBarryMacDonnellandKennethHobsonfortheirvaluablehelpindevelopingthe =(+ techniquesbelowforhandlingDelayCodes ( , @z*"&#@ ,@h, ^EndIfPlatform(Thanks)# ^, ,@h$#  z*".    (#.//Routinetoremove[Delay]and[DelayCodes]codesfromtext %Ԉ t GlobalDelay_Count=00   #-(#.(#(##//Arethereany[DelayCodes]? %Ԉ 3  GlobalDelayCodes_Count=0  ~ GlobalnoDelayPages=0  = PosDocBottom() p  nPages=?page /  PosDocBottom()  z OnNotFound(lNext1)  9 MatchSelection() l Label(lLoop1) +  SearchString(StrgToLookFor:"> E [DelayCodes]?  ") v  SearchPrevious(Extended!) 5  DelayCodes_Count=DelayCodes_Count+1 h  Go(lLoop1) '  Label(lNext1) r  PosDocVeryTop() 1  OnNotFound(lNext2) d  Label(lLoop2) #  SearchString(StrgToLookFor:"> D [Delay]?  ") n  SearchNext(SearchMode:Extended!) - Delay_Count=Delay_Count+1 ` Go(lLoop2)  Label(lNext2) j 0   #! ! (#.(#(##//Numberof[Delay]codesshouldequalnumberof[DelayCodes]codes )Ԉ ) If(Delay_Count>DelayCodes_Count) \ MessageBox(;"[DelayCodes]codeproblem";  "Pleasecheckyour[DelayCodes].Thereappearstobea[DelayCodes]codemissing*") f Quit % EndIf X If(Delay_Count""ornoDelayPages>nPages) d  PosPagePrevious() n  PosPageBottom() - MatchLimit(Yes!;1) ` MatchSelection()  SearchString(StrgToLookFor:"> E [DelayCodes]?  ") j ReplaceString("") ) ReplaceForward(SearchMode:Extended!) \ EditPaste()  EndFor f Label(lEndNow) X     @//Setuplanguagespecificdetails ;6Ԉ t  //Optionalchanges 6  ~ GlobalvDlgWidth=110  xx(#.//Changethistoamendthewidthofthedialog, p  7   0 ` 0 ` (#` (#0 (# (# #&(#.(#(##//ifneededtoallowforlongertext /  7//Maindisplay l8 ` (#.` ` //Changethefollowingtexts,betweenquotes,ifdesired  z 8 GlobalvMainTextWordCount=   h "MainTextWordCount"  9 GlobalvFootNotesWordCount= h "FootnotesWordCount" l GlobalvEndNotesWordCount= h "EndnotesWordCount" +  GlobalvTextBoxesWordCount= h "TextBoxesWordCount" v  GlobalvCommentsWordCount= h "CommentsWordCount" 5  GlobalvWatermarksWordCount=0 h "WatermarksWordCount"h h(#h(# GlobalvCaptionsWordCount=0  0h(#(#"CaptionsWordCount"' h(#h(# GlobalvHeadersWordCount=   h "HeadersWordCount" r  GlobalvFootersWordCount=   h "FootersWordCount" 1  GlobalvTotalWordCount=   h "TotalWordCount" d   //Buttontexts<  ` (#.` ` //IncludetheAmpersand"&"tosettheoperatingkeystroke n  = GlobalvButtonExit=    h "E&xit" - GlobalvButtonOK=    h "&OK" ` GlobalvButtonAbout=    h "&About"  GlobalvButtonView=    h "&ViewWPDocumentInformation" j GlobalvButtonDocInfo=0  0h(#(#"PlaceWP&DocumentInformationonClipboard")h(#h(# GlobalvButtonCounts=0  0h(#(#"PlaceWord&CountInformationonClipboard"\h(#h(# GlobalvOptions=0 0 (# (#0h(#(#"Optionsforsavingresults"h(#h(#  //Abouttexts @ % GlobalAbout01=0 vBoldOn+" MacroWordCount.wcm(v13.1.0) "+vBoldOff+vHRt+"for X WordPerfectforWindows,versions913" (# (# GlobalAbout02=0 NtoC(4;23)+vBoldOn+" CharlesRossiter,2006December05" +vHRt+  b "charles@rossiter.co.za "! (# (# GlobalAbout03=0 vBoldOn+"WPWin8notsupported:"+vBoldOffT   (# (# GlobalAbout04=0 "ThisversionofWordCount.wcmdoesnotworkwithWPWin8.Pleaseemailme !! ifyouneedaWPWin8"+vHRt+!^" (# (#    `  "version,andIwillmodifythemacrosothatitdoesfunctionadequately."+vHRt+ "#    `  "WPWin8doesnotnecessarilygivethesamewordcountsasfor"+ P#$    `  "WPWin9WPWinX3." $% GlobalAbout05=0 vBoldOn+"CompanionMacro:CharCount.wcm"+vBoldOff$Z& (# (# GlobalAbout06=0 "Thiscompanionmacroprovidesthecharacterandwhitespacecounts,in %' additiontothewordcounts"+vHRt+"Itisprovidedseparatelyasitisrather L&( morecomplex."+vHRt+vHRt+"Thismacroisavailablefrom  ') http://rossiter.co.za/downloads"'V* (# (#   ( +  @//Setupinitialvaluesandsettings FԈ t GlobalnCountText=0  ~ GlobalnCountFootNote=0  = GlobalnCountEndNote=0 p  GlobalnCountBox=0 /  GlobalnCountComment=0  z GlobalnCountWatermark=0  9 GlobalnCountCaption=0 l GlobalnCountHeader=0 +  GlobalnCountFooter=0 v  GlobalnCountTotal=0 5  GlobalvExit=2 h  GlobalvCommentInTextBox=False '  GlobalIndicMain=True 1  MatchSelection() d    #   @==//Mainsectionofmacro IԈ t ЀBookMarkCreate("mWordCount")  ~ PosDocVeryTop()  = InhibitInput(On!) p  nCountText=nCountText+Word_Cnt(?SelectedText)  z nCountTotal=nCountText  9    @ //ShowCountsDialogJK  l  DialogDefine ("Counts";90;50;VDlgWidth+90;266;Percent!;"DocumentWordCountInformation") v    0 ` @#` (#` (#//Maindialog?L  h  DialogAddText("Counts";101;10;11;VDlgWidth;12;Left!;vMainTextWordCount) r  DialogAddText("Counts";102;VDlgWidth+31;10;50;13;Right!|ShadowBox!;nCountText) 1  DialogAddText("Counts";103;10;26;VDlgWidth;20;Left!;vHeadersWordCount) d  DialogAddText("Counts";104;VDlgWidth+31;25;50;13;Right!|ShadowBox!;nCountHeader) #  DialogAddText("Counts";105;10;41;VDlgWidth;20;Left!;vFootersWordCount) n  DialogAddText("Counts";106;VDlgWidth+31;40;50;13;Right!|ShadowBox!;nCountFooter) - DialogAddText("Counts";107;10;56;VDlgWidth;12;Left!;vFootnotesWordCount) ` DialogAddText("Counts";108;VDlgWidth+31;55;50;13;Right!|ShadowBox!;nCountFootnote)  DialogAddText("Counts";109;10;71;VDlgWidth;12;Left!;vEndnotesWordCount) j DialogAddText("Counts";110;VDlgWidth+31;70;50;13;Right!|ShadowBox!;nCountEndNote) ) DialogAddText("Counts";111;10;86;VDlgWidth;12;Left!;vTextBoxesWordCount) \ DialogAddText("Counts";112;VDlgWidth+31;85;50;13;Right!|ShadowBox!;nCountBox)  DialogAddText("Counts";113;10;101;vDlgWidth;12;Left!;vCaptionsWordCount) f DialogAddText("Counts";114;vDlgWidth+31;100;50;13;Right!|ShadowBox!;nCountCaption) % DialogAddText("Counts";115;10;116;vDlgWidth;12;Left!;vCommentsWordCount) X DialogAddText("Counts";116;vDlgWidth+31;115;50;13;Right!|ShadowBox!;nCountComment)  DialogAddText("Counts";117;10;131;vDlgWidth;12;Left!;vWatermarksWordCount) b DialogAddText("Counts";118;vDlgWidth+31;130;50;13;Right!|ShadowBox!;nCountWatermark) ! DialogAddText("Counts";119;10;153;VDlgWidth;12;Left!|WPChars!;vBoldOn+vTotalWordCount) T   DialogAddText("Counts";120;VDlgWidth+31;152;50;13;Right!|ShadowBox!|WPChars!; !!    ` vBoldOn+nCountTotal) !^" DialogAddPushButton("Counts";130;10;230;vDlgWidth+71;12;NonDefaultBttn!;vButtonView) "# DialogAddPushButton("Counts";131;10;245;61;12;NonDefaultBttn!;vButtonAbout) P#$ DialogAddPushButton("Counts";132;vDlgWidth+20;245;61;12;CancelBttn!|DefaultBttn!;vButtonExit) $% DialogAddText("Counts";133;5;170;vDlgWidth+80;49;Center!|WPChars!|RecessBox!; $Z&    ` vBoldOn+vOptions) %' DialogAddCheckBox("Counts";134;10;185;vDlgWidth+71;12;vButtonCounts;CountsToClipboard) L&( DialogAddCheckBox("Counts";135;10;200;vDlgWidth+71;12;vButtonDocInfo;DocInfoToClipboard)  ')   'V*  @$//HelpDialog :XԈ t DialogAddFrame("Counts";1100;9;10;VDlgWidth+73;48;Black!)  ~ DialogAddText("Counts";1101;10;11;VDlgWidth+71;45;Center!|RecessBox!|WPChars!;About01)  = DialogAddText("Counts";1102;12;35;VDlgWidth+67;17;Center!|WPChars!;About02) p  DialogAddText("Counts";1103;10;65;VDlgWidth+71;13;Center!|RecessBox!|WPChars!;About03) /  DialogAddText("Counts";1104;10;81;VDlgWidth+71;50;Left!|RecessBox!|WPChars!;About04)  z DialogAddText("Counts";1105;10;137;VDlgWidth+71;13;Center!|RecessBox!|WPChars!;About05)  9 DialogAddText("Counts";1106;10;153;VDlgWidth+71;50;Left!|RecessBox!|WPChars!;About06) l  @ //PropertiesDialog [Ԉ v  DialogDefine("Prop";54;61;336;179;Percent!;Caption:"Properties") 5  DialogSetProperties("Prop";"Arial";10p) h  DialogAddText("Prop";1;40;6;44;14;RecessBox!+Left!;"Information") '  DialogAddText("Prop";2;40;60;36;10;Left!;"Characters:") r  DialogAddText("Prop";3;40;75;36;10;Left!;"Words:") 1  DialogAddText("Prop";4;40;90;36;10;Left!;"Sentences:") d  DialogAddText("Prop";5;40;105;36;10;Left!;"Lines:") #  DialogAddText("Prop";6;40;120;36;10;Left!;"Paragraphs:") n  DialogAddText("Prop";7;40;135;36;10;Left!;"Pages:") - DialogAddText("Prop";9;40;26;256;30;RecessBox!|Left!|Multiline!;vFilename) ` DialogAddText("Prop";10;85;60;36;10;Left!;nChars)  DialogAddText("Prop";11;85;75;36;10;Left!;nWords) j DialogAddText("Prop";12;85;90;36;10;Left!;nSentences) ) DialogAddText("Prop";13;85;105;36;10;Left!;nLines) \ DialogAddText("Prop";14;85;120;36;10;Left!;nParagraphs)  DialogAddText("Prop";15;85;135;36;10;Left!;npages) f DialogAddText("Prop";16;140;60;72;10;Left!;"Averagewordlength:") % DialogAddText("Prop";17;140;75;94;10;Left!;"Averagewordspersentence") X DialogAddText("Prop";18;140;90;106;10;Left!;"Maximumwordspersentence:")  DialogAddText("Prop";19;250;60;36;10;Left!;nAvgWordLength) b DialogAddText("Prop";20;250;75;36;10;Left!;nAvgWordsperSentence) ! DialogAddText("Prop";21;250;90;36;10;Left!;nMaxWordsperSentence) T   DialogAddPushButton("Prop";"OKBttn";268;150;50;14;OKBttn!;"&OK") !!   @  //Setupinitialdialogdisplay,everythinghidden cԈ P#$ RegionShowWindow("Counts.101";Hide!) $Z& RegionShowWindow("Counts.102";Hide!) %' RegionShowWindow("Counts.103";Hide!) L&( RegionShowWindow("Counts.104";Hide!)  ') RegionShowWindow("Counts.105";Hide!) 'V* RegionShowWindow("Counts.106";Hide!) ( + RegionShowWindow("Counts.107";Hide!) H) , RegionShowWindow("Counts.108";Hide!) *!- RegionShowWindow("Counts.109";Hide!) *R". RegionShowWindow("Counts.110";Hide!) +#/   D,#0 RegionShowWindow("Counts.111";Hide!) t RegionShowWindow("Counts.112";Hide!) 3  RegionShowWindow("Counts.113";Hide!)  ~ RegionShowWindow("Counts.114";Hide!)  = RegionShowWindow("Counts.115";Hide!) p  RegionShowWindow("Counts.116";Hide!) /  RegionShowWindow("Counts.117";Hide!)  z RegionShowWindow("Counts.118";Hide!)  9 RegionShowWindow("Counts.119";Hide!) l RegionShowWindow("Counts.120";Hide!) +  RegionShowWindow("Counts.130";Hide!) v  RegionShowWindow("Counts.131";Hide!) 5  RegionShowWindow("Counts.132";Hide!) h  RegionShowWindow("Counts.133";Hide!) '  RegionShowWindow("Counts.134";Hide!) r  RegionShowWindow("Counts.135";Hide!) 1  RegionShowWindow("Counts.1100";Hide!) #  RegionShowWindow("Counts.1101";Hide!) n  RegionShowWindow("Counts.1102";Hide!) - RegionShowWindow("Counts.1103";Hide!) ` RegionShowWindow("Counts.1104";Hide!)  RegionShowWindow("Counts.1105";Hide!) j RegionShowWindow("Counts.1106";Hide!) ) EndPrompt()   DialogShow ("Counts";"PerfectScript";DialogMsgs;"132") f CallBackWait % Return@ //Endof ShowCounts lԈ   @O O //ProcedureforhandlingDialogresponses @mԈ !!  ProcedureDialogMsgs()  "#  Switch(DialogMsgs[5])  P#$  CaseOf273:0 ` 0 ` (#` (#Go(CaseOf273) $Z& (# (#  CaseOf274 : 0 ` #'(#.` ` ` (#` (##//userclosesDialogwithAlt+F4 %' n  DialogDestroy("Counts")  L&(   CallBackResume  ')    Go(l_Cancel) 'V* Default: H) ,   If(IndicMain=True) *!-   Call(l_Main)0 #--.(#.  (# (##//Routineforcountingwords *R". /p   EndIf +#/   D,#0  @dd"//Outputdisplay pԈ t RegionShowWindow("Counts.101";Show!)  ~ RegionShowWindow("Counts.102";Show!)  = RegionShowWindow("Counts.103";Show!) p  RegionShowWindow("Counts.104";Show!) /  RegionShowWindow("Counts.105";Show!)  z RegionShowWindow("Counts.106";Show!)  9 RegionShowWindow("Counts.107";Show!) l RegionShowWindow("Counts.108";Show!) +  RegionShowWindow("Counts.109";Show!) v  RegionShowWindow("Counts.110";Show!) 5  RegionShowWindow("Counts.111";Show!) h  RegionShowWindow("Counts.112";Show!) '  RegionShowWindow("Counts.113";Show!) r  RegionShowWindow("Counts.114";Show!) 1  RegionShowWindow("Counts.115";Show!) d  RegionShowWindow("Counts.116";Show!) #  RegionShowWindow("Counts.117";Show!) n  RegionShowWindow("Counts.118";Show!) - RegionShowWindow("Counts.119";Show!) ` RegionShowWindow("Counts.120";Show!)  RegionShowWindow("Counts.130";Show!) j RegionShowWindow("Counts.131";Show!) ) RegionSetWindowText("Counts.132";vButtonExit) \ RegionShowWindow("Counts.132";Show!)  RegionShowWindow("Counts.133";Show!) f RegionShowWindow("Counts.134";Show!) % RegionShowWindow("Counts.135";Show!) X  Label(CaseOf273)0 #(#.  (# (##//themacrowillnevergettocallbackarrayelement3 ! w  RR(#.//withoutcallbackarrayelement5being273 T   ^xSwitch(DialogMsgs[3])0  #ss%(#.(#(##//userchoosesabuttonontheDialog !!  yCaseOf"130" : 0 ` #GG!(#.` ` ` (#` (##//ShowtheWPDocumentInformationDialog !^" y   DialogShow("Prop") "#  CaseOf"132" :0 ` #(#.` ` ` (#` (##//UserclicksonExit,orhitsReturnorEscape $% z   If(vexit=1)0 #(#.  (# (##//actionofExitbutton,basedonmarkervExit $Z& a{    ` Go(l_About) 0   #((6(#.(#(##//IfinAboutscreen %' 2|   Else L&(    ` DialogDestroy("Counts") 0  #7(#.((#(##//Ifatmainscreen  ') }    ` CallBackResume 'V*   Go(l_Cancel)  ( +   Endif H) ,  CaseOf"134": *R".  0  CountsToClipboard=1CountsToClipboard+#/(#(#  CaseOf"135":  -$1     DocInfoToClipboard=1DocInfoToClipboard -N%2  @/&4  @ //SectiontohandleAboutbuttonpress RԈ t  CaseOf"131" : 0 ` #(#.` ` ` (#` (##//UserclicksontheAboutbuttonswitchtoAboutscreen  ~    vExit=1 0 #(#.  (# (##//markertosetactionofExitbutton(ienototalexitfrom"about")Ԉ  = 8 RegionShowWindow("Counts.101";Hide!) /  RegionShowWindow("Counts.102";Hide!)  z RegionShowWindow("Counts.103";Hide!)  9 RegionShowWindow("Counts.104";Hide!) l RegionShowWindow("Counts.105";Hide!) +  RegionShowWindow("Counts.106";Hide!) v  RegionShowWindow("Counts.107";Hide!) 5  RegionShowWindow("Counts.108";Hide!) h  RegionShowWindow("Counts.109";Hide!) '  RegionShowWindow("Counts.110";Hide!) r  RegionShowWindow("Counts.111";Hide!) 1  RegionShowWindow("Counts.112";Hide!) d  RegionShowWindow("Counts.113";Hide!) #  RegionShowWindow("Counts.114";Hide!) n  RegionShowWindow("Counts.115";Hide!) - RegionShowWindow("Counts.116";Hide!) ` RegionShowWindow("Counts.117";Hide!)  RegionShowWindow("Counts.118";Hide!) j RegionShowWindow("Counts.119";Hide!) ) RegionShowWindow("Counts.120";Hide!) \ RegionShowWindow("Counts.130";Hide!)  RegionShowWindow("Counts.131";Hide!) f RegionShowWindow("Counts.133";Hide!) % RegionShowWindow("Counts.134";Hide!) X RegionShowWindow("Counts.135";Hide!)  RegionShowWindow("Counts.1100";Show!) ! RegionShowWindow("Counts.1101";Show!) T   RegionShowWindow("Counts.1102";Show!) !! RegionShowWindow("Counts.1103";Show!) !^" RegionShowWindow("Counts.1104";Show!) "# RegionShowWindow("Counts.1105";Show!) P#$ RegionShowWindow("Counts.1106";Show!) $%   $Z&  @ //SectiontohandlereturntomaindialogfromAboutscreen Ԉ t  CaseOf"99":0 ` #BB(#.` ` ` (#` (##//DummyCaseOf,toprovideasafelocationfortheswitch  ~ Label(l_About)0 #(#.  (# (##//fromtheHelpscreenbacktothemaindialog  = O   vExit=2 0 #(#.  (# (##//markertosetactionofExitbutton(ieexitwithmainExitbutton) p    RegionShowWindow("Counts.101";Show!) /  RegionShowWindow("Counts.102";Show!)  z RegionShowWindow("Counts.103";Show!)  9 RegionShowWindow("Counts.104";Show!) l RegionShowWindow("Counts.105";Show!) +  RegionShowWindow("Counts.106";Show!) v  RegionShowWindow("Counts.107";Show!) 5  RegionShowWindow("Counts.108";Show!) h  RegionShowWindow("Counts.109";Show!) '  RegionShowWindow("Counts.110";Show!) r  RegionShowWindow("Counts.111";Show!) 1  RegionShowWindow("Counts.112";Show!) d  RegionShowWindow("Counts.113";Show!) #  RegionShowWindow("Counts.114";Show!) n  RegionShowWindow("Counts.115";Show!) - RegionShowWindow("Counts.116";Show!) ` RegionShowWindow("Counts.117";Show!)  RegionShowWindow("Counts.118";Show!) j RegionShowWindow("Counts.119";Show!) ) RegionShowWindow("Counts.120";Show!) \ RegionShowWindow("Counts.130";Show!)  RegionShowWindow("Counts.131";Show!) f RegionSetWindowText("Counts.132";vButtonExit) % RegionShowWindow("Counts.133";Show!) X RegionShowWindow("Counts.134";Show!)  RegionShowWindow("Counts.135";Show!) b RegionShowWindow("Counts.1100";Hide!) T   RegionShowWindow("Counts.1101";Hide!) !! RegionShowWindow("Counts.1102";Hide!) !^" RegionShowWindow("Counts.1103";Hide!) "# RegionShowWindow("Counts.1104";Hide!) P#$ RegionShowWindow("Counts.1105";Hide!) $% RegionShowWindow("Counts.1106";Hide!) $Z& Go(l_EndMain) %'    ') ЀLabel(l_Cancel) 0  #:(#.  (# (##//EndingTidyup ʓԈ t   ToClipboardQ   ~ While(?SubStructure) p    SubStructureExit() /    EndWhile  z If(?DocNumber<>vDocBlockActive) l SwitchDoc(vDocBlockActive) +  EndIf v    CloseNoSave(No!) 5  If(?DocNumber<>vDocOriginal) '    SwitchDoc(vDocOriginal) r    EndIf 1  If(vBlockActive) d    BookMarkBlock("mWordCount") #    SelectOff() n    BookMarkDelete("mWordCount") -   ReselectLastBlock() ` EndIf  If((vModFlag=false)and(vBlockActive=false)) )  0  #))(#.(#(##//Iforiginaldocumentwasunmodified,close&reopen \    Prompt("WordCountFinishing";    vBoldOn+vHRt+"PleasewaitforWordCounttocomplete"+vHRt+vBoldOff+vHRt; f    ` NoButtons!|InformationIcon!) %   CloseNoSave(No!) X   FileOpen(vFileName)    Endif b  OnCancel(GoodBye)  T   If(vCommentInTextBox) !!   Prompt("CommentinaTextBox";"Therewasatleastone"+vBoldOn+"Comment"+vBoldOff !^" 0  +"insidea"+vBoldOn+"TextBox"+vBoldOff+vHRt+"Thecountsforsuchcommentshave "# been"+"includedunderComments,"+vHRt+"notaspartoftheTextBoxcount"; P#$ InformationIcon!|NoButtons!)$%(#(# Pause $Z& EndIf %' Label(GoodBye) L&(  Quit  'V*   ( +  @bb//SectionforMainTextԈ t @!//WordCountTotalԈ 3     yy(#.//ThesubstructurscountsneedtobesubtractedfromtheTotaltogivetheTextCount  = g Label(l_Main) p  If(IndicMain=True) /    IndicMain=False  z   PosDocVeryTop()  9   EndIf l SelectOff() v  CountShow(0) 5    @PP//SectionforFootnotes '  F CountShow(1) r  NotFound(On!) d   OnNotFound(l_EndFootNote)  #   Label(l_ContFootNote)  - SearchString(StrgToLookFor:">  [Footnote]?  ")  oo3(#.(//Searchfor[FootNote]Ԉ  SearchNext(SearchMode:Regular!) j FootNoteEdit() ) SelectAll() \ vNN=DocumentInfo(Words!)  nCountFootNote=nCountFootNote+vNN % nCountText=nCountTextvNN X   KK (#.//Footnotecounts:theautonumberinthenoteisnotcountedEԈ b SelectOff() T   SubStructureExit() !! SelectOff() !^" CountShow(1) "# Go(l_ContFootNote) P#$ Label(l_EndFootNote) $%   $Z&  @gg//SectionforEndnotes ڣԈ t CountShow(2)  ~ PosDocTop()  =  Label (l_ContEndNote ) /   OnNotFound(l_EndEndNote)   z SearchString(StrgToLookFor:">  [Endnote]?  ")0  #%%4(#.((#(##//Searchfor[EndNote] l A SearchNext(SearchMode:Regular!) +  EndNoteEdit() v  SelectAll() 5  vNN=DocumentInfo(Words!) h  nCountEndNote=nCountEndNote+vNN r  nCountText=nCountTextvNN 1  G   ` ئoo (#.` ` //Endnotecounts:theautonumberinthenoteisnotcountedԈ #  SelectOff() - SubStructureExit() ` SelectOff()  CountShow(2) j  Go (l_ContEndNote ) \  Label(l_EndEndNote)     f  ʨ@//SectionforGraphicsTextBoxes  Ԉ t CountShow(3) 3  PosDocVeryTop()  ~ If(?boxCount<1)  =   Go(l_EndGraphics)  p     ` EndIf /   OnError(l_EndGraphics)   9 NBoxes=?BoxCount l  For(i;1;Nboxes;i+1)  v  CountShow(3) h  BoxEdit(i) '  If(?BoxContentType<>1) r    Go(l_SkipGraphics ) 1     ` EndIf d  BoxContentEdit() #  SelectAll() n  vNN=DocumentInfo(Words!) - ;nCountBox=nCountBox+vNN  nCountText=nCountTextvNN j  Label(l_SkipGraphics) )  CountShow(3) \ While(?SubStructure) f   SubStructureExit() %    ` EndWhile X If(?GraphicSelected)    BoxEnd(Save!;Hide!) b   EndIf !  EndFor  T    Label(l_EndGraphics) !!  If(?GraphicSelected) "# BoxEnd(Save!;Hide!) P#$ EndIf $% CountShow(3)  $Z&  @//SectionforGraphicsCaptions "Ԉ t CountShow(6)  ~ PosDocVeryTop() p  If(?boxCount<1) /    Go(l_EndCaption)   z    ` EndIf  9  OnError(l_EndCaption)  +  NBoxes=?BoxCount v   For(i;1;Nboxes;i+1)  h  CountShow(6) r  BoxEdit(i) 1  If(?BoxContentType<>3) #    Go(l_SkipCaption ) n     ` EndIf - BoxCaptionEdit() ` SelectAll()  vNN=DocumentInfo(Words!)a ) bnCountCaption=nCountCaption+vNN  nCountText=nCountTextvNN f CountShow(6) %  Label(l_SkipCaption)   While(?SubStructure) !   SubStructureExit() T      ` EndWhile !! SelectOff() !^" If(?GraphicSelected) "# 0  BoxEnd(Save!;Hide!)P#$(#(#   EndIf $%  EndFor  %'  Label(l_EndCaption)  ')  If(?GraphicSelected) ( + BoxEnd(Save!;Hide!) H) , EndIf *!- CountShow(6) *R".   +#/   @33 //SectionforComments  t ,CountShow(4)  ~ PosDocVeryTop()  = While(nCountComment>1) p   OnNotFound(l_EndComments)  /  CountShow(4)  z SearchString(StrgToLookFor:"> } [Comment]?  ")0  #4(#.((#(##//Searchfor[Comment]  9  SearchNext(SearchMode:Extended!) l SelectOff() +  CommentEdit() v  SelectAll() 5  EditCopy() h  vNN=DocumentInfo(Words!)L '  nCountComment=nCountComment+vNN 1  nCountText=nCountTextvNN d  SelectOff() n  If(?SubStructure) -   SubStructureExit() `   EndIf  If(?GraphicSelected) j   BoxEnd(Save!;Hide!) )   vCommentInTextBox=True \   nCountText=nCountText+vNN  (#.(//Acommentinsideatextboxhastoberemovedfromboxcount     nCountBox=nCountBoxvNN0 h #((#.hh#h(#h(##//andreaddedtototaltextcount f    CountShow(3) %   EndIf X PosCharNext() b EndWhile T    Label(l_EndComments)  !^" CountShow(4) "#   P#$  @//SectionforWatermarkA Ԉ t 7PosDocVeryTop()  ~  OnNotFound(l_WB)  = OnError(l_WB) p  Label(l_StartWA)  /  CountShow(5)  z SearchString(StrgToLookFor:">  [WatermarkA]?  ")  0(#.(//Searchfor[WatermarkA] l  SearchNext(SearchMode:Extended!) +  WatermarkA(Action:Edit!) v  SelectAll() h  vNN=DocumentInfo(Words!)- '  |nCountWatermark=nCountWatermark+vNN 1  nCountText=nCountTextvNN d  SelectOff() #  SubStructureExit() n  Go(l_StartWA) -  D@//SectionforWatermarkB Ԉ   Label(l_WB) )  PosDocVeryTop()   OnError(l_HA) f OnNotFound(l_HA)  %  Label(l_StartWB)  X CountShow(5) b SearchString(StrgToLookFor:">  [WatermarkB]?  ")  0(#.(//Searchfor[WatermarkB] T    SearchNext(SearchMode:Extended!) !! WatermarkB(Action:Edit!) !^" SelectAll() "# vNN=DocumentInfo(Words!) $% fnCountWatermark=nCountWatermark+vNN %' nCountText=nCountTextvNN L&( SelectOff()  ') SubStructureExit() 'V* Go(l_StartWB) ( + Z  H) ,  ~@tt//SectionforHeaderA Ԉ t  Label(l_HA)   ~ PosDocVeryTop()  =  OnNotFound(l_HB) p  OnError(l_HB) /  Label(l_StartHA)   z CountShow(7)  9 SearchString(StrgToLookFor:">  [HeaderA]?  ")  3(#.(//Searchfor[HeaderA] +   SearchNext(SearchMode:Regular!) v  HeaderA(Action:Edit!) 5  SelectAll() '  vNN=DocumentInfo(Words!) r  snCountHeader=nCountHeader+vNN d  nCountText=nCountTextvNN #  SelectOff() - SubStructureExit() ` Go(l_StartHA)   @tt//SectionforHeaderB Ԉ )  Label(l_HB)   PosDocVeryTop() %  OnError(l_FA) X OnNotFound(l_FA)    Label(l_StartHB)  b CountShow(7) T   SearchString(StrgToLookFor:">  [HeaderB]?  ")  3(#.(//Searchfor[HeaderB] !^"  SearchNext(SearchMode:Regular!) "# HeaderB(Action:Edit!) P#$ SelectAll() $% vNN=DocumentInfo(Words!) $Z& nnCountHeader=nCountHeader+vNN L&( nCountText=nCountTextvNN  ') SelectOff() ( + SubStructureExit() H) , Go(l_StartHB) *!-   *R".  1@//ContinuationforFooterA Ԉ t  Label(l_FA)  3  PosDocVeryTop()  =  OnError(l_FB) p  OnNotFound(l_FB) /  Label(l_StartFA)   z CountShow(7)  9 SearchString(StrgToLookFor:">  [FooterA]?  ")  %%3(#.(//Searchfor[FooterA] +   SearchNext(SearchMode:Regular!) v  FooterA(Action:Edit!) 5  SelectAll() '  vNN=DocumentInfo(Words!) r  WnCountFooter=nCountFooter+vNN d  nCountText=nCountTextvNN #  SelectOff() n  SubStructureExit() -  CountShow(8) ` Go(l_StartFA)    @//ContinuationforFooterB Ԉ j  Label(l_FB)  ) PosDocVeryTop()   OnError(l_EndFooterHeader) f OnNotFound(l_EndFooterHeader) % Label(l_StartFB)  X CountShow(7)  SearchString(StrgToLookFor:">  [FooterB]?  ")0  #%%3(#.((#(##//Searchfor[FooterB] !  SearchNext(SearchMode:Regular!) T   FooterB(Action:Edit!) !! SelectAll() !^" vNN=DocumentInfo(Words!) P#$ nCountFooter=nCountFooter+vNN $Z& nCountText=nCountTextvNN %' SelectOff() L&( SubStructureExit()  ') CountShow(8) 'V* Go(l_StartFB) ( +  Label(l_EndFooterHeader)  *!- PosDocTop() *R".  Return  +#/ Label(l_EndMain) D,#0 EndSwitch 0 ` #(#.` ` ` (#` (##//Endofroutinesrelatedtokeypresses,ieDialogMsg[3] -$1 EndSwitch0 ` #(#.` ` ` (#` (##//EndofroutinesrelatedtoAltF4check,ieDialogMsg[5] -N%2  EndProcedure 0 ` #.(#.` ` ` (#` (##//EndofProcedureDialogMsg  . &3   @/&4  @4 4 //ProcedureforputtingresultstoClipboard $Ԉ t  ProcedureToClipboard()  3  FileNew()0 `  #(#.` ` ` (#` (##//ScreenforwritinginformationfortheClipboard Ԉ  ~  If(CountsToClipboardorDocInfoToClipboard)  p  Font("TimesNewRoman")0  FontSize(12p)/ (#(# AttributeAppearanceOn(Bold!;Underline!)  z Type(vFilename)  9 AttributeNormal() l Type(vHRt+vHRt+"On") +  DateText() v  vTim=TimeString(;"HH:mm:ss") 5  Type("at"+vTim+",thecountswereasfollows:"+vHRt+vHRt) h      If(CountsToClipboard)AA1(#. //CountstotheClipboard  Ԉ r  jType(vBoldOn+"TheWordCountwas:"+vBoldOff+vHRt) 1  Type("MainText:") d  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()  Type(nCountText+vHRt)# h(#h(# Type("Headers:") n  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()  Type(nCountHeader+vHRt)-h(#h(# Type("Footers:") ` 0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()  Type(nCountFooter+vHRt)h(#h(# Type("FootNotes:") j   Advance(ToPosition!;4.0")0 h TabDecimal()0h(#h(#Type(nCountFootNote+vHRt))(#(# Type("EndNotes:") \ 0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nCountEndNote+vHRt)(#(# Type("TextBoxes:") f 0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nCountBox+vHRt)%(#(# Type("Captions:") X 0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nCountCaption+vHRt)(#(# Type("Comments:") b 0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nCountComment+vHRt)!(#(# Type("Watermarks:") T   0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nCountWatermark+vHRt)!!(#(# Type(vBoldOn+"TotalWords:") !^"   Advance(ToPosition!;4.0")0 h TabDecimal()  Type "# (vBoldOn+nCountTotal+vBoldOff+vHRt+vHRt)P#$h(#h(#  EndIf  $%   $Z&  p  '(#.//DocumentInformationtoClipboardԈ t If(DocInfoToClipboard) "  ~ Type(vBoldOn+"TheDocumentInformationwas:"+vBoldOff+vHRt) p  Type("Characters:") /  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()  Type(nChars+vHRt) zh(#h(# Type("Words:")  9   Advance(ToPosition!;4.0")0 h TabDecimal()0h(#h(#Type(nWords+vHRt)l(#(# Type("Sentences:") +  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nSentences+vHRt)v (#(# Type("Lines:") 5  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nLines+vHRt)h (#(# Type("Paragraphs:") '  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nParagraphs+vHRt)r (#(# Type("Pages:") 1  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nPages+vHRt)d (#(# Type("AverageWordLength:") #  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nAvgWordLength+vHRt)n (#(# Type("AverageWords/Sentence:") - 0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nAvgWordsPerSentence+vHRt)`(#(# Type("MaximumWords/Sentence:")  0  Advance(ToPosition!;4.0")0h(#(#TabDecimal()0h(#h(#Type(nMaxWordsPerSentence+vHRt+vHRt)j(#(#  EndIf  ) u If(vCommentInTextBox)   Type(vBoldOn+"CommentinaTextBox:"+vBoldOff+vHRt+"Therewasatleastone"+vBoldOn+ f   "Comment"+vBoldOff+"insidea"+vBoldOn+"TextBox"+vBoldOff+vHRt+ %   "ThecountsforsuchcommentshavebeenincludedunderComments,"+vHRt+ X   "notaspartoftheTextBoxcount"+vHRt+vHRt)  EndIf b 2   =(#.//Endingtext !  AttributeAppearanceOn(Italics!) T   AttributeRelativeSize(Small!) !! Type("CountproducedbymacroWordCount.wcm,version13.0"+vHRt) !^" Type("Copyright,CharlesE.") "# HardSpace() P#$ Type("Rossiter,2006December05"+vHRt) $% AttributeNormal() $Z&  Else0  #)(#.(#(##//NothingbeingsenttoClipboard %'  Type("TherewasnorequesttosendinformationfromWordCount.wcmtotheClipBoard.") L&(  EndIf   ') SelectAll() 'V* EditCut() 0 ` #]](#.` ` ` (#` (##//Cutoutputresults,andplaceonClipboard ( +  Close(No!) H) ,  EndProcedure U *!-   *R".   @ //Displaycountsinprogress iԈ t FunctionCountShow(nnn) 3  RegionSetWindowText("Counts.102";nCountText)  ~ RegionShowWindow("Counts.102";Show!)  = RegionSetWindowText("Counts.120";vBoldOn+nCountTotal) p  RegionShowWindow("Counts.120";Show!) /  Switch(nnn)  z CaseOf0:  9 RegionShowWindow("Counts.101";Show!) l RegionShowWindow("Counts.103";Show!) +  RegionShowWindow("Counts.105";Show!) v  RegionShowWindow("Counts.107";Show!) 5  RegionShowWindow("Counts.109";Show!) h  RegionShowWindow("Counts.111";Show!) '  RegionShowWindow("Counts.113";Show!) r  RegionShowWindow("Counts.115";Show!) 1  RegionShowWindow("Counts.117";Show!) d  CaseOf1: n  RegionSetWindowText("Counts.108";nCountFootNote) - RegionShowWindow("Counts.108";Show!) ` CaseOf2: j RegionSetWindowText("Counts.110";nCountEndNote) ) RegionShowWindow("Counts.110";Show!) \ CaseOf3: f RegionSetWindowText("Counts.112";nCountBox) % RegionShowWindow("Counts.112";Show!) X CaseOf4: b RegionSetWindowText("Counts.116";nCountComment) ! RegionShowWindow("Counts.116";Show!) T   CaseOf5: !^" RegionSetWindowText("Counts.118";nCountWatermark) "# RegionShowWindow("Counts.118";Show!) P#$ CaseOf6: $Z& RegionSetWindowText("Counts.114";nCountCaption) %' RegionShowWindow("Counts.114";Show!) L&( CaseOf7: 'V* RegionSetWindowText("Counts.104";nCountHeader) ( + RegionShowWindow("Counts.104";Show!) H) , CaseOf8: *R". RegionSetWindowText("Counts.106";nCountFooter) +#/ RegionShowWindow("Counts.106";Show!) D,#0 EndSwitch -N%2 Return(nnn) . &3  !EndFunc  @/&4 FunctionWord_Cnt(nnn)  t    (#.//Getcountsofcharacters,words,sentences,etc. *Ԉ  ~ nChars=0 ` 0 ` (#` (#0 (# (#DocumentInfo(Characters!)p (#(# nWords=0 ` 0 ` (#` (#0 (# (#DocumentInfo(Words!)/ (#(# nnn=nWords  z nLines=0 ` 0 ` (#` (#  DocumentInfo(Lines!) 9 (# (# nSentences=0 ` 0 ` (#` (#0 (# (#DocumentInfo(Sentences!)l(#(# nParagraphs=0 ` 0 ` (#` (#0 (# (#DocumentInfo(Paragraphs!)+ (#(# nPages=0 ` 0 ` (#` (#  DocumentInfo(Pages!)v  (# (# nAvgWordLength=0 0 (# (#DocumentInfo(AweWordLength!)5 (#(# nAvgWordsperSentence=0  DocumentInfo(AweNumOfWords!)h (#(# nMaxWordsperSentence=0  DocumentInfo(MaxNumOfWords!)' (#(# Return(nnn) 1  *4 EndFunc  #    'II1(#.//Activeendofthemacro n   Label(lQuit) - Quit `  ProcedureCheckVersion11() )   2(#.//CheckBuildofWPWin11  \ \vHRt=NToC(63754)  nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!) f If(nnn<11000000000300.0andnnn>11000000000000.0) % MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+ X "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+  "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+ b "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt; ! OKCancel!|IconWarning!) T   If(vAns>1)0 ` Quit0 ` (#` (#EndIf0 (# (#EndIf!^"(#(#  :EndProc  P#$ (o //EndofMacroWordCount.Wcm  $Z&