аЯрЁБс>ўџ ўџџџ}џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьЅС5@ љПbjbjЯ2Я2 (­X­XџџџџџџˆT<<<< H T€ Ж`LЌЌЌллл№      $6 RˆZ% ллллл% Ќл: ŸŸŸл4ЌŸлŸŸННЌTT €GUЃRТ<НP 0€ Нт+@тН2FтНTллŸллллл% % TTФ$k4TT CONTROL Forms.CommandButton.1 \s   CONTROL Forms.CommandButton.1 \s   CONTROL Forms.CommandButton.1 \s   CONTROL Forms.ComboBox.1 \s  #$%&'()KLMNPQstuvxy–—˜™š›œїѓфмїидЬиНЕЬиЬиІžЬиїѓ‡їѓƒ{h[Qh)PЇhЖжjmhY —UjЪрA hY —CJUVaJjDhY —UjЩрA hY —CJUVaJjhY —UjЧрA hY —CJUVaJjhфчUh›A{hфчjhY —UjЦрA hY —CJUVaJhНЎjhНЎUwxš›œїїм#Ќїђм#Ќђм#Ќђм#Ќgd[Q$a$gdфч§&1h:pMJФАа/ Ар=!А"Аь#8$8%АDd  ршш№bВ № c №$€€A?П џ?3"ёП`П€?№€2№hgio7Šа№#БѓђRну"ѕџDDb`!№<gio7Šа№#БѓђRну"ѕ ` рѓ Ї ўxкm‘НNУ0…ЯЕЗ)LH T§q'&xІŽ ˆЉкJЭ‰–ЁCз<”GЩ#tЩ;Šх b9ОО>пЙжЕ t&€Сўыqj уzЁ|ЦG—Ъb ЭhŠ>џ?сЄгп‘Ї&fŽ,ИХ*Щw3ю:в9IItГ@тŒ|g,‘ЌЊ*’*бMЉёк”| йŽlš&’:бM)gф+ЇŠd]з‘ь%К1uŠуяЩKіJџлC‰ђžžЛ—жYБз\ПеЩЕ}§j[ёѕRюŠƒ}*ŽіљsЗй›ЖbМђряпюahp…!§ Ч7X”ћ­]”Х!чmњРпR‡и„КЗтœ…~Уу5&Dd  ршш№bВ № c №$€€A?П џ?3"ёП`П€?№€2№pА™кЭЉSм,hkwЙtЕ.ОџLbb`!№DА™кЭЉSм,hkwЙtЕ.О&` рѓ Їўxкm‘=NФ0…ŸЧйА!л! й5œ€‚šm…ј ’ Є](@ЂЭ8RŽ’#l’yЖ‰х${fќОgЂPzO%јЇ i5Х„{->уН™˜fgиЁЗxM2ТКїЄs.’’шJOb|a,‘lš&’&бЭЈQmJ>ћlOv]I›шІž”=ђ‰гDВmлHн)u†уяЩ й+ћo5ЃžЪ]Jp6ьCСѕъ tе№=2КcТнЗйЙџ К†yXЎеэb[нoVѓ50їњ c_ЕєŽrБJяxГЌыъюГЎп7л5om§аћ|”sŒея\œГОф/Иg7f)Dd мhшш№bВ № c №$€€A?П џ?3"ёП`П€?№€2№sе2пЗ‚ \iД•H‰ќ—џOБb`!№Gе2пЗ‚ \iД•H‰ќ—аdxН3ј|ўxкm’СRТ0†џMЊ( €"pOœ№Р“0…AН‰z№1њh}”>‚рLќ7а4ІvВЛпŸЭnVp иЎ0€>?+7ДQЎ†foБ\­ауџчм…пPЯ}АМ~Ц/ ‰/iމГOБcšЮІfLWbtЖ”z‘s%†§вљміЯїhќ›ѓ†5КчЌїџGЬ=Фўџџџ ўџџџ§џџџ9! #"%$36'1)*+,-./0&2ўџџџ45ˆ‡8:™;K=>?@ABCDEFGHIJ7LMNOPQRSTUVўџџџXYZ[\ўџџџ^_`abcdeWghijklvnopqrstufўџџџxyz{|†§џџџ€Root Entryџџџџџџџџ РF`&UЃRТРDData џџџџџџџџџџџџ WordDocumentџџџџџџџџ(ObjectPoolџџџџџџџџ  ~UЃRТ`&UЃRТ_1092477126џџџџџџџџ@2зiЮЭЇwнМDocumentSummaryInformation8џџџџџџџџџџџџE(Macrosџџџџџџџџ+ ~UЃRТ€GUЃRТ  < H T `lt|„ф f  Jim Stieneim im  File Locatoro Jim Stiener3m Microsoft Word 10.0@Œ†G@мRў OТ@R‘&ЃRТ@˜TJЃRТ†ўџ еЭеœ.“—+,љЎ0ј hpˆ˜  ЈАИР Ш йф Cyber VisionnœA  TitlerU€€ 0i‘ЙџџџџA 8сa `ž§џџ`Qџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ @QyЈ§џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ HQЩVBAџџџџ6# ~UЃRТ€GUЃRТThisDocumentџџџџџџџџџџџџ(ђ__SRP_2*џџџџџџџџJ__SRP_3)%џџџџ_с63$*\Rffff*0@3ec0ee40пЈ8и@€HџџџџLАTўЪ-" P€ џџџџX€ џџџџ" `*p $€7   Ј А И Р Ш а ир{ш€ *Zј7јh€ џџџџ"  € џџџџ" 0@08€ џџџџ"  А€ &ШЈ€ џџџџ" H€ џџџџP€ џџџџ" X€ x`џџџџPџџџџx–oџџ B@~Еџџџџ–аoџџ A@џџџџ–8oџџ@–xoџџ0 (!zB@|AB (!zѕfh'!Ж5~(dЗ9€ „9‚З9ЌЗ9†З9ˆЗ9ŠЗ9ŒЗ9Žqџџ( (!zB@` Hб,ЌбH (B@F8 P!^!d9dџџџџPАЬ”и,j"hЭ–ЭџџcˆЖџџџџџџџџ\џџх ПtОжКUм{Ы РFф ПtОжКUм{Ыџџџџџџџџџџџџx,CommandButton1, 3, 0, MSForms, CommandButton,CommandButton2, 2, 1, MSForms, CommandButton,CommandButton3, 1, 2, MSForms, CommandButton"ComboBox1, 0, 3, MSForms, ComboBoxф ПtОжКUм{Ых ПtОжКUм{ЫџџMEџџџџџџџџџџпџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SLџџџџSџџџџS”џџџџsџџџџ sџџџџ6"џџџџ*\R8004*#5d*\R8004*# P!^B@rџџџџ–иoџџ8–8oџџ(џџџџџџџџhрCall FileType.LoadPulldownџџџџp–иoџџA џџџџ€џџџџ рSelection.HomeKey Unit:=wdStoryџџџџШЌ (%RB@жon.Hр#MsgBox Selection.Hyperlinks(1).Nameyperliџџџџ˜џџџџ`џџџџЦВAttribute VB_Name = "ThisDocument" ŒBasŒ0{00020P906-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2Control™CommandButton1, 3, 0, MSForms,  Š#2, &;#E€!€$1#b№oBox€3РIB€2PРPРR Sub9 _Change() 8EndA lickС Selection.Fin€d.ClearAPatting ‚ With ƒ.TextРcвA@veБ.€_У%“Тˆ Re‚ceAК=…"Р4‚wa†r‡‘WrapРЬwd*pinС ЦC-@D–Matc hCCбвWholeWoild c%sUSoun`dsLikШЯЫAќllA)Ќa5!,c$aь1Exec`…c'Msg`CH1Hyperlinks(81).|­+FollowmMoveLeft Un@it:=wd@Ir acterСhunЭ`1yJШp_CKС FileT@.S.hЁЗR'2'Call Macro_ жK"VП„3l LoadPulldPown2ƒ"'ч/H@omeKey†"S0tory __N ewzpOpen=!'тF%‰Ј Ј§џџ`бџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLёЁ џџџџџџџџџџџџ``Q‘џџџџ TQ9 Ј§џџ`‘џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0EyЩ§1Ещ9mЁ_Ÿп_Ÿ0 ќЦ8  0 ќЦx  0 ќЦ  0 ќЦа  0 ќЦи  0 ќЦи  0 ќЦ8  4 < D P 88TH@LLGrU€€€ џџџџџџџџ`$ ` џџџџџџџџ$I` џџџџџџџџ$‰`џџџџџџџџ$Щ`џџџџџџџџ$ `џџџџџџџџ$I` џџџџџџџџ$‰`$ џџџџџџџџ Сџџџџ@мс4 џџџџ@ш)< Iџџџџ@є)D qџџџџ@)PnfГ€0* pH‚dфProjectQ(@=­ lFileTypeџџџџџџџџџџџџ<™<NewMacros$'џџџџ]цChooseAFolderџџџџџџџџџџџџm _VBA_PROJECT!&џџџџ~О€   0@ HX` h€ x€ џџџџ<.ЈhH "Sh € &@ И"Р€Ш€ џџџџ€аSи€ џџџџZј# ("R8€`(аF„h€ 4€ "А€ џџџџи€ џџџџ" р шј"€ 6Ј€ 2р€  +  0€ џџџџFs@€ ˆ"S */Ш@ix€ € 6(€ @`€ (€ џџџџ€ *@p€ џџџџ"x € "АР€ Р€ ,и9< € џџџџ@вц8 7 7@ј€И`"P € џџџџ€` €x € € € џџџџ&ш € џџџџ9  SИ ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“ўџџџ•–—˜™ўџџџ›ЅžŸ ЁЂЃЄўџџџІЇЈЉўџџџЋўџџџ­ЎЏАўџџџВЗДЕЖўџџџИЙўџџџЛўџџџНОПРўџџџТУўџџџХЦЧШЩЪЫЬЭЮўџџџаўџџџвгдежзийклмнопрстуфхцчшщъыьэюя№ёђѓєѕіїјљњћќ§ўџи € № "R $d( € 6№€ DP € џџџџ%˜  И   Ш  а р € џџџџX € џџџџ"X € џџџџ` € џџџџ"  € џџџџ € џџџџ" (  @ ј € А Р P А а h p   @ x    0  Р № р ` 8 )  џџџџP–`р*This sets variables for file name and path]ђ  џџ!$!dЖ\'"р:This Gets the name of the first document in this directory "$~'& .б, (B@*A0р.This Loops through documents and modifies them№Бё &Жbр-ActiveDocument.Tables(1).Cell(RowV, 2).Selectр This sets a path and opens docs: " &'6р/this is where you add code €фД'!‡Џ2hЭœЭџџˆЖџџџџџџџџџџџџaї[rЛжКUм{Ы`ї[rЛжКUм{ЫџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€SPџџџџSџџџџSџџџџSџџџџ<œџџ< џџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџB@HЌ (!@(Boџџ –а]ђ]ђ(Ќ P%>!F!H'8 8Ќ P%>%FB@HЌ (B@J 8Ќ '8 8ЌЌ P%>%LB@H]ђ@І  (!XбV NбZЖб\Жб^ &б` P!RB@TрSelection.TypeText Text:=Nowoџџр–X џџB@<'МoџџР–˜р End IfSd (B@*Rі (B@j‘‘І (!XбXЌбlЌбn rбp vбt P!>B@TЂр NAME COLUMN: &ЌЌЌ P%>%LB@HњЌЄ (!x(€р!InchesToPoints(4.5)ˆ`„kр TIME COLUMN:`„р" Selection.TypeText Text:="Time"р$ Selection.TypeText Text:=Criteria`„oџџа–и |B@~џџџџџџ € џџ!$(doџџ џџџџ˜–ЈЃVр Macro1 Macroр% Macro recorded 8/21/02 by Jim Stiene P!>!HЌ œЌ P%>B@HІ %-7AЗбЖColumn 1б б бЖб" б$ б&Жб( б* б, Bб.Зб2Зб4 8б6Ж Paragraphsб:Ж Paragraphsб<Ж Paragraphsб> (B@ (B@D Hб,ЌбH (B@F Lб,ЌбH (B@JoџџАAџџџџxІ  џџ!І!dЖ files in  џџ!$!dбd (B@bџџџџHЩV`џџџџX џџ!$!d &'Nџџџџ`р/ ActiveDocument.Tables(1).Cell(i, 3).Selectр0 ActiveDocument.Tables(1).Cell(1, 2).Selectр: Selection.Columns.Width = 112.5 'InchesToPoints(1.7)џџџџ8р/ If ActiveDocument.Tables.Count > 0 Thenр+ ActiveDocument.Tables(1).Deleteџџџџ P!>!HЌ œkџџ џџџџ Ad–oџџP ]ђђшђP]ђhрDim Gstring As String P!>!HЌ œЌ P%>!F!H'hџ DўЌ h’р j = i - 2 DЌЌ P%>%LB@H (!d (!dЌ $м'lр> Gstring = Left((Selection.Text), Len(Selection.Text) - 2) P!^ѕр& .List(j, 0) lC@nqџџ џ DўШkџџˆ P!^B@rџџџџxџџџџP –€oџџP –8oџџ@ !ІB@rq !ІѕЖ.aviC@nЖ.wavC@nЖ.gifC@nЖ.ASPC@nЖ.htmlC@nЖ.PDFC@nЖ.batC@nЖ.sysC@nЖ.docC@nЖ.xlsC@nЖ.txtC@nЖ.mp3C@nЖ.jpgC@nЖ.pptC@nЖ.ppsC@nЖ.mdbC@nџџџџ –@oџџ  Ж.exeC@nЖ.movC@nџџџџx Ж !І(Ўџџџџа џџџџр Ж.bmpC@nЖ.cppC@nрMsgBox UCase(Right(DocName, 4))ЖFind All FilesC@nрMsgBox LCase(Right(DocName, 4))џџџџx рSelection.HomeKey Unit:=wdStoryЌЌЌ P%>%LB@Hџџџџˆ р.MsgBox DocName & " " & ActiveDocument.FullName$І! &Ќ$2 џџ!І!d$Д &Ќ$2 џџ!І!d$Ж џџ!І!dЖFind All FilesœџџџџР џџџџЛЗAttribute VB_Name = "FileType"  јBas|0{BF0A10D6-€BE74-11@A55-00*C€177BCB}J C1J dGlob„alŠSpaco False ŠCr@eatablP€redeclaDIdгTru BE`xpose0TemplateDeriv–Cus tomiz‹D P Sub CommandButton1_Click() 'This se€ts vari!€s for fП nХ path Dim Crit€Fa As Sлng OldLocation€sMe.TextBox2С & "\Б6"G6theƒ.of first document in@&dir@ectoryoТc„†Dir(@1b Sel€ .EndKey Unit:=wdSУСРIf AcJt@SDФ.T=.Cou< 1 @Then Ф Call Insрert3XТ Ц IfQLoop‚s€-rough†2s СOmodif$ieemС2 WhX!5<> "CHХ'Msg@O 3…РO "@QL.FulТЈ @5Right(D , 4)щbUCЫ(€cг1‚c) Or _є Q LZ M€Рщ0nd AРHСs"џDOE0C NAžФ8C2 gSa"PB)openВsС+s:1@PРSл`ЉP&…'Р3ta\ Iwhere you add co@de to b3y6Р ЄbcrollAG:rows \s@ubsequсTruns cRowVbIntegeњr ' d;ТI@` 1Ї‚Fk= -П€‰ €ha€)сE”џ" €S@5VAUƒ hid ’с'FindAndList.Цrf(1).Уnb'pFont.SizЃ10‚aуhSortТТ LoadP`XdownЖ Cell(1D,  'gH8omeа~at  н€ ф.ŸA6iъ5Рrwр›Ю8=“† рsoƒ‡ЁС({( ъ& ‡уŒA Belowо HDС`\Т+›%‡съ%LinkGˆЗfЂNэЖФHC8,H‰ ѓrl@ s.AрiAnchor:=ЇRange, €ress:=Ž7$€Х,Сг""9АcreenTip:="", Aб ToDisPqy:=Ц 'Пlesїб‚#Г2Gh#!†aСВ:=NowaV#ї_tр\St2WtV4к&JcТvХOhJh> 0eTЏqODD ot0<ў'еaq>ЇР1P0VrParagr|apА} agp6 X6?9Љž9У–˜"Вteger, RowCount  As In jh Dim TS`tring\$ $ '.Gs. ActiveDocument.ComboBox1.Clear If HTa0bles+‹> 0 Then  І=8(1).#@7For i = 2 To#чR' j€ i 8- 2ƒ H+Ce@ll(i, 1S`electƒ‰=€ Left((ƒ ion.TextД), n 6)Ѓ‚j83).8'‚…Ж09ƒY"With Ђ†h '.LisРt(j, 0*B.AddIteƒЦ‚G End …‚N@? i ŒIfA{ASubPrivate A€ File…_€Change(РCC а UserРsmР_ClickЃ ТWA СType.ХЂ7BDNЧ7F>"DFi@:AllТ.sB"‘.ASPb$mpcpavi”atdocexegif!html3jp"gmdbov‰p3PDF$ppє.ppt"syI4tx4xl4waхaZC^G.Vahlue€‹" f_ ђHџџџџPџџџџш–8oџџˆkP P!>!HЌ œЌ P%>B@hџџџџx–poџџи P!>!HЌ œ1 MaЌ P%>B@h reckџџ џџџџ˜џџџџШ–иoџџ0рр Macro3 Macro№р% Macro recorded 8/21/02 by Jim Stiene!р (!zB@|  (!zѕdЖ&Black Crowes - She Talks To Angels.mp39dЖ5~(dЗ9€ „9‚З9ЌЗ9†З9ˆЗ9ŠЗ9ŒЗ9Žqџџ0 (!zB@ge Hб,ЌбH (B@F–Ј]ђpђˆђx /O]ђрDim Gstring As StringS1M P!^B@rK P!>!HЌ œџ lЌ P%>!F!H'h`џџ DўЌ h’СPџр j = i - 2 DЌЌ P%>%LB@Htџ (!d (!dЌ $м'lћ=nр> Gstring = Left((Selection.Text), Len(Selection.Text) - 2)>pџ P!^ѕр& .List(j, 0) lC@nџ qџџџ DўШў kџџxoџџpџџџџhџџџџШ–oџџ`рр Macro2 Macroр% Macro recorded 8/23/02 by Jim Stieneр Lб, (B@Ђ .б, (B@Ђџџџџа .б, (B@Ђ:eџџџџ .б, (B@Ђ"дј!џџџџ–oџџ0рр Macro4 Macroр% Macro recorded 8/23/02 by Jim Stieneр .б, (B@Ђ Lб,ЌбH (B@О Lб,ЌбH (B@J–Рoџџpрр Macro5 Macroр% Macro recorded 8/23/02 by Jim Stieneр Lб, (B@Ђ Тб, (B@Ђ .б, (B@ЂџџџџШр/ ActiveDocument.Tables(1).Cell(i, 3).SelectџџџџА–€oџџАЖFiles (*.*), *.* ј%Ь'Ъ Ъ'ЮрMsgBox MystringІ ЮбZЗбд аB@вџџџџ@џџџџ ЕAttribute VB_Name = "NewMacros" Global DoctAs S Фng dPath 2Public strUser :Sub A1(ˆ) јA1.Description†ƒ recorded 8/21/02 b y Jim†ie neЁ EProcDataQInvoke_FuncƒQject.р.A1€ Sel ;.HomeKey Unit:=wdStoryш '€X ‚G!L€ End w zDelрTable‹}… С€‰%Њƒ‚4СBIf A ctive@|ument.‚,s.Count > 0 Then CR (1).Р!eЬte A@If@ЦBпABƒЫAУAejB”{џ@џ@ Х@F@CƒТ;3На@3џ@Ф@Bя@3`bњ']3_)r_C‡jFind.ClearFormatЬtiс‡aWi ‡ ƒ#K.TextСvBlack Crowes - She Talks To Angeрls.mpЁ"шRep`eуWЄ}….рward€ TruсTWrap wdaCon@ъ Fals MatchCasЈrWholeW@™•Wildc€sS pdsLФikv All! ЌaO-Ѓ+L3Exec@РmMoveLeft†ЁChar€acter, Ђ:=1hœсzLoadPulldowDn2A[ D`ЕiAЁУIntegaRмowƒ‰@Ц†jHƒ|TSЭс# K GрЪHщ@Щk–ComРboBox1УNся››СAЦ=3Ђсœ`Ї$Ѓƒ' / iр72ASGC@ ' j`i @X2cіЇCell№(i, @Љc5уE"d= с2((ч8Ae)К,РnЁ `э'Aу3).ег//on";)$3 q‘'Н& '.List(j, 0€ r D.AddI№tem „BU-кN1>iУ(сf —}s}ЯXro+ч„Z2эЯX"‚Љ3‰щ—ЗЯXЯ‰е—.cЪX2ЯXч‘_ЯXŽLintLЗ?\6S œТ 4яkьo42П pМЏ’44џЅ?Ё3Ё1*'СRоDPOЦRqvR3“+ыtUpЯnPЇРAŸ5љŸo5ŸŸŸKГrЏ’ŸŸ›5š5ŸџŸŸП:j§ "" Then Т'gu'CodBe  r pr nting net€œk acces €'ХzNot TUC@Ь(%(ш, 1))`[ke Р"[A-Z]eЦMsgBox "“@ m@Г b;4­@Бa€9sk аwith@(dЛр>tt@Љ(Р ).", vbarrm‚:ƒ@>GoTo g+ѓ(сVIfП#!!)OРТrror R„esр6 NexрУ` €g vbArcВh а +@ekyЂN Щ@žRead§Ёm)€I&6‰"ƒ`Р G can'tсfo€und." &рьCr`B"R9@:1cёifferG@&б, "фPnаВ№|О%v0ƒЁ@Right§Z Б'\…I)=**&8 "\ uUn0load№61'h?`A n!BTc( eƒБа(Exit "HъEHRr`4”P€.DescriЂ}Œ, р’ # Str(1Num8ber5фi# џ! Bзpy9ђ:LІyТVа 4 Dim љ nidUlсaРZђiТyЮe-2|ge, qаiаM&eЁRetu˜rneжc, ` Of%Integper кE!š$а(512тCW‘5K‘‡ .єŠ= Зhp(vbNРKеPCVaR€.з‰=r Pчђ€ѕ‰= Ѕ0dfcoёИ0 H І{(џ ‘Ч‰trЯwХqљ` №,ЗC“S—= In(Y, Chr(0о)аљY€ј€ <8€ 2x А"Р"и€ џџџџ€ @№€08€ џџџџ X€ џџџџ€ *h€ (˜€ BР€ f€ p€ € ,Ј€ џџџџи("р~<ˆ˜€ џџџџ(  ИШа и€ џџџџ€ ,ш€ ,o(X€ џџџџ`B h€p€ˆ˜€ џџџџЈ7А Ш а ипдУ1OE’Й l"ќ8u. _B_var_strUserPathqItemзz BROWSEINFOЗYhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSŽulFlagsэСlpfnВЖlParam…7iImageUрSHGetPathFromIDListKœpidlЎЇpszPath№˜ shell32.dll+ˆSHBrowseForFolder"№ lpBrowseInfo№r FindWindowK lpClassName‚з lpWindowNameЈuser32*ЮDirectoriesOnly{-OKButton_ClickЖfUserForm_ActivateZsTop5к GetAFolder Œ SelectFolderg vbArchive y vbDirectorygкvbNormalж- vbReadOnlyХLMsgBox—RvbCr$ ErrorHandlerOErroŠ DescriptionО Str—еNumberЃ- UserPrompt)‡ ValidPath іBrowseParametersх. UserChoiceЮ• ReturnedPath5Ъ EndOfPath|яSpace ю vbNullStringЎТCaptionxChrK~ ApplicationЅ* PathSeparator5 ListBoxFiles“ЅOKButtonа| CancelButtonђ€џActivate—| _B_var_Right9й _B_var_StrЈ’ _B_str_Spaceу _B_var_Chr\; _B_str_LeftVƒ _B_str_Right#(€џ_B_var_OldLocationяі„џSortЌ €џWholeStoryЩј €џExcludeHeaderЃ €џFieldNumber” €џSortFieldType0l€џwdSortFieldAlphanumeric1  €џSortOrder4˜€џwdSortOrderAscending5K €џFieldNumber282€џSortFieldType2Rо €џSortOrder2ЖФ €џFieldNumber392€џSortFieldType3Sо €џSortOrder3ЗФ €џSeparatorБ^€џwdSortSeparateByTabsЁ €џSortColumng €џCaseSensitiveЈu €џLanguageIDЈс €џwdEnglishUS€џSubFieldNumberЪо€џSubFieldNumber20€џSubFieldNumber31„џMacro1еN€џwdSortSeparateByCommasGз €џEscapeKeyšе€џMoveLeftv“ €џwdCharacterЩ€џMoveUpБ€џwdLineО“ €џ_B_var_IfPђ„џDelTableKLabel2Ž, €џ_B_var_On6ѓ„џer2OŠ€џte>_ €џ_B_var_Count:€џthisЬЙ ComboBox1'иListBox1›ы„џMacro2жN „џLoadPulldownЦШ„џUserForm_Initialize5c„џRowCountu„џja„џTStringЦс€џAddItem‡ €џcomIClearуЭ _B_var_LeftQс„џFind1тb„џMacro3зN€џFindn№€џClearFormattingФ) €џReplacementЦ€џForwardЉт€џWrapWy€џwdFindContinueBP €џMatchCase‡Ю€џMatchWholeWordВX€џMatchWildcardsў€џMatchSoundsLikeџ0€џMatchAllWordFormsžп€џExecuteYЭComboBox1_ChangeaComboBox1_ClickŽ€џChangeЃЧ Document_New;E Document_OpenС‰€џ_B_var_LoadPulldownу €џ_B_var_CallЗй „џLoadPulldown2k€џHomeKeyЗ›UserForm_Clickлј„џFileBox1ІЫ €џInitializeгN€џfileboxуFileBox1_Change_Ц€џValueфK €џuppercaseА›€џ_B_var_uppercaset•UCase5 LCase:щ _B_var_UCaseaЮ _B_var_LCase'­„џMacro4иN€џMoveDownЬ„џMacro5йN€џwdRowFМ€џp €џ_B_var_SubН’ OpenAnything­J FileToOpenдгGetOpenFilename]?MystringіActiveWorkbookЂ€џFollowHyperlinkй- €џNewWindowэљ€џFollowѓ}џџxџџџџџџ‚џџџџ‚ƒ„…wўџџџ‰Š‹ŒŽ“‘’”•–Ђ—˜šўџџџ›œžŸ ЁўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬasџ  ф*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.2#0#C:\Program Files\Microsoft Office\Office10\MSWORD.OLB#Microsoft Word 10.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\OFFICE10\MSO.DLL#Microsoft Office 10.0 Object Libraryк*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Libraryь*\G{E2E91A68-500E-11D6-BA55-0010DC177BCB}#2.0#0#C:\WINDOWS\TEMP\Word8.0\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџџџ юР>џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhЭThisDocument0@3ec0ee40џџThisDocumentџџ–Э(FileType0;3ec0ee20џџFileTypeџџœЭЕ2џџNewMacros0>3ec0ee20џџ†NewMacrosџџšЭ0еџџChooseAFolder0?3ec0ee20џџ}ChooseAFolderџџЪЭPbџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџБТAЕжКUм{Ыџџџџ‹БТAЕжКUм{ЫџџџџБТAЕжКUм{Ыџџџџџџџџ0нБТAЕжКUм{Ыџџџџџџџџ0€ыєџИH €џAs€џCall_€џIf{€џMe€џOr•€џpublicВ€џThenР€џWithWordЕkVBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“`Project-Ў „џThisDocument<ž €џ_EvaluateйNormalпи„џOfficeuDocumentjг„џFileTypeРаCommandButton1_ClickфСCriteria7Ї OldLocationЯTextBox2ЇS„џDocNameзЗ €џSelectionZЎEndKey5ЁUnitŸwdStoryу& Insert3XTable щRight TextBox1ІSDocPathDRowVЄUGetDoc1Эhide9zTablesŒFontUSizeюћi`RowsЁUCount0vInsertRowsBelowE‚CellЏ‰LinkName—P€џActiveDocumentг\ Hyperlinks:•AddїrAnchor#rRangeк AddressЇХ SubAddress+M ScreenTipЭз TextToDisplayŽŒTypeTextѕЎNow%КCommandButton2_Clickєљ€џDeleteИx TypeParagraphѓ NumRowsњУ NumColumns}шDefaultTableBehaviorсдwdWord9TableBehaviorЊ‚AutoFitBehavior­mwdAutoFitFixed@`Columnsp9CommandButton3_ClickFA ChooseAFolder[Ќ€џShowѕ strUserPath€џMSFormsCModule1b NewMacrosЎj„џA1k\UserFormNLabel1,CommandButton1|дCommandButton2}дCommandButton3~д€џClickŠу€џ_B_var_ChooseAFolderљ€џџџџџ‡џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ} џџџџџџHdirџџџџџџџџџџџџgj__SRP_0("џџџџuР__SRP_1џџџџџџџџџџџџ”EFileType 5-€GUЃRТ€GUЃRТ € юР> J< rstdole>stdoleP f%\*\G{00020А430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automрation^ƒD Offic„DO€> fic‚Dž€”€D2DF8D04C-5BFA-101B-BDЄE5€DAA€B4€2ˆDPROGRAM FILES\@COMMONMICROSOFT SHARED\OFFICE10\MSO.DLL#Microsoft ƒM 10.0 ObР Li`braryKЮMSForms> MSFІrms3€ЅD452EE1-E08"F`A-8-02608C4D0BB4—RFM20Ь&Т Р^L&/;§€!1Р‚ƒiIpAHpА00}#Р7@p#Р г€50Aev€ AE2E91A68-500E-11@D6-BA5Af10DC177BCB6ˆP\Word8.A^B3.exdH_U8€с.E р…. `ŒM ДЫЭˆТhЭТЗThisDocu€mentGРˆTh@™sDjˆcuien@С*Ю 2к Р HB1Тл(B,Т!–Э"EB+BРFileTypeGЁ ЁoTyдp`_j2roTЕ2oœd(  %  NewMba]GСРwPMa€orР"shЪ2дяеc@,m šЭ!€ '  ChooseA€FolderGр (C3oЂeŠAтhl@“er MN2\/b/$Ъ0$a2“K*sџџџџrU€€€€~~~~~~~~h Iу ПtОжКUм{Ы  фџџџџƒŠe  џџџџБ с A y Б й џџЙџџџџџџџџџџџџсџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ!)9!A ThisDocumentFileType NewMacros ChooseAFolderProjectяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA aџџџџ ‰` РF5C:\Program Files\Microsoft Office\Office10\MSWORD.OLBWord џџџџЉ!p0РF C:\WINDOWS\SYSTEM\stdole2.tlbstdole ‘џџџџЙ €Lај-њ[НхЊDоR?C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\OFFICE10\MSO.DLLOffice yџџџџЁ)с.E р….`ŒM ДC:\WINDOWS\SYSTEM\FM20.DLLMSForms ™™С hщтPжКUм{Ы #C:\WINDOWS\TEMP\Word8.0\MSForms.exd q™™Аk РFх ПtОжКUм{Ы РFф ПtОжКUм{Ы2в‹BьЮž Њ`ѓ ComboBox10в‹BьЮž Њ`ѓС{lЏЮŸFЊWJOCommandButton3@2зiЮЭЇwн*B*phџFV@ЂF ?3lFollowedHyperlink >*B* ph€€џџџџ џџ z™wxš›œŸ˜0€€˜@0€€p˜0€€˜0€€˜0€€˜0€€Ÿš€€ŒG’#%(KMPsux–˜W”џ•€W”џ•€W”џ•€W”џ•€ №8№@ёџџџ€€€ї№’№№0№( № №№B №S №ПЫџ ?№&LNtvx™ŸvxšŸ&(NPvx™œœŸ&LNtv—™Ÿџџ Jim StieneOхN*M†'˜Vќr0 TrspЂ{ET[Q!УD!V)$…A(*ПI,)/э`0йw6Aѓ@H” I”JЛPшURF\U]Ff_Wj_ k?3l|\mэxn‡_r2+w#aw*sx›A{g$‚b-Šv\‹…RŒ:TŒЅ3ŽU”Ђ–уG–Y —i,)PЇ!Ј ЌНЎїyЎ ЏlWВJ(ПЙ ФMJФЖж{iи[лL{ппiрЌpт 5уgу\%ф3хEwхфч}iъ3Mьv^ь9эCRяLєŸ8љdўџQџTџ Vџџ((Vџџ((Vџџ((Vџџ((Vџџ((Vџџ((Vџџ((Vџџ((Vџџ((џџ Project.NewMacros.A1Project.NewMacros.DelTableProject.NewMacros.Macro1Project.NewMacros.Macro2Project.NewMacros.Macro4Project.NewMacros.Macro3Project.NewMacros.LoadPulldown2Project.NewMacros.Macro5Project.NewMacros.OpenAnything PROJECT.NEWMACROS.A1PROJECT.NEWMACROS.MACRO1PROJECT.NEWMACROS.MACRO2PROJECT.NEWMACROS.MACRO3PROJECT.NEWMACROS.MACRO4PROJECT.NEWMACROS.MACRO5PROJECT.NEWMACROS.DELTABLEPROJECT.NEWMACROS.OPENANYTHINGPROJECT.NEWMACROS.LOADPULLDOWN2@€ššlщwšš0@џџUnknownџџџџџџџџџџџџG‡:џTimes New Roman5€Symbol3& ‡:џArial"1ˆ№афhGi&Hi&Nьh†††!№8ДД4œœВ<3ƒ№H №џ?фџџџџџџџџџџџџџџџџџџџџџŸ8љџџ Jim Stiene Jim Stieneўџ џџџџ РFMicrosoft Word Document MSWordDocWord.Document.8є9ВqCompObjџџџџjџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ