ࡱ> (*'09 bjbj.l0000000dddd  dddddddddNF$ :0ddddd00ddd 0d0dNdNN00Nd M2ddn NN0N#x #NDV0000 ,1h. A!"S#n$n% 9 bjbj.l##  #########%%%%%%6 V!%#####% iH@H 1KG=K9$7`7a$CJ_HaJmHsHtH\\ 03>;>2>: 1$$<@&a$5CJ KH OJQJ\^JaJ ^^ 03>;>2>: 2$$<@&a$ 56CJOJQJ\]^JaJXX 03>;>2>: 3$$<@&a$5CJOJQJ\^JaJ\\ 03>;>2>: 4"$$<1$7$8$@&H$a$5OJQJ\^J:A@: A=>2=>9 H@8DB 0170F0HH Annotation77]7^76B*CJph>> Cite $77]7^7`a$666 Cite Author n^n5:: Epigraph$ ^ `a$@!@ Epigraph Author J ^J 56NN Poem Title $n]n^`a$5CJBRB Stanza $7]7^`a$66b6 Subtitle$$7$8$H$a$  "&Lexa D:\dot.dotLexa E:\dot.dotLexa=C:\Program Files\Microsoft Office\Office\STARTUP\bomanuar.doteeeeeee V . . V . . V . . V. . V. . V. . V. . V . . V  BomanuarBomanuarKe84_eKe84_eKe84_eKe84_eKe84_e0  :@#SubtitleSubtitle :@#Head1 03>;>2>: 1 >@Head2 Alt+Ctrl+H >@Head3 Alt+Ctrl+J :@#Head4 03>;>2>: 4 :@#!B8EStanza :@#EpigraphEpigraph :@#Epigraph AuthorEpigraph Author :@#Normal1KG=K9MacrosMacrosK<e84_eK<e84_eK<e84_eK<e84_eK<e84_e0( AfterFRAfter FRNewMacros.AfterFR((p(( 5@5=>AKA_ Carry_detectNewMacros.A_Carry_detect(p(( Normal.NewMacros.UnColorUn ColorNewMacros.UnColor(p((StylesAStylesNewMacros.AStyles( Normal.NewMacros.PageSetPage SetNewMacros.PageSet( #40;8BL A?8A:8 AKill ListNewMacros.AKillList(DDAD@D@D@D@DADA@p(  SubtitleStanza EpigraphEpigraph Author(TemplateProject.NewMacros.A_Carry_detect%TemplateProject.NewMacros.ACopyStyles TemplateProject.NewMacros.A_test!TemplateProject.NewMacros.AfterFR!TemplateProject.NewMacros.AfterTE#TemplateProject.NewMacros.AKillList!TemplateProject.NewMacros.AStyles!TemplateProject.NewMacros.PageSet!TemplateProject.NewMacros.UnColor  TEMPLATEPROJECT.NEWMACROS.A_TEST!TEMPLATEPROJECT.NEWMACROS.AFTERFR!TEMPLATEPROJECT.NEWMACROS.AFTERTE!TEMPLATEPROJECT.NEWMACROS.ASTYLES!TEMPLATEPROJECT.NEWMACROS.PAGESET!TEMPLATEPROJECT.NEWMACROS.UNCOLOR#TEMPLATEPROJECT.NEWMACROS.AKILLLIST %TEMPLATEPROJECT.NEWMACROS.ACOPYSTYLES (TEMPLATEPROJECT.NEWMACROS.A_CARRY_DETECT@Dt&P@UnknownGz Times New Roman5Symbol3& z Arial"hZsws!nr0dMhGLexaLexa iF@F 1KG=K9$CJ OJPJQJ_HaJ mHsHtH:A@: A=>2=>9 H@8DB 0170F0Oh+'0l   ( 4 @LT\dssLexafexaexa bomanuar.dotoLexauar3xaMicrosoft Word 9.0@V@@'՜.+,0 hp|  LBL     !"#$%&)-,/1234_6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^.`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FM2+ 1TableV!WordDocument.SummaryInformation(DocumentSummaryInformation8Macros @G2 WL2VBA@G2 WL2ThisDocument   !#~ #xME (SLSS<N0{00020906-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2NewMacros 5f_VBA_PROJECT9dirPROJECTwmG <9N9P9R9Td9V9X \9Zq` $%&!^$b9`$b9d9f9h9j9l p9n t9r9v9x9z9|9~9$b9 999999qx $%& ( B@ !.(0Times New Roman !.(Times New Roman !.( !B@ !!B@ !-^p9d-5(d9 9999999qX  !B@ !B@ !!B@ !(^0013)([-])9d \25(d9 9999999q  !B@ !B@ !!B@ !^p-9d^p^+5(d9 9999999q  !B@ !^+9d ^+ 5(d9 9999999qP  !B@ ! -9d ^+ 5(d9 9999999q  !B@ !^=9d ^+ 5(d9 9999999q0  !B@ !^w9d 5(d9 9999999q  !B@ !^p 9d^p5(d9 9999999q  !B@ !^p_9d^p^+5(d9 9999999q  !B@ !,9d, 5(d9 9999999q  !B@ !.9d. 5(d9 9999999q`  !B@ !!9d! 5(d9 9999999q  !B@ !?9d? 5(d9 9999999q@  !B@ !. .9d..5(d9 9999999q  !B@ !. .9d..5(d9 9999999q   !B@ !? !9d?!5(d9 9999999q  !B@ !! .9d!.5(d9 9999999q  !B@ !? .9d?.5(d9 99  #~p`xME(<<< < `@h 17.10.2002 LexaNormal.NewMacros.AfterFRx ` 19.10.2002 Lexarfo Normal.NewMacros.AfterTE4 `Px 20.10.2002 Lexa9RNormal.NewMacros.AStyles9Z0 0 "manuar 8````@ 05.01.2003 Lexaxal.NewMacros.AStylesSet ` `nn`B`-5`9``  " ` 01.03.2003 LexaNormal.NewMacros.AAA 0`` 01.03.2003 LexaNormal.NewMacros.UnColor 40` 01.03.2003 LexaNormal.NewMacros.PageSet n`p 03.03.2003 LexaNormal.NewMacros.AKillListH  0@H8 19.03.2003 Lexaal.NewMacros.A_SaveH  0% 0"T T T &T  U(U0U X D0X B8U JU @U BV FXV FV FV F0W BxW PWXX"   $( P X h x (08@HPX`hpx (08@PX`hpx    0 @P`hpx  (08@HPX`h    8 HXhpx   (08@ X hx   (08@HPX` x   (8@HPX`hpx      (  8 H X ` h p x                 ( 0  H  X h x                 ( 0 8 @ H P  h  x                ( 0 8 @ H P X ` h p                 ( 8 H P X ` h p x              8 HXhpx   (08@HPX`h   8H ` p  (8HPX`hpx   (08@H`p  ( @ P`px  (08@HPX`hp   (  @P "X ` h $ &   8HPX`hpx"   & & (HPXhp (08@HPp (08X`p" (08@HPX`"h (08@HPXx" (08@HPX`hpx" (0@HPX`hpx" (08@HPX`hpx" (08@HP`hpx"   $     0  H $X             ! !$0!X!p!x!!!!!!!!! !! !$"0"H"P"X"`"h"p"x"""" "" "$"# #(#0#8#@#H#P#X#`#h# ## #$###$$$$ $($0$8$@$ X$h$ $($$$$$$$$%%%% 0%@% X%(h%%%%%%%%%%%% && 0&2@&x&&&&&&&&&&& &' '.('X'p'x''''''''' '' '$(0(H(P(X(`(h(p(x(((( (( ($() )()0)8)@)H)P)X)`)h) )) )*))**** *(*0*8*@*H* `*p* *&*******++++ + 8+H+ `+.p+++++++++++, ,(, @,"P,x,,,,,,,,,,, ,- -,(-X-p-x--------- -- -2.@.X.`.h.p.x...... .. .2.(/@/H/P/X/`/h/p/x/// // /2/0(00080@0H0P0X0`0h0p0 00 0.00111 1(10181@1H1P1 h1x1 1211112222 2(20282 P2`2 x2222222223333 3 83H3 `32p333333333344  404 H4 X4x44444444444 45 5$(5P5h5p5x55555555 55 52686P6X6`6h6p6x66666 66 6(67(70787@7H7P7X7`7h7p7 77 7(778888 8(80888@8H8 `8p8 8(88888889999 9 89H9 `92p9999999999::  :0:H: `: p:::::::::::: ;;0; H; X;x;;;;;;;;;;; ;<< 0< @<`<x<<<<<<<<<< <<= =$(=P=h=p=x======== === >(>@>X>`>h>p>x>>>>>> >>> > ?(?@?H?P?X?`?h?p?x??? ??? ? ?@(@0@8@@@H@P@X@`@h@p@ @@@ @ @@AA A(A0A8A@AHAPAXA pAA A AAAAAAAAABBB  (B8B"@B HB  XB 6hB BBBBBB $B  .C @C  HC XC hC (xC  C C C C  CC(C D(D0D8D@DHD PD`DxD *D D D D D E E(E 0E@E  HE XE hE (xE  &E E hE 4PF F F F F "G $0G "XG G G G "G G <H 4PH :H >H *I 08I .hI ,I 8I J J 0J $HJ pJ  J $J :J 0J 0(K <XK 2K 4K &L *0L *`L (L 4L L M M 0M $HMpM "xM M M &M MMMM BM J8N @N BN >O FPO FO FO F(P BpP PPQQ"Q  Q (Q &@Q hQ pQQQ"Q Q Q &Q Q Q RRR(R8RPRhRxRRRRRRRRRRSSSS S(S"0S 8S @S $XS SS SSS S TT (T 8THTXT`ThTpTxTTTTTT TX AfterFR  17.10.2002 Lexa !"' (" $%&m9(9*9,q@ $%&!.tmTimes New Roman9 909294 896 <9:9>9@9B9D9F9H9J9L99999qp  !B@ ! ^p9d^p5(d9 9999999q  !B@ ! 9d 5(d9 9999999qP  !B@ !B@ !!B@ !^m9d 5(d9 9999999q  !B@ !B@ !!B@ !^l9d 5(d9 9999999q  !B@ !B@ !!B@ !^b9d 5(d9 9999999q(  !B@ !B@ !!B@ !^-9d 5(d9 9999999qp  !B@ !B@ !!B@ !! 9d!5(d9 9999999q  !B@ !B@ !!B@ !? 9d?5(d9 9999999q  !B@ !B@ !!B@ !. 9d.5(d9 9999999qH  !B@ !B@ !!B@ ! )9d)5(d9 9999999q  !B@ !B@ !!B@ ! !9d!5(d9 9999999q  !B@  ("o  AfterTE  19.10.2002 Lexa  !B@ !B@ !!B@ !(^0013)([-])9d \25(d9 9999999qp  !B@oP  AStyles  20.10.2002 Lexa  $%&9(9*9,q $%&!.Times New Roman9 909294 896 <9:9>9@9B9D9F9H9J9L <9N9P9R9Td9V9X \9Zq $%&!^$b9`$b9d9f9h9j9l p9n t9r9v9x9z9|9~9$b9 999999q 1 $%&9(9*9,qx 1 $%&!.Arial9909294 896 <9:9>9@9B9D9F9H9J9L <9N9P9R9Td9V9X \9Zq 1 $%&!^$b9`$b9d 9f9h9j9l p9n 9r9v9x9z9|9~9$b9 999999q 2 $%&9(9*9,qX 2 $%&!.Arial9909294 896 <9:9>9@9B9D9F9H9J9L <9N9P9R9Td9V9X \9Zqx 2 $%&!^$b9`$b9d 9f9h9j9l p9n 9r9v9x9z9|9~9$b9 999999q 3 $%&9(9*9,q8 3 $%&!.Arial9 909294 896 <9:9>9@9B9D9F9H9J9L <9N9P9R9Td9V9X \9ZqX 3 $%&!^$b9`$b9d 9f9h9j9l p9n 9r9v9x9z9|9~9$b9 999999qho` A_Carry_detect  26.01.2003 Lexa !"' (" !B@ !!B@ !(<[][][])-([][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !(<[][][])-([][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !(<[][][])-([][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !(<[][][])-([][]>)9d\1||\25(d9 9999999q@  !B@ !B@ !!B@ !(<[][][])-([][]>)9d\1||\25(d9 9999999qh  !B@ !B@ !!B@ !(<[][][][])-([][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !(<[][][][])-([][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !)(<[][][][])([-]@)-([][]>)9d\1\2||\35(d9 9999999q  !B@ !B@ !!B@ !%(<[][][])([-]@)-([][]>)9d\1\2||\35(d9 9999999q  !B@ !B@ !!B@ !(<[][][])-([][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !(<[][][])-([][]>)9d\1||\25(d9 9999999q@  !B@ !B@ !!B@ !"([][][][][])-([][]>)9d\1||\25(d9 9999999q`  !B@ !B@ !!B@ !([-])-([][][][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !%([-])-([][][][][][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !([-])-([][][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !#(<[][])-([][][][][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !)(<[][])-([][][][])([-]@>)9d\1||\2\35(d9 9999999q  !B@ !B@ !!B@ !)(<[][])-([][][][])([-]@>)9d\1||\2\35(d9 9999999q   !B@ !B@ !!B@ !)(<[][])-([][][][])([-]@>)9d\1||\2\35(d9 9999999q8  !B@ !B@ !!B@ !%(<[][])-([][][])([-]@>)9d\1||\2\35(d9 9999999qX  !B@ !B@ !!B@ !)(<[][])-([][][][])([-]@>)9d\1||\2\35(d9 9999999qp  !B@ !B@ !!B@ !)(<[][])-([][][][])([-]@>)9d\1||\2\35(d9 9999999q  !B@ !B@ !!B@ !)(<[][])-([][][][])([-]@>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !(<[][])-([][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !(<[][])-([][][]>)9d\1||\25(d9 9999999q  !B@ !B@ !!B@ !)(<[][][])-([][][])([-]@>)9d\1||\2\35(d9 9999999q  !B@ !B@ !!B@ !(<[][][])-([][][]>)9d\1||\25(d9 9999999q8  !B@ !B@ !!B@? !(<[][][])-([][][]>)9d\1||\25(d9 9999999q`?  !B@ !B@ !!B@ !(<[][][])-([][][]>)9d\1||\25(d9 9999999q>  !B@ !B@ !!B@ !)(<[][][])-([][][])([-]@>)9d\1||\2\35(d9 9999999q=  !B@ !B@ !!B@  !!!.(N !(<[-]@)-([-]@>)9d\1-\25(d9 9999999q<  !B@ !B@ !!B@  !!!.(N !(<[][]@)-([-]@>)9d\1-\25(d9 9999999q;  !B@ !B@ !!B@  !!!.(N !(<[][]@)-([-]@>)9d\1-\25(d9 9999999q:  !B@ !B@ !!B@  !!!.(N !(<[][][]@)-([-]@>)9d\1-\25(d9 9999999q9  !B@ !B@ !!B@  !!!.(N ! (<[-]@)-([][][][]@>)9d\1-\25(d9 9999999q9  !B@ !B@ !!B@  !!!.(N !(<[-]@)-([][]@>)9d\1-\25(d9 9999999q 8  !B@ !B@ !!B@  !!!.(N !(<[][]@)-([-]@>)9d\1-\25(d9 9999999q87  !B@ !B@ !!B@  !!!.(N !(<[-]@)-([][]>)9d\1-\25(d9 9999999qP6  !B@ !B@ !!B@ !||9d-5(d9 9999999q5  !B@  ("oh5]d( $./ MsgBox aDoc.Words.Count & " words in document" Dim Word As Variant]@]X]p' ' Dim strzBadWords() As String' ReDim Preserve strzBadWords(iDimSize)] !' ! '  !'"Save3 = Application.ScreenUpdating ( (  ( (" !C@(<[!^0013^0032]*)([^0013^0032])9d99 99_`3C@5 !d$' $ # Selection.MoveStart wdCharacter, 1  B@  !.(6  !.(:  B@  'k2kx25q`2  (  (   ("Application.ScreenUpdating = Save3 Selection.Find.ClearFormatting With Selection.Finda' .Text = "([^0032^0013])([<>.,:;\!\?^0034\'^-\-^151^l\(\)\[\]A-Za-z0-9-]@)([^0032^0013])"- .Text = "([^0032^0013])(*)([^0032^0013])" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True Do .Execute If .Found = True Then 'MsgBox .Parent6 If CheckSpelling(.Parent, , True) <> True Then- ' ' strzBadWords(iBadWords) = .Parent4 Selection.Font.Underline = wdUnderlineWavy7 Selection.Font.UnderlineColor = wdColorOrange# iBadWords = iBadWords + 1) 'MsgBox "Bad word - " & .Parent' 'If iBadWords > iDimSize Then& ' iDimSize = iDimSize + 1002 ' ReDim Preserve strzBadWords(iDimSize) 'End If End If End If Loop Until .Found = False End With 'i = 0 For Each Word In aDoc.Words4 If CheckSpelling(Word.Text, , True) <> True Then* 'strzBadWords(iBadWords) = Word.Text) ''Selection.Words.Parent = wdSelect5 ''aDoc.Words(i).Font.Color = wdColorLightOrange+ Word.Font.Underline = wdUnderlineWavy. Word.Font.UnderlineColor = wdColorOrange iBadWords = iBadWords + 1# ''MsgBox "Bad word - " & Word# 'If iBadWords > iDimSize Then" 'iDimSize = iDimSize + 100. 'ReDim Preserve strzBadWords(iDimSize) 'End If End If 'i = i + 1 Next Word - A@ o0* AAA  01.03.2003 Lexa $9$Normal9& 5&* $,Epigraph . B@( 5&* $,Epigraph Author . B@( 5&* $,Stanza . B@( 5&* $,Subtitle . B@( 5&* $,Note . B@( 5&* $, 1 . B@( 5&* $, 2 . B@( 5&* $, 3 . B@( 5&* $, 4 . B@( 5&* $, . B@( 5&* $,  . B@(q&o&  UnColor  01.03.2003 Lexa B@ 2 !.(No& PageSet  01.03.2003 Lexa $!658(: >9<$b9@$b9B@$b9D?$b9F$b9HRQ?$b9JRQ?$b9L$b9Nq= ף=@$b9P T9R T9V Z9X9\9^ b9`9d9f9h l9jq$ox$0 AKillList  03.03.2003 Lexa $!!pB@r t $!v tB@H !x!z!|B@H !!pB@r t !B@ !!B@ !^t9d 5(d9 9999999q#  !B@o"  AAA  01.03.2003 Lexa $9$ 5&* $,Epigraph . B@(. 5&* $,Epigraph Author . B@( 5&* $,Stanza . B@( 5&* $,Subtitle . B@( 5&* $, 1 . B@( 5&* $, 2 . B@( 5&* $, 3 . B@( 5&* $, 4 . B@( 5&* $, . B@( 5&* $,  . B@(q8Qo0QBomanuar9& 5&* $, Annotation . B@( QAttribute VB_Name = "NewMacros" Sub ACopyStyles () ' AAA  01.03.2003 LexaB With ActiveDocument.UpdategOnOpenTrue#achedT0empl-BomanuarGApplication.Orga nizer Source:= _Q, DesHtin&:=\, :="Annot", Object1wdCqBnWEpigpraphVV+ Author,ރStanza***ubtitleWmmmfm 1m2v+3A>4{ q@ /n#nEnd 9 dfterFR!gAC.wcrip1 Ca~4 17.10!2 !?0ProcDataInvoke_FuncNormal.Ǝ._JSavQy}Screening Falsdɟt.S("5%[@.rPtpllyk.Bavs"pANextParar# W!  0).FoTimes  R͙SЛ12C pBold0HbI ta.Und erlinawd1NonvColor`wdStrikeT@hrough.Doubl_OutT Emboss.Shadow.HiddS@.lCap .Al< .?$8En!..upers;; .?R .$Sc ngP100Kern3paYAnimrpwdw/*?4.f/FALeftI$ntCP+LsToPoints(08Righp.SpaceBeforQ*Y(KϮ.L@11Rul15eSPl*AlignA`Ju$fy8Wi*Co`ntrolM KeepACF.Togethe8PageBreLak&No Numb .Hpyphe\Firstr1pmBaFals pMatchCasezWholeWot ildcsASoundsLikcAllaR"End WithuSelec tion.s.Execute :=wd(  .!.aaNaPa!]a!a}ž “a0ceaBh0?0?0,?r0,????a?d0. *`??H?00000?0r0.a0p .z zz} _IUzzze3z0 "? a?0#I=d =I¦!I!0£ H0chW011=0?}? 00à4K0003I?III0 ^pIaܕa,d ?000000 0 Joz "_00_z?__[hWildcards = Fal se .MatchSoun@dsLikeAllWordForm End WithSelection.Find.Execute Replace:=wd PA1Clearfa`tting#Bment./ $z.Textsp"^m" *  JwTru! Wrap wdyCon[fCasWholeMv‹ ayvlv.vnvvv|25,?;`v^b?;zvvv`v4c l0 0?;rmc@%"^-?;?; v@a῿俱?;nv{o?;wyd(Ut! e{&_;! v'7S_;aC ` ?%P_;???eSX _;?5 "?0c?rd0__ ?PEH=;3;;hv ..;;;u ; ѿ1>;`\ 1 )/Y+Y YvinvYB _;Oc_!_; Q./_Q 1!acement.Text = " !" .F@orward\True`WrapTwdFindC`ontin >pmBaFals pMatchCasez6WholeWot ildcsASoundsLikcAlla EEnd WithuSelec tion.s.Execute Repl:=wd(ApplicaScre enUpdng1YSav4Su b  AfterTE() Attrib3 .VB_De`scrip(!" 19.10.2002` Lexa!ProcData'Invoke_FuncNormal.NewMa`cros.' '' AZ  =oXL ClearCg_i =A| (F(^0013)([-])FAB  \2(,.Abi~Wqiifc"cStyles,c7c @c20Xc_cHc;CcOcTbc` ddcRAveDocuW ("΀"d: .Auto lly"1BITN Parag`h& b:'ntiNam"TimesR * Rn)S$izA12BolMIta@@ Underlin wdNonColor^w F)(SkeThrough0DoubleOut-EmbosShadow0HiddenSlCap ~4?tic84En!v1 SuperCj .Sub+.Sc q100KernFirYAni1.oawdw/* ?4;E74.f/dHLeftI$nCP+zsToPoi nts(08RinG`Ju stifyWic*rol\Keep1CF-$Togethe8PageBreLakNoq Numb .Hyphenp# `Firstr 1(4/i /imep@/ir /ilJs(0) .SpaceBefore = 1B2AutoxFalse BAft4er830rLinezingRulzwdeSl gAlignmHentfwd ParagraphCer{WidowContro"l/Tru JKeepWithNex&TogethiwPageB0reakNo!bNumb HyphenationMFirstIndumimesToPoints(1OutBlLeveuwJd 1Chc$UnitLef t0U Righ O-I3LEEnd h&A ActiveDocuA.Styles(" 2"Em@YcallyUpdatAajBaseBb""HC *.F amA("AriDal Siz1B4 BoldOItalicU&rwdFNonbColoywd"&)StrikeThrou gh *Doubl +$UEmbossSha@{Hid f1m @Cap All4 .EnvA3SuperscripዯbwU 10dKernAniA\`_:_SbZh.F^For ?q*aQ<0ѥ%aяhU/]hhiIhn-Zh j_ h- Qjhhh43hhlhhhk>OsMs hh.hYh.hO6f-hQhhhhj .hh.hhh .hդ.hoA_c+hhSuhhm.h`.h/onhS t )hQ!h\hOrGhd ҟhQhh/w۟hnZ//a'/y"/ѣhm?h:/-?]hhhhKc %hӟht.hO/.$]; @ A_Ca rry_d ctB( ' 'l L 26.01.2003 Lexa ' Save = Application.ScreenUpd8ngL>xFalse B elecFind.ClearFormatt iMS #Replacement/With 4l .Text"(<[][][])-(q >)"6\`1||\2Yward+TrunC46Wrap wdoConjuMatchCas Who0leWo:All0s0Sou@ndsLik3i8ldc66End YJ hExe cute N:=wd$C ?@O&][][?r??@.B?OW? m.? ???@an !+)?dV?= ??7?????ɷ??߾߾җ?~[?̟??in??@»߾߾h߾? o_{o_C????8o_d?1??0.5o_?a1o{?!S]o_ec?e S?<X [O_ "O  .   C_a ##   h    W    _!0.  @    @@_<w  _ __c   :  /2 ![])([-p]@ = \2 3//@/@^/6_= CC "= False  .MatchWildcards = Tru|End WithSelection.Find.Execute Replace:=wdAllbnClearFormatting#Hment.;/ H.Text"(<[][])([-]@)-([][]>)";"\1\2||\3_w !)"=$\1||\2\3aw >Wrap wdConr}Case WholeWord00SoundsLik???][][][?r??rd???;??e?ȓ>][][AtF??zA?A?__áAAAA@A~@!g .A4a loa@ eO 5~|oadO !aA1@a . 7oa .@n S@a  P l q !Eoa @A!  ["oa=  i ABR a D w  AoacAVA Ə ӏ [TA  ao o q@o A o o ?0o o o o 0)o o o ?o : \q`o Gk`OOOOOObO ^AllWordForms = False .MatchSoundsLikeWildcar"dTruEn@d WithSelection.Find.Execute Replace:=w&d 3Clearatti ng#Dmentv./ $y.Textr"(<[][])-([][][]>)"6\1||\2Yw+C6Wrap wdConjGuCashole?~ ?~~C{][[])([-H]@\3? .?d?????m??ȑ3AbC?!||r7ໟ?߿߿߿߿e??e??¿!???#?_?0G_hЁ ?#|`)"Q\1-\2 swD Wrap'QC,in H ??>W???>[?rFZn`gF hF r!vq?d.F+?,(] [][H? "?#`.??cGhGGݟFFoioidO#aiH#"@#oixsoi@Aoi"oi?_F??#%J"_FHq"Q???e ?rF`\H?"?For?""D[/i11ZP"c."""""""#}"m"" """"F" "V;"?EE Eh0E@&dՏEE" Eۿ"""""atBB_k//p "|| %@-̓O 0S<g@8 a cApplica!.ScreenUpdating = Save End Sub   A_test() Const conSize As Integerr100BSet aDoc*Activeument <' M sgBoxD.Words.Count & " w in doc3"4' Di m ,uVari6aNiLo ng.iBad_3  = a%'=t @st$rz*()"StNr8Req  'h+MoveStart wdCharacter, 1gV&1 j-Font@.Undere(WavyS pColo!Orang)!!$r7Jg+If%Loop Until'8FEVb Wlt 9la׋8l!2 'Zl3'kkp'ZFn!l32l]m<>.,:;\!\?@34\'^-\-^151^l\(\)\[\]A-Za-z0-9-]@aetZ zfzTx~{"{C `VD<Whole= xAlla aSsLik!bB!I?E2E>{.Par|ߐKD$/DcJ'CGkrv)09DoAdlA oDArA[>0 >X'" b -& / pW> iDi^m =ϧ χNJp_IeI6 Ki+K A'i 0P, Each3In؟oh(/.A?$j'#A#&4'Jsy wdQ#(i)vPh"LightdTR))Re/)))(('(( O(O( ')(p''''%kB#i5Ns  !ge6 6xtCopyStyHlesAtлb 0 A.VB_Descri!" 01.03.2003 LexaPcProcDataInvo@ke_Fun"Nl.NewMacros.AAAh Ca 2v "&@.BOnOpen wq.`  :edTempl|ataed IOPrgan`r hrce:= _O, @t$in:={ , Nam"Epigh", Obj@wdV# ze 0  Author? ? (? tt 3 :="Stanza", Object:= _  wdOrga nizerxStylesApplication.LCopy S ource .AttachedTemplate , DestinL:=ActiveDocumen@t, NamM"Subtitle1NotT n1?VnV+2++^+3+++~4A?vW ?/End W`ith !  UnCol@or() ribu଄.VBB_cripa = " 01.03.2003 Lexa"ProcData Invoke_Func Normal.NewMacros.d@ ' '> ![ cSel!Whole Story-Font.@wd" Black$PageSet$$$$$$$W4$B k. up%.LineNumberin g. FalsehOriw"yPortraitTopMar(gin`C imetersToPoints(2( .Bottom".Lef&t.5Ri,gh1 Gu.t 0HeaderDis ce1.27IFoOMQ`WidthOB21)Heq9.69J irsBtaTray@w dP `Defa@ultBin thhers.S:rt/AddAndEven(@Differ%F  ,VertlAlign+SuppPress0UnPsTru91Mir8ror(= Two OnOn"&PowdA.s\] AKil|lL'[KfK]]3]tbZK]]KK1fCSKRangeJstFQe]nvKETexTH Ey a InPShap%8 a)d# OerCFr@.3oo RG!cN aSFind.Clearc`g?0Rece,!S?R` `-"^~t0RI  @ wardp 1WrapPwd Cxin 3 0MatchCas_2 .~WoBAll8DndsLikoeildc ,w8|Execd:=wd0 8f0Options0IgnoreUppercase0Save1Q0IgnoreMixedDigitsn0Save2R0IgnoreInternetAndFileAddresses0Found+0Trim@0 CheckSpellingW0MoveEnd*0 wdCharacter0wdUnderlineWavy;0 wdColorOrangej0MsgBoxR0 ACopyStylesD0UpdateStylesOnOpen0AttachedTemplate0 OrganizerCopy0SourceG0 Destinationл0wdOrganizerObjectStyles"0UnColor0 wdColorBlack0PageSet>0 PageSetup0 LineNumbering)0ActiveS0 Orientationw0wdOrientPortraitc0 TopMargini0 BottomMarginu0 LeftMargin]0 RightMargin[0GutterV0HeaderDistanceS0FooterDistancek0 PageWidth0 PageHeight 0 FirstPageTray[0wdPrinterDefaultBin0OtherPagesTray!0 SectionStarth0wdSectionNewPage0OddAndEvenPagesHeaderFooteri0DifferentFirstPageHeaderFooterj90VerticalAlignmentʡ0wdAlignVerticalTop80SuppressEndnotes[f0 MirrorMargins*"0 TwoPagesOnOneU0 GutterPos?0wdGutterPosLeft|~0 AKillList0 ListFormat4J0ConvertNumbersToTextF0aX0Shapes<0 ShapeRange0 TextFrame0 TextRange0A_SaveX0sr&_0Contentl0 wdFindStop_0 wdStyleNormal0Parent0Documentj0T  $NewMacrosp`)80* pHdTemplateProjectQH@  = | ? J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\System32\e2.tlb#OLE Automation0EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Ec:\gram Files\Microsoft 6\MSO9.DLL#  9.0 Ob Libra,ryC"~ThisDocumentGT isDcumhn2 HB1t%BE,! "B+B NewMa=G wMaVr%hs 2 O )"O p`!C stdole`0TemplateProjectE0 ThisDocument<0 _EvThisDocumentThisDocumentNewMacrosNewMacros0 Application*0ScreenUpdating! 0ActiveDocument\ID="{B05668C5-2DC8-45B4-8F89-515A3DFC69BE}" Document=ThisDocument/&H00000000 Module=NewMacros Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2F2D2F02711EA422A422A422A422" DPB="5E5C5E73A28DD08ED08ED0" GC="8D8F8DA093CE94CE9431" [Host Extender Info] &H00000001={3832D640-CF90-11CFPROJECT CompObj"jObjectPoolM2M2am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#c:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{00020905-0000-0000-C000-000000000046}#8.1#0#c:\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#c:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library ?~ThisDocument0;3fcde492ThisDocument %NewMacros043fcdeaf1NewMacrosp`)8R{Ktśrel\'B"όb)H|CWordS10VBA0Win160Win320Mac0VBA6#0Project1 0stdole`0TemplateProjectE0 ThisDocument<0 _Evaluate0Officeu0Module1b0 NewMacros0AfterFRMK0Save0 Application*0ScreenUpdating! 0ActiveDocument\0StylesĆ0AutomaticallyUpdate0 BaseStyle(0NextParagraphStyle&0FontU0Size0Bold0Italic!0 Underline0wdUnderlineNonef0UnderlineColor0wdColorAutomatic0 StrikeThrough"0DoubleStrikeThrough1^0Outline50EmbossT0Shadow0Hidden]0 SmallCaps~c0AllCapss_0Color2F0Engrave80 Superscript0 SubscriptV0Scaling`0KerningB0 Animation0wdAnimationNone*V0ParagraphFormat0 LeftIndenti0CentimetersToPoints0 RightIndent(0 SpaceBefore0SpaceBeforeAutoJ0 SpaceAfter(0SpaceAfterAutoC0LineSpacingRulep0wdLineSpaceSingles0 AlignmentI0wdAlignParagraphJustify0 WidowControlj0 KeepWithNextw0 KeepTogether]0PageBreakBefore0 NoLineNumber0 HyphenationG0FirstLineIndent_0 OutlineLevel՚0wdOutlineLevelBodyText|0CharacterUnitLeftIndent~0CharacterUnitRightIndent݋0CharacterUnitFirstLineIndentk0LineUnitBefore4G0 LineUnitAfter0 SelectionZ0Style)0 WholeStoryc0Findn0ClearFormatting)0 Replacement0ForwardG0Wrap>0wdFindContinue0 MatchCase0MatchWholeWord0MatchWildcardsy0MatchSoundsLike00MatchAllWordForms0ExecuteY0Replacef0 wdReplaceAllˣ0AfterTEFM0AStyles$0wdAlignParagraphCentera0wdOutlineLevel1'0wdOutlineLevel2'0wdOutlineLevel3'0 ABomanuar 0Keyboard0TypeTextw0 InsertSymbol80CharacterNumber0UnicodeW0Bias0 Hyperlinks0Addr0Anchor#r0Range 0Address0 SubAddress+M0 TypeParagraphL0MoveUp0Unit0wdLinet0Count0v0HomeKey0EndKey90Extend?0wdExtende0MoveDown0 AStylesSet)0BordersC"0A_Carry_detect0 wdColorRed"0 wdColorBlue0A_test30conSizeY0aDoc0iDimSize0 iBadWords0i`0 FoundWord-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C NewMacros=22, 22, 814, 511,   F Microsoft Word MSWordDocWord.Document.89q###:############### M2###P0#V!#V!## ,1h. A!"R#n$n% @P$@UnknownGz Times New Roman5Symbol3& z Arial"0h0r