ࡱ> !# Y bjbjWW ==]  $^  yg I  / =!"#$%Y bjbjWW ==]  %$ [$@$NormalmH <A@<Default Paragraph Font  Peeter Marvet D:\Dot1.dot Peeter Marvet<C:\Program Files\Microsoft Office\Office\STARTUP\Good-97.dotV V  T"( Clean-O-Matic by Goodwin Clean OMaticCleanOMatic.MAINg ( %WinCyrillic to FLFCyrillic by GoodwinWin Cyrillic2 FLFCyrillicWinCyrillic2FLFCyrillic.MAINg-T TemplateProject.CleanOMatic.MAIN,TemplateProject.WinCyrillic2FLFCyrillic.MAIN TEMPLATEPROJECT.CLEANOMATIC.MAIN,TEMPLATEPROJECT.WINCYRILLIC2FLFCYRILLIC.MAIN@8لP@GTimes New Roman5Symbol3& Arial"h 4#4#r0d Peeter Marvet Peeter MarvetOh+'0d   , 8DLT\ssPeeter Marvetoeet Good-97.dotPeeter Marveto2etMicrosoft Word 8.0@@4 I@N I՜.+,D՜.+,< hp  Goodwin \ prepressj  Title 6> _PID_GUIDAN{1EAFE02B-B50D-11D1-A562-444553540000}l o"&%@i()*+,-./0123456789:;<=>?ABCDEFGHjJKLMNOPQRSTUVWXYZ[\]^_`abcdefghkmnpRoot Entry F> Iyg I$1TableWordDocumentSummaryInformation(DocumentSummaryInformation8Macros `_ I`_ IHNDNVBA"~`_ I`_ IdirO N,@  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]_`b0* pHdTemplateProjectQH@  = | Y5 J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.tlb#OLE Automation/MSForms>SFErms/z pF6F158760-44E0-11D1-A5624558354HF3.TWD#Microsoft = ` Ob Libprary9P04rPF8F72E43-9E0C'PJP\VHBE\(EX(.E .`M ACxOfficDxO@uficBx,,2DF8D04C-5BFA-101B-BDER5@xAA@w42UPROGRAM FILES\MICROSOFT OFFICE\MSO97.D LLHZ# 8.0EZ)BThisDocumentN2@1Th@6sDcuQen@HB1,B,B)"B+B CleanOM@c 2AʂaOMa@VO$O)!) %WinCyrilli c2FLFe12.!`nCyr lu!2hL`/*4/* x))# CleanOMatic '.0ThisDocument _VBA_PROJECT jWinCyrillic2FLFCyrillic0I?x_})){$` d:="@ , Di ME" H 8P J 8 ( 8 TH D 0 8 8P : D  >(h     V j     ` ` `x  X @lP  `  8XH l 0  8 ^H ^ ^ bh f ^8 ^  V  ` jp       l  Xhl8  p  p  H X h xN  N HNX ^^  N  N PN` ^^(  P  P XPh ``0  P  P `Pp ``8    A This is a macro to clear un-neccessary formatting from Word text2 Good to run for every text going to layout or wwwD Preserves assigned styles + Bold, Italic, SuperScript and SubScript2 (c) 1997 Goodwin, Peeter Marvet (pets@goodwin.ee)! version: see MsgBox header below history:N ver 0.6: corrected a mistake -- replaced inchmarks (", Chr(34)) with Em-dash= ver 0.5: remove space before ^p once more after removing ^t) ver 0.4: added code to remove Revisions2 ver 0.3: added warning and possibility to cancel2 ver 0.2: optimized, added ResetPara & ResetChar,4 saves bold, italic, super- and subscripts= ver 0.1: created by Heiki Savitch, Avita Publishers & ReproZ@ B@"WHOIATUS! See makro puhastab dokumendi kigist formaadimuutustest. Undo ei ole vimalik. $& $& WARNING! This macro will remove all formatting from your text, except paragraph styles, bold, italic, super- and subscripts. Undo is impossible. Clean-o-Matic macro (ver 0.6)1 %$' F(g B@* B@,0 B@. 4 68:<>@B B@2 %D 4 68:<>@HB B@F B@2X B@, ^p4^p68:<>@BH B@F ^p 4^p68:<>@BH B@F ^p^t4^p68:<>@BH B@F B@,^t^p4^p68:<>@B B@2 %D^t^p4^p68:<>@HB B@F B@2( ^p4^p68:<>@BH B@F B@,^p^p4^p68:<>@B B@2 %D^p^p4^p68:<>@HB B@F B@2 B@, :4: 68:<>@BH B@F  .4. 68:<>@BH B@F  ,4, 68:<>@BH B@F  -- 4 68:<>@BH B@F "$&4"$&68:<>@BH B@F ( 4 (68:<>@BH B@F  )4) 68:<>@BH B@F B@, 4 68:<>@B B@2 %D 4 68:<>@HB B@F B@2 B@, B@*LNPRTVXZ\^`bd0d (normal text)fhjln B@J4 ^&<-b>68:<>@HBp B@F B@*LNPRTVXZ\^`bd0d (normal text)fhjln B@J4 ^&<-i>68:<>@HBp B@F B@*LNPRTVXZ\^`bd0d (normal text)fhjln B@J4 ^&<-sps>68:<>@HBp B@F B@*LNPRTVXZ\^`bd0d (normal text)fhjln B@J4 ^&<-sbs>68:<>@HBp B@F B@r B@t B@v B@,48:<>@B B@2 %D B@x<-b>48:<>@B B@2 B@h48:<>@B B@2 B@2@ 468:<>@HB B@F <-b>468:<>@HB B@F B@,48:<>@B B@2 %D B@x<-i>48:<>@B B@2 B@j48:<>@B B@2 B@28 468:<>@HB B@F <-i>468:<>@HB B@F B@,48:<>@B B@2 %D B@x<-sps>48:<>@B B@2 B@j48:<>@B B@2 B@20468:<>@HB B@F <-sps>468:<>@HB B@F B@,48:<>@B B@2 %D B@x<-sbs>48:<>@B B@2 B@j48:<>@B B@2 B@2(468:<>@HB B@F <-sbs>468:<>@HB B@F B@,(PlH@ Attribute VB_Name = "CleanOMatic" Public Sub MAIN() ' This a macro to cjr un-neccessary formatting from Word textGooAo run( eve2 go2Tlayout or www4Preserves assigned styl+ Bold, (Ita,perScript 8and F(c) 1997 Bwin, Pee@ter Ma.t (pets@gcP.eezOsion: see MsgBox headbeloOtory:2  0.6: correctVistake -- replac inchmarks (", Chr(34)) with E@m-dash(5:move s"p bee ^p once more afflre^H4 : add;co den e ReTvi8s3 warnARpo^@bilityB~al 2: optimizedRmtPara &setChar, savJbqiqsuq-aBpsubss (1@WreaVby Heiki Savitch, A a Bsherspro Dim DoW@eDoItNo  Basic.@eenUpd}0 G Á("HOIATUS! Smakpuhazb dokumendi` kigadimuutustest. Undo ei ol@e vimk." +ƒ13)J"WARNIN G!Cwill]ar, excep2 graphh, -/sD!mCAle.V"-o-B$(`)49h,If.`)0@en qTo byea3+EditFin2dA rFƉj5tartOfDoc,]Tools[ A@ptAll(:=1 :=" RtDix!=0, A@LCase:Wh6Paton chSoundsLik"W/Whi?/FAd_〖_ ?#d $), !+`3aK/S8@^pj33`".3։3, "G  Ga@GY%E^p^t? /-&  V _0 t, h-g9at9da5I9c+"^_ [ 9@FoEerhE9(9 & 99-#//d/ -@)##_#h/C#c No]m##pog:_ \ ##=i##]`s###]}%:j%:xo%9?j=1o%h%_<" A4 p. ueGGG - ,, _g?3  / / / / / / /ϰ+(׆ :=((((((ɏ2q6'(a( A  :=0, SoundsLike@FormatPWrap:=1, ReplaceAll8 WordBasic .Edit< Find:=" )&"d) DirectionMatchCasWholeQPattern";StartOfDocumentZ\Ufd\\hile HF()  Y_"* L^DC, +A39end^@FNfA CleartingICJnt Points@llUnderlin-ColorD:=StrT@hroughuperscrip@ubHid demallxCapASpac(C Posi"#K MiTabE 0 Fon "(nl texbtBol1I talicC-Out8Shadow?GLD^&<-b>s`6s@ -DC~2F`a=;)0{sr?da&???S?*`)??k?F?_)?Q h?ib?i???D??~}*S~~~?~~I?a??sps?B?yH=y{b?rrm?E]Vc_`T____o_o_o_o_ng?@to_`c_!_m_q_sbp<ׁl_ɤSel`BlResetParaNCharI_#՞0p o1 tc@Ext#$i |, ϵQOW>S; +)8Oミ+,  !P R/0   /0 p ӏzBܯ=*2o4o4%?(b*_ o4o4o4 _dw/ / / / ?O+B+c]4nG ? ? ? ? ? 6  WordBasic.EditFind We( Replace :="", (Direction:=0, Mat@chCaseW0holePa`tternDSoundsLik-VAll:=1, Format(Wrap-|OStartOfDocument ]spsǤhile Fa() xtSelw{D0-?11(ItalicV)_%+ԄMh`::_~_~M~;jdy&sbjߓȓ1?W]j inj - iWj<*jVVVˬjcSO5j bye: End Sub (SLSS<N0{00020906-0000-0000-C000-000000000046}8($HMExAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2a^  *\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{6F158760-44E0-11D1-A562-444553540000}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{F8F72E43-9E0C-11D1-A562-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 LibraryY5)ThisDocument 635000459*D)CleanOMatic 735000460*D)$.WinCyrillic2FLFCyrillic 835000460*Dz)04P0& bDEST( bDEST* bDEST0>?p-WordkVBAWin16~Win32MacProject1 stdole`MSFormsC ThisDocument< _EvaluateOfficeuTemplateProjectEModule1b CleanOMaticPMAIN, DoWeDoItNowv WordBasicScreenUpdating! MsgBoxRChrK~byezEditFindClearFormatting1StartOfDocumentToolsRevisionsa AcceptAll,EditFindFindnReplacef Direction& MatchCase WholeWorde PatternMatch SoundsLike1WrapWy EditFindFound EditReplace ReplaceAll) EditFindFontZPoints UnderlineColor2F StrikeThrough" Superscript SubscriptVHidden] SmallCaps~cAllCapss_SpacingSPositionKerningB KerningMin1FontUBoldItalic!Outline5ShadowFindAllWordForms}( EditSelectAllV ResetPara ResetCharExtendSelectionWinCyrillic2FLFCyrillic Documentjl  { 6ID="{1EAFE02C-B50D-11D1-A562-444553540000}" Document=ThisDocument/&H00000000 Module=CleanOMatic Module=WinCyrillic2FLFCyrillixG}))c4H }rdBa8ME~ "``hv`@`````` ```@`````` `` `@`````` ` ` `@ ` ` ^` ^ ^ ^ ^ ^@ ^ ^^`^^ ^^^@^^^`^^ ^^^@^^^`^^ ^^b@^^ ^h^^(^^^H^^^h^^(^^^H^^^h^^(^^^H^^ ^h ^ ^(!^!^!^H"^"^#^h#^#^($^$ `$rH%`%` &`&`&`@'`'`(``(`(` )`)`)`@*`*`+``+`+  ,0,&4&&&68:<>@HB B@F !4&!&68:<>@HB B@F "$&4&"$& & 68:<>@HB B@F #4&#&68:<>@HB B@F $4&$&68:<>@HB B@F %4&%&68:<>@HB B@F '4&'&68:<>@HB B@F (4&(&68:<>@HB B@F )4&)&68:<>@HB B@F *4&*&68:<>@HB B@F +4&+&68:<>@HB B@F ,4&,&68:<>@HB B@F /4&/&68:<>@HB B@F :4&:&68:<>@HB B@F ;4&;&68:<>@HB B@F <4&<&68:<>@HB B@F =4&=&68:<>@HB B@F >4&>&68:<>@HB B@F ?4&?&68:<>@HB B@F @4&?&68:<>@HB B@F [4&?&68:<>@HB B@F \4&?&68:<>@HB B@F ]4&?&68:<>@HB B@F ^^4&?&68:<>@HB B@F _4&?&68:<>@HB B@F `4&?&68:<>@HB B@F {4&?&68:<>@HB B@F |4&?&68:<>@HB B@F }4&?&68:<>@HB B@F ~4&?&68:<>@HB B@F 4F68:<>@HB B@F 4<68:<>@HB B@F 4D68:<>@HB B@F 4U68:<>@HB B@F 4L68:<>@HB B@F 4T68:<>@HB B@F 4:68:<>@HB B@F 4P68:<>@HB B@F 4B68:<>@HB B@F 4Q68:<>@HB B@F 4R68:<>@HB B@F 4K68:<>@HB B@F 4V68:<>@HB B@F 4Y68:<>@HB B@F 4J68:<>@HB B@F 4G68:<>@HB B@F 4H68:<>@HB B@F 4C68:<>@HB B@F 4N68:<>@HB B@F 4E68:<>@HB B@F 4A68:<>@HB B@F 4{68:<>@HB B@F 4W68:<>@HB B@F 4X68:<>@HB B@F 4I68:<>@HB B@F 4O68:<>@HB B@F 4)68:<>@HB B@F 4S68:<>@HB B@F 4M68:<>@HB B@F 4"$&68:<>@HB B@F 4?68:<>@HB B@F 4Z68:<>@HB B@F 4f68:<>@HB B@F 4,68:<>@HB B@F 4d68:<>@HB B@F 4u68:<>@HB B@F 4l68:<>@HB B@F 4t68:<>@HB B@F 4;68:<>@HB B@F 4p68:<>@HB B@F 4b68:<>@HB B@F 4q68:<>@HB B@F 4r68:<>@HB B@F 4k68:<>@HB B@F 4v68:<>@HB B@F 4y68:<>@HB B@F 4j68:<>@HB B@F 4g68:<>@HB B@F 4h68:<>@HB B@F 4c68:<>@HB B@F 4n68:<>@HB B@F 4e68:<>@HB B@F 4a68:<>@HB B@F 4[68:<>@HB B@F 4w68:<>@HB B@F 4x68:<>@HB B@F 4i68:<>@HB B@F 4o68:<>@HB B@F 4(68:<>@HB B@F 4s68:<>@HB B@F 4m68:<>@HB B@F 4'68:<>@HB B@F 4/68:<>@HB B@F 4z68:<>@HB B@F 4=68:<>@HB B@F 4+68:<>@HB B@F 468:<>@HB B@F 468:<>@HB B@F &!&4^^68:<>@HB B@F &"$& & 4$68:<>@HB B@F &#&468:<>@HB B@F &$&468:<>@HB B@F &%&4*68:<>@HB B@F &'&4~68:<>@HB B@F &(&4!68:<>@HB B@F &)&4@68:<>@HB B@F &*&468:<>@HB B@F &+&4}68:<>@HB B@F &,&4>68:<>@HB B@F &/&4#68:<>@HB B@F &:&4%68:<>@HB B@F &;&4&68:<>@HB B@F &<&4*68:<>@HB B@F &=&4]68:<>@HB B@F &>&4*68:<>@HB B@F &?&4*68:<>@HB B@F &&&4%68:<>@HB B@F lAttribute VB_Name = "WinCyrillic2FLF," PubX Sub MAIN() WordBasic.EditReplace Find:="&", $&Direction:=0, MatchCase:=1, WholeQPatte rn"SoundsLik-;YAll''G'/]K'#''G':K'%'?%;?`??=1<*'=]>'?.?߿D&vX End Sub PROJECT VPROJECTwm^CompObjajObjectPoolyg Iyg Ic Name="TemplateProject" HelpContextID="0" CMG="D0D2456349634963496349" DPB="A0A2353636363636" GC="7072E506E606E6F9" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C CleanOMatic=0, 0, 0, 0, C WinCyrillic2FLFCyrillic=0, 0, 0, 0, C ThisDocumentThisDocumentCleanOMaticCleanOMaticWinCyrillic2FLFCyrillicWinCyrillic2FLFCyrillic  FMicrosoft Word Document MSWordDocWord.Document.89q yg I / =!"#$% [0@0NormalCJ OJPJQJ<A@<Default Paragraph Font@8لP$@GTimes New Roman5Symbol3& Arial"0h0