ࡱ> db`q` RbjbjqPqP .:: * BBBBB===Z111111 h L1=====1BBF[[[=BB[=[[[B6 Эha= [\0[> G > [> [|==[=====11Q =======$   h$o(,1h. A!"#$% D@D NormalCJ_HaJmH nHsH tHDAD Default Paragraph FontViV  Table Normal :V 44 la (k(No List   "&8!0XC 7""7""@0(  B S  ?*Cp < [K;!7.sFmKcneZs\x@<$4:#wb-P<k^JV ..  WordCountAll WordCountAllHH2H2H2H20( WordCountAllLaunch Word Count AllThisDocument.LaunchWordCountAll/TemplateProject.ThisDocument.LaunchWordCountAll /TEMPLATEPROJECT.THISDOCUMENT.LAUNCHWORDCOUNTALL@@UnknownGz Times New Roman5Symbol3& z ArialG h-3 fgMS Mincho"0h&D$r4d9 Q3HX)?;!2Ryan Ryan GinstromOh+'0|  8 D P\dltRyanWordCountAll.dotRyan Ginstrom24Microsoft Office Word@@\@xga՜.+,0 hp  GITS  Title Count @MS UI Gothic((UUngroup Textboxesoun {u MS UI Gothic2<WordsLabelicN, #28WordsValueic]8$2HCharactersNoSpacesLabelN'4%28CharsNoSpacesValueLa]'<&2HCharactersWithSpacesLabelN4'28CharsWithSpacesValue]4(2HSingleByteWordsLabelN4)28SingleByteWordsValue]4*2HDoubleByteCharsLabelO4+28 DoubleByteCharsValue]41# IncludeInWordcountFrame(/78 OKButton"(02H Label11n14L UngroupTextBoxesButtone". Microsoft Forms 2.0 FormEmbedded Object9qDocumentSummaryInformation8Macros khaЭhaVBA khaQuhaThisDocumentVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} WordCountAllDlg Caption = "WordCountAll" ClientHeight = 5625 ClientLeft = 45 ClientTop = 435 ClientWidth = 4260 StartUpPosition = 1 'CenterOwner TypeInfoVer = 124 End MNOThisDocumentThisDocumentWordCountAllDlgWordCountAllDlgID="{6DB9D3C6-C160-4517-8743-F6361951EDD9}" Document=ThisDocume8 K#<.IE|/,gF Fl)stdoleP h%^   "p    x "     "  /     ( 8 @"` h   ! H  /P          (   0 @P   X hx            h        "    )      ' ' ' ' $ 64(   `  "   O O O$WO   P B )  (-0    H Xhx 6  0  P ` h B    (8 X /`  -       x H  - ( 0 8 P H Bp x   (  /  -   0 @ H  h  P ` -     x  "  P `    H xo A@rXo ooxoPo@8o0]]o "d ***************************** * WordCountAllft= * Counts words and double-byte characters (e.g. Japanese) in  * body and textboxes$,ft *# * Copyright (c) 2001 Ryan GinstromsVa * * MIT Licensee to] $tcC@ *6 * 3/14/2004 -- Added count for double-byte charactersG  *****************************]@]@ ]@ ]@ |''8'<'> B@H 5 'oA@]  ! B@ o========================== Turn offt-Kq3YL9 IcPaHGąxMET@SPSSSi i h |`|@e 8i ~8`|@ei X`|@e2i mn `|@e&i `|@e,i x`|@e i  `t e i  `|@eDi P`0D  i   `h@ hi 0i  XTP%%% < %i   `| a x` X `|@ ??x `$@$` x `e`z,`zD@(!!i `h ,` @ 0##%i  `t b>@@b8 8@i  e  ,"x` @ ,%%i  d`t@4 H *`|@ei b4@X  ( `h@ Sb<<@) X <` 8$ 0 8   P8xX X x H "X 0"h `"x"  0h8%a $  D H h *p    < :h $0 hX`p "   "@    H " (  "` 0 h "p 8 x "P @ X "0 H 8 "    "   " 8    x     screen updating ( B@C@ Turn on screen updating (o@P Show the word countXkA@(A@(A@(A@(A@(A@(A@(o( <5 '< 85 '8 >5 '> !$Error trying to retrieve DBC count: !' B@kXC@ 6(&ount: k $]`  !C@ qix'  ! !l  B@'k i'"  !P !l zA@('"k commeni  6(&0 6(&py if  o  o A@d A@k A@A@ < ###,###,##0$'t  > ###,###,##0$'v't > ###,###,##0$'xH]8 X !\ X o 8 tKT vKT X!` n KT pKTXo Fk XA@ry, wd BterSto XA@aryHeakX >ameSto XA@z(k0 :K XA@TyHeak DxtFram XA@t@k @|K XA@ pKk zK ~K KT ! B@k xK |K KTP$Error trying to retrieve DBC count: !'acq4 * 9/20/2004 -- Changed to template with custom form 5 ' >5 '> <5 '< 85 '8h  ###,###,##0$'L 8 ###,###,##0$'r   d k ]@  !     !  !l '"zx kp     ]h  !   !  !l  B@'k  H d  k` o@ A@( B@H0   ;This may alter the anchor points of your text boxes/shapes. MIt is recommended that you work from a backup copy if you choose this option.  Proceed? Warning: Possible Damge to File$p A@H Hk` A@( Hk` X !l k <Attribute VB_Name = "WordCountAllDlg" Bas0{4FEF480F-AF3E-4F23-942E-3BF58F4400D8}{6C24EBDB-8EE 2-448J8C7-DEB6F72C7604} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomi"zD' *  s ws and dDoup-bycharacters (e.g. Japanese) inbodytextboxes Copyright (c) 2001 Ryan Gin strom MIT LicenA]*3/14/ 4 -- AddDc forT* 9@ ChanBgto tDX with cBRc"P Peg NumARs As` LongJ@rsNoXW zDaB@aGSub ocsCheckBox_Click() Dow}Ev@ 1Comment_noteSA_#Fo`r ?"e !"pHead ^O*ivCMainT bt*OKBu0tton:gUnload M 4"r_YUng0roup Les,If vbN"oMsg@("This maBl@ thec"h xpoi@O o@f yoursxt b/shapes." _ Am& CrLf{"It rec"]Athat!k f a backup c@ i `option? & "Proceed?",aYvbYez"Warning:@ PossiAD amge @File") The@e(Exit]+AGIfcWh` D?> WendWaC.Enݱ#") QC; p7M4QInitVariQ j|TBatchsCE1V;Reporth[L`wicHJ RFg= 0#qhfhfeYDim oDoci`uqd SF>EachCIn Appia4@ .Act߲TgN W '=u' TurnJf screen upd  SU-W aSele@ ECollapaStoryR!! zeU.r2 N ' CqorTypfqQw`ÅR10B /Bc}ToB2 e/;QbA6?5zvP#U 7venPag es, wdFirst|XmaryX}8 O S|XZy?D;FootnotesStory F dIf CheckBox = True ThenrAddToBodyCo unt oEn0d IfRCase wdMainText9!trSelect  NE _xNboxesc>? BupC' Turn on screen updating@Applicohn.SU H BubPrivate Sub (ByRef  As Range) AFDim oDialogObjU"On Error Resume OCCWithB s(wdCToolsWordD.B1e ;'.tC Execut AhNumAsE+ .J CharsSpace  cactersinclud`2s" Non F # JDoubleByteÍDBCs T2. ber <> 0Sta@tusBar@ "8try to retriev$e c: " &=.DeR`iptio,aClearM\#a-LaRA UReport!5D(E#' Show th ICCwTS/? - `lB l *5FuncA ()Intege`AaT!#_\ KBSha,pe-F@Ea chBIn AAveDocpLn|t.6C 1o?:IaKP8tTy`= msod8 .Lr Db,B" `A{",'sMNgN@UfM=)2&N(<( M`OEP/ P PPrP&Q4? +S59UU&;@esAreGroupedS;Byea]|Fals w6shpTempǭ6All5F;`87;;E;6 ?@=@A1 D.=RO&5 _q; Exit 6#B!T 5"0SE!Q'Q_N_3?P_ 9S1 Ung?1 O1XI1m 1 s 1Ax$1n47o  141 __Ev.D ! 1O Q ocS0 For Each shpTemp In ActiveDocument.S`hapesIf`.Type = msoGroup Then X`.UngJ ABoxesNTrue $End IfNextL #  F4unoPrivate Su@b User|m_u ()!lAAregedhTT?Button.Enabl= ]Elsb|FadoDoCountUd x_Clickn@EndnotesCheckBox_Click@TextboxesCheckBox_Click>@UngroupTextBoxesButton_ClickZ@UserForm_Click@BodyCharacters5@BodyCharactersWithSpacesv@ BodyWords<@BodyAsianWords@TextBoxCharacters>@TextBoxCharactersWithSpaces@ TextBoxWords@TextBoxAsianWordsF@ InitVariablesL@BatchWordCount@oDoc@ Application*@ Documents@Activate|@ScreenUpdating! @ SelectionZ@Collapseu@ BodyWordCount@ TextBoxCountB@ReportWordCount@ WordCountAllx@sMessagem@vbTabc9@vbCrLf@MsgBoxR@vbOKOnly@oDialog@Dialogs@wdDialogToolsWordCount@Update@ExecuteY@ Charactersrg@charactersincludingspaces6@Words8@DBCs=@Erro@Number-@ StatusBarʜ@ Description @Clear@ UngroupBoxesd@oShapeZ@@ActiveDocument\@Shapes<@shpTemph@msoGroup-@Ungroupo@AllDocsCheckBox@CharactersWithSpaces@AsianCharCounta2@NumWords@ NumAsianCharsG@NumCharactersWithSpacesJ@ NumCharactersA @idno&@ _B_var_ifP@ _B_var_idno@msgobx;@msgbo@ _B_var_msgbo|@vbCancel'@vbNo%@vbYesNo@ContextXn@contex@conteQ@cont{@conJ@co\@cZ@ vbwarningjH@vb_@ vbExclamation@WordsLabel_ClickZ@BoxesAreGrouped;o@WordCountAllDlg_initialize@Enabled۪@DoCount@AllDocsCheckBox_Click@ValueK@wordcountvalue @_B_var_wordcountvalue[@ wordvalue@Captionx@ _B_var_Format@NumCharsNoSpaces-@NumCharactersNoSpacesOC@NumCharsWithSpaces@NumDoubleByteCharsl[@ dowordcount}@_B_var_BodyCharactersė@_B_var_BodyWords@_B_var_BodyAsianWordsg@_B_var_TextBoxCharacters@_B_var_TextBoxWordsb@_B_var_TextBoxAsianWordsZ@_B_var_BodyCharactersWithSpacesTq@"_B_var_TextBoxCharactersWithSpaces*G@Itemz@Shape@ _B_var_ForjL@oStory@storyQ@ StoryRanges @Range @ StoryType]@WordCountAllDlg_Load%W@UserForm_ActivateZs@ _B_var_Next'o@Switch6z@ _B_var_Select'E@wdmain-@ _B_var_Case@wdMainTextStoryU@wdheader*"@wdCommentsStorye@wdEndnotesStory(@wdEvenPagesFooterStoryma@wdEvenPagesHeaderStoryo@wdFirstPageFooterStory/@wdFirstPageHeaderStory2@wdFootnotesStoryQ@wdPrimaryFooterStory4f@wdPrimaryHeaderStoryvt@wdTextFrameStory_&@AddToBodyCount1l@oBody!@AddTextboxWords/@ oTextBoxes{@ost@os^@footerCheckBox@mainstoryCheckBox@mainstexttoryCheckBoxf@mainstextstoryCheckBox @CharactersIncludinSspacesp$@numcharswithoutspacesc}@_B_var_numcharswithoutspaces @CharactersIncludingSspaces@allopendocsvalue@_B_var_allopendocsvalueޗ@ wdtextfraay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#F:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.3#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#F:\WINDOWS\System32\STDOLE2.TLB#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#F:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#F:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{47D58C31-30AB-4BEC-889A-A189FE7231F3}#2.0#0#C:\DOCUME~1\RYANGI~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  B9KThisDocument0747681767ThisDocumentWordCountAllDlg0;4768176aWordCountAllDlg-8%)F6eIy =^J5HHand Asbyref.debug=DimCEachDElseHendifTForYFunction_IfbIn{meNullSubThentrueWordk@VBA@Win16~@Win32@Mac@VBA6#@Project1 @stdole`@TemplateProjectE@ ThisDocument<@ _Evaluate@Officeu@ UserForm1)@MSFormsC@WordCountAllDlg@UserFormN@BasicWordCountLabel@TextboxWordCountLabelР@TotalWordCountLabel;m@Show@BasicWordCountFrame>@Frame1@Frame2@Frame3@Frame4@Frame5@CommandButton1|@UngroupTextBoxesButtonO;@ MultiPage14?@HeadersCheckBox@ IncludeLabelB@FootersCheckBox*@MainTextCheckBox@EndnotesCheckBox@FootnotesCheckBox;@CommentsCheckBox=@TextboxesCheckBox@ WordsLabel`@ WordsValueK@CharactersNoSpacesLabel@Label2,@CharactersWithSpacesLabel7@Label4,@SingleByteWordsLabel@Label6,@DoubleByteCharsLabel@Label8,@Label9,@Label10@@OKButton|@Label11A@IncludeLabel_ClickA!@IncludeInWordcountFramee@Documentj@OKButton_Clickf@Click@LaunchWordCountAllQ@CharsNoSpacesValue@CharsWithSpacesValue>@SingleByteWordsValue@DoubleByteCharsValue@ TotalValueM@MainTextCheckBox_Click@CommentsCheckBox_Click5@HeadersCheckBox_Click@FootersCheckBox_Click9@FootnotesCheckBomeO@trhe@Frames8@ ShapeRange@ TextFrame@ TextRange@ msoTextBoxID@`  $dir0__SRP_0 +__SRP_1CjWordCountAllDlg whacha*\G{00020430-C 0046}#2.0#0#F:\WINDOWS\System32\STDOLE@2.TLB# Automation0EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryKMSForms>SFrms3D452EE1-E08F0A-8-02608C@4D0BB4SFM20L'B _&/;"1jIqAHq00}#0Bq# 50 A47D58C31-30AB-4BEC-889A-A189FE7231F36C:\DOCUME~1\RYANGILOCA LS\VBEÀb7.exdc<!.E .`M KThisDocumenPtGTiEkDkcuneTn 2 QHB1-B,!*""+b}WordCountAllDlgGUWrsCuEAtlDgT2<-@"-(bcbK*yrU~~~~~~~~~~\  :?@ABCDEFGIJKLMVOPQRSTUH_YZ[\^ca]ge#f!ioRCompObjPpCompObjvaVBFramex.  !"#$%&'()*,-./0123456789:;<=>?@ABDjGHIJKLMNOgQSTUVWXYZ[\]_`abcdefhiklmnopqrstuwyz{|~ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8F M{10Main texthic5 MS UI Gothic4FC{00Comments5 MS UI Gothic8F F{00Footnoteshic5 MS UI Gothic4FH{00Headerss5 MS UI Gothic4FRoot Entry Fha%@"1Table WordDocument.SummaryInformation(F{00Footerss5 MS UI Gothic4FE{00Endnotes5 MS UI Gothic8F T{00Textboxeshic5 MS UI Gothic<F A {00All open docs5 MS UI GothicHH  2 }Include in word count:R KQ_ MS UI Gothic,\MainTextCheckBox, XCommentsCheckBox: 0\FootnotesCheckBoxoun: ,XHeadersCheckBoxx,XFootersCheckBoxxp,XEndnotesCheckBox: p0!\TextboxesCheckBoxoun ,2`AllDocsCheckBoxx: OK1E{u MS UI Gothic (The Wordnt/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=WordCountAllDlg Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0E0CC3D7DFEBE9EFE9EFE9EFE9EF" DPB="1C1ED1E5D1F2D2F2D2F2" GC="2A28E7FBF4FCF4FC0B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 438, 478, WordCountAllDlg=44, 58, 482, 536, Z, 66, 87, 838, 565,   FMicrosoft Office Word Document MSWordDocWord.Document.89q