ࡱ> !# Y bjbjWW  ==] R = = = = = = H < b= =  N   1N  / =!"#$% [,@,Normal OJQJmH <A@<Default Paragraph Font Thomas MinskerC:\psuthesi\TEMPLATE\vba.dotThomas Minsker,C:\windows\TEMP\AutoRecovery save of vba.asdThomas Minsker,C:\windows\TEMP\AutoRecovery save of vba.asdV  V  V  V  V   vbaeditvbaedit7Keg0 @ (@ WordbasicCustom Popup 50 (@CharRLCustom Popup 51Custom Popup 50 Custom Popup 50Yt0(Find WordBasicWbasicWrdBasic.Wbasic( CharRight Wbasic Char RWrdBasic.WbasicCharRCustom Popup 51 Custom Popup 51t0TemplateProject.WrdBasic.Wbasic$TemplateProject.WrdBasic.WbasicCharR!TemplateProject.Finder.SetFoundIt%TemplateProject.Finder.SelectBackward#TemplateProject.Finder.ClearFoundItTEMPLATEPROJECT.WRDBASIC.WBASIC!TEMPLATEPROJECT.FINDER.SETFOUNDIT#TEMPLATEPROJECT.FINDER.CLEARFOUNDIT$TEMPLATEPROJECT.WRDBASIC.WBASICCHARR%TEMPLATEPROJECT.FINDER.SELECTBACKWARD@p@G:Times New Roman5Symbol3& :Arial?5 :Courier New"0hvESES7$0d+Thomas MinskerThomas Minsker Oh+'0`   ( 4@HPXssThomas Minskerhomvba.dotThomas Minsker5omMicrosoft Word 8.0@ @1D@iM ՜.+,D՜.+,4 hp   Penn Statej  Title 6> _PID_GUIDAN{C7478748-13F7-11D5-9508-00009483667E} "'@%&*.)+,-8D01234567(9:;<=>?ABCFTGHIJSLMNOPQREURoot Entry F L^DYmN$11TableWordDocumentSummaryInformation(DocumentSummaryInformation8Macros6N 1NVBA6N 1NThisDocument   !"#$%&'()*+,-./01235679:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~<ȇGf~ FLJGf~x8?=#LJGf~ȇGf~4(SLSS6"N0{00020906-0000-0000-C000-000000000046}xQ:($*\Rffff*d43aa853ca($H0hBA $or $ $p@8MExAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2rU   4) yQ crU @prU~}  __SRP_6__SRP_7@Finder/Z__SRP_2 "@^ !vv EWeFountIt p!rB@tl` B@b zx SWeFountIt B@B zx WeFountIt B@ (l SWeFountIt p%rB@ EWeFountIt p%rB@ WeFountIt p%rB@8 !vv SWeFountIt p!rB@t "Attribute VB_Name = "Finder" Sub LookFor(This$)@ ' Selection.Z.ClearLmattingFWith P0.TextWReplacement""2C6dward9rue8WrapwdAsk!Fals 3MatchCas{ WholeWo7ildcGs.SoundsLik1All0R"pEnd e Exec !SetF8It(ցAveD(ocuBmarks.Add Range:= , :="WbetItD` MoveLeft Unit:=wdCharacter, C 1-S GoTo xWha6$/Righ/ZOE/^OJx@x("HP)4.DtĿe("_!I(D'RpBackwESIExtend\<D1C Mod of! 9 a I \-tx"$ <x t )xt'tx"$ <x Qtpx p xp x Dx p ,p  p  p H p ` p P p X p @ pj''''''' '0'@'P'`tx"$ <x t )xt6`P@0 \(p@ xt`P@0 x$]tx"$ <x XQto\lp"$ 4p 8l D )xplX5\:'((\x"$ <x x6\(]tx"$ <x XQto\ lp"$ 4p 8l D )xplX5\It:8N((''\x"$ <x )xt6\(:'((\x"$ <x x6\(]tx"$ <x XQto\ lp"$ 4p 8l D )xplX5\It:8N((''\x"$ <x )xt6\(x$$ 0 xtplX\( HP:d NTTtx"$ 4x 8t @ P P )xtP5THP:d NTTtx"$ 4x 8t @ P P )xtP5THP:dNTTtx"$ 4x 8t @ P P )xtP5T,$ xtPT$'hx"$ <x x5hI:H N88''(hx"$ <x )x6h8( x"$ <x xh$ $xh8(\rU (`a0$`$`$`p__SRP_34WrdBasic8__SRP_4 w__SRP_5x U?F kP@6 LLLLL*LLLLLLLLL "0"T;A, "O:lseC( @If0=b1 C@Ba@ckward R@epWith7"r" & a&h"$C AnseMs gBox( , vbYesNo +@QuesADefaultButton18K KiTyp@eText :="G-E&-܅6QE3ExitCwA GoTo r  az!urU~}  ! I a  ) 0 @  Cxx /x9npt"$ <t p 8kn)tp :'(,Lt"$ <t t6L,?(,Lt"$ <t t6L,'xt"$ <t >x1t:'(,Lt"$ <t t6L,?(,Lt"$ <t t6L,'xt"$ <t >x1t l= C C:'(,Lt"$ <t t6L,  l*#xl*1/x:'','L M\@^ i<6L,\]/L\+l*#xt"$ <t /xt 4$xtpL,frU $`$`pܲ0* pHdTemplateProjectQH@  = | xQ:( J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation/MSForms>SFErms/z pF8BEE060-F15B-11D1-9505-444505354HFC:\WINDOWSF_VBA_PROJECTKdir__SRP_0n__SRP_1l A  63.TWD#Microsoft = ` Ob LibraryG9P0rPAFB62623-8B8FP2PHKJP\VB$E\(EX(.E .`M CxOfficDxO@u`ficBx,,2DF8D04C-5BFA-101B-BDE5@xAA@w42UPROGRAM FILES\MICROSOFT OFFICE\MSO97.DLLHZ# 8.0Z"?BThisDocumentN2@1Th@6sDcu(en@HB1BE,B="B+BFerU2Fn@erOkQMF!J@WrdBasicb2a dpBa_5  D K)^rU~~~~~~~~~~~~_  هGf~   q a 9QqA   ThisDocumentFinderWrdBasicTemplateProjectF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA 1 Y( F4C:\Program Files\Microsoft Office\Office\MSWORD8.OLBWord I q80Fc:\windows\SYSTEM\StdOle2.Tlbstdole WbasicCharR YH`[DESTC:\WINDOWS\SYSTEM\MSForms.TWDMSForms aAX.E .`M #&DESTc:\windows\TEMP\VBE\MSForms.EXD iAhL-[DR 2C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice 1YxLookFor SetFoundIt ClearFoundItSelectBackward Wbasic wordbasic.charright Fi Fiu F F 0 , Extend:=wdExtend  Count:= VBA332.DLL  S  'Selection.MoveRight Unit:=wdCharacter,  F WeFountItk Fg F EWeFountIt SWeFountIth FȇGf~ FLJGf~ a^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#409#C:\Program Files\Microsoft Office\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation*\G{08BEE060-F15B-11D1-9505-444553540000}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{AFB62623-8B8F-11D2-9505-444553540000}#2.0#0#c:\windows\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryxQ:(?ThisDocument d43aa853ca*D= Finder 4f3aa851e9*DFkWrdBasic 1e3aa84830*D@D0 P0@Gf~EGf~GGf~0WY1Then Wordk VBAWin16~Win32MacProject1  stdole`MSFormsC ThisDocument< _Evaluate Officeu TemplateProjectEDocumentjModule1b FinderqMacro16s  SelectionZFindnClearFormatting) ReplacementForwardWrapWy wdFindAskt MatchCaseMatchWholeWordXMatchWildcardsMatchSoundsLike0MatchAllWordFormsExecuteY(LookFor:GThis̹ WordBasic WrdBasic(Wbasic& _B_var_Call (WbasicCharR"PFound+ _B_var_IfPmshR _B_var_mshcrboxyMsgBoxRMoveLeftvUnit wdCharacterCount0vTypeText MoveRightwdWordmExtend?wdExtenddNum _B_var_Num xExtO _B_str_Extq0 _B_str_Num`ActiveDocument\ Bookmarks?nAddrRange WhatCwdGoToBookmarkJ (SetFoundItD*(SelectBackward, Seelction_B_var_SeelctiondAnsxt _B_var_Ans1RepWithvbYesNo vbQuestionvbDefaultButton1_B_str_RepWith _B_var_UnitvbYesa? ExtendModejClear _B_var_Sub (ClearFoundIt{MDeletexClearFoundItEndrMFinser _B_var_Finser@<ItemzAgains _B_var_GoExitSub* _B_var_ExitFDocument @NrU~}   This ) mThisDocumentThisDocumentFinderFinderWrdBasicWrdBasicID="{C7478749-13F7-11D5-9508-00009483667E}" Document=ThisDocument/&H00000000 Module=Finder Module=WrdBasic Name="TemplateProPROJECTwmYPROJECTCompObjjObjectPoolYmNYmNject" HelpContextID="0" CMG="B6B4C990CF907694769476947694" DPB="595B26DB27DB27DB" GC="FCFE83DE85808680867F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C Finder=22, 22, 448, 328, WrdBasic=44, 44, 470, 350, Z   FMicrosoft Word Document MSWordDocWord.Document.89q