WPCX u,FL,h [?rvZp_]dYz)6c0eٮ+a;.Nb/# C"U$'1:O{xń!f/ Rд3!_9&;-C s?߅R!>QG, (.PV ڱb?fH^19}XtFge-]W!ku /ҙ ]lrWugU:> uՐo'K3Riazz9D3P XP&!LIЂum7!ez`_kAI:;7?NAwu=P wDDyOEJɩ %u#ZvUFM}@JUg-3`/hJT̴1\|;iSמQ 80 rl)or#<UH %M 0S^ w4/> m@ o*WND  D DUND"@HBPAH[LI[LIEBRFHx LIB)VHRTHxLIB)VBOLDONHxLIB)VBOLDOFFGNCHARSNWORDS NSENTENCESNLINES NPARAGRAPHSNPAGESH$NAVGWORDLENGTH0NAVGWORDSPERSENTENCE0NMAXWORDSPERSENTENCEIHB=VMODFLAGHB@  VBLOCKACTIVENDOCINFOJHB3KYVMODFLAGLNr VBLOCKACTIVEZ*ROHHB8HB%LQB) VFILENAMEPQ1oFor the selected text VFILENAMERSr VFILENAMEo*5T9oFor this unsaved document VFILENAMEU5YHBD  VDOCORIGINALZ[&VDOCBLOCKACTIVE[HEM\HBD%VDOCBLOCKACTIVE^HvWIN95LaB*{( _ZWIN95`( aH[LIB++ VPNb rVPNoWin95* rVPNoWin98*? rVPNoWinME*?rWIN95Z*[ cYWIN95eHo CharCountLNoHPlease 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)@f[ hH)vCOUNTSTOCLIPBOARDLaB* i kZ*COUNTSTOCLIPBOARDZ,DOCINFOTOCLIPBOARDloH[LI[LIB@pH[LI[LIB@qH[LI[LIB@rH[LI[LIB@sH[LI[LIB@tH[LI[LIB@uH[LI[LIB@vH[LI[LIB@yHr VDOCORIGINALLCE{r VBLOCKACTIVE |HE}Ho mCharCountLQE~ HE8HEHEHBD%rVDOCBLOCKACTIVE;H%rVDOCBLOCKACTIVELCEHEHE0[ 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[*V,LENDNOWVH[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)[2R-v\2v[ NODELAYPAGESH o LQE*HB* RCHEr NODELAYPAGES[ NODELAYPAGESHx,LSEH o{r NODELAYPAGES o}LQE*Ho{Enter}LQE*Ho{Ctrl+A}LQE*HB@HEHB* RCH[LIEHB+dHE8 rRC o ;r NODELAYPAGESrNPAGES-?HE]HE(H[LI[LUE4HE=H oELQE%HoLQE&H[LIE-HE$ #(F1-FIRST) #(F1-STEP)[P VDLGWIDTHo Word Counts VWORDCOUNTo Characters VCHARSCOUNTo White Spaces VWHITECOUNT%oMain Text Count,VMAINTEXTWORDCOUNT%oFootnotes Count.VFOOTNOTESWORDCOUNT#oEndnotes Count,VENDNOTESWORDCOUNT'oText Boxes Count.VTEXTBOXESWORDCOUNT#oComments Count,VCOMMENTSWORDCOUNT'oWatermarks Count0VWATERMARKSWORDCOUNT#oCaptions Count,VCAPTIONSWORDCOUNT!o Headers Count*VHEADERSWORDCOUNT!o Footers Count*VFOOTERSWORDCOUNTo Total Count&VTOTALWORDCOUNTEoTotal document size (inclusive)VSIZEoE&xit VBUTTONEXIT o&OK VBUTTONOKSo&&View WordPerfect Document Information VBUTTONVIEWo&About  VBUTTONABOUTco. Place WP &Document Information on Clipboard$VBUTTONDOCINFOao- Place Char &Count Information on Clipboard" VBUTTONCOUNTS;oOptions for saving resultsVOPTIONSrVBOLDON?oMacro CharCount.Wcm (v13.0)rVBOLDOFFrVHRTao-for WordPerfect for Windows, versions 9 -- X3ABOUT01H[LI[LUB)rVBOLDONMo# Charles Rossiter, 2006 December 05rVHRT3ocharles@rossiter.co.zaABOUT02rVBOLDON1oWPWin8 not supported:rVBOLDOFFABOUT03o_This version of CharCount.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.ABOUT04 rVBOLDONCoCompanion Macro: WordCount.WcmrVBOLDOFFABOUT05 mo3This companion macro provides the word counts only.rVHRTgo0It is provided separately as it is less complex.rVHRTrVHRT{o:This macro is available at http://rossiter.co.za/downloadsABOUT06Hgo0Character Count for WordPerfect versions 9 -- X3LNrVHRTQo% Please wait - setting up the macro.rVHRTrVHRTLQ[[ LI[ LEEm)H[ LUE*HBDVDOCNOrVDOCNO$VORIGINALDOCNOHB@VBACTIVE[ NCOUNTTEXT[ NWHITETEXT[ NCHARSTEXT[$NCOUNTFOOTNOTE[$NWHITEFOOTNOTE[$NCHARSFOOTNOTE[" NCOUNTENDNOTE[" NWHITEENDNOTE[" NCHARSENDNOTE[  NCOUNTHEADER[  NWHITEHEADER[  NCHARSHEADER[  NCOUNTFOOTER[  NWHITEFOOTER[  NCHARSFOOTER[ NCOUNTBOX[ NWHITEBOX[ NCHARSBOX[" NCOUNTCAPTION[" NWHITECAPTION[" NCHARSCAPTION [" NCOUNTCOMMENT[" NWHITECOMMENT[" NCHARSCOMMENT![&NCOUNTWATERMARK[&NWHITEWATERMARK[&NCHARSWATERMARK"[ NCOUNTTOTAL[ NWHITETOTALHB*A NCHARSTOTAL#[NSIZE$[VEXIT%HB=VMODFLAG&Z*VCOMMENTINTEXTBOX(HB3.)YVMODFLAG*.,Y INDICMAIN-HE=0HEM1HBDEDDOCNO3HrVDOCNOLCE5rVBACTIVE[-;06HE7Ho mCharCountLQE8HE9HEM:HE;HBDVDOCNO<HE0=;0@Ho mCharCountLQEAHECH[LIB@Er NCOUNTTEXTHBAWORD_CNT NCOUNTTEXTFr NCOUNTTEXT NCOUNTTOTALKHoCountsLQ[ZLE[2LEr VDLGWIDTH[LEx,LE[LIOo$Document Character Count InformationLNB'@OHoCountsLQ[dLQr VDLGWIDTH[LE[LE[7LE[ LE[[LIr VWORDCOUNTLQB'@PHoCountsLQ[eLQ[ LE[LEr VDLGWIDTHLE[ LE[LI+rVMAINTEXTWORDCOUNTLQB'@QHoCountsLQ[fLQr VDLGWIDTH[LE[LE[2LE[ LE[[LIr NCOUNTTEXTLQB'@RHoCountsLQ[gLQ[ LE[)LEr VDLGWIDTHLE[LE[LI)rVHEADERSWORDCOUNTLQB'@SHoCountsLQ[hLQr VDLGWIDTH[LE[(LE[2LE[ LE[[LIr NCOUNTHEADERLQB'@THoCountsLQ[iLQ[ LE[8LEr VDLGWIDTHLE[LE[LI)rVFOOTERSWORDCOUNTLQB'@UHoCountsLQ[jLQr VDLGWIDTH[LE[7LE[2LE[ LE[[LIr NCOUNTFOOTERLQB'@VHoCountsLQ[kLQ[ LE[GLEr VDLGWIDTHLE[ LE[LI-rVFOOTNOTESWORDCOUNTLQB'@WHoCountsLQ[lLQr VDLGWIDTH[LE[FLE[2LE[ LE[[LI#rNCOUNTFOOTNOTELQB'@XHoCountsLQ[mLQ[ LE[VLEr VDLGWIDTHLE[ LE[LI+rVENDNOTESWORDCOUNTLQB'@YHoCountsLQ[nLQr VDLGWIDTH[LE[ULE[2LE[ LE[[LI!r NCOUNTENDNOTELQB'@ZHoCountsLQ[oLQ[ LE[eLEr VDLGWIDTHLE[ LE[LI-rVTEXTBOXESWORDCOUNTLQB'@[HoCountsLQ[pLQr VDLGWIDTH[LE[dLE[2LE[ LE[[LIr NCOUNTBOXLQB'@\HoCountsLQ[qLQ[ LE[tLEr VDLGWIDTHLE[ LE[LI+rVCAPTIONSWORDCOUNTLQB'@]HoCountsLQ[rLQr VDLGWIDTH[LE[sLE[2LE[ LE[[LI!r NCOUNTCAPTIONLQB'@^HoCountsLQ[sLQ[ LE[LEr VDLGWIDTHLE[ LE[LI+rVCOMMENTSWORDCOUNTLQB'@_HoCountsLQ[tLQr VDLGWIDTH[LE[LE[2LE[ LE[[LI!r NCOUNTCOMMENTLQB'@`HoCountsLQ[uLQ[ LE[LEr VDLGWIDTHLE[ LE[LI/rVWATERMARKSWORDCOUNTLQB'@aHoCountsLQ[vLQr VDLGWIDTH[LE[LE[2LE[ LE[[LI%rNCOUNTWATERMARKLQB'@bHoCountsLQ[wLQ[ LE[LEr VDLGWIDTHLE[ LE[[ LIrVBOLDON%rVTOTALWORDCOUNTLQB'@cHoCountsLQ[xLQr VDLGWIDTH[LE[LE[2LE[ LE[[[ LIrVBOLDONr NCOUNTTOTALLQB'@eHoCountsLQ[yLQ[ LE[LEr VDLGWIDTH[FLE[ LE[[ LIrVBOLDONrVSIZELQB'@gHoCountsLQ[zLQr VDLGWIDTH[_LE[LE[2LE[ LE[[[ LIrVBOLDONrNSIZELQB'@hHoCountsLQ[LQ[pLEx LEr VDLGWIDTH[dLE[ LE[LIr VBUTTONVIEWLNB'@iHoCountsLQ[LQ[pLExLE[>LE[ LE[LIr VBUTTONABOUTLNB'@jHoCountsLQ[LQ[LExLE[>LE[ LE[[LIr VBUTTONEXITLNB'@kHoCountsLQ[LQ[pLE[LEr VDLGWIDTH[bLE[1LE[[ [LIrVBOLDONrVOPTIONSLQB'@mH oCountsLQ[LQ[xLE[LEr VDLGWIDTH[_LE[ LE!r VBUTTONCOUNTSLN)vCOUNTSTOCLIPBOARDLRB u'@nH oCountsLQ[LQ[xLE[LEr VDLGWIDTH[_LE[ LE#rVBUTTONDOCINFOLN+vDOCINFOTOCLIPBOARDLRB u'@rHoCountsLQ[LQr VDLGWIDTH[[LE[LE[7LE[ LE[[LIr VCHARSCOUNTLQB'@sHoCountsLQ[LQr VDLGWIDTH[_LE[LE[2LE[ LE[[LIr NCHARSTEXTLQB'@tHoCountsLQ[LQr VDLGWIDTH[_LE[(LE[2LE[ LE[[LIr NCHARSHEADERLQB'@uHoCountsLQ[LQr VDLGWIDTH[_LE[7LE[2LE[ LE[[LIr NCHARSFOOTERLQB'@vHoCountsLQ[LQr VDLGWIDTH[_LE[FLE[2LE[ LE[[LI#rNCHARSFOOTNOTELQB'@wHoCountsLQ[LQr VDLGWIDTH[_LE[ULE[2LE[ LE[[LI!r NCHARSENDNOTELQB'@xHoCountsLQ[LQr VDLGWIDTH[_LE[dLE[2LE[ LE[[LIr NCHARSBOXLQB'@yHoCountsLQ[LQr VDLGWIDTH[_LE[sLE[2LE[ LE[[LI!r NCHARSCAPTIONLQB'@zHoCountsLQ[LQr VDLGWIDTH[_LE[LE[2LE[ LE[[LI!r NCHARSCOMMENTLQB'@{HoCountsLQ[LQr VDLGWIDTH[_LE[LE[2LE[ LE[[LI%rNCHARSWATERMARKLQB'@|HoCountsLQ[LQr VDLGWIDTH[_LE[LE[2LE[ LE[[[ LIrVBOLDONr NCHARSTOTALLQB'@HoCountsLQx,LQr VDLGWIDTH[LE[LE[7LE[ LE[[LIr VWHITECOUNTLQB'@HoCountsLQx.LQr VDLGWIDTH[LE[LE[2LE[ LE[[LIr NWHITETEXTLQB'@HoCountsLQx0LQr VDLGWIDTH[LE[(LE[2LE[ LE[[LIr NWHITEHEADERLQB'@HoCountsLQx2LQr VDLGWIDTH[LE[7LE[2LE[ LE[[LIr NWHITEFOOTERLQB'@HoCountsLQx4LQr VDLGWIDTH[LE[FLE[2LE[ LE[[LI#rNWHITEFOOTNOTELQB'@HoCountsLQx6LQr VDLGWIDTH[LE[ULE[2LE[ LE[[LI!r NWHITEENDNOTELQB'@HoCountsLQx8LQr VDLGWIDTH[LE[dLE[2LE[ LE[[LIr NWHITEBOXLQB'@HoCountsLQx:LQr VDLGWIDTH[LE[sLE[2LE[ LE[[LI!r NWHITECAPTIONLQB'@HoCountsLQx<LQr VDLGWIDTH[LE[LE[2LE[ LE[[LI!r NWHITECOMMENTLQB'@HoCountsLQx>LQr VDLGWIDTH[LE[LE[2LE[ LE[[LI%rNWHITEWATERMARKLQB'@HoCountsLQx@LQr VDLGWIDTH[LE[LE[2LE[ LE[[[ LIrVBOLDONr NWHITETOTALLQB'@HoCountsLQxLQr VDLGWIDTH[ LE[LE[LE[0LE[LIB{'@HoCountsLQxLQr VDLGWIDTH[ LE[LE[LE[-LE[[[ LIrABOUT01LQB'@HoCountsLQxLQr VDLGWIDTH[LE[!LE[LE[LE[[ LIrABOUT02LQB'@HoCountsLQxLQr VDLGWIDTH[ LE[7LE[LE[ LE[[[ LIrABOUT03LQB'@HoCountsLQxLQr VDLGWIDTH[ LE[ELE[LE[7LE[[[ LIrABOUT04LQB'@HoCountsLQxLQr VDLGWIDTH[ LE[LE[LE[ LE[[[ LIrABOUT05LQB'@HoCountsLQxLQr VDLGWIDTH[ LE[LE[LE[ELE[LIoLQB'@HoCountsLQxLQr VDLGWIDTH[LE[LE[LE[ALE[ LIrABOUT06LQB'@HoPropLQ[6LE[=LExPLE[LE[LIo PropertiesLNB'@HoPropLQoArialLN g$@LMB'@HoPropLQ[LQ[(LE[LE[,LE[LE[[LIo InformationLQB'@HoPropLQ[LQ[(LE[<LE[$LE[ LE[LIo Characters:LQB'@HoPropLQ[LQ[(LE[KLE[$LE[ LE[LIoWords:LQB'@HoPropLQ[LQ[(LE[ZLE[$LE[ LE[LIo Sentences:LQB'@HoPropLQ[LQ[(LE[iLE[$LE[ LE[LIoLines:LQB'@HoPropLQ[LQ[(LE[xLE[$LE[ LE[LIo Paragraphs:LQB'@HoPropLQ[LQ[(LE[LE[$LE[ LE[LIoPages:LQB'@HoPropLQ[ 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'@HoPropLQ[LQ[LE[<LE[HLE[ LE[LI/oAverage word length:LQB'@HoPropLQ[LQ[LE[KLE[^LE[ LE[LI;oAverage words per sentenceLQB'@HoPropLQ[LQ[LE[ZLE[jLE[ LE[LI=oMaximum words per sentence:LQB'@HoPropLQ[LQ[LE[<LE[$LE[ LE[LI#rNAVGWORDLENGTHLQB'@HoPropLQ[LQ[LE[KLE[$LE[ LE[LI/rNAVGWORDSPERSENTENCELQB'@HoPropLQ[LQ[LE[ZLE[$LE[ LE[LI/rNMAXWORDSPERSENTENCELQB'@HoPropLQoOKBttnLQx LE[LE[2LE[LE[LI o&OKLNB'@Ho Counts.100LQ[LIE'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.114LQ[LIE'Ho Counts.115LQ[LIE'Ho Counts.116LQ[LIE'Ho Counts.117LQ[LIE'Ho Counts.118LQ[LIE'Ho Counts.119LQ[LIE'Ho Counts.121LQ[LIE'Ho Counts.122LQ[LIE'Ho Counts.130LQ[LIE'Ho Counts.500LQ[LIE'Ho Counts.131LQ[LIE'Ho Counts.501LQ[LIE'Ho Counts.132LQ[LIE'Ho Counts.502LQ[LIE'Ho Counts.133LQ[LIE'Ho Counts.503LQ[LIE'Ho Counts.134LQ[LIE'Ho Counts.504LQ[LIE'Ho Counts.135LQ[LIE'Ho Counts.505LQ[LIE'Ho Counts.506LQ[LIE'Ho Counts.507LQ[LIE'Ho Counts.200LQ[LIE'Ho Counts.300LQ[LIE'Ho Counts.202LQ[LIE'Ho Counts.302LQ[LIE'Ho Counts.204LQ[LIE'Ho Counts.304LQ[LIE'Ho Counts.206LQ[LIE'Ho Counts.306LQ[LIE'Ho Counts.208LQ[LIE'Ho Counts.308LQ[LIE'Ho Counts.210LQ[LIE'Ho Counts.310LQ[LIE'Ho Counts.212LQ[LIE'Ho Counts.312LQ[LIE'Ho Counts.214LQ[LIE'Ho Counts.314LQ[LIE'Ho Counts.216LQ[LIE'Ho Counts.316LQ[LIE'Ho Counts.218LQ[LIE'Ho Counts.318LQ[LIE'Ho Counts.220LQ[LIE'Ho Counts.320LQ[LIE'HEk)HoCountsLQ!o PerfectScriptLQo DIALOGMSGSLO o132LQB'@HE*[|[[S DIALOGMSGS[q(x*q@, CASEOF273y(x*fr@HoCountsLQB'@HE*,L_CANCELy@r INDICMAINrL_MAIN@rHo Counts.100LQ[LIE'Ho Counts.112LQ[LIE'Ho Counts.101LQ[LIE'Ho Counts.113LQ[LIE'Ho Counts.102LQ[LIE'Ho Counts.114LQ[LIE'Ho Counts.103LQ[LIE'Ho Counts.115LQ[LIE'Ho Counts.104LQ[LIE'Ho Counts.116LQ[LIE'Ho Counts.105LQ[LIE'Ho Counts.117LQ[LIE'Ho Counts.106LQ[LIE'Ho Counts.118LQ[LIE'Ho Counts.107LQ[LIE'Ho Counts.119LQ[LIE'Ho Counts.108LQ[LIE'Ho Counts.120LQ[LIE'Ho Counts.109LQ[LIE'Ho Counts.121LQ[LIE'Ho Counts.110LQ[LIE'Ho Counts.122LQ[LIE'Ho Counts.111LQ[LIE'Ho Counts.130LQ[LIE'Ho Counts.133LQ[LIE'Ho Counts.131LQ[LIE'Ho Counts.134LQ[LIE'Ho Counts.132LQr VBUTTONEXITLQE'Ho Counts.135LQ[LIE'Ho Counts.132LQ[LIE'Ho Counts.200LQ[LIE'Ho Counts.300LQ[LIE'Ho Counts.202LQ[LIE'Ho Counts.302LQ[LIE' Ho Counts.204LQ[LIE'Ho Counts.304LQ[LIE' Ho Counts.206LQ[LIE'Ho Counts.306LQ[LIE' Ho Counts.208LQ[LIE'Ho Counts.308LQ[LIE' Ho Counts.210LQ[LIE'Ho Counts.310LQ[LIE' Ho Counts.212LQ[LIE'Ho Counts.312LQ[LIE'Ho Counts.214LQ[LIE'Ho Counts.314LQ[LIE'Ho Counts.216LQ[LIE'Ho Counts.316LQ[LIE'Ho Counts.218LQ[LIE'Ho Counts.318LQ[LIE'Ho Counts.220LQ[LIE'Ho Counts.320LQ[LIE'[[S DIALOGMSGS[l~( o130*~@HoPropLQB'@t( o132*@rVEXIT[*#,L_ABOUTHoCountsLQB'@ HE*!,L_CANCEL"$t( o134*@%[)rCOUNTSTOCLIPBOARD)COUNTSTOCLIPBOARD't( o135*@([+rDOCINFOTOCLIPBOARD+DOCINFOTOCLIPBOARD,t( o131*Ӎ@-[VEXIT/Ho Counts.100LQ[LIE'Ho Counts.112LQ[LIE'0Ho Counts.101LQ[LIE'Ho Counts.113LQ[LIE'1Ho Counts.102LQ[LIE'Ho Counts.114LQ[LIE'2Ho Counts.103LQ[LIE'Ho Counts.115LQ[LIE'3Ho Counts.104LQ[LIE'Ho Counts.116LQ[LIE'4Ho Counts.105LQ[LIE'Ho Counts.117LQ[LIE'5Ho Counts.106LQ[LIE'Ho Counts.118LQ[LIE'6Ho Counts.107LQ[LIE'Ho Counts.119LQ[LIE'7Ho Counts.108LQ[LIE'Ho Counts.120LQ[LIE'8Ho Counts.109LQ[LIE'Ho Counts.121LQ[LIE'9Ho Counts.110LQ[LIE'Ho Counts.122LQ[LIE':Ho Counts.111LQ[LIE'<Ho Counts.130LQ[LIE'Ho Counts.134LQ[LIE'=Ho Counts.131LQ[LIE'Ho Counts.135LQ[LIE'>Ho Counts.133LQ[LIE'@Ho Counts.200LQ[LIE'Ho Counts.300LQ[LIE'AHo Counts.202LQ[LIE'Ho Counts.302LQ[LIE'BHo Counts.204LQ[LIE'Ho Counts.304LQ[LIE'CHo Counts.206LQ[LIE'Ho Counts.306LQ[LIE'DHo Counts.208LQ[LIE'Ho Counts.308LQ[LIE'EHo Counts.210LQ[LIE'Ho Counts.310LQ[LIE'FHo Counts.212LQ[LIE'Ho Counts.312LQ[LIE'GHo Counts.214LQ[LIE'Ho Counts.314LQ[LIE'HHo Counts.216LQ[LIE'Ho Counts.316LQ[LIE'IHo Counts.218LQ[LIE'Ho Counts.318LQ[LIE'JHo Counts.220LQ[LIE'Ho Counts.320LQ[LIE'LHo Counts.500LQ[LIE'MHo Counts.501LQ[LIE'NHo Counts.502LQ[LIE'OHo Counts.503LQ[LIE'PHo Counts.504LQ[LIE'QHo Counts.505LQ[LIE'RHo Counts.506LQ[LIE'SHo Counts.507LQ[LIE'UHo Counts.132LQ[LIE'Yt( o99*q@Z[[VEXIT]Ho Counts.500LQ[LIE'^Ho Counts.501LQ[LIE'_Ho Counts.502LQ[LIE'`Ho Counts.503LQ[LIE'aHo Counts.504LQ[LIE'bHo Counts.505LQ[LIE'cHo Counts.506LQ[LIE'dHo Counts.507LQ[LIE'fHo Counts.100LQ[LIE'Ho Counts.112LQ[LIE'gHo Counts.101LQ[LIE'Ho Counts.113LQ[LIE'hHo Counts.102LQ[LIE'Ho Counts.114LQ[LIE'iHo Counts.103LQ[LIE'Ho Counts.115LQ[LIE'jHo Counts.104LQ[LIE'Ho Counts.116LQ[LIE'kHo Counts.105LQ[LIE'Ho Counts.117LQ[LIE'lHo Counts.106LQ[LIE'Ho Counts.118LQ[LIE'mHo Counts.107LQ[LIE'Ho Counts.119LQ[LIE'nHo Counts.108LQ[LIE'Ho Counts.120LQ[LIE'oHo Counts.109LQ[LIE'Ho Counts.121LQ[LIE'pHo Counts.110LQ[LIE'Ho Counts.122LQ[LIE'qHo Counts.111LQ[LIE'sHo Counts.130LQ[LIE'Ho Counts.133LQ[LIE'tHo Counts.131LQ[LIE'Ho Counts.134LQ[LIE'uHo Counts.132LQr VBUTTONEXITLQE'Ho Counts.135LQ[LIE'vHo Counts.132LQ[LIE'xHo Counts.200LQ[LIE'Ho Counts.300LQ[LIE'yHo Counts.202LQ[LIE'Ho Counts.302LQ[LIE'zHo Counts.204LQ[LIE'Ho Counts.304LQ[LIE'{Ho Counts.206LQ[LIE'Ho Counts.306LQ[LIE'|Ho Counts.208LQ[LIE'Ho Counts.308LQ[LIE'}Ho Counts.210LQ[LIE'Ho Counts.310LQ[LIE'~Ho Counts.212LQ[LIE'Ho Counts.312LQ[LIE'Ho Counts.214LQ[LIE'Ho Counts.314LQ[LIE'Ho Counts.216LQ[LIE'Ho Counts.316LQ[LIE'Ho Counts.218LQ[LIE'Ho Counts.318LQ[LIE'Ho Counts.220LQ[LIE'Ho Counts.320LQ[LIE', L_ENDMAIN TOCLIPBOARD@HB+̛HEHBD%rVDOCBLOCKACTIVE;QH%rVDOCBLOCKACTIVELCEQHEUHEHBDrEDDOCNO;֜HrEDDOCNOLCE֜H[LIEHBDr VDOCORIGINAL;hHr VDOCORIGINALLCEhr VBLOCKACTIVEHo mCharCountLQEsHEHo mCharCountLQEuHErVMODFLAGZ*rVBACTIVEZ*؟H9oCharacter Count FinishingLNrVBOLDON]o+Please wait while Character Count tidies uprVBOLDOFFrVHRTLQ[ [LIEm)H[ LUE*H[LIEHr VFILENAMELVE؟HoGOODBYELOB*@)rVCOMMENTINTEXTBOXH/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)HEl)HE*r INDICMAINY*Z INDICMAINHEHE[ COUNTSHOW@[ COUNTSHOW@r NCHARSTOTAL NCHARSTEXTr NCHARSTEXTNDOCINFO[ WHITESPACE NWHITETEXTr NWHITETEXT NWHITETOTALHEk)[ COUNTSHOW@HEH[LIB*@H[LIB*@H!o L_ENDFOOTNOTELOB*@[ COUNTSHOW@H oLQE%H[LIEHEHE8HEH[LIB NWCH[LIBNDOCINFO#rNCOUNTFOOTNOTE rNWC#NCOUNTFOOTNOTEr NCOUNTTEXT rNWC NCOUNTTEXT#rNCHARSFOOTNOTErNDOCINFO#NCHARSFOOTNOTEr NCHARSTEXTrNDOCINFO NCHARSTEXTHEHB+HEHEHrEDDOCNOLCEHEHE[ WHITESPACE WS#rNWHITEFOOTNOTE rWS#NWHITEFOOTNOTEr NWHITETOTAL rWSrNDOCINFO NWHITETOTALr NWHITETEXTrNDOCINFO NWHITETEXTHrVDOCNOLCE[ COUNTSHOW@#,L_CONTFOOTNOTE[ COUNTSHOW@HEHo L_ENDENDNOTELOB*@[ COUNTSHOW@H oLQE%H[LIEHEHE8HE H[LIB NWC H[LIBNDOCINFO !r NCOUNTENDNOTE rNWC! NCOUNTENDNOTE r NCOUNTTEXT rNWC NCOUNTTEXT!r NCHARSENDNOTErNDOCINFO! NCHARSENDNOTEr NCHARSTEXTrNDOCINFO NCHARSTEXTHEHB+HEHEHrEDDOCNOLCEHEHE[ WHITESPACE WS!r NWHITEENDNOTE rWS! NWHITEENDNOTEr NWHITETOTAL rWSrNDOCINFO NWHITETOTALr NWHITETEXTrNDOCINFO NWHITETEXTHrVDOCNOLCE !, L_CONTENDNOTE!"[ COUNTSHOW@%[ COUNTSHOW@&HE'HB@[2K(!, L_ENDGRAPHICS)K+H!o L_ENDGRAPHICSLOB*@,HB@NBOXES.[ IrNBOXES rI[ I/[ COUNTSHOW@0H rILUE1HB@[;2#,L_SKIPGRAPHICS3HE@4HE85HE6H[LIB NWC7H[LIBNDOCINFO8r NCOUNTBOX rNWC NCOUNTBOX9r NCOUNTTEXT rNWC NCOUNTTEXT:r NCHARSBOXrNDOCINFO NCHARSBOX;r NCHARSTEXTrNDOCINFO NCHARSTEXT<HrEDDOCNOLCE=HE>HE?[ WHITESPACE WS@r NWHITEBOX rWS NWHITEBOXAr NWHITETOTAL rWSrNDOCINFO NWHITETOTALBr NWHITETEXTrNDOCINFO NWHITETEXTCHrVDOCNOLCEDHEE[ COUNTSHOW@FGHB+]HHEI]JHEKHBPLH[LI[LIEMNگOP[ COUNTSHOW@QHBP*H[LI[LIE*T[ COUNTSHOW@VHEWHB@[2X, L_ENDCAPTIONY[Ho L_ENDCAPTIONLOB*@\HB@NBOXES^[ IrNBOXES[ rI[ I`[ COUNTSHOW@aH rILUEcHB@[;d!, L_SKIPCAPTIONefHEgHE8hH[LIB NWCiH[LIBNDOCINFOj!r NCOUNTCAPTION rNWC! NCOUNTCAPTIONkr NCOUNTTEXT rNWC NCOUNTTEXTl!r NCHARSCAPTIONrNDOCINFO! NCHARSCAPTIONmr NCHARSTEXTrNDOCINFO NCHARSTEXTo[ WHITESPACE WSp!r NWHITECAPTION rWS! NWHITECAPTIONqr NWHITETOTAL rWSrNDOCINFO NWHITETOTALrr NWHITETEXTrNDOCINFO NWHITETEXTtHrEDDOCNOLCEuHEvHrVDOCNOLCEx[ COUNTSHOW@z|HB+}HE~HEHBPH[LI[LIE;HBPiH[LI[LIEi[ COUNTSHOW@HE!r NCOUNTCOMMENT[<-H!o L_ENDCOMMENTSLOB*@[ COUNTSHOW@H o}LQE%H[LIEHEHEHE8HEH[LIB NWCH[LIBNDOCINFO!r NCOUNTCOMMENT rNWC! NCOUNTCOMMENTr NCOUNTTEXT rNWC NCOUNTTEXT!r NCHARSCOMMENTrNDOCINFO! NCHARSCOMMENTr NCHARSTEXTrNDOCINFO NCHARSTEXTHrEDDOCNOLCEHEHE[ WHITESPACE WS!r NWHITECOMMENT rWS! NWHITECOMMENTr NWHITETOTAL rWSrNDOCINFO NWHITETOTALr NWHITETEXTrNDOCINFO NWHITETEXTHrVDOCNOLCEHB+<HE<HBPY)VCOMMENTINTEXTBOXH[LI[LIEr NCOUNTBOX rNWC NCOUNTBOXr NCOUNTTEXT rNWC NCOUNTTEXTr NCHARSBOXrNDOCINFO NCHARSBOXr NCHARSTEXTrNDOCINFO NCHARSTEXTr NWHITEBOXrNDOCINFO NWHITEBOXr NWHITETEXTrNDOCINFO NWHITETEXT[ COUNTSHOW@HE[ COUNTSHOW@HEHoL_WBLOB*@HoL_WBLOB*@[ COUNTSHOW@H oLQE%H[LIEH[LIEтHE8HEH[LIB NWCH[LIBNDOCINFO%rNCOUNTWATERMARK rNWC%NCOUNTWATERMARKr NCOUNTTEXT rNWC NCOUNTTEXT%rNCHARSWATERMARKrNDOCINFO%NCHARSWATERMARKr NCHARSTEXTrNDOCINFO NCHARSTEXTHEHrEDDOCNOLCEHEHE[ WHITESPACE WNN%rNWHITEWATERMARK rWNN%NWHITEWATERMARKr NWHITETOTAL rWNNrNDOCINFO NWHITETOTALr NWHITETEXTrNDOCINFO NWHITETEXTHrVDOCNOLCE[ COUNTSHOW@, L_STARTWAHEHo L_STARTHALOB*@Ho L_STARTHALOB*@[ COUNTSHOW@H oLQE%H[LIEH[LIE҂HE8HEH[LIB NWCH[LIBNDOCINFO%rNCOUNTWATERMARK rNWC%NCOUNTWATERMARKr NCOUNTTEXT rNWC NCOUNTTEXT%rNCHARSWATERMARKrNDOCINFO%NCHARSWATERMARKr NCHARSTEXTrNDOCINFO NCHARSTEXTHEHrEDDOCNOLCEHEHE[ WHITESPACE WNN%rNWHITEWATERMARK rWNN NWHITEHEADERr NWHITETOTAL rWNNrNDOCINFO NWHITETOTALr NWHITETEXTrNDOCINFO NWHITETEXTHrVDOCNOLCE[ COUNTSHOW@, L_STARTWBHEHoL_HBLOB*@HoL_HBLOB*@[ COUNTSHOW@H oLQE%H[LIEH[LIE HE8 HE H[LIB NWC H[LIBNDOCINFO r NCOUNTHEADER rNWC NCOUNTHEADERr NCOUNTTEXT rNWC NCOUNTTEXTr NCHARSHEADERrNDOCINFO NCHARSHEADERr NCHARSTEXTrNDOCINFO NCHARSTEXTHEHrEDDOCNOLCEHEHE[ WHITESPACE WNNr NWHITEHEADER rWNN NWHITEHEADERr NWHITETOTAL rWNNrNDOCINFO NWHITETOTALr NWHITETEXTrNDOCINFO NWHITETEXTHrVDOCNOLCE[ COUNTSHOW@, L_STARTHA!"HE#$HoL_FALOB*@%HoL_FALOB*@&[ COUNTSHOW@(H oLQE%)H[LIE*H[LIE+HE8,HE-H[LIB NWC.H[LIBNDOCINFO0r NCOUNTHEADER rNWC NCOUNTHEADER1r NCOUNTTEXT rNWC NCOUNTTEXT2r NCHARSHEADERrNDOCINFO NCHARSHEADER3r NCHARSTEXTrNDOCINFO NCHARSTEXT4HE6HrEDDOCNOLCE7HE8HE9[ WHITESPACE WNN:r NWHITEHEADER rWNN NWHITEHEADER;r NWHITETOTAL rWNNrNDOCINFO NWHITETOTAL<r NWHITETEXTrNDOCINFO NWHITETEXT=HrVDOCNOLCE>[ COUNTSHOW@?, L_STARTHBCDHEEHoL_FBLOB*@FHoL_FBLOB*@GH[ COUNTSHOW@JH oLQE%KH[LIELH[LIENHE8OHEPH[LIB NWCQH[LIBNDOCINFOSr NCOUNTFOOTER rNWC NCOUNTFOOTERTr NCOUNTTEXT rNWC NCOUNTTEXTUr NCHARSFOOTERrNDOCINFO NCHARSFOOTERVr NCHARSTEXTrNDOCINFO NCHARSTEXTWHEYHrEDDOCNOLCEZHE[HE\[ WHITESPACE WNN]r NWHITEFOOTER rWNN NWHITEFOOTER^r NWHITETOTAL rWNNrNDOCINFO NWHITETOTAL_r NWHITETEXTrNDOCINFO NWHITETEXT`HrVDOCNOLCEa, L_STARTFAfgHEhH)oL_ENDHEADERFOOTERLOB*@iH)oL_ENDHEADERFOOTERLOB*@jk[ COUNTSHOW@mH oLQE%nH[LIEoH[LIEqHE8rHEsH[LIB NWCtH[LIBNDOCINFOur NCOUNTFOOTER rNWC NCOUNTFOOTERvr NCOUNTTEXT rNWC NCOUNTTEXTwr NCHARSFOOTERrNDOCINFO NCHARSFOOTERxr NCHARSTEXTrNDOCINFO NCHARSTEXTyHE{HrEDDOCNOLCE|HE}HE~[ WHITESPACE WNNr NWHITEFOOTER rWNN NWHITEFOOTERr NWHITETOTAL rWNNrNDOCINFO NWHITETOTALr NWHITETEXTrNDOCINFO NWHITETEXTHrVDOCNOLCE, L_STARTFBHE0[|t@[|5!11~ CASEOF2731GOODBYE!1j L_STARTFB11?L_ENDHEADERFOOTER!1G` L_STARTFA1fL_FB1CL_FA!1#e L_STARTHB1!PL_HB!1 L_STARTHA!1 L_STARTWB1L_WB!1 L_STARTWA)1 L_ENDCOMMENTS)1z L_SKIPCAPTION'1 L_ENDCAPTION+1F%L_SKIPGRAPHICS)1O L_ENDGRAPHICS'1! L_ENDENDNOTE)1 L_CONTENDNOTE)1 L_ENDFOOTNOTE+1L_CONTFOOTNOTE!1` L_ENDMAIN1ZL_ABOUT1L_MAIN1nL_CANCELNNNHo Counts.102LQr NCOUNTTEXTLQE'Ho Counts.202LQr NCHARSTEXTLQE'Ho Counts.302LQr NWHITETEXTLQE'Ho Counts.102LQ[LIE'Ho Counts.202LQ[LIE'Ho Counts.302LQ[LIE'Ho Counts.120LQrVBOLDONr NCOUNTTOTALLQE'Ho Counts.220LQrVBOLDONr NCHARSTOTALLQE'Ho Counts.320LQrVBOLDONr NWHITETOTALLQE'Ho Counts.120LQ[LIE'Ho Counts.220LQ[LIE'Ho Counts.320LQ[LIE'r NCHARSTOTALr NWHITETOTALNSIZEHo Counts.122LQrVBOLDONrNSIZELQE'Ho Counts.122LQ[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'Ho Counts.119LQ[LIE'Ho Counts.121LQ[LIE'Ho Counts.200LQ[LIE'Ho Counts.202LQ[LIE'Ho Counts.204LQ[LIE'Ho Counts.206LQ[LIE'Ho Counts.208LQ[LIE'Ho Counts.210LQ[LIE'Ho Counts.212LQ[LIE'Ho Counts.214LQ[LIE'Ho Counts.216LQ[LIE'Ho Counts.218LQ[LIE'Ho Counts.220LQ[LIE'Ho Counts.300LQ[LIE'Ho Counts.302LQ[LIE'Ho Counts.304LQ[LIE'Ho Counts.306LQ[LIE'Ho Counts.308LQ[LIE'Ho Counts.310LQ[LIE'Ho Counts.312LQ[LIE'Ho Counts.314LQ[LIE'Ho Counts.316LQ[LIE'Ho Counts.318LQ[LIE'Ho Counts.320LQ[LIE'([*@Ho Counts.108LQ#rNCOUNTFOOTNOTELQE'Ho Counts.108LQ[LIE'Ho Counts.208LQ#rNCHARSFOOTNOTELQE'Ho Counts.208LQ[LIE'Ho Counts.308LQ#rNWHITEFOOTNOTELQE'Ho Counts.308LQ[LIE'([*@Ho Counts.110LQ!r NCOUNTENDNOTELQE'Ho Counts.110LQ[LIE'Ho Counts.210LQ!r NCHARSENDNOTELQE'Ho Counts.210LQ[LIE'Ho Counts.310LQ!r NWHITEENDNOTELQE'Ho Counts.310LQ[LIE'([*@Ho Counts.112LQr NCOUNTBOXLQE'Ho Counts.112LQ[LIE'Ho Counts.212LQr NCHARSBOXLQE'Ho Counts.212LQ[LIE'Ho Counts.312LQr NWHITEBOXLQE'Ho Counts.312LQ[LIE'([*O@Ho Counts.116LQ!r NCOUNTCOMMENTLQE'Ho Counts.116LQ[LIE'Ho Counts.216LQ!r NCHARSCOMMENTLQE'Ho Counts.216LQ[LIE'Ho Counts.316LQ!r NWHITECOMMENTLQE'Ho Counts.316LQ[LIE'([*(@Ho Counts.118LQ%rNCOUNTWATERMARKLQE'Ho Counts.118LQ[LIE'Ho Counts.218LQ%rNCHARSWATERMARKLQE'Ho Counts.218LQ[LIE'Ho Counts.318LQ%rNWHITEWATERMARKLQE'Ho Counts.318LQ[LIE'([*@Ho Counts.114LQ!r NCOUNTCAPTIONLQE'Ho Counts.114LQ[LIE'Ho Counts.214LQ!r NCHARSCAPTIONLQE'Ho Counts.214LQ[LIE'Ho Counts.314LQ!r NWHITECAPTIONLQE'Ho Counts.314LQ[LIE'([*@Ho Counts.104LQr NCOUNTHEADERLQE'Ho Counts.104LQ[LIE'Ho Counts.204LQr NCHARSHEADERLQE'Ho Counts.204LQ[LIE'Ho Counts.304LQr NWHITEHEADERLQE'Ho Counts.304LQ[LIE'([*@Ho Counts.106LQr NCOUNTFOOTERLQE'Ho Counts.106LQ[LIE'Ho Counts.206LQr NCHARSFOOTERLQE'Ho Counts.206LQ[LIE'Ho Counts.306LQr NWHITEFOOTERLQE'Ho Counts.306LQ[LIE'@ rNNN| [|5  HEMH%oTimes New RomanLQEH g(@LXE)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)rCOUNTSTOCLIPBOARDA HIrVBOLDONgo0The Word, Character and White Space counts were:rVBOLDOFFrVHRTLQE!H[LI b@LXEHEHIrVBOLDONo Word CountLQE"HEHEHEHIo CharactersLQE#HEHEHEHIo White SpacesrVBOLDOFFrVHRTrVHRTLQE$HIo Main Text:LQE%H[LI b@LXEHEHIr NCOUNTTEXTLQE&HEHEHEHIr NCHARSTEXTLQE'HEHEHEHIr NWHITETEXTrVHRTLQE(HIoHeaders:LQE)H[LI b@LXEHEHIr NCOUNTHEADERLQE*HEHEHEHIr NCHARSHEADERLQE+HEHEHEHIr NWHITEHEADERrVHRTLQE,HIoFooters:LQE-H[LI b@LXEHEHIr NCOUNTFOOTERLQE.HEHEHEHIr NCHARSFOOTERLQE/HEHEHEHIr NWHITEFOOTERrVHRTLQE0HIo FootNotes:LQE1H[LI b@LXEHEHI#rNCOUNTFOOTNOTELQE2HEHEHEHI#rNCHARSFOOTNOTELQE3HEHEHEHI#rNWHITEFOOTNOTErVHRTLQE4HIo EndNotes:LQE5H[LI b@LXEHEHI!r NCOUNTENDNOTELQE6HEHEHEHI!r NCHARSENDNOTELQE7HEHEHEHI!r NWHITEENDNOTErVHRTLQE8HIo Text Boxes:LQE9H[LI b@LXEHEHIr NCOUNTBOXLQE:HEHEHEHIr NCHARSBOXLQE;HEHEHEHIr NWHITEBOXrVHRTLQE>HIo Captions:LQE?H[LI b@LXEHEHI!r NCOUNTCAPTIONLQE@HEHEHEHI!r NCHARSCAPTIONLQEAHEHEHEHI!r NWHITECAPTIONrVHRTLQEBHIo Comments:LQECH[LI b@LXEHEHI!r NCOUNTCOMMENTLQEDHEHEHEHI!r NCHARSCOMMENTLQEEHEHEHEHI!r NWHITECOMMENTrVHRTLQEFHIo Watermarks:LQEGH[LI b@LXEHEHI%rNCOUNTWATERMARKLQEHHEHEHEHI%rNCHARSWATERMARKLQEIHEHEHEHI%rNWHITEWATERMARKrVHRTLQEKHIrVBOLDONoTotalLQELH[LI b@LXEHEHIrVBOLDONr NCOUNTTOTALLQEMHEHEHEHIr NCHARSTOTALLQENHEHEHEHIr NWHITETOTALrVBOLDOFFrVHRTrVHRTLQEOH[LI b@LXEHEHIrVBOLDONEoTotal document size (inclusive)LQEPHEHEHEHIrVBOLDONrNSIZErVHRTrVHRTLQEQAU+rDOCINFOTOCLIPBOARDVHIrVBOLDONAoThe Document Information was:rVBOLDOFFrVHRTLQEWHIo Characters:LQEXH[LI b@LXEHEHIrNCHARSrVHRTLQEYHIoWords:LQEZH[LI b@LXEHEHIrNWORDSrVHRTLQE[HIo Sentences:LQE\H[LI b@LXEHEHIr NSENTENCESrVHRTLQE]HIoLines:LQE^H[LI b@LXEHEHIrNLINESrVHRTLQE_HIo Paragraphs:LQE`H[LI b@LXEHEHIr NPARAGRAPHSrVHRTLQEaHIoPages:LQEbH[LI b@LXEHEHIrNPAGESrVHRTLQEcHI/oAverage Word Length:LQEdH[LI b@LXEHEHI#rNAVGWORDLENGTHrVHRTLQEeHI;oAverage Words / Sentence:LQEfH[LI b@LXEHEHI/rNAVGWORDSPERSENTENCErVHRTLQEgHI9oMaximum Words / Sentence:LQEhH[LI b@LXEHEHI/rNMAXWORDSPERSENTENCErVHRTrVHRTLQEik)rVCOMMENTINTEXTBOX~lHIrVBOLDON1oComment 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 countrVHRTrVHRTLQEp~rHI[LIEYsH[LIE\tHImo3Count produced by macro CharCount.Wcm, version 13.0rVHRTLQEuHI1oCopyright, Charles E.LQEvHELwHI;oRossiter, 2006 December 05rVHRTLQExHI3ocharles@rossiter.co.zarVHRTLQEyHE`zE {HIoMThere was no request to send information from CharCount.wcm to the ClipBoard.LQE|}HE8~HEH[LIEY[|5!!NNNHE8HB6["VNSIZE rNNN[*!!rNSIZErVNSIZENSIZEHErVNSIZErNDOCINFO|[|5$#NNNH[LIBNCHARSH[LIBNWORDSrNWORDS NNNH[LIBNLINESH[LIB NSENTENCESH[LIB NPARAGRAPHSH[LIBNPAGESH[LIB#NAVGWORDLENGTHH[LIB/NAVGWORDSPERSENTENCEH[LIB/NMAXWORDSPERSENTENCE rNNN|[|5HE*!((Hx LIB)VHRTH[L@[LIB,+ NNN rNNN aXb/FB2 rNNN a`/FB-(HvVANSLR!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[-(HE*(([|5[)51LAGAIN1LENDNOW1LLOOP21LNEXT21LLOOP11ELNEXT11$LQUIT+!1 COUNTSHOW+1$$CHECKVERSION11#1qq DIALOGMSGS%1 TOCLIPBOARD#1  WHITESPACE1!WORD_CNTN!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreter3nnnsmWordCount(mK Z6Times New Roman Regular  B'XdXXX?XXd9% X+5`pXX9  _MacroCharCount.Wcm@$Version13.1.0}}?(#Page  1  ڀof  38  ڈ  CharlesE.Rossiter@charles@rossiter.co.za;(#2006December05 o A|) xdE-xA vBoldOnCharCount.WcmvBoldOff vHRt NtoC(3$ !XXXX!XX9% X+5`pXX9  H(3$ !XXXX!XX9% X+5`pXX9  wmCharCount,iAZArial Macro to count charactersMacro 6: ' 0Charles E. Rossiter00Charles E. Rossiter .   )!dxdx d|||||)!dxdx|)!dxdx||||?Single Blue!dxdx"Arial Regular  d4>g2Arail 10XXXXQzXX dd>:StandardFontStandard Font Choice&u%%&u&u%%&u)))))!dxdx)!dxdx)!dxdx d,Yellow Filldd||||)!dxdx)!dxdx(3$ !XXXX!XX9% X+5`pXX9  4>^2Arial 10X XXX^uXXX E<<CLevel 1Level 2Level 3Level 4Level 5(3$ !XXXX!XX9% X+5`pXX9  ($$   2  P Pd)!dxdx d)! dxdx)!dxdx&0 d d)!dxdx&P d dA X C)!dxdx3+0 d d d3+0 d d ddd&p d Pd)!dxdx%%%%)!dxdx&p Pd dd ddd(d2d7) 3 (#.33 //Needfor12emptydocumentforwritingofresults    MessageBox(;"WordCount";"Thismacroneedstouseoneortwoemptydocuments"+vHRt+      "Youarenowusing8or9availabledocuments"+vHRt+vHRt+ {v    "Pleasecloseonedocument,andthenrerunCharCount"+vHRt) :5    Display(On!)     ReDisplay()     Go(lQuit) wr    EndIf 61  While(?SubStructure)0 #0(#.  (# (##//Footnotes,endnotesetc.Ԉ      SubstructureExit sn    EndWhile 2- While(?GraphicSelected())0 #  '(#.  (# (##//CheckforagraphicsboxselectedԈ     BoxEnd(Save!;Hide!) oj   EndWhile .)  @//Initialsetupandtest Ԉ  Global(vHRt=NToC(63754);vBoldOn=NToC(65048);vBoldOff=NToC(65049)) *% Global(nChars;nWords;nSentences;nLines;nParagraphs;nPages)  Global(nAvgWordLength;nAvgWordsPerSentence;nMaxWordsPerSentence)  Global(vModFlag=?DocModified;vBlockActive=?BlockActive;nDocInfo) gb If(?DocReadOnly) &!   vModFlag=True   EndIf ! If(vBlockActive=False) "!#   GlobalvFilename=ToLower(?path+?name) !$ Else "%   GlobalvFilename="Fortheselectedtext" _#Z& Endif $' If(vFilename="") $(   GlobalvFilename="Forthisunsaveddocument" %) EndIf [&V*   ' +    FF1(#. //SetUpWorkingDocuments   GlobalvDocOriginal=?DocNumber ~ GlobalvDocBlockActive=0 B = ЀFileNew()   ЀvDocBlockActive=?DocNumber   If(NotExists(Win95)) > 9 ЀPersistWin95=False   EndIf    vPN=MacroInfo(InfoItem:PlatformName!) {v  If((vPN="Win95"orvPN="Win98"orvPN="WinME")andWin95=False) :5  Win95=True   MessageBox(;"CharCount";"Pleasedonotrunthismacromorethan3or4timesinoneWPWin   session"+NToC(0F90Ah)+"ThereareresourceissuesinWin95,Win98andWinME";IconWarning!) wr  EndIf 61  If(Exists(CountsToClipboard))   Else sn  0  #(#. (#(##//SetdefaultnottosaveCharCountsandDocinfototheClipboard 2-  Persist(CountsToClipboard=False;DocInfoToClipboard=False)  EndIf  IfPlatform(_version13!)0  #(#.  (# (##//WordCountSettingsinWPWinX3modifyadocumentcharcount Ԉ .) WordCountSetting(Headers!;On!)  WordCountSetting(Footers!;On!)  WordCountSetting(Comments!;On!) kf WordCountSetting(Footnotes!;On!) *% WordCountSetting(Endnotes!;On!)  WordCountSetting(Watermarks!;On!)  WordCountSetting(Textboxes!;On!) gb WordCountSetting(BoxCaptions!;On!) &! EndIfPlatform()   SwitchDoc(vDocOriginal) c ^" If(vBlockActive) !$   EditCopy() "%   BookMarkCreate("mCharCount") ^ &(#.^^"//Setsbookmarkaroundselectedtext _#Z& " Else $'   SelectAll() $(   EditCopy() %) EndIf   [&V*   SelectOff() ' +   If(?DocNumber<>vDocBlockActive) (!-   SwitchDoc(vDocBlockActive) W)R".   EndIf *#0   EditPaste() +$1   PosDocTop() S,N%2   - &3 ,,?IfPlatform(Thanks)#?,,p$#   A@ dd72ARemovalofDelayCodes  72 SpecialthankstoBarryMacDonnellandKennethHobsonfortheirvaluablehelpindevelopingthe  techniquesbelowforhandlingDelayCodes   @t o$@,,?EndIfPlatform(Thanks)#?,,>&# t o    (#. //Routinetoremove[Delay]and[DelayCodes]codesfromtext &Ԉ   GlobalDelay_Count=00  #-(#.  (# (##//Arethereany[DelayCodes]? w'Ԉ   GlobalDelayCodes_Count=0 e ` GlobalnoDelayPages=0 $   PosDocBottom()    nPages=?page   PosDocBottom() a\  OnNotFound(lNext1)    MatchSelection()   Label(lLoop1)   SearchString(StrgToLookFor:"> E [DelayCodes]?  ") ]X  SearchPrevious(Extended!)   DelayCodes_Count=DelayCodes_Count+1   Go(lLoop1)   Label(lNext1) YT PosDocVeryTop()  OnNotFound(lNext2)  Label(lLoop2)  SearchString(StrgToLookFor:"> D [Delay]?  ") UP SearchNext(SearchMode:Extended!)  Delay_Count=Delay_Count+1  Go(lLoop2)  Label(lNext2) QL 0   #! ! (#. (#(##//Numberof[Delay]codesshouldequalnumberof[DelayCodes]codes +Ԉ   If(Delay_Count>DelayCodes_Count)  MessageBox(;"[DelayCodes]codeproblem";  "Pleasecheckyour[DelayCodes].Thereappearstobea[DelayCodes]codemissing,") MH  Quit  ! EndIf " If(Delay_Count 9   If(?BlockActive)       EditCopy()      EndIf {v    rc=ClipboardGet :5    SelectMode(Off!)     While(?substructure)       SubstructureExit() wr    EndWhile 61    Until(5 rc<>""ornoDelayPages>nPages)   PosPagePrevious() sn  PosPageBottom() 2- MatchLimit(Yes!;1)  MatchSelection()  SearchString(StrgToLookFor:"> E [DelayCodes]?  ") oj ReplaceString("") .) ReplaceForward(SearchMode:Extended!)  EditPaste()  EndFor kf Label(lEndNow)     @ //Setuplanguagespecificdetails 7Ԉ   //OptionalchangesW8  ~ GlobalvDlgWidth=800 #xx(#.  (# (##//Changethistoamendthewidthofthedialog,   8      1  \      '(#. @3 // @^  @ ifneededtoallowforlongertext   9//Maindisplay  \ e:      3  (#.33 //Changethefollowingtexts,betweenquotes,ifdesired  z : GlobalvWordCount=  "WordCounts" > 9 GlobalvCharsCount=  "Characters"   GlobalvWhiteCount=  "WhiteSpaces"    GlobalvMainTextWordCount=   3 "MainTextCount" {v  GlobalvFootNotesWordCount= 3 "FootnotesCount" :5  GlobalvEndNotesWordCount= 3 "EndnotesCount"   GlobalvTextBoxesWordCount= 3 "TextBoxesCount"   GlobalvCommentsWordCount= 3 "CommentsCount" wr  GlobalvWatermarksWordCount=0 3 "WatermarksCount"61 3(#3(# GlobalvCaptionsWordCount=0  03(#(#"CaptionsCount" 3(#3(# GlobalvHeadersWordCount=   3 "HeadersCount"   GlobalvFootersWordCount=   3 "FootersCount" sn  GlobalvTotalWordCount=   "TotalCount" 2- GlobalvSize=0 \ 0 \ (#\ (#0 (# (#0 (# (#"Totaldocumentsize(inclusive)" (# (#  //Buttontexts  \ \@    (#. //IncludetheAmpersand"&"tocreatetheoperatingkeystroke oj @ GlobalvButtonExit=  "E&xit" .) GlobalvButtonOK=  "&OK"  GlobalvButtonView=  "&ViewWordPerfectDocumentInformation"  GlobalvButtonAbout=  "&About" kf GlobalvButtonDocInfo=0 "PlaceWP&DocumentInformationonClipboard"*% (# (# GlobalvButtonCounts=0 "PlaceChar&CountInformationonClipboard" (# (# GlobalvOptions=0 0 (# (#0 (# (#"Optionsforsavingresults" (# (#  //Abouttexts D  &! GlobalAbout01=0 vBoldOn%  Ԁ+" MacroCharCount.Wcm(v13.0) "+vBoldOff+vHRt+"forWordPerfect   forWindows,versions9X3"! (# (# GlobalAbout02=0 NtoC(4;23)+vBoldOn+" CharlesRossiter,2006December05" +vHRt+  c ^" "charles@rossiter.co.za ""!# (# (# GlobalAbout03=0 vBoldOn+"WPWin8notsupported:"+vBoldOff!$ (# (# GlobalAbout04=0 "ThisversionofCharCount.wcmdoesnotworkwithWPWin8.Pleaseemailmeif "% youneedaWPWin8"+vHRt+_#Z& (# (#      1  \  "version,andIwillmodifythemacrosothatitdoesfunctionadequately."+vHRt+ $'      1  \  "WPWin8doesnotnecessarilygivethesamewordcountsasfor"+ $(      1  \  "WPWin9WPWinX3." %) GlobalAbout05=0 vBoldOn+"CompanionMacro:WordCount.Wcm"+vBoldOff[&V* (# (# GlobalAbout06=0 "Thiscompanionmacroprovidesthewordcountsonly."+vHRt+"Itisprovided ' + separatelyasitislesscomplex."+vHRt+vHRt+"Thismacroisavailableat ' , http://rossiter.co.za/downloads"(!- (# (#   W)R".       1  \       3 //Setupinitialvaluesandsettings J  0   Prompt("CharacterCountforWordPerfectversions9X3";vHRt+~(#(# Ѐ"Pleasewaitsettingupthemacro."+vHRt+vHRt;InformationIcon!|NoButtons!;10) B = KWait(10)   GlobalvDocNo=?DocNumber > 9 GlobalvOriginalDocNo=vDocNo   GlobalvBActive=?BlockActive()    GlobalnCountText=0    GlobalnWhiteText=00   5 GlobalnCharsText=0 x  :5  (# (# GlobalnCountFootnote=0   GlobalnWhiteFootnote=00 5 GlobalnCharsFootnote=0 x   5(#5(# GlobalnCountEndNote=0   GlobalnWhiteEndnote=0 5 GlobalnCharsEndnote=0   GlobalnCountHeader=0   GlobalnWhiteHeader=0 5 GlobalnCharsHeader=0 x   wr  GlobalnCountFooter=00 0 (# (#GlobalnWhiteFooter=005(#(#GlobalnCharsFooter=061 5(#5(# GlobalnCountBox=0    GlobalnWhiteBox=0  0 5 GlobalnCharsBox=0 x   5(#5(# GlobalnCountCaption=00   GlobalnWhiteCaption=0 5 GlobalnCharsCaption=0 x    (# (# GlobalnCountComment=0  GlobalnWhiteComment=0 5 GlobalnCharsComment=0 x   sn  GlobalnCountWatermark=00  GlobalnWhiteWatermark=00`(#(#GlobalnCharsWatermark=02-`(#`(# GlobalnCountTotal=0    GlobalnWhiteTotal=0   5 GlobalnCharsTotal=?DocumentInformation  GlobalnSize=0  GlobalvExit=2 oj GlobalvModFlag=?DocModified .) GlobalvCommentInTextBox=False  If(?DocReadOnly) kf   vModFlag=True *% EndIf  GlobalIndicMain=True gb MatchSelection() &!     FileNew()  GlobalEdDocNo=?DocNumber0 3 #QQ(#.33 3(#3(##//Workingdocumentforwhitespacecalculation ~ T SwitchDoc(vDocNo)   If(vBActive>0)  z   EditCopy() > 9   BookMarkCreate("mCharCount") ^ &(#.^^" @^ //Setsbookmarkaroundselectedtext   V   SelectOff()      FileNew() \ 0 0 (# (#    3 #6 6 (#.33 (# (## @^ //Createanewdocumentjustcontainingtheselectedtext,forcounting {v  =W   EditPaste() :5    vDocNo=?DocNumber     PosDocTop()       EndIf wr       1  \       3  ^  //Mainsectionofmacro5Y  61  BookMarkCreate("mCharCount")   PosDocVeryTop() sn  //Display(Off!) 2- InhibitInput(On!)  nCountText=nCountText+Word_Cnt(?SelectedText) oj nCountTotal=nCountText .)    @  //ShowCountsDialogZ   DialogDefine("Counts";90;50;vDlgWidth+225;300;Percent!;"DocumentCharacterCountInformation") ~ @# //Maindialog[    DialogAddText("Counts";100;vDlgWidth+27;8;55;12;Center!|RecessBox!;vWordCount)  z DialogAddText("Counts";101;10;26;VDlgWidth;12;Left!;vMainTextWordCount) > 9 DialogAddText("Counts";102;VDlgWidth+31;25;50;13;Right!|ShadowBox!;nCountText)   DialogAddText("Counts";103;10;41;VDlgWidth;20;Left!;vHeadersWordCount)    DialogAddText("Counts";104;VDlgWidth+31;40;50;13;Right!|ShadowBox!;nCountHeader) {v  DialogAddText("Counts";105;10;56;VDlgWidth;20;Left!;vFootersWordCount) :5  DialogAddText("Counts";106;VDlgWidth+31;55;50;13;Right!|ShadowBox!;nCountFooter)   DialogAddText("Counts";107;10;71;VDlgWidth;12;Left!;vFootnotesWordCount)   DialogAddText("Counts";108;VDlgWidth+31;70;50;13;Right!|ShadowBox!;nCountFootnote) wr  DialogAddText("Counts";109;10;86;VDlgWidth;12;Left!;vEndnotesWordCount) 61  DialogAddText("Counts";110;VDlgWidth+31;85;50;13;Right!|ShadowBox!;nCountEndNote)   DialogAddText("Counts";111;10;101;VDlgWidth;12;Left!;vTextBoxesWordCount)   DialogAddText("Counts";112;VDlgWidth+31;100;50;13;Right!|ShadowBox!;nCountBox) sn  DialogAddText("Counts";113;10;116;vDlgWidth;12;Left!;vCaptionsWordCount) 2- DialogAddText("Counts";114;vDlgWidth+31;115;50;13;Right!|ShadowBox!;nCountCaption)  DialogAddText("Counts";115;10;131;vDlgWidth;12;Left!;vCommentsWordCount)  DialogAddText("Counts";116;vDlgWidth+31;130;50;13;Right!|ShadowBox!;nCountComment) oj DialogAddText("Counts";117;10;146;vDlgWidth;12;Left!;vWatermarksWordCount) .) DialogAddText("Counts";118;vDlgWidth+31;145;50;13;Right!|ShadowBox!;nCountWatermark)  DialogAddText("Counts";119;10;164;VDlgWidth;12;Left!|WPChars!;vBoldOn+vTotalWordCount)  DialogAddText("Counts";120;VDlgWidth+31;164;50;13;Right!|ShadowBox!|WPChars!; kf     vBoldOn+nCountTotal) *% DialogAddText("Counts";121;10;184;vDlgWidth+70;12;Right!|WPChars!;vBoldOn+vSize)  DialogAddText("Counts";122;vDlgWidth+95;183;50;13;Right!|ShadowBox!|WPChars!;vBoldOn+  nSize) gb DialogAddPushButton("Counts";130;112;265;vDlgWidth+100;12;NonDefaultBttn!;vButtonView) &! DialogAddPushButton("Counts";131;112;280;62;12;NonDefaultBttn!;vButtonAbout)   DialogAddPushButton("Counts";132;230;280;62;12;CancelBttn!|DefaultBttn!;vButtonExit) ! DialogAddText("Counts";133;112;210;vDlgWidth+98;49;Center!|WPChars!|RecessBox!; c ^"     vBoldOn+vOptions) "!# DialogAddCheckBox("Counts";134;120;225;vDlgWidth+95;12;vButtonCounts;CountsToClipboard) !$ DialogAddCheckBox("Counts";135;120;240;vDlgWidth+95;12;vButtonDocInfo;DocInfoToClipboard) "% @  //Charactersdialogh  $' DialogAddText("Counts";200;vDlgWidth+91;8;55;12;Center!|RecessBox!;vCharsCount) %) DialogAddText("Counts";202;VDlgWidth+95;25;50;13;Right!|ShadowBox!;nCharsText) [&V* DialogAddText("Counts";204;VDlgWidth+95;40;50;13;Right!|ShadowBox!;nCharsHeader) ' + DialogAddText("Counts";206;VDlgWidth+95;55;50;13;Right!|ShadowBox!;nCharsFooter) ' , DialogAddText("Counts";208;VDlgWidth+95;70;50;13;Right!|ShadowBox!;nCharsFootnote) (!- DialogAddText("Counts";210;VDlgWidth+95;85;50;13;Right!|ShadowBox!;nCharsEndNote) W)R". DialogAddText("Counts";212;VDlgWidth+95;100;50;13;Right!|ShadowBox!;nCharsBox) *#/ DialogAddText("Counts";214;vDlgWidth+95;115;50;13;Right!|ShadowBox!;nCharsCaption) *#0 DialogAddText("Counts";216;vDlgWidth+95;130;50;13;Right!|ShadowBox!;nCharsComment) +$1 DialogAddText("Counts";218;vDlgWidth+95;145;50;13;Right!|ShadowBox!;nCharsWatermark) S,N%2 DialogAddText("Counts";220;VDlgWidth+95;164;50;13;Right!|ShadowBox!|WPChars!; - &3     vBoldOn+nCharsTotal) -&4      1  \       3 //WhiteSpacesdialogn   DialogAddText("Counts";300;vDlgWidth+156;8;55;12;Center!|RecessBox!;vWhiteCount)  DialogAddText("Counts";302;VDlgWidth+160;25;50;13;Right!|ShadowBox!;nWhiteText) ~ DialogAddText("Counts";304;VDlgWidth+160;40;50;13;Right!|ShadowBox!;nWhiteHeader) B = DialogAddText("Counts";306;VDlgWidth+160;55;50;13;Right!|ShadowBox!;nWhiteFooter)   DialogAddText("Counts";308;VDlgWidth+160;70;50;13;Right!|ShadowBox!;nWhiteFootnote)   DialogAddText("Counts";310;VDlgWidth+160;85;50;13;Right!|ShadowBox!;nWhiteEndNote)  z DialogAddText("Counts";312;VDlgWidth+160;100;50;13;Right!|ShadowBox!;nWhiteBox) > 9 DialogAddText("Counts";314;vDlgWidth+160;115;50;13;Right!|ShadowBox!;nWhiteCaption)   DialogAddText("Counts";316;vDlgWidth+160;130;50;13;Right!|ShadowBox!;nWhiteComment)    DialogAddText("Counts";318;vDlgWidth+160;145;50;13;Right!|ShadowBox!;nWhiteWatermark) {v  DialogAddText("Counts";320;VDlgWidth+160;164;50;13;Right!|ShadowBox!|WPChars!; :5      vBoldOn+nWhiteTotal)         1  \       3 //AboutDialogyt  wr  DialogAddFrame("Counts";500;vDlgWidth+11;5;183;48;Black!) 61  DialogAddText("Counts";501;vDlgWidth+11;6;183;45;Center!|RecessBox!|WPChars!;About01)   DialogAddText("Counts";502;vDlgWidth+14;33;180;17;Center!|WPChars!;About02)   DialogAddText("Counts";503;vDlgWidth+11;55;183;13;Center!|RecessBox!|WPChars!;About03) sn  DialogAddText("Counts";504;vDlgWidth+11;69;183;55;Left!|RecessBox!|WPChars!;About04) 2- DialogAddText("Counts";505;vDlgWidth+11;128;183;13;Left!|RecessBox!|WPChars!;About05)  DialogAddText("Counts";506;vDlgWidth+11;141;183;69;RecessBox!;"")  DialogAddText("Counts";507;vDlgWidth+14;142;180;65;WPChars!;About06) oj      1  \       3  //PropertiesDialogx   DialogDefine("Prop";54;61;336;179;Percent!;Caption:"Properties") kf DialogSetProperties("Prop";"Arial";10p) *% DialogAddText("Prop";1;40;6;44;14;RecessBox!+Left!;"Information")  DialogAddText("Prop";2;40;60;36;10;Left!;"Characters:")  DialogAddText("Prop";3;40;75;36;10;Left!;"Words:") gb DialogAddText("Prop";4;40;90;36;10;Left!;"Sentences:") &! DialogAddText("Prop";5;40;105;36;10;Left!;"Lines:")   DialogAddText("Prop";6;40;120;36;10;Left!;"Paragraphs:") ! DialogAddText("Prop";7;40;135;36;10;Left!;"Pages:") c ^" 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) "% DialogAddText("Prop";12;85;90;36;10;Left!;nSentences) _#Z& 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) %) DialogAddText("Prop";16;140;60;72;10;Left!;"Averagewordlength:") [&V* DialogAddText("Prop";17;140;75;94;10;Left!;"Averagewordspersentence") ' + DialogAddText("Prop";18;140;90;106;10;Left!;"Maximumwordspersentence:") ' , DialogAddText("Prop";19;250;60;36;10;Left!;nAvgWordLength) (!- DialogAddText("Prop";20;250;75;36;10;Left!;nAvgWordsperSentence) W)R". DialogAddText("Prop";21;250;90;36;10;Left!;nMaxWordsperSentence) *#/ DialogAddPushButton("Prop";"OKBttn";268;150;50;14;OKBttn!;"&OK") *#0   +$1 @  //Setupinitialdialogdisplay,everythinghidden؀   RegionShowWindow("Counts.100";Hide!) ~ RegionShowWindow("Counts.101";Hide!) B = RegionShowWindow("Counts.102";Hide!)   RegionShowWindow("Counts.103";Hide!)   RegionShowWindow("Counts.104";Hide!)  z RegionShowWindow("Counts.105";Hide!) > 9 RegionShowWindow("Counts.106";Hide!)   RegionShowWindow("Counts.107";Hide!)    RegionShowWindow("Counts.108";Hide!) {v  RegionShowWindow("Counts.109";Hide!) :5  RegionShowWindow("Counts.110";Hide!)   RegionShowWindow("Counts.111";Hide!)   RegionShowWindow("Counts.114";Hide!) wr  RegionShowWindow("Counts.115";Hide!) 61  RegionShowWindow("Counts.116";Hide!)   RegionShowWindow("Counts.117";Hide!)   RegionShowWindow("Counts.118";Hide!) sn  RegionShowWindow("Counts.119";Hide!) 2- RegionShowWindow("Counts.121";Hide!)  RegionShowWindow("Counts.122";Hide!)  RegionShowWindow("Counts.130";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.500";Hide!).) (# (# RegionShowWindow("Counts.131";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.501";Hide!) (# (# RegionShowWindow("Counts.132";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.502";Hide!) (# (# RegionShowWindow("Counts.133";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.503";Hide!)kf (# (# RegionShowWindow("Counts.134";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.504";Hide!)*% (# (# RegionShowWindow("Counts.135";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.505";Hide!) (# (#      1  \       3  ^         RegionShowWindow("Counts.506";Hide!)       1  \       3  ^         RegionShowWindow("Counts.507";Hide!) gb RegionShowWindow("Counts.200";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.300";Hide!)  (# (# RegionShowWindow("Counts.202";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.302";Hide!)! (# (# RegionShowWindow("Counts.204";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.304";Hide!)c ^" (# (# RegionShowWindow("Counts.206";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.306";Hide!)"!# (# (# RegionShowWindow("Counts.208";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.308";Hide!)!$ (# (# RegionShowWindow("Counts.210";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.310";Hide!)"% (# (# RegionShowWindow("Counts.212";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.312";Hide!)_#Z& (# (# RegionShowWindow("Counts.214";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.314";Hide!)$' (# (# RegionShowWindow("Counts.216";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.316";Hide!)$( (# (# RegionShowWindow("Counts.218";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.318";Hide!)%) (# (# RegionShowWindow("Counts.220";Hide!)0  0(#(#0(#(#0 (#(#RegionShowWindow("Counts.320";Hide!)[&V* (# (# EndPrompt() ' ,  DialogShow ("Counts"%  ;"PerfectScript";DialogMsgs;"132") (!-  CallBackWait  *#/  Return@ //EndofShowCounts,  *#0   +$1 @O O  //ProcedureforhandlingDialogresponses Ԉ   ProcedureDialogMsgs()  ~  Switch(DialogMsgs[5])  B =  CaseOf273:   0  Go(CaseOf273)  z(#(# CaseOf274: \    0   3  #'(#.33 (#(##//userclosesDialogwithAlt+F4 > 9 4  DialogDestroy("Counts")      CallBackResume       Go(l_Cancel) {v  Default:    If(IndicMain)      Call(l_Main) 0 0 (# (#0 (# (#0 (# (# #ee(#.(#(##0@3(#(#//Routineforcountingwordsandcharacters wr     Endif 61        1  \       3 //OutputdisplayA    RegionShowWindow("Counts.100";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.112";Show!)2-(#(# RegionShowWindow("Counts.101";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.113";Show!)(#(# RegionShowWindow("Counts.102";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.114";Show!)(#(# RegionShowWindow("Counts.103";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.115";Show!)oj(#(# RegionShowWindow("Counts.104";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.116";Show!).)(#(# RegionShowWindow("Counts.105";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.117";Show!)(#(# RegionShowWindow("Counts.106";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.118";Show!)(#(# RegionShowWindow("Counts.107";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.119";Show!)0 (#(#0@ (#(#0@ (#(#0@ (#(#kf (# (# RegionShowWindow("Counts.108";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.120";Show!)*%(#(# RegionShowWindow("Counts.109";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.121";Show!)(#(# RegionShowWindow("Counts.110";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.122";Show!)(#(# RegionShowWindow("Counts.111";Show!)0  0(#(#0(#(#gb(#(# 0  0(#(# (#(# RegionShowWindow("Counts.130";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.133";Show!) (#(# RegionShowWindow("Counts.131";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.134";Show!)!(#(# RegionSetWindowText("Counts.132";vButtonExit)  RegionShowWindow("Counts.135";Show!) c ^" RegionShowWindow("Counts.132";Show!)0  0(#(#0(#(#"!#(#(# RegionShowWindow("Counts.200";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.300";Show!)"%(#(# RegionShowWindow("Counts.202";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.302";Show!)_#Z&(#(# RegionShowWindow("Counts.204";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.304";Show!)$'(#(# RegionShowWindow("Counts.206";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.306";Show!)$((#(# RegionShowWindow("Counts.208";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.308";Show!)%)(#(# RegionShowWindow("Counts.210";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.310";Show!)[&V*(#(# RegionShowWindow("Counts.212";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.312";Show!)' +(#(# RegionShowWindow("Counts.214";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.314";Show!)' ,(#(# RegionShowWindow("Counts.216";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.316";Show!)(!-(#(# RegionShowWindow("Counts.218";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.318";Show!)W)R".(#(# RegionShowWindow("Counts.220";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.320";Show!)*#/(#(#   +$1 Label(CaseOf273) 0 0 (# (#0 (# (#   #(#. (# (##//themacrowillnevergettocallbackarrayelement3        1  \      RR(#. @3 //withoutcallbackarrayelement5being273    Switch(DialogMsgs[3]) 0 0 (# (# #ss%(#.(#(## @ //userchoosesabuttonontheDialog B = CaseOf"130" :0 \ 0 \ (#\ (#0 (# (# 0 (# (# #GG!(#.(#(##0@3(#(#//ShowtheWPDocumentInformationDialog   ~   DialogShow("Prop")    CaseOf"132" :0 \ 0 \ (#\ (#0 (# (#0 (# (#  #(#. (# (##0@3 (# (#//UserclicksonExit,orhitsReturnorEscape > 9    If(vExit=1)0 0 (# (#0 (# (#  #(#. (# (##0@3 (# (#//actionofExitbutton,basedonmarkervExit   ȯ     Go(l_About) 0 0 (# (#0 (# (# #((6(#.(#(## @3 //IfinAboutscreen    հ   Else {v      DialogDestroy("Counts") 0 3 #7(#.33 3(#3(##0@^3(#3(#//Ifatmainscreen :5  ñ     CallBackResume     Go(l_Cancel)      Endif wr   CaseOf"134":    0  CountsToClipboard=1CountsToClipboard (#(#  CaseOf"135":  2-   DocInfoToClipboard=1DocInfoToClipboard        1  \       3 //SectiontohandleAboutbuttonpressK  oj  CaseOf"131": 0 \  0 \ (#\ (#0 (# (#0 (# (#03(#(# #(#.33 3(#3(##//UserclicksontheAboutbuttonswitchtoAboutscreen  3   vExit=10 \ 0 \ (#\ (# 0 (# (#0 (# (# #(#.(#(##0@3(#(#//markertosetactionofExitbutton(ienototalexitfrom"about")  > RegionShowWindow("Counts.100";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.112";Hide!)*%(#(# RegionShowWindow("Counts.101";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.113";Hide!)(#(# RegionShowWindow("Counts.102";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.114";Hide!)(#(# RegionShowWindow("Counts.103";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.115";Hide!)gb(#(# RegionShowWindow("Counts.104";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.116";Hide!)&!(#(# RegionShowWindow("Counts.105";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.117";Hide!) (#(# RegionShowWindow("Counts.106";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.118";Hide!)!(#(# RegionShowWindow("Counts.107";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.119";Hide!)0 (#(#0@ (#(#0@ (#(#0@ (#(#c ^" (# (# RegionShowWindow("Counts.108";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.120";Hide!)"!#(#(# RegionShowWindow("Counts.109";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.121";Hide!)!$(#(# RegionShowWindow("Counts.110";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.122";Hide!)"%(#(# RegionShowWindow("Counts.111";Hide!)0  0(#(#0(#(#_#Z&(#(# 0  0(#(# (#(# RegionShowWindow("Counts.130";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.134";Hide!)$((#(# RegionShowWindow("Counts.131";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.135";Hide!)%)(#(# RegionShowWindow("Counts.133";Hide!) [&V*   ' + RegionShowWindow("Counts.200";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.300";Hide!)(#(# RegionShowWindow("Counts.202";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.302";Hide!)(#(# RegionShowWindow("Counts.204";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.304";Hide!)~(#(# RegionShowWindow("Counts.206";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.306";Hide!)B =(#(# RegionShowWindow("Counts.208";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.308";Hide!) (#(# RegionShowWindow("Counts.210";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.310";Hide!) (#(# RegionShowWindow("Counts.212";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.312";Hide!) z(#(# RegionShowWindow("Counts.214";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.314";Hide!)> 9(#(# RegionShowWindow("Counts.216";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.316";Hide!) (#(# RegionShowWindow("Counts.218";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.318";Hide!)  (#(# RegionShowWindow("Counts.220";Hide!)0  0(#(#0(#(#RegionShowWindow("Counts.320";Hide!){v (#(# RegionShowWindow("Counts.500";Show!)   RegionShowWindow("Counts.501";Show!)   RegionShowWindow("Counts.502";Show!) wr  RegionShowWindow("Counts.503";Show!) 61  RegionShowWindow("Counts.504";Show!)   RegionShowWindow("Counts.505";Show!)   RegionShowWindow("Counts.506";Show!) sn  RegionShowWindow("Counts.507";Show!) 2- RegionShowWindow("Counts.132";Show!)        1  \      //SectiontohandlereturntomaindialogfromAboutscreen  .)  CaseOf"99": 0 \ 0 \ (#\ (#0 (# (#0 (# (#0 (# (# 3 #BB(#.33 (#(##//DummyCaseOf,toprovideasafelocationfortheswitch  Label(l_About) 0 0 (# (#0 (# (#0 (# (# 3 #(#.33 (#(##0@3 (# (#//fromtheHelpscreenbacktothemaindialog kf    vExit=20 \ 0 \ (#\ (#0 (# (#0 (# (#0 (# (# #(#.(#(## @3 //markertosetactionofExitbutton(ieexitwithmainExitbutton) *%  RegionShowWindow("Counts.500";Hide!)  RegionShowWindow("Counts.501";Hide!) gb RegionShowWindow("Counts.502";Hide!) &! RegionShowWindow("Counts.503";Hide!)   RegionShowWindow("Counts.504";Hide!) ! RegionShowWindow("Counts.505";Hide!) c ^" RegionShowWindow("Counts.506";Hide!) "!# RegionShowWindow("Counts.507";Hide!) !$  RegionShowWindow("Counts.100";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.112";Show!)_#Z&(#(# RegionShowWindow("Counts.101";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.113";Show!)$'(#(# RegionShowWindow("Counts.102";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.114";Show!)$((#(# RegionShowWindow("Counts.103";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.115";Show!)%)(#(# RegionShowWindow("Counts.104";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.116";Show!)[&V*(#(# RegionShowWindow("Counts.105";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.117";Show!)' +(#(# RegionShowWindow("Counts.106";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.118";Show!)' ,(#(# RegionShowWindow("Counts.107";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.119";Show!)0 (#(#0@ (# (#0@ (#(#0@ (#(#(!- (# (# RegionShowWindow("Counts.108";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.120";Show!)W)R".(#(# RegionShowWindow("Counts.109";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.121";Show!)*#/(#(# RegionShowWindow("Counts.110";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.122";Show!)*#0(#(# RegionShowWindow("Counts.111";Show!)0  0(#(#0(#(#+$1(#(#   S,N%2 RegionShowWindow("Counts.130";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.133";Show!)(#(# RegionShowWindow("Counts.131";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.134";Show!)(#(# RegionSetWindowText("Counts.132";vButtonExit)0  RegionShowWindow("Counts.135";Show!)~(#(# RegionShowWindow("Counts.132";Show!) B = RegionShowWindow("Counts.200";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.300";Show!) (#(# RegionShowWindow("Counts.202";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.302";Show!) z(#(# RegionShowWindow("Counts.204";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.304";Show!)> 9(#(# RegionShowWindow("Counts.206";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.306";Show!) (#(# RegionShowWindow("Counts.208";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.308";Show!)  (#(# RegionShowWindow("Counts.210";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.310";Show!){v (#(# RegionShowWindow("Counts.212";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.312";Show!):5 (#(# RegionShowWindow("Counts.214";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.314";Show!) (#(# RegionShowWindow("Counts.216";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.316";Show!) (#(# RegionShowWindow("Counts.218";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.318";Show!)wr (#(# RegionShowWindow("Counts.220";Show!)0  0(#(#0(#(#RegionShowWindow("Counts.320";Show!)61 (#(#  Go(l_EndMain)     sn  Label(l_Cancel) 0 0 (# (#0 (# (#0 (# (#03(#(# //EndingTidyupC 3(#3(#   ToClipboard  ~ While(?SubStructure())     SubStructureExit()     EndWhile  z If(?DocNumber<>vDocBlockActive)   SwitchDoc(vDocBlockActive)    EndIf {v    HardReturn() :5    CloseNoSave()   If(?DocNumber<>EdDocNo) wr  SwitchDoc(EdDocNo) 61  EndIf     CloseNoSave(No!)   If(?DocNumber<>vDocOriginal) 2-   SwitchDoc(vDocOriginal)    EndIf  If(vBlockActive) .)   BookMarkBlock("mCharCount")    SelectOff()    BookMarkDelete("mCharCount") kf   ReselectLastBlock() *% EndIf  If((vModFlag=false)and(vBActive=false)) gb 0  #rr(#. (#(##0@(#(#//Ifthedocumentwasunmodifiedoriginally,saveitagain &!    Prompt("CharacterCountFinishing";vBoldOn+"PleasewaitwhileCharacterCounttidiesup"+       vBoldOff+vHRt;NoButtons!|InformationIcon!) !   Wait(10) c ^"   CloseNoSave(No!) "!#   FileOpen(vFileName) !$   Endif "%  OnCancel(GoodBye)  $' If(vCommentInTextBox) $(   Prompt("CommentinaTextBox";"Therewasatleastone"+vBoldOn+"Comment"+vBoldOff %) 0  +"insidea"+vBoldOn+"TextBox"+vBoldOff+vHRt+"Thecountsforsuchcommentshavebeen" [&V* +"includedunderComments,"+vHRt+"notaspartoftheTextBoxcount";InformationIcon!| ' + NoButtons!)' ,(#(# Pause (!- EndIf W)R".  Label(GoodBye) *#0  Quit  +$1   S,N%2       1  \       3 //SectionforMainText#       1  \       3 //CharacterCountTotal       yy(#. @1 //ThesubstructurecountsneedtobesubtractedfromtheTotaltogivetheTextCount B = S Label(l_Main)   If(IndicMain=True)     IndicMain=False  z   PosDocVeryTop() > 9   Endif   SelectOff()    CountShow(0) {v       1  \       //SectionforWhiteSpaceCountMainText    CountShow(1) wr  nCharsText=nCharsTotal 61  nDocInfo=nCharsText   nWhiteText=WhiteSpace(0) sn  nWhiteTotal=nWhiteText 2- EndPrompt()  CountShow(1)  PosDocVeryTop() .) NotFound(On!)          1  \       3 //SectionforFootnotes    NotFound(On!)  Label(l_ContFootNote)  ~  OnNotFound(l_EndFootNote)  B = CountShow(1)   SearchString(StrgToLookFor:">  [Footnote]?  ")  3(#.%0 @ //Searchfor[FootNote] > 9 : SearchNext(SearchMode:Regular!)   FootNoteEdit()    SelectAll() {v  EditCopy() :5    nWC=DocumentInfo(Words!)     nDocInfo=DocumentInfo(Characters!)   nCountFootNote=nCountFootNote+nWC 61  nCountText=nCountTextnWC   0  # (#. (#(## @ #@ (#.(#(## @ //Footnotecountsshouldnothave1addedfortheautonumberinthenote    nCharsFootNote=nCharsFootNote+nDocInfo sn  nCharsText=nCharsTextnDocInfo 2- SelectOff()  If(?SubStructure) oj   SubStructureExit() .)   EndIf  SelectOff()  SwitchDoc(EdDocNo) *% ClearDoc()  Editpaste()  WS=WhiteSpace(0) &! nWhiteFootNote=nWhiteFootNote+WS   nWhiteTotal=nWhiteTotal+WS+nDocInfo ! nWhiteText=nWhiteText+nDocInfo c ^" SwitchDoc(vDocNo) "!# CountShow(1) !$  Go(l_ContFootNote) _#Z& Label(l_EndFootNote)  $' CountShow(1) $(   %)       1  \       3 //SectionforEndnotes   PosDocVeryTop() ~  Label (l_ContEndNote )    OnNotFound(l_EndEndNote)    CountShow(2)  z SearchString(StrgToLookFor:">  [Endnote]?  ")  0  #%%4(#.'(#(##0@(#(#//Searchfor[EndNote] > 9 j SearchNext(SearchMode:Regular!)   EndNoteEdit()    SelectAll() {v  EditCopy() :5    nWC=DocumentInfo(Words!)     nDocInfo=DocumentInfo(Characters!)   nCountEndNote=nCountEndNote+nWC wr  nCountText=nCountTextnWC 61       1   (#.11 @ //Endnotecountsshouldnothave1addedfortheautonumberinthenote    nCharsEndNote=nCharsEndNote+nDocInfo   nCharsText=nCharsTextnDocInfo sn  SelectOff()  If(?SubStructure)    SubStructureExit() oj   EndIf .) SelectOff()  SwitchDoc(EdDocNo) kf ClearDoc() *% Editpaste()  WS=WhiteSpace(0)  nWhiteEndNote=nWhiteEndNote+WS gb nWhiteTotal=nWhiteTotal+WS+nDocInfo &! nWhiteText=nWhiteText+nDocInfo   SwitchDoc(vDocNo) !  Go (l_ContEndNote ) "!#  Label(l_EndEndNote)  !$ CountShow(2) "% Ѐ  _#Z&       1  \       3  ^ //SectionforTextBoxes    CountShow(3)  PosDocVeryTop() ~ If(?boxCount<1) B =   Go(l_EndGraphics)        EndIf    OnError(l_EndGraphics)  > 9 NBoxes=?BoxCount    For(i;1;Nboxes;i+1)  {v  CountShow(3) :5  BoxEdit(i)   If(?BoxContentType<>1)0   (# (# 0  Go(l_SkipGraphics )0 (#(#0 (# (#EndIfwr (#(# BoxContentEdit() 61  SelectAll()   EditCopy()     nWC=DocumentInfo(Words!) sn    nDocInfo=DocumentInfo(Characters!) 2- nCountBox=nCountBox+nWC  nCountText=nCountTextnWC  nCharsBox=nCharsBox+nDocInfo oj nCharsText=nCharsTextnDocInfo .) SwitchDoc(EdDocNo)  ClearDoc()  Editpaste() kf WS=WhiteSpace(0) *% nWhiteBox=nWhiteBox+WS  nWhiteTotal=nWhiteTotal+WS+nDocInfo  nWhiteText=nWhiteText+nDocInfo gb SwitchDoc(vDocNo) &! PosCharNext()   CountShow(3) !  Label(l_SkipGraphics)  c ^"  If(?SubStructure) "!# 0  SubStructureExit()!$(#(# 0  EndIf"%(#(# SelectOff() _#Z& If(?GraphicSelected) $' 0  BoxEnd(Save!;Hide!)$((#(#   EndIf  %) EndFor  [&V*  Label(l_EndGraphics)  ' + CountShow(3) ' , If(?GraphicSelected)0 0 (# (#BoxEnd(Save!;Hide!)0 (# (#  EndIf (!-(#(# @//SectionforGraphicsCaptions Ԉ  CountShow(6) ~ PosDocVeryTop()   If(?boxCount<1)     Go(l_EndCaption)   z     EndIf > 9  OnError(l_EndCaption)     NBoxes=?BoxCount {v   For(i;1;Nboxes;i+1)    CountShow(6) wr  BoxEdit(i) 61  If(?BoxContentType<>3)     Go(l_SkipCaption ) sn      EndIf 2- BoxCaptionEdit()  SelectAll()     nWC=DocumentInfo(Words!) oj   nDocInfo=DocumentInfo(Characters!) .) nCountCaption=nCountCaption+nWC  nCountText=nCountTextnWC  nCharsCaption=nCharsCaption+nDocInfo kf nCharsText=nCharsTextnDocInfo *% WS=WhiteSpace(0)  nWhiteCaption=nWhiteCaption+WS gb nWhiteTotal=nWhiteTotal+WS+nDocInfo &! nWhiteText=nWhiteText+nDocInfo   SwitchDoc(EdDocNo) c ^" ClearDoc() "!# SwitchDoc(vDocNo) !$ CountShow(6) _#Z&  Label(l_SkipCaption)  $( While(?SubStructure) [&V*   SubStructureExit() ' +     EndWhile ' , SelectOff() (!- If(?GraphicSelected) W)R". 0  BoxEnd(Save!;Hide!)*#/(#(#   EndIf *#0  EndFor  S,N%2  Label(l_EndCaption) -&4  If(?GraphicSelected)  BoxEnd(Save!;Hide!) ~ EndIf B = CountShow(6)            1  \       3 //SectionforCommentsP   PosDocVeryTop()  While(nCountComment>1) ~  OnNotFound(l_EndComments) B =  CountShow(4)   SearchString(StrgToLookFor:"> } [Comment]?  ")   SearchNext(SearchMode:Extended!)  z SelectOff() > 9 CommentEdit()   SelectAll()    EditCopy() {v    nWC=DocumentInfo(Words!) :5    nDocInfo=DocumentInfo(Characters!)   nCountComment=nCountComment+nWC   nCountText=nCountTextnWC wr  nCharsComment=nCharsComment+nDocInfo 61  nCharsText=nCharsTextnDocInfo   SwitchDoc(EdDocNo)   ClearDoc() sn  Editpaste() 2- WS=WhiteSpace(0)  nWhiteComment=nWhiteComment+WS  nWhiteTotal=nWhiteTotal+WS+nDocInfo oj nWhiteText=nWhiteText+nDocInfo .) SwitchDoc(vDocNo)  If(?SubStructure)0 SubStructureExit()0^ (# (#Endifkf^(#^(# If(?GraphicSelected) *%   vCommentInTextBox=True    BoxEnd(Save!;Hide!)    nCountBox=nCountBoxnWC gb   nCountText=nCountText+nWC &!   nCharsBox=nCharsBoxnDocInfo   0  0(#(# # (#.(#(##0@^(#^(#//Acommentinsideatextboxhastoberemovedfromboxcount !    nCharsText=nCharsText+nDocInfo0  0(#(# #((#.'(#(##0@^(#^(#//andreaddedtototaltextcount c ^"    nWhiteBox=nWhiteBox+nDocInfo "!#   nWhiteText=nWhiteTextnDocInfo !$   CountShow(3) "% EndIf _#Z& PosCharNext() $( EndWhile %)  Label(l_EndComments)  [&V* CountShow(4) ' +   ' ,       1  \       3 //SectionforWatermarkA   PosDocVeryTop() ~  Label(l_StartWA)  B =  OnNotFound(l_WB)   OnError(l_WB)    CountShow(5)  z SearchString(StrgToLookFor:">  [WatermarkA]?  ")  0(#.'0 @ //Searchfor[WatermarkA]    SearchNext(SearchMode:Regular!)    WatermarkA(Action:Edit!) {v  SelectAll()   EditCopy()     nWC=DocumentInfo(Words!) wr    nDocInfo=DocumentInfo(Characters!) 61  nCountWatermark=nCountWatermark+nWC   nCountText=nCountTextnWC   nCharsWatermark=nCharsWatermark+nDocInfo sn  nCharsText=nCharsTextnDocInfo 2- SubStructureExit()  SwitchDoc(EdDocNo) oj ClearDoc() .) Editpaste()  wNN=WhiteSpace(0)  nWhiteWatermark=nWhiteWatermark+wNN kf nWhiteTotal=nWhiteTotal+wNN+nDocInfo *% nWhiteText=nWhiteText+nDocInfo  SwitchDoc(vDocNo)  CountShow(5) gb  Go(l_StartWA)  &!   !      1  \       3 //SectionforWatermarkB!    Label(l_WB) ~  PosDocVeryTop() B =  Label(l_StartWB)     OnNotFound(l_StartHA)   OnError(l_StartHA)  z  CountShow(5) > 9 SearchString(StrgToLookFor:">  [WatermarkB]?  ")  0(#.'0 @ //Searchfor[WatermarkB]    # SearchNext(SearchMode:Regular!) {v  WatermarkB(Action:Edit!) :5  SelectAll()   EditCopy()     nWC=DocumentInfo(Words!) wr    nDocInfo=DocumentInfo(Characters!) 61  nCountWatermark=nCountWatermark+nWC   nCountText=nCountTextnWC   nCharsWatermark=nCharsWatermark+nDocInfo sn  nCharsText=nCharsTextnDocInfo 2- SubStructureExit()  SwitchDoc(EdDocNo) oj ClearDoc() .) Editpaste()  wNN=WhiteSpace(0)  nWhiteHeader=nWhiteWatermark+wNN kf nWhiteTotal=nWhiteTotal+wNN+nDocInfo *% nWhiteText=nWhiteText+nDocInfo  SwitchDoc(vDocNo)  CountShow(5) gb Go(l_StartWB) &!           1  \       3 //SectionforHeaderA(   PosDocVeryTop() ~  Label(l_StartHA)  B =  OnNotFound(l_HB)   OnError(l_HB)    CountShow(7)  z SearchString(StrgToLookFor:">  [HeaderA]?  ")  3(#.%0 @ //Searchfor[HeaderA]   * SearchNext(SearchMode:Regular!)    HeaderA(Action:Edit!) {v  SelectAll()   EditCopy()     nWC=DocumentInfo(Words!) wr    nDocInfo=DocumentInfo(Characters!) 61  nCountHeader=nCountHeader+nWC   nCountText=nCountTextnWC   nCharsHeader=nCharsHeader+nDocInfo sn  nCharsText=nCharsTextnDocInfo 2- SubStructureExit()  SwitchDoc(EdDocNo) oj ClearDoc() .) Editpaste()  wNN=WhiteSpace(0)  nWhiteHeader=nWhiteHeader+wNN kf nWhiteTotal=nWhiteTotal+wNN+nDocInfo *% nWhiteText=nWhiteText+nDocInfo  SwitchDoc(vDocNo)  CountShow(7) gb  Go(l_StartHA)  &!   !      1  \       3 //SectionforHeaderB.    Label(l_HB) ~  PosDocVeryTop() B =  Label(l_StartHB)     OnError(l_FA)   OnNotFound(l_FA)   z CountShow(7) > 9 SearchString(StrgToLookFor:">  [HeaderB]?  ")  3(#.%0 @ //Searchfor[HeaderB]    u0 SearchNext(SearchMode:Regular!) {v  HeaderB(Action:Edit!) :5  SelectAll()   EditCopy()     nWC=DocumentInfo(Words!) wr    nDocInfo=DocumentInfo(Characters!) 61  nCountHeader=nCountHeader+nWC   nCountText=nCountTextnWC sn  nCharsHeader=nCharsHeader+nDocInfo 2- nCharsText=nCharsTextnDocInfo  SubStructureExit()  SwitchDoc(EdDocNo) .) ClearDoc()  Editpaste()  wNN=WhiteSpace(0) kf nWhiteHeader=nWhiteHeader+wNN *% nWhiteTotal=nWhiteTotal+wNN+nDocInfo  nWhiteText=nWhiteText+nDocInfo  SwitchDoc(vDocNo) gb CountShow(7) &! Go(l_StartHB)     !       1  \       3 //ContinuationforFooterAE5    Label(l_FA)  ~ PosDocVeryTop() B =  OnError(l_FB)   OnNotFound(l_FB)   Label(l_StartFA)   z  CountShow(8) > 9 SearchString(StrgToLookFor:">  [FooterA]?  ")  %%3(#.%0 @ //Searchfor[FooterA]    6 SearchNext(SearchMode:Regular!) {v  FooterA(Action:Edit!) :5  SelectAll()   EditCopy() wr    nWC=DocumentInfo(Words!) 61    nDocInfo=DocumentInfo(Characters!)   nCountFooter=nCountFooter+nWC sn  nCountText=nCountTextnWC 2- nCharsFooter=nCharsFooter+nDocInfo  nCharsText=nCharsTextnDocInfo  SubStructureExit() oj SwitchDoc(EdDocNo)  ClearDoc()  Editpaste() kf wNN=WhiteSpace(0) *% nWhiteFooter=nWhiteFooter+wNN  nWhiteTotal=nWhiteTotal+wNN+nDocInfo  nWhiteText=nWhiteText+nDocInfo gb SwitchDoc(vDocNo) &!  Go(l_StartFA)      c ^"      1  \       3 //ContinuationforFooterB;    Label(l_FB)  ~ PosDocVeryTop() B =  OnError(l_EndHeaderFooter)   OnNotFound(l_EndHeaderFooter)   Label(l_StartFB)   z  CountShow(8) > 9 SearchString(StrgToLookFor:">  [FooterB]?  ")  0  //Searchfor[FooterB]T=  (#(# SearchNext(SearchMode:Regular!) {v  FooterB(Action:Edit!) :5  SelectAll()   EditCopy() wr    nWC=DocumentInfo(Words!) 61    nDocInfo=DocumentInfo(Characters!)   nCountFooter=nCountFooter+nWC   nCountText=nCountTextnWC sn  nCharsFooter=nCharsFooter+nDocInfo 2- nCharsText=nCharsTextnDocInfo  SubStructureExit()  SwitchDoc(EdDocNo) .) ClearDoc()  Editpaste()  wNN=WhiteSpace(0) kf nWhiteFooter=nWhiteFooter+wNN *% nWhiteTotal=nWhiteTotal+wNN+nDocInfo  nWhiteText=nWhiteText+nDocInfo  SwitchDoc(vDocNo) gb Go(l_StartFB) &!  Label(l_EndHeaderFooter)  !  PosDocTop() c ^" Return  "!#  Label(l_EndMain) "% EndSwitch 0 1 0\ 1(#1(#0 \ (#\ (#0 (# (#0 (# (#0 (# (#03(#(# #hh(#.33 3(#3(##0@^3(#3(#//Endofroutinesrelatedtokeypresses,ieDialogMasg[3] _#Z& BEndSwitch 0 1 0\ 1(#1(#0 \ (#\ (#0 (# (#0 (# (#0 (# (#03(#(# #  (#.33 3(#3(##0@^3(#3(#//EndofroutinesrelatedtoALtF4check,ieDialogMasg[5] $' C EndProcedure 0 \ 0 \ (#\ (#0 (# (#0 (# (#0 (# (#03(#(# #jj-(#.33 3(#3(##0@^3(#3(#//EndofProcedureDialogMsgs %) (E   [&V*       1  \       3  ^  //FunctiontowritecountstothecountdialogMF    FunctionCountShow(nnn)  RegionSetWindowText("Counts.102";nCountText) ~ RegionSetWindowText("Counts.202";nCharsText) B = RegionSetWindowText("Counts.302";nWhiteText)   RegionShowWindow("Counts.102";Show!)   RegionShowWindow("Counts.202";Show!)  z RegionShowWindow("Counts.302";Show!) > 9 RegionSetWindowText("Counts.120";vBoldOn+nCountTotal)   RegionSetWindowText("Counts.220";vBoldOn+nCharsTotal)    RegionSetWindowText("Counts.320";vBoldOn+nWhiteTotal) {v  RegionShowWindow("Counts.120";Show!) :5  RegionShowWindow("Counts.220";Show!)   RegionShowWindow("Counts.320";Show!)   nSize=nCharsTotal+nWhiteTotal wr  RegionSetWindowText("Counts.122";vBoldOn+nSize) 61  RegionShowWindow("Counts.122";Show!)   Switch(nnn)   CaseOf0: 2- RegionShowWindow("Counts.101";Show!)  RegionShowWindow("Counts.103";Show!)  RegionShowWindow("Counts.105";Show!) oj RegionShowWindow("Counts.107";Show!) .) RegionShowWindow("Counts.109";Show!)  RegionShowWindow("Counts.111";Show!)  RegionShowWindow("Counts.113";Show!) kf RegionShowWindow("Counts.115";Show!) *% RegionShowWindow("Counts.117";Show!)  RegionShowWindow("Counts.119";Show!)  RegionShowWindow("Counts.121";Show!) gb RegionShowWindow("Counts.200";Show!)   RegionShowWindow("Counts.202";Show!) ! RegionShowWindow("Counts.204";Show!) c ^" RegionShowWindow("Counts.206";Show!) "!# RegionShowWindow("Counts.208";Show!) !$ RegionShowWindow("Counts.210";Show!) "% RegionShowWindow("Counts.212";Show!) _#Z& RegionShowWindow("Counts.214";Show!) $' RegionShowWindow("Counts.216";Show!) $( RegionShowWindow("Counts.218";Show!) %) RegionShowWindow("Counts.220";Show!) [&V* RegionShowWindow("Counts.300";Show!) ' , RegionShowWindow("Counts.302";Show!) (!- RegionShowWindow("Counts.304";Show!) W)R". RegionShowWindow("Counts.306";Show!) *#/ RegionShowWindow("Counts.308";Show!) *#0 RegionShowWindow("Counts.310";Show!) +$1 RegionShowWindow("Counts.312";Show!) S,N%2 RegionShowWindow("Counts.314";Show!) - &3 RegionShowWindow("Counts.316";Show!) -&4 RegionShowWindow("Counts.318";Show!)  RegionShowWindow("Counts.320";Show!)  %  CaseOf1: B = RegionSetWindowText("Counts.108";nCountFootNote)   RegionShowWindow("Counts.108";Show!)   RegionSetWindowText("Counts.208";nCharsFootNote)  z RegionShowWindow("Counts.208";Show!) > 9 RegionSetWindowText("Counts.308";nWhiteFootNote)   RegionShowWindow("Counts.308";Show!)    CaseOf2: :5  RegionSetWindowText("Counts.110";nCountEndNote)   RegionShowWindow("Counts.110";Show!)   RegionSetWindowText("Counts.210";nCharsEndNote) wr  RegionShowWindow("Counts.210";Show!) 61  RegionSetWindowText("Counts.310";nWhiteEndNote)   RegionShowWindow("Counts.310";Show!)   CaseOf3: 2- RegionSetWindowText("Counts.112";nCountBox)  RegionShowWindow("Counts.112";Show!)  RegionSetWindowText("Counts.212";nCharsBox) oj RegionShowWindow("Counts.212";Show!) .) RegionSetWindowText("Counts.312";nWhiteBox)  RegionShowWindow("Counts.312";Show!)  CaseOf4: *% RegionSetWindowText("Counts.116";nCountComment)  RegionShowWindow("Counts.116";Show!)  RegionSetWindowText("Counts.216";nCharsComment) gb RegionShowWindow("Counts.216";Show!) &! RegionSetWindowText("Counts.316";nWhiteComment)   RegionShowWindow("Counts.316";Show!) ! CaseOf5: "!# RegionSetWindowText("Counts.118";nCountWatermark) !$ RegionShowWindow("Counts.118";Show!) "% RegionSetWindowText("Counts.218";nCharsWatermark) _#Z& RegionShowWindow("Counts.218";Show!) $' RegionSetWindowText("Counts.318";nWhiteWatermark) $( RegionShowWindow("Counts.318";Show!) %) CaseOf6: ' + RegionSetWindowText("Counts.114";nCountCaption) ' , RegionShowWindow("Counts.114";Show!) (!- RegionSetWindowText("Counts.214";nCharsCaption) W)R". RegionShowWindow("Counts.214";Show!) *#/ RegionSetWindowText("Counts.314";nWhiteCaption) *#0 RegionShowWindow("Counts.314";Show!) +$1 CaseOf7: - &3 RegionSetWindowText("Counts.104";nCountHeader) -&4 RegionShowWindow("Counts.104";Show!)  RegionSetWindowText("Counts.204";nCharsHeader)  RegionShowWindow("Counts.204";Show!) ~ RegionSetWindowText("Counts.304";nWhiteHeader) B = RegionShowWindow("Counts.304";Show!)   CaseOf8:  z RegionSetWindowText("Counts.106";nCountFooter) > 9 RegionShowWindow("Counts.106";Show!)   RegionSetWindowText("Counts.206";nCharsFooter)    RegionShowWindow("Counts.206";Show!) {v  RegionSetWindowText("Counts.306";nWhiteFooter) :5  RegionShowWindow("Counts.306";Show!)   EndSwitch wr  Return(nnn) 61   EndFunc_        `@ //RoutineforputtingresultstoClipboard[`    ProcedureToClipboard() ` B = FileNew()   Font("TimesNewRoman")0 FontSize(12p) z (# (# @ //CountstoClipboarda     If(CountsToClipboardorDocInfoToClipboard) b {v  Font("TimesNewRoman")0 FontSize(12p):5  (# (# AttributeAppearanceOn(Bold!;Underline!)   Type(vFilename)   AttributeNormal() wr  Type(vHRt+vHRt+"On") 61  DateText()   vTim=TimeString(;"HH:mm:ss")   Type("at"+vTim+",thecountswereasfollows:"+vHRt+vHRt) sn   #d If (CountsToClipboard) Td  Type(vBoldOn+"TheWord,CharacterandWhiteSpacecountswere:"+vBoldOff+vHRt)  Advance(ToPosition!;3.0")   3 TabDecimal()  Type(vBoldOn+"WordCount") oj TabDecimal() \  TabDecimal() 3 TabDecimal()  Type("Characters") .) TabDecimal() \  TabDecimal() 3 TabDecimal()  Type("WhiteSpaces"+vBoldOff+vHRt+vHRt)  Type("MainText:")  Advance(ToPosition!;3.0")0  03(#(#TabDecimal()  Type(nCountText)kf3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsText) *% TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteText+vHRt)  Type("Headers:")  Advance(ToPosition!;3.0")0  03(#(#TabDecimal()  Type(nCountHeader)gb3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsHeader) &! TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteHeader+vHRt)   Type("Footers:") ! Advance(ToPosition!;3.0")0  03(#(#TabDecimal()  Type(nCountFooter)c ^"3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsFooter) "!# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteFooter+vHRt) !$ Type("FootNotes:") "% Advance(ToPosition!;3.0")   0 3 TabDecimal()  Type(nCountFootNote)_#Z&3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsFootNote) $' TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteFootNote+vHRt) $( Type("EndNotes:") %) Advance(ToPosition!;3.0")0  03(#(#TabDecimal()  Type(nCountEndNote)[&V*3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsEndNote) ' + TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteEndNote+vHRt) ' , Type("TextBoxes:") (!- Advance(ToPosition!;3.0")   3 TabDecimal()  Type(nCountBox) W)R". TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsBox) *#/ TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteBox+vHRt) *#0   +$1      1  \       3 //WritingtoClipboard(continued)Dq   Type("Captions:")  Advance(ToPosition!;3.0")0  03(#(#TabDecimal()  Type(nCountCaption)~3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsCaption) B = TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteCaption+vHRt)   Type("Comments:")   Advance(ToPosition!;3.0")0  03(#(#TabDecimal()  Type(nCountComment) z3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsComment) > 9 TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteComment+vHRt)   Type("Watermarks:")    Advance(ToPosition!;3.0")0  03(#(#TabDecimal()  Type(nCountWatermark){v 3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsWatermark) :5  TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteWatermark+vHRt)   Type(vBoldOn+"Total") wr  Advance(ToPosition!;3.0")0  03(#(#TabDecimal()03(#3(#Type(vBoldOn+nCountTotal)61 (#(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nCharsTotal)   TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(nWhiteTotal+vBoldOff+vHRT+vHRt)   Advance(ToPosition!;3.0")  0 3 TabDecimal()  Type(vBoldOn+"Totaldocumentsize(inclusive)")sn 3(#3(# TabDecimal() \  TabDecimal() 3 TabDecimal()  Type(vBoldOn+nSize+vHRt+vHRt) 2- EndIf     '(#. //DocumentInformationtoClipboardzԈ oj  z If(DocInfoToClipboard) z  Type(vBoldOn+"TheDocumentInformationwas:"+vBoldOff+vHRt)  Type("Characters:") kf Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()  Type(nChars+vHRt)*%(#(# Type("Words:")  Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()0(#(#Type(nWords+vHRt)(#(# Type("Sentences:") gb Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()0(#(#Type(nSentences+vHRt)&!(#(# Type("Lines:")   Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()0(#(#Type(nLines+vHRt)!(#(# Type("Paragraphs:") c ^" Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()0(#(#Type(nParagraphs+vHRt)"!#(#(# Type("Pages:") !$ Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()0(#(#Type(nPages+vHRt)"%(#(# Type("AverageWordLength:") _#Z& Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()0(#(#Type(nAvgWordLength+vHRt)$'(#(# Type("AverageWords/Sentence:") $( Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()0(#(#Type(nAvgWordsPerSentence+vHRt)%)(#(# Type("MaximumWords/Sentence:") [&V* Advance(ToPosition!;4.0")0 0 (# (#TabDecimal()0(#(#Type(nMaxWordsPerSentence+vHRt+vHRt)' +(#(# EndIf ' ,  If(vCommentInTextBox)  W)R". Type(vBoldOn+"CommentinaTextBox:"+vBoldOff+vHRt+"Therewasatleastone"+vBoldOn+ *#/   "Comment"+vBoldOff+"insidea"+vBoldOn+"TextBox"+vBoldOff+vHRt+ *#0   "ThecountsforsuchcommentshavebeenincludedunderComments,"+vHRt+ +$1   "notaspartoftheTextBoxcount"+vHRt+vHRt) S,N%2 EndIf - &3      1  \       3  //EndingText  -&4 AttributeAppearanceOn(Italics!)  AttributeRelativeSize(Small!)  Type("CountproducedbymacroCharCount.Wcm,version13.0"+vHRt) ~ Type("Copyright,CharlesE.") B = HardSpace()   Type("Rossiter,2006December05"+vHRt)   Type("charles@rossiter.co.za"+vHRt)  z AttributeNormal() > 9 Else0  01(#(#0\ 1(#1(#0 \ (#\ (#0 (# (#0 (# (#0 (# (# #)(#.(#(##0@3(#(#//NothingbeingsenttoClipboard   = Type("TherewasnorequesttosendinformationfromCharCount.wcmtotheClipBoard.")    EndIf {v  SelectAll() :5  EditCut() 1  \      ]](#. @3 //Cutoutputresults,andplaceonClipboard   Ԉ Close(No!)    EndProcedure  wr    61       1  \       3 //Functionforcountingwhitespaces1        1  \       3 //Spaces,Hardreturns,LineBreaks,Tabs    FunctionWhiteSpace(nnn)  B = SelectAll()   vnSize=(?SelectedTextSizeDIV2) > 9 If(nnn=1)   EndIf    nSize=nSize+vnSize {v  SelectOff() :5   IfPlatform(KeepTheseAsBackup)     OnNotFound(l_EndSpaces)  wr  SearchString(StrgToLookFor:"") 61  PosDocTop()   While(nnn>1)   SearchNext(SearchMode:Regular!) sn  nnn=nnn+1 2- EndWhile   Label(l_EndSpaces)  oj  OnNotFound(l_EndHRt)  .) PosDocTop()  SearchString(StrgToLookFor:">  [HRt]?  ")  While(nnn>1) kf SearchNext(SearchMode:Regular!) *% nnn=nnn+1  EndWhile   Label(l_EndHRt) &! OnNotFound(l_EndLineBreak)    PosDocTop() ! SearchString(StrgToLookFor:">  [LnBrk]?  ") c ^" While(nnn>1) "!# SearchNext(SearchMode:Regular!) !$ nnn=nnn+1 "% EndWhile _#Z&  Label(l_EndLineBreak) $( OnNotFound(l_EndTabs)  %) PosDocTop() [&V* SearchString(StrgToLookFor:"> Y [Tab(all)]?  ") ' + While(nnn>1) ' , SearchNext(SearchMode:Regular!) (!- nnn=nnn+1 W)R". EndWhile *#/ Label(l_EndTabs) *#0   +$1      1  \       3 //Functionforcountingwhitespaces(continued)Ē       1  \       3 //Hardpages,Tablerows,Tablecells  OnNotFound(l_HPgs)  B = PosDocTop()   SearchString(StrgToLookFor:">  [HPg]?  ")   While(nnn>1)  z SearchNext(SearchMode:Regular!) > 9 nnn=nnn+1   EndWhile    Label(l_HPgs) {v   OnNotFound(l_Rows)  :5  PosDocTop()   SearchString(StrgToLookFor:">  [Row]?  ")   While(nnn>1) wr  SearchNext(SearchMode:Regular!) 61  nnn=nnn+1   EndWhile   Label(l_Rows) sn   OnNotFound(l_Cells)  2- PosDocTop()  SearchString(StrgToLookFor:">  [Cell]?  ")  While(nnn>1) oj SearchNext(SearchMode:Regular!) .) nnn=nnn+1  EndWhile  Label(l_Cells) kf  OnNotFound(l_Dormant)    3  ^     !(#.'  @ //DormantHRTsarenotincludedintheWP  {      1  \       3  ^     )(#.' @ //countofcharactersinthefile   PosDocTop() \       3  ^     /(#.' @ //Thisprovidescorrection. gb  SearchString(StrgToLookFor:">  [DormHRt]?  ") &! While(nnn>1)   SearchNext(SearchMode:Regular!) ! nnn=nnn+1 c ^" EndWhile "!# Label(l_Dormant) !$  EndIfPlatform "% Return(vNsizenDocInfo)0  03(#(#0^3(#3(#0^(#^(# #(#.%(#(## 0@^3(#3(#//WhiteSpace=Totalcharactersminuscharactercount $' ΜEndFunc  $(   %)      1  \       3  ^  //RoutinetogetWordCountfromPropertiesDialog    FunctionWord_Cnt(nnn)  ~ nChars=0 1 0\ 1(#1(#0 \ (#\ (#0 (# (#0 (# (#DocumentInfo(Characters!)B = (# (# nWords=0 1 0\ 1(#1(#0 \ (#\ (#0 (# (#0 (# (#DocumentInfo(Words!)  (# (# nnn=nWords   nLines=0 1 0\ 1(#1(#0 \ (#\ (#0 (# (#0 (# (#DocumentInfo(Lines!) z (# (# nSentences=0 \ 0 \ (#\ (#0 (# (#0 (# (#DocumentInfo(Sentences!)> 9 (# (# nParagraphs=0 \ 0 \ (#\ (#0 (# (#0 (# (#DocumentInfo(Paragraphs!)  (# (# nPages=0 1 0\ 1(#1(#0 \ (#\ (#0 (# (#0 (# (#DocumentInfo(Pages!)   (# (# nAvgWordLength=0 0 (# (#DocumentInfo(AweWordLength!){v  (# (# nAvgWordsperSentence=0 DocumentInfo(AweNumOfWords!):5  (# (# nMaxWordsperSentence=0 DocumentInfo(MaxNumOfWords!)  (# (# Return(nnn)    EndFunc wr       1  \      //ActiveendofMacroCharCount.WcmF 61  Label(lQuit)   Quit sn   ProcedureCheckVersion11()  2(#. //CheckBuildofWPWin11J}  oj vHRt=NToC(63754) .) nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!)  If(nnn<11000000000300.0andnnn>11000000000000.0)  MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+ kf "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+ *% "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+  "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt;  OKCancel!|IconWarning!) gb If(vAns>1)0 \ Quit0 \ (#\ (#EndIf0 (# (#EndIf (#(#  EndProc  c ^"      1  \      //EndoftextofMacroCharCount.Wcm  !$