ࡱ> \  nM bjbj== .WWlDDDxm* y* xM%ie$$$$$$$M& m($$D$%8D Zi.  ,D * @Ux  %0M% )) Xj 01h/R . A!"R#n$n% M bjbj== .WWl))E*E*E*E*E*Y*Y*e*m*m* y* Y*****************+ .*E*******o#%)CompObj'pi09"*( n``UUf;}   "#$%&()*+,-.T0123456789:;<=>?@ABCDEFGHIJKLMNOPQRS'UVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ThisDocument(__SRP_4 __SRP_5 (ForBarCode/  !"#$%&')*+,./012345679:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]^_`abceghijklmnopqrstuvwxy{|~n Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R3*#4d*\R1*#c0*\R0*#f*\R3*#4d*\R1*#c0*\R0*#f*\R3*#4d*\R1*#c0*\R0*#f*\R0*#f*\R1*#c0*\R3*#4d*\R3*#8c*\R0*#14*\R0*#1*\R0*#e$*\Rffff*134806c9a3*\R1*#c0*\R0*#f*\R3*#4d4D"7h@   `D  *( .X L3  @   (8  P (X "( B (+#-#<#IFߩ FpUkzL xpUkzL #IFߩME|@[LSS>"LLLLLLLLL*"LL<N0{00020906-0000-0000-C000-000000000046}8P(%Hh % %8X%i `|ki @PbL$ b`,k0 ! ` k>` I Pi  i  @x @ `0k $``dkp 'pxXH@` h@h @X @H @F8 @4 @H$ @^( hXtvn.@ x@ @ @ 0@D @ 08@h `@< @ @ @ Hb @@bl 0 x @d`@\ @L @< @, H$ P@$l h0hP X  p ( @ h P 8  @ \ Lb@Pn@X @T @ D @ 4 @$ 0@& @F @H @^ @h @ @ @* @ @ @t @ d L @@x @ h @ X @ H @0 8 `@H ( H@`  0@ @ xXH@`X p (\ p L @<  X @H 8 @(  @ @ @ p @ @ ` pHpx @  @  @ x @h HX X@H @x8 @(  @  @  @ 8 @  p@@OH$*\Rffff*0748114f2b*\R1*#c0L*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\..\..\..\Program Files\Commo# B ` $>7p@ * $&$ P p *3@ ( ph "P (+ 0X xooA@P8Phk0 $ !@$P$b'F !'^H F Hntk L!N$P$b'Hi $d\kx \'bScripting.FileSystemObject$n.ht:) F ^ H ^ hB@rk( DHx0 B@(@h`o`P |x BarCodeDraw7(.<q  LB@xexit!A@*Application.Run "ForExternal", "13", False <(Ttemp.bPi !@$P$b'F L!N$P$b'H !'^Scripting.FileSystemObject$n.h H ^ h% Ftemp.bat h%. del  B@copy ^   B@ B@B'$@ * B@ & h%. ! '* L!@$b winword.exe'& del temp.bat B@,)'$k LB@x H ^ h%. ! '0temp.batA@. d LB@x% BarCode.dot Setup BarCode TemplateA@ : BarCode.dot MS Word StartUp Folder X= MS Word t v Setup BarCode Template$'D - . XW , , 'temp.bat', X Setup BarCode TemplateA@dtemp.batA@.eeeeeeAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _New@() lpEaddsl(LC( .Path)sApplication.S@tartupfnn. IDf 6<> &T@hen LAForm.Sh owNot MakeInstall i/MsgBox(" BarCode.d MS Word )Up Folder" & @vbCrLf_A" ",QuesG +YesNo, "SeI+ t"WE?76< fso?BeObject("Scripting.FileSystem A@.copyf b& fn,AcÊ CY QYsfl.shportpfa tcvetexcp& <, Q@UpExists(h1O)lV ,les= _ Q  .writeline ("del a3@o`qYrs / $'P(G >UCls-, tnQ, /;kQMe:!*1'ARun "ExternalBx"13P0 =rU , Q1qi   9 A  iѫAIvQiA YA ѴAIqQ4 a1`` IW47Hx$ 4>xFhX XH86hX@Hx4! 4 @>xFhX XH$46hXx$ >xFh 8$@$hhX5hDD''H:NXX$% *#x&*Fh^ i/x6hXH(]3  h  hN.8h%$X%c%6hX3''H:NXX:'Nhh 6hXH4! 0Q44:% HQ4 c%Cc:Nhh $t5h('H'X'h4! 4 46hXH?:Nhh $t5hP''H:NXX) *#x**# *#+*Fh 2x6hXH('H'X'h4! 4 46hXH@(8$,x4hXH<  $ H.#l \  \:L]@5\< ,:L\l/ PH(l\<,. f\l>4TX! X 4>TFD4:\$X6D47$T$ 4>TFD4 4$6D4@$TX! X @>TFD4 4$X6D4T$ >TFD D  DN @BDNAD&:\D%c%B4dN5D$D%B46D4 D%B4N5DAD:\D%d5D3:\D: 4$%d6D4$d c\l:\!%d d"/ ,L4 ld TXD4$X(''8'Xx! x x6X8+'''8:h#NXX 6X8X$ xX8448rU @$`$A` ,`//(`/$`nrU @8 `i/0/#, `//, *#153*\R1*#155*\R1*#152*\R1*#c6*\R1*#15c*\R1*#129*\R1*#c1*\R0*#f$*\Rffff*3848113691*\R1*#c5*\R1*#a4*\R1*#1e*\R1*#b5*\R1*#d7*\R1*#d6*\R0*#10*\R0*#17*\R1*#196*\R1*#30*\R1*#82*\R1*#76*\R1*#77*\R1*#126*\R1*#125*\R1*#97*\R1*#96*\R3*#2*\R3*#1*\R3*#0*\R1*#b9*\R1*#2b*\R1*#3f*\R1*#e2*\R1*#180*\R1*#e3*\R1*#21*\R1*#173*\R1*#16f*\R0*#13*\R1*#171*\R1*#153*\R3*#22*\R1*#155*\R1*#152*\R1*#c6*\R3*#1f*\R1*#15c*\R1*#129*\R0*#15*\R1*#c1*\R1*#17b*\R0*#10*\R0*#e$*\Rffff*0748113894*\R0*#f*\R0*#14*\R0*#1*\R0*#f,$ C "  2 P. "" 6/v3 H ' h'9' ''@ %' *bE BX' " ? %@)3@ X)`) h) @ %@ bF @@ @@' %'3( B * 'X `" " B% B #p)'C(X@) B) )) B)  ) A A &0* + ('0C HC( z|/  2) * * *`' )  (  ( X*Fk( 0) ) ) 1* x* 'C hC* * * B 2+ + 2"+ *) VP ` >> J0 F  &       4: 8P! (0 *    = *h=< !( !  +"@lPD48=!hx !,!   Hih!! :}< 78&OPAxA  x& ($ p"8$ @$h"&# x"-"."-$ $H"X""# # # (#0#8# @# H# P# X# `# h#p######### - "  8,3(08@P#X&x $%   " ( , $0 @PXhxdI N~ <xMEd > `x\kHIb hId  .@`hk __I ``\ `L d2`< 00`, r` r`er`or`e `` ws` e `Br`B`Br`H c`ma`` ``````h @CD@8B D ``p$k BB`I lh)) ` kh@^h (% B(`/*k @8`p-*kI iT x`p,*kʀ8 @ `)*k4@IV b z Dh 8 @ʀ$ @ T8; `9|k @ X  iL @ H 8` @(8x`8` @(8x`8` @(8x`8` @(8x`8` @(8x`8` @(8x`8` @(8x`ꀼ @@8;`h 8(8(`8 xPp X @p x Z\hX@ 8 @( ( @  @ @@ @ 0@b @ p @    @  @j @H @0  @H  @`  @    tv` . @ t @ p @l @x\ @L @< @, @p HO @  (pO@ @ @ @ @ @h pQ x d@.@0 @ @| @8l @\ (@L @< @ , x@( @ @ (@& @zX @" (@$ @ ~@, @ @*( 8(>NLFV@@X @p @P| h@Bl @@\ (@DL @< @@, h @ @ @ ;(D:(@@< ` %P `H(hlV@r|@x @t @p l`%8@\ X0` % pNF(@T Hh0`FNB@Hx @t px` %` @l @\ !@#"(xP0X#!(#p#`($x@.l `(  t @ @ @( @@ @X @p @p @` @P @@ @0 @ @ @0 @H @` @x (@ @ @ @ @ @p @ ` @8P @P@ @r@h0 @ @ @ @ @ @ @ @( @@ @X @p @p h@` @P @@ @0 P@ @ @0 @H @` @x @ @ (@ @ @ @p @ ` @8P @P@ t@h0 @ @ @ @ @ @ @ @( @@ @X @p @p @` @P @@ @0 @ @@  (#-@X @p @ @ @ @ @ p@ (@ @0p @H` @`P @x@ @0 @ @ @ @ @ @ @8 @` `% @x @! ` `7k I, h!p#D@ ! (@8!p @P!` @!P ##D @!@ @0 @! @# @d @f @` %0"8"@"0 p ( PhP(H! 8`!p !""#@h x'@ (@<! @x# @# @#/ @# ##H @ $#H@@$ $#Q#R @@X$x @h )P)&'h)8)%'x& )'%p%&%&(%@l 8%%0& @8 ( @&( P%%%@H% @ @% @0& \ @& @H& @`& @X' @ @ @('x @&h '& @(X '&@T @@'D @p'4 @'$ @ @' @ '&@(( `#@ @ @(( @x( h((( @ (((#@( @(x(% @) ((% )('*  `1 k 55@,%t @d )@PT @P(D @D%4 @)$ )).@ )).)>p+***+++X+*86%D( **@(+x p@t @d @@T @P  ,83 8*@L @Z<  +@, @/@* .D(@P,x @t @d x6%**@T @P ,(-,++8,@-X--+@L @Z< @, @* .X.@.(.p.....D(@@.x @t @d @T @P @L @Z< @, @* 10p0/@111p1/D(/@X1x /@/0/p+/X/(/p/8,@t @d /@/0/p+/X/(/p/8,@T @P 82@L @Z< @, @* 67&1666222326`683x66@+F(@h3l @ 3h @d @ZT @3D @@ <("`2^8RBdD@3, @3 @3 @3 @3 @4 @(4 @@4 @X4 @p4 @4 @4| @4l X5@4\ @4L @5< @5, @05 @H5 @`5 (@x5 @5 @5 @5 @5 @@5 @H6 @| @z @2h 9-@X @T 7@R @@ @ 60 @Z h85P3t 6887 778781h6@l 7@P8\ @8L @< @8, @ 8 @ 88007@8 @ 98 9@<@8 @ 8 @ @l @\ @L (;`7@< @, @ P999@ 09t\ ;C9:@ @  ;:  `<kx; ((i ;i :;( @ ;H<@H<( @ ;x< (<`<h< X<<9H9x;9x99:;:`9;::;@= 8;8@ OH$*\Rffff*3148113593*\R1*#e2*\R1*#e3*\R1*#173*\R1*#16f*\R1*#171*\R1%%$)P!     (08@ B x/ .. @/ . >D 2@/ D. X, `, , H, 4, - <- TP- ^- ,H  xP r x@ x 0  H &h & &   6 t8 {`9{6t3Bt *@B XB HB pB hB BPB   ( X8   P<@      X<P     `<X    ~ p<<x<#`x !'4P  Px ` h p  \p2 `hp x - B  8E *D >E 8HEp.(((  8 P Fp 4P " 88$Vk@ 0$  D% :P%H%8%  4&$ xp ,J &H&,J    @ H P`p )       ( 8 @  P  p x "$D x$ (&8h$#X2`$ "X$D P$ ( 8&#& " D  ( 8&#8' "h D `  (08'#&( "1 ? B C C ?>? ?? ((31*83 $H3 > h3 x33 3 3 3 3 3 3311 B1121"<1F2"<22 * 2 X3' >  >>  >`3 ( '82p2 B6CBB22 B < < =<3@= 0= =< "= == "  >> ? 0> P> X> > > > H?P?X?`?h?p? > > ? x? ? ?  ? ? 0? ? @>> 8>  `> h> p> H> ? ? (>H'?' A - ( <= 10)' B - ( >= 72)$@' * <= 10kH$@' * >= 72D . , @ lw lh () , V'z z  '" '$ zHe '" '$d  z   H  $'"1lh = Round(lh1 + tk * (lh2 - lh1) / (72 - 10), 1) z$@'$k@ T'^ 1 'sik|$lh = 1 'bar height in Centimeters KTS KT &$', 'o"lw = 1 'single bar width in pointsS| "$N'B '  D , , D$X'  $'  .Shak0k L B  " $N F!H%JB@H V (!P!R(T (!P!RB@X$@ (!P!R!Z(@ (!P!R(\ (!P!(^kx B "  'B '  D FB@Bo( (!P! b9^ h9f l9j9\ V9T$@5Z(@$@5n(@ r9p r9tq (!P9 d9v9x |9z 9~$N99qo F!5( 9$N9$N9$N9$N9$N9?$N9?$N9 b$N9 9 9 999 9999 9qorCode 128B has 5 main parts to it. The first part is a start character(211214), followed by DataCharcters. The DatalCharacters are followed by a check(or Checksum) Character, and that is followed by a stop Character(2331112)PrThe last part of Code 128B is the two quiet sections at the front and back of the barcode. These are 10 dimensionsrLong(I am thinking that is 11 modules long). Each character is 11 modules long, except the stop character which is13 modules long]0H]`x] 8Ph]|]F](0This is the Raw data that I threw into an arrays01234567891011121314151617181920212223242526272829,30313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106Dk''< 'Set handle on control.&'<n h$tBKT211214'DAdd the Startcode for Start B (characterset B) to the barcode string211412' Start ABAKTE211232' Start CJCKTM'<*2122222221222222211212231213221312221222131223121322122212132213122312121122321221321222311132221231221232212232112211322212312132122231123121313112223211223212213122123221123222112121232123212321211113231311231313211123131321131323112113132311132313111121331123311321311131231133211331213131212113312311312131132133112131313111233113213311213121133123113321113141112214114311111112241114221211241214211411221412211122141124121221141224111421121422112412112211144131112411121341111112421211421212411142121241121242114112124211124212112121412141214121211111431113411311411141131143114111134113111131411141313111414111312114122112142112322331112Dk'h'&{And this is the value for that startcode which will be added with the other character values to find the checksum characterwLoop through all bardata to count the sum for all characters and add barcode charcter strings the to the barcode stringg'i'   <$'  GSP'j    $|x"  $'9iThis is where I added the character strings to each other to make one long string of 1's, 2's, 3's, & 4's  $X x ':gHere every barcode character's number value is multiplied by its position in the line and added to tsumThe actual formula for find the the Checksum is "(104 + (1 * CharcterNumber) + (2 * CharcterNumber) + ...)/103" You would Use the Remainder asIThe Checksum Character. In the case of "BarCode 1" the formula would looklike "(104+(1*34)+(2*65)+(3*82)+(4*35)+(5*79)+(6*68)+(7*69)+(8*0)+(9*17))/103=20 with Remainder of 33" Therefore the checksum would equal 33yk    gg '.8Here I use the the totat sum (tsum) to find the checksum  $2331112'@GHere I add the checksum then the stop character into the barcode string '.z A@}g}gi@0001101+F0011001+F0010011+F0111101+F0100011+F0110001+F0101111+F0111011+F0110111+F0001011 +0100111+F0110011+F0011011+F0100001+F0011101+F0111001+F0000101+F0010001+F0001001+F0010111 +1110010+F1100110+F1101100+F1000010+F1011100+F1001110+F1010000+F1000100+F1001000+F1110100 +000000+F001011+F001101+F001110+F010011+F011001+F011100+F010101+F010110+F011010 +101'01010' ? 12 '  G  0$\ 'j  $' '   $$     'D  3  '  G  '  $$ $0G'cG'jH%     $$'      $$'  (!d'','1' $' D '  D$   ' D 'Dxdp 0'dH1'k0 D 'Dk , ', D'D8 ,'i8* +o (!d''D &$.',n**xo (!d'8+`++     "'*+ d$N 9   / 1 ] _+ $333333? '+   ''+ &'(, ,p,Check BarString is not null* 2P, (!$N9k'<  ((dH,Arial (!~( (!~(n bk,$N9  (B@0, < 9 999 9 999999 9"$N9$ (9&9*9,9.90,92q-6--. : (B@8(. .X.0. * (( zd0. z'< .'Do8 (!~!'Z'D`]@/   12 * ,  '* sy , 4sy ( )  G'j) 10, 0  '# -  ' x+ DG6j// (!d' (!~!'Z X ZA@, T'& (!~!'Z X ZA@ (!~!'Zx.  (!d'/ X ZA@st/|@k b ^ T b$$h'j,ich j j  KT KTk/ j0 j9 Check BarString validityF - EAN 13 Z \ % - EAN 13A@128 ^ '   $$     ' T'  '   G'j  j0 j9 '|hk` ^ ^k@ |(kk0 T'Tk+3 ^ k4 k3|3|33 Check EAN 13 length and checksum  3   kk ' T$d$'B - EAN 13. X:   X :   X? t v 1 - EAN 13$'k3| T $'T3  666xAuthor Andrey KuzminMarr@mAuthor Andrey Kuzmin00 Barcode 128-B GeneratorA Permission granted for public use and royalty-free distribution.- No mention of source or credits is required.5 I got a lot of help from the following people's workN Russ Adams' BarCode 1 Web Page http://www.adams1.com/pub/russadam/info.htmlX A Free 128-B code generator in Visual Basic by Stefan Karlsson (mrswede@libertysurf.se)> Written by Rodney Marr (RodMarr@mailcity.com) October 7, 2000tes Author Andrey Kuzminok at ] Pde9' y Russ Adams' BarCode 1 Web Page http://www.adams1.com/pub/russadam/info.html, ,*********************************************9 3x ^ T $4 * 12- X< - EAN 13 12  X . X/( ) X8 ? t v , - EAN 13$'x4(5 (!!4'2 2|h4k`4 86: (B@0 R6: B@ (B@X3o3 (!~!'Z$Application.Run MacroName:="Bar128d"3 X ZA@  X ZA@ x'`6'k66]7 (!d$d t:= k6 86: B@ (B@D787 F!'Z (!B@ (! 'Dn5 (d9" ^9$99(9*9,9.90q607(7h7700010203040506070809101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899CODE BCODE AFNC 1Start AStart BStart CStopDk'`SP!"$#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkImnopqrstuvwxyz{|}~DELFNC 3FNC 2SHIFTCODE CFNC 4CODE AFNC 1Start AStart BStart CStopDk'f2SP!"$#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_NULSOHSTXETXEOTENQACKBELBSHTLFVTFFCRSOSIDLEDC1DC2DC3DC4NAKSYNETBCANEMSUBESCFSGSRSUSFNC 3FNC 2SHIFTCODE CCODE BFNC 4FNC 1Start AStart BStart CStopDk'd< f' d' `'='x x 'xM=   <>(>  "'*X>0> i0> ,'  ' ' ,$'   , $X '=$b_len = (11 * Len(tt) / 2 + 35) * lw> *$@ " $A@>8 + xb * 2), lh>`o ? B@?A@H?X?8;op? 'A@' ' ' ' ' ' '?9dKT 'S?'?A@@ ' ' ' ' $tn?128aKT128bKT128cKT13KT?'''''' ''' ' ' ' 0@'@'Adk '@ ek I - Code 128C Z \ ( - Code 128CA@ e j jZ '|pkh / X0 - Code 128(C) X& '0' ? Z t v / - Code 128C$'tica> ^ '^kCheck Code 128C for parity  @C  ekA'hc then eB'hC'hC'' '' ' |kCC'D'    If Not AutoZero Then If Not AutoZero Then  ] h (88C'hE Z$B@EpEA@A@A@A@EEEE(F Word.Picture.868:< (!2B@4F7 128 3E# , :-( 1 .2 -----------------------------------------------8 HE   % , X2  X0 (@#$%^&*()~`_+-=)  X- - Code 128B Z \ ' - Code 128A@)   % , X&  X0 (@#$%^&*()~`_+-=)  X- - Code 128A Z \ ( - Code 128AA@EI - Z \  A@PH&Attribute VB_Name = "ForBarCode" Priva|8New As Sng, Digit BooleanXublic eXtBc0, AutoAn0swer ,$12&8!$ c    !"#%TW()*+,5./01234'6789:;<=>?@ABCDEFGHIJKLMNOPQRSUVX]YZel _`adgkfbjhi^mpqrstuvwxyz{|}~ 31 2 Sub cDraw(CNum,N 1ize@mZerok) Di.m7_'MhoKndrey Kuzmid ' Check4is not null lbarpLen(N@1If 0 Or= Chr(13) The/ MsgBox " -@ ", vbCrit@ical +OKOnly, "$,4BExqSub En0d IfE>validity ich?1 TRoB< aA@sc(MidF,aC , 1)@I Select Case tAG@UoBN À< 32\C> 127 ]W @ JWN &TL:f_$" Ag (@ "d  (@#$%^&*()~`_+-(=) @@ P-"P~ )8B?K@@( bXKM& o= False+S)%UeE`DCDT48D5D }D {)C(_#?( n ?((((A;(l90 ll hl?kCr}v?k?k,"?k %kACCA_k_kv 5DaY3(XX6n6!OXDX6EEAN 13OoOI55?5!5 cq Next3s%#C fpap~x1 at0r AP!sP ~ Int(r/ 2) * 2x <>b|<N>oW= - i3#("wywЌ@ldk"q "h8(C)"!{  '0' s q?(߁LQuestionYesNo, "xu,{vC"um). !Oui7 qO :"0QKb+ 1%B length a`6casum#e834<g5$310=5'%gŁ1 U75 p2+ -1|"(U ?Q!__" 7 `.(  @ H к9GB"5B)L _CQCvb@`O?ϵ k?#@ ,w ; If Answer131 = 7 Then AutoAFalseExit Sub 2xEnd& lHbarV13|bkBarStrHing Zsy0 For rt1 To 12 5+ Val(Mid(bk,, 1)) * (1 + 2 ($+ Mod 2))%Next .10 - 1Ow = last chQRigh Not Or2L-@L~' Zeroin= MsgBox(" @ - EAN 13." & @vbCrLf_ ;L": A F?" C _'?",&Que stionvbYesNo, @= @=@G9D9" 6dUK> g w TJLefV2 ! lw0.5 '@8)i*( <= 10lw*1b   >@ @hAPointsToCentimeters(18)`[`[  9 72  ' `X. ,$  ^ lw lh () , {aFtB ti~z`W4D =M 1"Hlh E#B+2& !w Roundr(!I+ ` @-a ) / (72;C,@`@= wd@;fhl1͡Jh 6tkYB'"1 'sle width in pGT'he!(K) Select Case CNum B128` bst!-Codec(ttbclnBcLen(`'b_leQ(11nK2M35pl>w@U1ENeiqtt3A{13$u35!0710.*pt3a W.Dt#InlineShapes.AddOLEObj2asType:="Word.Picture.8`\FileNa8me epLinkTo:=, DisplayAsIconT PageS etup s( B)p * 2,%3'xb2)I = T>o+TrrupijirHb0CInt , i%@+ D@5ۂ.0lhg`&Pp~g1 34799|95`wdg6QUerowC@rolk9`.Keep*=  Togethev`BreakfNoa p{b .Hyp%@a= Fixrst??a .OutqLevewd BɸodyText  .CharacterUnitLeftIndent = 0Righ LFirstLinerBefore nAfEnd With Over: ActiveDocum.Close *Sub  SeStyle(w, h) 'Author Andrey Kuzm0in 0le+on.ShapeRange.J.WeLw0Dash. msoSolida inglR.Transparency0#Visibl((TruFColor.RGB(0, j)Back 255 ,  eginArrowheadH)NonT A^iVR8WidtthI.$AOr&i-wdPo`rtrai `M?@ABCDEFGHIJKLjMNO 6CCStTop SBS"S"S"BS"Sv"S"B4"@S"b.S"S`SabcdefghiZjk"Nm!nUopqrUstuvUwxyzU{|}~DC`EL4NbJAL LCLècC 0b00 11"J1b11J11b1b1b22b2b2b2b2b2b2b2b2b3b3b3b3b3b3bF3b "4b4b4b4b4 "zzzzzzzzzzzzzzzzQO+"cPQ!SQP{B{g+212_'`2%1b3%13!qq12P2P#, 2Q.122#'1R!)1e.322@P Q11c- c.1` a @3`11323@14 P2@ p230213p:qP3 AT1!s40 ? 2PS314124P32J4S`>144@414PRp44p#3241 3 4Sr1@ 221p$4q_C?" d{Q"1 Q "1! 1' S3q C<2"  If o128A ThenGbsA"= "A"SElseBOZBCCnd IfSSelect Caset UQ(Eq"UQ barcodpestrUp4" 'Add the Z for B (c`Yacterset B) tob ing Bc1PBtsum04 ='Athis ! value that which will be adHdedth or v Rs fieeckV3 `&e "A" barcodestr = "2@11412"l'Start A c1C` 1"B !c lookli <"+(1*34)+(2*653*824*3!5*796*D687*68*09*17)b=20 witlh 3`drjee"cCe:q/3$E\Ex8it h !IfgNext 'b/v#F=A -@ (Int(bS/ 2aQcQI uÄ34tota@ @")ac&DE  ?s "(e) &3311E&c=stwin8qAStr@' +_Set`!F:c-unc!i  rrorTrapoMsgBo(x E!$Re@de l @iF eV#13(t 1'?  `a , @:-(  @ :- Dim k(4, 0_9) Ash k(1p)`"0001101":@1D0G2E3C#4DR5QE6E7 & 8E F GP@ok(2 1a @  F  P@ G   3 E 0 `   1 3 @  0E @qE E b0  E 10E  6 P (0$0 10R05vwv01v0=q b3B'`5ba 0'@M'D  >  12 bktqbk) <kL(- , "0"^b@xBLeft(bk,@OFDp Usy@!'d q P @+ Val(Sart )p(f1((в)@ Mod 2 '131=' a pT,`V =Yr '\] [~r 10} '@ P a,0 0 ' "' c ( P q!"`0 j$,  d#@& a#`nD$vNewӐ$('ss `u $ d/kb'@8 %8 t06gp&Bq%'"o), '02B kiEl 2 '-`a |p h @&uki, 5t-s  Next t dk = ! & kr'  For t7 To 12(b(3, M@id(bk,V+ 1, 1))Tbp bstrgl"" 01 ld Len(Trim(dk\i1ld5@Again:|Ijfdibs ThenDb Z +i Go-Else3+= E-/s0"0b7  "vnd If2K- 1 E& b i BarCodeStr`ing13:Y  FunctioB Sub ! 128(nGetIniDig2iAFa;Se$le .T `fsizeF`ont.S@c!Draw8, C@"(t), , # =B"3?""!28dR"Tru@DhD?"?"<3AutodJ"AnsweAwo#"I`B-@U312`gNot eXtBcHsFP['eC=iFcaA@RveDocumeONam3u$Tind.Clear mattdkWith s^@"z.Repla|ce!ca wara$|.WrDapwdF C`gin!K deMatchCasorWhole WoildcASoundsLikv All?! azA)c'aa /Execut5A@K E~x b e D!`te U`:=wdCharactert:=D'MoveRi8ght, Extend #w(G @" "H[ Lef 05)'Applica.Run@ Macro`:l="`qddQ]cs b$oa1>3 "*acnnm28# SsdHK 6e0Str9e7 4%h$Bs(ad).Undo0%%w`utr( u Bcъxdla<bclQ 4 |A1SQ+ CInt(@|, l%l @~ DialogSeBOq\s.Sxhow*  .rnal(1Id As S2,0$_i!BoGan [E[GacAP' ' 'ac#jaoA1b5B7c5CC28  LB/C+wf6_P6U_5!7"a_c ' b8  c8 32 1-?83c!dBApAa4q1b8 1c0-__SRP_az\__SRP_b-LAForm 8__SRP_6Y8 D/6H8 X(X]3u%(X ]cH((]p8b'':XN88 *# *# *# *# *# *FH 2 6H8 u %(X0]cH((9]p83'':(N88:XNHH 6H8 u%(X ]cH((Z]p8b'':XN88 *#*# *# *# *#*FH 2 6H8 (X ]3%(X0]cH((9]p8 3'':(N88:XNHH 6H8  ~% ((X]/Hu '859#h(XH8((h@'((X]/H85(X'':XN884 *#*# *#*FH^it26H8 t(X]3  *'h(XHh ((X ]3Rh(X ]g.'((X]/H85( |'':XN88$ *#*# *#*# *#*#p *#l *FH^i\2pl6H8 \(X]3, h(X ]3P FXL (X<(,(( h k<(H,"L8 8 !k((,((( , 5!(*7)$* ,+n(jX X(X]3H -HH .HH 4 (X ]3 H /H(X_H +('8'H)$* <+ 06H8l|''''ff:(1N88:X2NHH)$* <+ 0 83)|6H88(*7)$* ,+n(j((XH8 458!(*7)$* +n(jXlpz (X\((LHh, ,(HL"8 8ED(6H88\H\kz  ((X ]3 i\(X]/H\((]/8\(/]/\(1]/\(]]/\(_]/l  X333333?H}(*7)$* +'|'8l(H*77l*7)$* 4+ D5 P6| 7)|68<|)$* <+ 00 L8| d9)|7|)$* <+ 00 L8| |9)|O^: |)$* <+ 00 L8| ,9 ,;)|A7|)$* <+ 00 L8| X9)|A7|)$* <rU~|  CI21qC D62 4 !ј 99 8ْ F=9:97 <<yD @>?;Q3DY1YE  ! @YA AqA QAAABE9BaBBBB9FaFFFFFGG1GIGaGyGGGGC333?7 H)HIHiHHHHH I)IIIiIIIII J)JIJiJJJJJ K)KIKiKKKKK L)LILiLLLLL M)MIMiMMMMM N)NINiNNNNN O)OIOiOOOOO P)PIPiPPPPP Q)QIQiQQQQQ R)RIRiRRRavRRSS1SISaSySSSSSS7; T!T9TQTiTTTTTTTU)UAUYUqUUUUUUVV1VIVaVyVVVVVV W!W9WQWiWWWWW X)XIXiXXXXX Y)YIYiYYYYY Z)ZIZiZZZZZ [)[I[i[[[ \9\i\\\\]I]q]]]]]]^^1^I^a^y^^^^^^ _!_9_Q_i______[ `!`9`Y````` a)aIaiaaaaabIbybbb c9ciccc d9didddd)eYeeeefIfyfff g9giggg h9hihhhh)iYiiiijIjyjjj k9kikkk l9lillll)mYmmmmnInynnn o9oiooo p9pipppp)qYqqqqrIryrrr s9sisss t9titttt)uYuuuuvvIvAww x9xixxxx)yYyyyyzIzyzzz {9{i{{{ |9|i||||)}Y}}}}~I~y~~~ 9i y)р@ Qy JiXh6h(X]/HF(] 8 8/58|3'':(N88:XNHH 6H8((hh$9(H"lMX@8 + 00 h8| <)|lH8l kzpz L~,* 8 (X]M, (X7  &H)$* <+ <05H 4)$* <+ 0-=)$* <+ <0 >). 7)$* <+ <0 >)-(X H*7)$* <+ 05H$)$* <+ 0Q(7)$* +l( h?(7)$* +l( `?(XH*7 ?5H  h?7 ?  p? ? 8?  ?  H?  @?  P?  X?  ?(7)$* +l( p?  ?7 @?7 8?7 H?7 P?7 X?c-''8'H)$* 4+ 56H8# <,L,<,tL\<\l\hdpl|H8l M3ptx)$* <+x 00t h8Qpl)xt \*7l <l H<l t<7l |<l <#^: xl d<x ,;x&^: xl (<x ,;xl 8<l X<cl$tx)$* <+x 00QtXx7X 8\*7X X87X 8X 8X 8%T7)$* +lTX 8 X 8cX (,lXxtpT$tx)$* 4+x 5Qtpxxp @x LAxp d@l7)$* +llp ,@l7)$* +llp 4@l7)$* +llp <@l7)$* +llp D@l7)$* +llp L@%l?7)$* +llp @%l?7)$* +llp @$l \*7)$* +llp T@)l\*7)$* +nl7p \@p l@p t@p @ p @ p @p |@ p @ p @ p @p @cp (pxt##K"j:l:Bl:Cl:Dl:El:Fl:pGl:`Hl:PIl:@J l:0K l: L l:M l:N l:Ol:Pl:Ql:Rl:Sl:Tl:Ul:Vl:pWl:`Xl:PYl:@Zl:0[l: \l:]l:^l:_l:`l:a l:b!l:c"l:d#l:e$l:f%l:pg&l:`h'l:Pi(l:@j)l:0k*l: l+l:m,l:n-l:o.l:p/l:q0l:r1l:s2l:t3l:u4l:v5l:pw6l:`x7l:Py8l:@z9l:0{:l: |;l:}<l:~=l:>l:?l:@l:Al:Bl:Cl:Dl:El:pFl:`Gl:PHl:@Il:0Jl: Kl:Ll:Ml:Nl:Ol:Pl:Ql:Rl:Sl:Tl:Ul:pVl:`Wl:PXl:@Yl:0Zl: [l:\l:]l:^l:_l:`l:al:bl:cl:dl:el:pfl:`gl:Phl:@il:0jl Z \j:l:l"  :l:l:l:l:pl:`l:P l:@ l:0 l: l: l:l:l:l:Bl:Cl:Dl:El:Fl:Gl:pHl:`Il:PJl:@l:0l: l:l:l:l: l:!l:"l:#l:$l:%l:&l:p'l:`(l:P)l:@*l:0+l: ,l:-l:.l:/l:0l:1l:2l:3l:4l:5l:6l:p7l:`8l:P9l:@:l:0;l: <l:=l:>l:?l:@l:Al:Bl:Cl:Dl:El:Fl:pGl:`Hl:PIl:@Jl:0Kl: Ll:Ml:Nl:Ol:Pl:Ql:Rl:Sl:Tl:Ul:Vl:pWl:`Xl:PYl:@Zl:0[l: \l:]l:^l:_l:`l:al:bl:cl:dl:el:fl:p gl:` hl:P il:@ jl Zj:l:l"  :l:l:l:l:pl:`l:P l:@ l:0 l: l: l:l:l:l:Bl:Cl:Dl:El:Fl:Gl:pHl:`Il:PJl:@l:0l: l:l:l:l: l:!l:"l:#l:$l:%l:&l:p'l:`(l:P)l:@*l:0+l: ,l:-l:.l:/l:0l:1l:2l:3l:4l:5l:6l:p7l:`8l:P9l:@:l:0;l: <l:=l:>l:?l: @l:Al:Bl:Cl:Dl:El:Fl:pGl:`Hl:PIl:@Jl:0Kl: Ll:Ml:Nl:Ol:Pl:Ql:Rl:Sl: Tl:!Ul:"Vl:p#Wl:`$Xl:P%Yl:@&Zl:0'[l: (\l:)]l:*^l:+_l:`l:al:bl:cl:dl:,el:fl:p gl:` hl:P il:@ jl Zj:-l:.l:/l:0l:1l:2l:p3l:`4l:P5l:@6 l:0K l: L l:M l:N l:Ol:Pl:Ql:Rl:Sl:Tl:Ul:Vl:pWl:`Xl:PYl:@Zl:0[l: \l:]l:7l:_l:`l:a l:b!l:c"l:d#l:e$l:f%l:pg&l:`h'l:Pi(l:@j)l:0k*l: l+l:m,l:n-l:o.l:p/l:q0l:r1l:s2l:t3l:u4l:v5l:pw6l:`x7l:Py8l:@z9l:0{:l: |;l:}<l:~=l:>l:?l:@l:Al:Bl:Cl:Dl:El:pFl:`Gl:PHl:@Il:0Jl: Kl:Ll:Ml:Nl:Ol:Pl:Ql:Rl:Sl:Tl:Ul:pVl:`Wl:PXl:@Yl:0Zl: [l:\l:]l:^l:_l:`l:al:bl:cl:dl:,el:pfl:` gl:P hl:@ il:0 jl Z j:8l:9l::l:;l:<l:=l:p>l:`?l:P@l:@A l:0B l: C l:D l:E l:Fl:Gl:Hl:Il:Jl:Kl:Ll:Ml:pNl:`Ol:PPl:@Ql:0Rl: Sl:Tl:Ul:Vl:Wl:X l:Y!l:Z"l:[#l:\$l:]%l:p^&l:`_'l:P`(l:@a)l:0b*l: c+l:d,l:e-l:f.l:g/l:h0l:i1l:j2l:k3l:l4l:m5l:pn6l:`o7l:Pp8l:@q9l:0r:l: s;l:t<l:u=l:v>l:w?l:x@l:yAl:zBl:{Cl:|Dl:}El:p~Fl:`Gl:PHl:@Il:0Jl: Kl:Ll:Ml:Nl:Ol:Pl:Ql:Rl:Sl:Tl:Ul:pVl:`Wl:PXl:@Yl:0Zl: [l:\l:]l:^l:_l:`l:al:bl:cl:dl:el:pfl:`gl:Phl:@il:0jl Z <uq : u : u  :  :]3 C ( LhpO!:]3!C ( LgpO!:]3O!C ( Lip 1 (lJUkx"( #kM@  `15 l0!CL5Icn"!lF]@L 35 b"'lF@< `16 4kD@\ FiUp6 n" d! e!kkgg볯p2lF@< :`16  lFl-'h'x'' F 6 xh " #dLlL\,<* xht{{ttLLLLLLLLL LLLLLLLLLL LLLLLLLLLL LLLLLLLLLL L :(8 :( ((( ]g\<:N(( "  6  (  (((x( hX k(" T !k(4(D((x$/T6$ ~X( (( (( ]3A (( 4 8(x(hAW( (""LM@ :D]36 (( ((J"(((" "LFx6 ~|(x( hJ(((" "LFx6 ~f8 :(1t ((d :(BT D5(4Dh ((d)(4" T36zd((d4((4%T((]3 :(T :(BT4((4tdt 4~ tl: hlhX$4TLDvTv Ddt80 T$  8(tx)$* <+x 0>tFTdx8LPx)$* <+x <0P >nLj,<)xP#+*<dKt(T /t5TT,<dtxPT  8(tx)$* <+x 0>tFTdx8LPx)$* <+x <0P >nLj,<)xP#+*<dKt(T /t5TT,<dtxPT  8(tx)$* <+x 0>tFTdx8LPx)$* <+x <0P >nLj,<)xP#+*<dKt(T /t5TT,<dtxPT  8(tx)$* <+x 0>tFTdx8LPx)$* <+x <0P >nLj,<)xP#+*<dKt(T /t5TT,<dtxPT  (l (l (l$ G R (dh)$* 4+h 5>dFDTh*@h)$* <+h 0@ )h@$@h)$* <+h 0Q@<h < 1h< h Dh < ,<  <  < H < ` < P < X < @c<z'|''''''<'\'|''''''D@h)$* <+h 0@ kzXh)h@6D|\<|hD 2T(Dh)$* <+h 0h6D<T(Dh)$* <+h 0h6DFdh)$* <+h 0>dFD " :l]3h6D<T(Dh)$* <+h 0h6D u8.upR kR (l @) (l@(dh)$* <+h 0>dFD0h8T@h)$* <+h <0@ >nTjl )h@+z 0Kd@ /d 6z'D@Th)$* ,+h 0@ 5)h@5D|\<$< @0hTTdh@D|\<|\L< (\,( "<<0{DF5CD324-F507-417F-8EA0-8C129CBCAA42}{071C7504-10F1-4CAD-8346-A1FEB0375768}x0(%X0 %%%  `0|kei i i PP@`0hLXOH$*\Rffff*134806c9a3@84<" 8xo B@om(Attribute VB_Name = "LAF@orm" Bast0{DF5CD324-F507-417F-8EA0-8C129CBCAA42}{071C7504-10F1-4CAD-8346-A1FEB0375768} GlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustom4izDP Sub CommandButton1_Click(0) .HDidMEnd rU   9a 4) Q ` 8Y  <Y  @! )I `H$$ 4XrU L$`nD__SRP_7 dgLAf__SRP_9z__SRP_8}gxME (6 "< ` `|kp%8*PHxOH$*\Rffff*1148112cf6$*\Rffff*134806c9a3" 0op B@"""X GAttribute VB_Name = "LA" Sub ViewLA()  LAForm.Show End rU~|   H$$ krU $ `nrU 0Settings%__SRP_3__SRP_2 Initialize11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d$*\Rffff*0748113894*\R0*#f*\R1*#c0*\R1*#c1*\R1*#17b48@DLHXPTt>!p,(K19t3C\IC>'hAT#=K'x=K',(K1ME@SPSSS>"<hi Mii i i &i P ,`hk h`i hi 0` k &i hhi .`xkhi 8 `|k h@nl LP@h 0@d @ ` N` h+ 0@\_ x  @L h`hH0@H< @, @ @v   @ @`@ @ N 08.,  @x @h h  h  @ x @ h @0 X @@ H (@x D    @H 4 @ $ @`  @  @ @ p@ @ @ (@ @8 @ @P @ | h tv.@ x @ h @@ X @ H @( 8 (@4   @X $ @ @p  @ @< @D p @x @h X x @h p\LP Xx @h @X 8H  PP P@ @_ h @ 8  (`1> K7h0ht @OH$*\Rffff*3848113691*\R0*#14*\R0*#1*\G{AC2DE821-36A2-<\`dh9"H-"(0 Xhp x '''''('  P "00 8 "( "P "` "p " " " "X "00 @D;p P`h " & & & & & & xoA@,A@.Ppho0 XhXXxok !BCcd;( v!fq !BCoa13;(`o <o  ( and  (llTy  (  (lT  (H1  (orEn !BCo128B;('H !BCo128A;(rCode. !BCo128C;(")Me.O !BCoa128;(6 DgboxA@.k  ? t v BarCode.dot Settings$'Dop !' ' !' !' !' !'` !) !  !  !  !  !  ! '< !''A@N B@@ vB@~ n L!p n!$P barcode.dot n.vykA@h8Attribute VB_Name = "Settings"  Bas|0{6BBCC264-AEF1-4CB0-ABDD-80DD61D8ABBF}{BA3B2B89-F6BF-4AAE-8906-DAXFE68A1B} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizDSub InitSave() For Each tml Applica tion.3s  If LCU(.)barcode.dot" Then TmPl Exit <End If@ NextW(ith.0DocumentPropertie$.Item(" BCcd"#Me.CheckDi gi o128AE Op9AN BN BT CN CQ aK Aut$ 3 3 W.Ar'ARNCRey A@} P Button_C@|k .HidCKUser@rm_ializBRi@HGet *Jocdg69WBD6 CD5J3a7t 33T.%Termin 1!ai(+Eqv cd) _ A@d!h!B BCC% a 3 8a13`)Not (ai)AMsgBox(" ?", v bQuess +YesNo, "BarCč T"g  6 AL dAa4ah5ATfT`c!*4@18@G4OQIRQIRo/ 3l /RY1i +1 ,I,$I,%**%*@   q Y!ɞI4 I8Iiq@IiDIiLIiHIiX IP!I T) i`I< I\! I `` ` I1d 9h QjWW-dh$ h Qd[`lhr\v(l=L< <:,]36L<i l M\v ls\/ ALq':,%h  QhoL%lD 5L':, %h  QhoL%lD 5L':, %h  QhoL%lD 5L':, %h  QhoL%lD 5L':,%h  QhoL%lD 5L':,%h  QhoL%lD 5L   q8 `\ l hdL<L$$ <  $   "uhx  x x5h"uhx  x x5h"uhx  x x5h"uhx  x x5h"uhx  x x5h"uhx  x x5h$ x hx  x huXH4D  D 4u$'   u'   u'|hx  x huXH'8$4  4 $u') xDx46hX4$hX$h;''4:$NHH$:XNhh^iX6hH4(X]3~{,hxDx4hH4|hH8$$&hx  x hVzx5h&hx  x hVzx5h&hx  x hVzx5h&hx  x hVzx5h&hx  x hVzx5h&hx  x hVzx5h$ xhT\\0rU t$`$A`$`$`$` $A`nrU~|  0o v!fd naBCoa13C@BCoa128C@qBCo128C7(' BCoa137('BCcd7('BCo128A7('BCo128B7('BCoa1287(' n L!pk n.vy@'BCcdC@BCo128AC@ n!$P barcode.dotBCo128bC@BCo128cC@ 8BC1st7('eeee kBarcode template not installedA@|BC1stC@'X] XX '% BarCode.dot XT, , -  \ !A@ n L!p n!$P barcode.dot n.vypkh` v!f BC1st;( vB@~q  B@ko kA@9 - . ...A@Attribute VB_Name = "Initialize" Public cd As Boolean, o128ADB"krTC Taz "3! F1sT @ Sub Fill(default") If Then= False BTru C !fD= a13End If ehGetj(_ eXtBcFor Each tml| Appation.TemplatesezLCase( .)#"barcode.dot" Set T8mPl DtF ou)M3Exit # E2Next Not DMsgBox $"BC! t, n@ install|edgBEO n Err@Resu With/.CustomDocntPropertiE.AddCcd",~, 2D2wE! b G| c1stT.I@\("B?ƅ>^B"_C`ߧea3%}= f KKWFirstStar`OBGnjeCl?m $zV ZCj& vbCrLf & _J", ,  -=vbE xclam +`OKOnly, "c !jaل"?wg B4.Sav䳡? tings.Sh,owc:$A0H+`4. .<..@*E$ x@ @ :@ x @h lz`  8 ( X\LP@__SRP_c __SRP_d_VBA_PROJECT P<dir ( lxME<LL"> LL @  @ p @(% @ @LP   @@nl 0`p|+p i h00H@h H @ xH0H0 @0H0( `Pho##p( `Pk1@xh8@d P@(` @\_ @`L @< @, @P X@v @ (@  @8 @ @ @ h@`x@ @ :@ x @h lz`  8 ( X\LP@x @Ph @hX @H @8 @( X@  z@ r@n z@ r@ {@8 sP  @_ x 8  @v 8 (S@ 4  @` @ 0 OH$*\Rffff*0748113894*\R0*#f*\R1*#c0*\R1*#c1$*\Rffff*3848113691*\R0*#1*\R0*#e*\R0*#14*\R0*#f*\R1*#c0*\R1*#c1*\R1*#17b$*\Rffff*3148113593Epp "     ( 0 8@H "`-"((   (+8 ##"P#p"#"@@Xp( 0@8  "  <-h"(      D+P ( 0 '''' ''koX] H[&xY1i +1 ,iI,$Q+%1%a%%*ѓ,** y !@ xH @       H$ z-dh$ h Qd[`lhr\(l=L< <:,]36L<y l M c,\ ls\6L+'''<:,NLL 6L<K AL q#:, %f%(%fx%l #:, %f%(%fx%l ":,%f%(%cx%l #:,%f%(%fx%l ":,%f%(%cx%l #:,%f%(%fx%l ":,%f%(%cx%l :, %lBLV5L:, %lBLV5L:,%lBLV5L:,%lBLV5L:,%lBLV5L:,%lBLV 5L:,%lBLV 5L    q<$`\ l$hdL<P  J  <''(:XNHH0*#x*Fh /x6hH(-$  Q[r(=hH H:X]36hH M s~Ah q:X% %lD5  q$+''('H:XNhh 6hH(P8 (xhH(arU ( `#$ `$ `n0* pHdTemplateProjectQH@  = | OH J< 9stdole>stdoleP h%^0PointsToCentimeters0xb_0i`0ActiveDocument\0Shapes<0AddShape,0msoShapeRectangle0CentimetersToPoints0 ShapeRange0Fill,0Visible0msoTrue 0Solidc0 ForeColor0 Transparency0Weight0 (SetLineStyle0wn0h_0 DashStyle 0 msoLineSolidB0Style)0 msoLineSingle0 BackColorރ0BeginArrowheadStylew0msoArrowheadNone 0EndArrowheadStyleL0Height|0Rotatione0RelativeHorizontalPosition;F0 wdRelativeHorizontalPositionPager0RelativeVerticalPositionR0wdRelativeVerticalPositionPage0Top50 LockAnchor0 PageSetup0 LineNumbering)0ActiveS0 Orientationw0wdOrientPortraitc0 TopMargini0 BottomMarginu0 LeftMargin]0 RightMargin[0GutterV0HeaderDistanceS0FooterDistancek0 PageWidth0 PageHeight 0 FirstPageTray[0wdPrinterDefaultBin0OtherPagesTray!0 SectionStarth0wdSectionNewPage0OddAndEvenPagesHeaderFooteri0DifferentFirstPageHeaderFooterj90VerticalAlignmentʡ0wdAlignVerticalTop80SuppressEndnotes[f0 MirrorMargins*"0 TwoPagesOnOneU0 GutterPos?0wdGutterPosLeft|~0tk0ErrorTrap_SetBarData&0 CharNumberG0CharData@0 CharBarData 0Nratio0Nbar0 barcodestrW#0BarcodeVR0Barchar,0Barcolor770PartsR0Ja0tsumU0lopm0sj0checksum%0pg0barwidthz0boxhC0boxwR0boxxS0boxyT0Pix0Nextbar0WhiteR50Black&0ChrK~0Exit_SetBarData20MsgBoxR0 _B_var_lw0 _B_var_lh0 _B_var_tt0 _B_var_b_len0 _B_var_bstrJu0 _B_var_xbw0_B_var_i 0 _B_var_Midp0_B_var_b0 _B_var_Chr\;0 _B_str_ErrorR0 Document_New0Itemz0OnAction0 barbutton0o')68CompObj4pCompObj+]aVBFrame_5 _B_var_Set0_B_var_barbutton0newBar_0conJ0FaceIdi0 _B_var_newBarA0 _B_var_con[<0bc\0 _B_var_bcJ0Path20aX0_B_var_a0lp!^0sp$_0 _B_var_sp0 Application*0 StartupPathi0LCase:0 _B_var_LCase'0 _B_var_ifP0 _B_var_lp0vbCrLf0 vbCritical+}0vbOKOnly0fnA]0 _B_var_fn0addsly0Right 0 _B_var_Right90fso0 scripting0_B_var_scripting0 CreateObject0 _B_var_fsoL0copyfile0 vbQuestion0vbYesNo0Quit90tkD_0 _B_var_tk0FontU0KerningB0Size0 _B_var_Elseifqm0ls$^0 _B_var_ls0lw1v0lw2w0 _B_var_lw1m0 _B_var_lw2m0lh1K0 _B_var_lh1\k0lh2L0 _B_var_lh2]k0Round0pointsto 0 centimetersb0_B_var_centimetersđ0(BarCodeString13]0t1*_0kb0kb]0kr]0bk\0syam *\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*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{211343AA-C163-4EAC-BD5D-DA4D371C9A4E}#2.0#0#C:\DOCUME~1\Andrey\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  OHThisDocument0748114f2bThisDocument-X#ForBarCode3148113593ForBarCode x LAForm134806c9a3 LAForm7XLA1148112cf6LADX8Settings3848113691Settingsx"Initialize0748113894Initializelx8XxEƅ?KL6JZj4@|=eHcb=J.~xƺkO-Τ:8X(fJY|oX$;d@8 /TXpAccessand as bBoolean.debugCEachDelseEElseifJEqvOExitQfRfalseTForYfunction_IfbIncInputyloop{MeNotOroutputPublicrandomReadResumeSetStepSubThenToTruewhileWithWrite WordS10 VBA0Win160Win320Mac0VBA6#0Project1 0 stdole`0 TemplateProjectE0 ThisDocument<0 _Evaluate0 Officeu0Documentj0Module1b0 ForBarCode"0 (BarcodeDraw?0Barw0lw(^0lh^0ttM_0 SelectionZ0b_len 0bstr0 (BarCodeString0Deletex0 InlineShapesٚ0 AddOLEObject0 ClassTypes0FileNamej0 LinkToFile 0 DisplayAsIcon0(PicturePageSetup-_0rt_0Val0Range 0ValueK0dk\0ki]0bs\0ld^0Trim@0Agains0 _B_var_kb0 _B_var_kr0 _B_var_bkR0 _B_var_Stringӊ0 _B_var_LeftQ0 _B_var_sy0 _B_var_rt0 _B_var_Range0 _B_var_dk0_B_var_t0 _B_var_ki0 _B_var_bsZ0 _B_var_TrimmT0 _B_var_ld0CodeNewwS0_B_var_CodeNewV0ub`_0 BarCodeSelect0 _B_var_sub0 SubBar1280(Bar12850(Bar13e0CNum0 _B_var_Select'E0case13|0_B_var_J 0ij]0 _B_var_ijT0 FitTextWidth!0 TypeParagraphL0ParagraphFormat0 AlignmentI0wdAlignParagraphCentera0Paste0 LeftIndenti0 RightIndent(0 SpaceBefore0SpaceBeforeAutoJ0 SpaceAfter(0SpaceAfterAutoC0LineSpacingRulep0wdLineSpaceSingles0 WidowControlj0 KeepWithNextw0 KeepTogether]0PageBreakBefore0 NoLineNumber0 HyphenationG0FirstLineIndent_0 OutlineLevel՚0wdOutlineLevelBodyText|0CharacterUnitLeftIndent~0CharacterUnitRightIndent݋0CharacterUnitFirstLineIndentk0LineUnitBefore4G0 LineUnitAfter0Over'0OverText\b0Collapseu0 wdCollapseEnd0stk0 _B_var_stk0(Bar128d0(Bar13d60Digitt0 _B_var_Digit0Fields70Code0 NewDocWithMe0NewDoc0WithMe0txt0 BarString0BarSizeJ0 _B_var_Sizea0fsize0 _B_var_fsize=0lbark0 _B_var_lbar0ichar4V0 _B_var_ichar!0 _B_var_ForjL0Asc!u0achar0 _B_var_achar0ztest0\0_B_var_0ch\0Latin0i120 _B_var_i12W0^0 _B_var_)0lastchar0_B_var_lastcharq0valright+l0_B_var_valrightC0i130 _B_var_i13X0 UserForm1)0MSFormsC0 EAN13Form0UserFormN0Image1_0 Image1_Click0Label1,0 Label1_Click0Click0 ButtonExplain/0TextBox1S0TextBox2S0TextBox3S0TextBox4S0Label2,0Label3,0Label4,0Show0TextBox1_Change=0X0Change0_B_var_0le^0 _B_var_le0Lentrim0_B_var_Lentrim)0SetFocus0BarCodeExplain+0thisdo0 _B_var_thisdok 0_B_var_ThisDocument0Label5,0CommandButton1|0pc^0 _B_var_pcP0ib]0 _B_var_ibL0icode|0 _B_var_icode?0_B_var_BarCodeExplain.0_B_var_EAN13Formx0Aauthor0_B_var_Aauthor0Andreyk0Kuzmin.0_B_var_FunctionO0Advert7[0ad1r0 AdFirstStart300 0 *0 }0 LA^0X0쓾0^0httpg0lah_0 _B_var_lahpj0latk0 LAFormy0TextBox2_Change0 _B_var_lat|j0CommandButton1_Click0Hide9z0(ViewLAP0laforw0 _B_var_lafor;0Kill0 (AutoBarCodeO0 AgainBarCode0Findn0ClearFormatting)0 Replacement0ForwardG0Wrap>0 wdFindAsk0 MatchCase0MatchWholeWord0MatchWildcardsy0MatchSoundsLike00MatchAllWordForms0aa{\0ExecuteY0Unit0 wdCharacter0Count0v0EndKey90wdLinet0Extend?0wdExtende0MoveLeftv0Run_0 MacroName y0 _B_var_aa#0AutoZeroop0autozers0 _B_var_Unit0wdWordeI0 NewMacros0Macro1N0 MoveRight0ad~\0 _B_var_ad&0wdFindContinue0 CharDataC3m0_B_var_CharDataCf0 CharDataA1m0 CharDataB2m0bstart]0 _B_var_bstart0 _B_var_Case00_B_var_CharDataAf0_B_var_CharDataBf0UCase5 0 _B_var_UCasea0lts)0 _B_var_lts:m0_B_var_Exit_SetBarData0_B_var_ErrorTrap_SetBarDataL0(BcLenn0lb^0 _B_var_lb0lc0_B_var_l 0bcl3x0bclna0 _B_var_bcln0 _B_var_bclD50_B_var_DisplayAsIcon0wdAlignVerticalmiddle0wdAlignVerticalmid)0UserForm_Click0wdAlignVerticalCenter0 SettingsJX0 OptionButton1k@0 OptionButton2l@0 OptionButton3m@0 OptionButton4n@0 OptionButton5o@0Frame10Frame20 DigitCheckb0 Label2_Click0 ButtonSave0 Option128BB0 Option128CC0 Option128AA0 OptionAuto128҇0 OptionAuto13ڭ0 CheckDigit`0UserForm_Initialize5c0CheckDigit_Clickgc0 (InitializeN0 _B_var_Openl0 readwritel0 _B_var_On60INITErr0 InitErrord0Erro0elase0 Description 0Number-0(InitFill20_B_var_InitFill# 0default0def)0d[0clos0 _B_var_clos0 _B_var_Write(0test40 Frame1_ClickF0 _B_var_Randomn0InitSetD0e\0_B_var_e0 _B_var_InputV0MyBool '0MyDate\h0MyNullي0MyErrorV0 _B_var_Do0EOF0(cd\0 _B_var_cdp0(o128Ad0 _B_var_o128a(0(o128Bd0 _B_var_o128b(0(o128Cd0 _B_var_o128c(0(oa128E0 _B_var_oa1282}0(oa13p0 _B_var_oa130Option128Ao128a10 _B_var_Line0(GetInit~0flse0_B_var_GetInit0saveinit 0oa128e 0 _B_var_oa128esb0 ErrINIFile>0ButtonSave_Click0init\[0InitSave0UserForm_TerminatelD0fn122ȡ0 _B_var_fn122e0fn220 _B_var_fn22:l0 TerminateyL0ai\0 _B_var_ai+0 Document_New1͋0Document_Open10New1s 0Open1=0aair0 _B_var_aai/0nOr!0ReInit0_B_var_UserForm0Zoom0 (DialogSettingz30GetInit10AttachedTemplate0 Variablesn0 _B_var_Withv0faslemQ0 _B_var_Error)0tem0 _B_var_temѕ0CustomDocumentPropertiesޖ0msoPropertyTypeBooleanY0vm0_B_var_v0tml0 Templatesh0 _B_var_tml0 Microsoft0TmPl0 _B_var_TmPl:0flasep0Template0Save0UserForm_ActivateZs0Activate|0tFound20 _B_var_tFoundە0OptionAuto13_Click0ForInvitations0acdr0a13'p0 _B_var_a138-0a1280 _B_var_a1280 _B_var_acd/0cnn%0 _B_var_cnn6<0a128air0 _B_var_a128aii0a128bir0 _B_var_a128bi0a128ci s0 _B_var_a128ci0CodeIdC0CharSetQ#0Digit_i0 setdefaultό0 SetDefaultsm0oa128a0 _B_var_oa128aob0acsr0extO0 _B_var_ext`H0(eXtBc0exbct%0 (ForExternalr00f0 vbYesNoCancel0i1280 _B_var_i128D"0 barstirng 0elsify=0 _B_var_elsiff0 (AutoAnswerּ0 (Answer128:p0Answer13;0UndoÞ0_B_var_Answer13m0 Autoanwerf0 Documents0 _B_var_EndF0 (Answer132Yp0 (Answer131Xp0gteinitm0pbc0 _B_var_pbc0 SetFirstStart10bc1st0bc1st_asd(0F1st_as0(F1sTp0 (FirstStart 0 vbExclamation00_B_var_FirstStartRy0Keyboard0TypeTextw0ErrCopyo0existM0 _B_var_exist0 fileExists0 deletefileO0abat0createtextfile0 _B_var_abatR0 writeline0fl?]0getfile:0sspp0 _B_var_ssp0 _B_var_fl0 shortpaht0 shortpath0MAke,0 MakeInstallF0ap\0 _B_var_ap20sap0 _B_var_sap0ShellV0tempR0 _B_var_temp0batw0 l@@#  @*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation0EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\Microsoft 6\MSO@9.DLL#  @9.0 Ob LibraryCMSForms>SFrms3D452EE1-E08FXA-8-02608C@4D0BB4YOFM20 'B \&/;"1fmAm00}#0m# 50 A211343AA-C16@3-4EACc5D-DA4D37@1C9A4E6DOCUME~1\Andrey\L`OCALS\VBE\T.exdb;@!.E .`M ψBThisDocumentG*Ti@kD@kcu@nen 2 HBj1Bܭ@TB,Q!-"B+B `BarCodeG rBarC`d `,26! 2! !LAE,GLA&Y℣2 47(LAGb$!b$LA2& D˫ Settin`gsG`(t:i`;g=i62rom1:Initializ:I`iba iz:':1:l)!!rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~= __SRP_0-Y__SRP_1LAForm%pU|~Ufialising Error #: `  p .~HCkng:|I.?!>r_L RIv(CJF]CwPxyM$EgV?F`Frame1Frame2OJF| V i  20"-?@Label1RҋB ` Option128B Option128C Option128A OptionAuto128 OptionAuto13BҋB ` CheckDigit ButtonSaveLabel2Label3InitSetUserForm_Initialize p    e   Msl ڱcq8M㼻M(InitSaveButtonSave_ClickinitUserForm_TerminateCҋB ` (!>E@0=8BL 87<5=5=8O? (BarCode.dot Settingsl8ԠDF/l0FtzO4' Document_New1Document_Open1+@YBL>~V JQNxN9b}WK84|fTDDQo o>K/N sF_ A |a@Dϖ"$KWbo(#@IǖHfФLW,TBӠb:3Y_~Nl#C9A4X8G)sk~iF{FDyD5XmMo,  0<6Oa:`P|- -H1b(wjDH܉Z#YwBK*BitR0@Q>x@BL~/װu )! p~HB9s43>JCW!QSSIe (^E wF5# I" ReInitل B@z5y5@[:]i~E[2$.pz/BnOkl9Nq@eO5 LAPGc&_ BarCodeString # GetInit1 BarCode BCcde F BCo128A BCo128b BCo128c BCoa128 BCo13j*K@C>`myBpz W&W]K1L4t|( UC HdݥSN \;f@+*[@bO"U][gM~56I&P$" '  BarcodeDraw SetLineStylePicturePageSetupBarCodeString13Bar128Bar13Bar128dBar13d AutoBarCodeBcLen DialogSetting  }ϽuK/.p3k[~e@mWjcpY1eqL7k!#^kEE3L-DɘO޷|OQFyhF ) @f F BCo128B BCo128C BCoa13test T1Add Delete Microsoft WordName barcode.dot 0CustomDocumentPropertiesItem  j F5VKOn4D3lK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{ ic7`Gռ&8  e Qy1+a Ax '''# (1(I(a(y((((a  y a ha Ii")a џYI1A!)  ThisDocument ForBarCodeLAFormLASettings InitializeTemplateProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !` F4C:\Program Files\Microsoft Office\Office\MSWORD9.OLBWord )p0FC:\WINDOWS\system32\stdole2.tlbstdole  L-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice y.E .`M C:\WINDOWS\system32\FM20.DLLMSForms C!cN]M7N 0C:\DOCUME~1\Andrey\LOCALS~1\Temp\VBE\MSForms.exd ak F4fNױ7 F@Z7"5?5@L K <>65B5 C40;8BL D09;: GetInitInitFill $$d 0@PVBE6.DLL   S    \ k @ F F 1 BarCode.dot.ini  efĤIx8< BBarCode.dot Init Jk ydC4fjO+h 5D H^(Lpp9m-Lbέ - h Pause for debug7([C^坅qʦ MlwF ߃ E h(0O#34qhV1N/vs`M9 / K5A+Ԗcn] F_>|CK] zHSP$l{Hd=^0?GS}@:Q^ 0 X  OPD3ì[m҃O0 D JCABK5 AB@>:8 =5 ?@5>1@07>2K205<! :-) &H81:0 22>40 40==KE JK <>65B5 8A?>;L7>20BL B>;L:> F8D@K, "B:>@@5:B8@>20BL? 15 16 17 d?@>?8A=K5 8 <0;5=L:85 1C:2K ;0B8=A:>3> 0;D028B0 8  `=5:>B>@K5 A?5F80;L=K5 A8<2>;K (@#$%^&*()~`_+-=)  X4;O ?@54AB02;5=8O 2 2845 HB@8E-:>40 Code 128 NH81:0 D>@<8@>20=8O HB@8E-:>40 Code 128 @8 >48= A8<2>; :>=B@>;L=>9 AC<<K. 19 .% K <>65B5 8A?>;L7>20BL B>;L:> F8D@K 4;O D>@<8@>20=8O HB@8E-:>40 EAN 13 JH81:0 D>@<8@>20=8O HB@8E-:>40 EAN 13 T>;8G5AB2> 7=0:>2 0H53> :>40 <5=LH5 12-B8 x;O D>@<8@>20=8O HB@8E-:>40 EAN 13 =5>1E>48<> 12 7=0:>2 :>40 >;6=0 1KBL:  / ^(>=B@>;L=0O AC<<0 @0AAG8BK20BAO 02B><0B8G5A:8) p>1028BL =5>1E>48<>5 :>;8G5AB2> =C;59 ?5@54 0H8< :>4><? X>@@5:B8@>2:0 D>@<8@>20=8O HB@8E-:>40 EAN 13# >=B@>;L=0O AC<<0 0H59 AB@>:8 =5 A>>B25BAB2C5B HB@8E-:>4C EAN 13. 0H0:  18 b>@@5:B8@>2:0 :>=B@>;L=>9 AC<<K HB@8E-:>40 EAN 13u F Word.Picture.8  F F F F F F F ArialR FS F ` h x  14  E i   L ( q Fr F 0 1 2 3 4 5 6 7 8 9 10 11 12 13 21 22 23 24 25 26 27 28 29, 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 SP ! # $ % & ' ( ) * + , - ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ ] ^ _ NUL SOH STX ETX EOT ENQ ACK BEL BS HT LF VT FF CR SO SI DLE DC1 DC2 DC3 DC4 NAK SYN ETB CAN EM SUB ESC FS GS RS US FNC 3 FNC 2 SHIFT | CODE C CODE B FNC 4 FNC 1 Start A Start B Start C Stop ` a b c d e f g h i j k m n o p q r s t u v w x y z { } ~ DEL CODE A 00 01 02 03 04 05 06 07 08 09 29 212222 222122 222221 121223 121322 131222 122213 122312 132212 221213 221312 231212 112232 122132 122231 113222 123122 123221 223211 221132 221231 213212 223112 312131 311222 321122 321221 312212 322112 322211 212123 212321 232121 111323 131123 131321 112313 132113 132311 211313 231113 231311 112133 112331 132131 113123 113321 133121 313121 211331 231131 213113 213311 213131 311123 311321 331121 312113 312311 332111 314111 221411 431111 111224 111422 121124 121421 141122 141221 112214 112412 122114 122411 142112 142211 241211 221114 413111 241112 134111 111242 121142 121241 114212 124112 124211 411212 421112 421211 212141 214121 412121 111143 111341 131141 114113 114311 411113 411311 113141 114131 311141 411131 211412 211214 211232 2331112  Y H  h   0001101djEPCCa_: 0011001 0010011 0111101 0100011 0110001 0101111 0111011 0110111 0001011 0100111 0110011 0011011 0100001 0011101 0111001 0000101 0010001 0001001 0010111 1110010 1100110 1101100 1000010 1011100 1001110 1010000 1000100 1001000 1110100 000000 001011 001101 001110 010011 011001 011100 010101 010110 011010 01010_   F <bc128> FViewLA qJ*, GI{)Cԏ @*ħH"DFL0~I W(MXHGkc M˼3OrI\e@gN֝gB=DNK@g I UserForm_ActivateSave GetInit starts <Barcode template not installedPY2A-vnGUؠFc{6^溉B8町R˙J4vqJ>X/e/N._  6Q\H鑵#5AK,e+ I˾p<)$Eh =bLpc?JɓF eQ%b  UhoY)A,bb  0ForInvitations <bc> 128a 128b 128cya{ND9:aRE'NimK& Forinvitations  ForExternalbdCƧ뗨+D jd!A9> َ x ForExternal   b4;O ?@54AB02;5=8O 2 2845 HB@8E-:>40 Code 128 A(B)' K <>65B5 8A?>;L7>20BL B>;L:> F8D@K 4;O D>@<8@>20=8O HB@8E-:>40 Code 128(C) PH81:0 D>@<8@>20=8O HB@8E-:>40 Code 128C ^K <>65B5 8A?>;L7>20BL B>;L:> G5B=>5 :>;8G5AB2>p}x̬Gգo BC1st `A8<2>;>2 4;O D>@<8@>20=8O HB@8E-:>40 Code 128(C) L4>1028BL A8<2>; '0' ?5@54 0H8< :>4><? ^>@@5:B8@>2:0 D>@<8@>20=8O HB@8E-:>40 Code 128C 0$JukfD~exy &tMNy-  ` @4$l FApplicationwK Z4;O ?@54AB02;5=8O 2 2845 HB@8E-:>40 Code 128B& K <>65B5 8A?>;L7>20BL B>;L:> F8D@K 4;O D>@<8@>20=8O HB@8E-:>40 Code 128C L?@>?8A=K5 1C:2K ;0B8=A:>3> 0;D028B0 8  Z4;O ?@54AB02;5=8O 2 2845 HB@8E-:>40 Code 128A8jxXOE߷7IfܺQmd"r0N|+} PH81:0 D>@<8@>20=8O HB@8E-:>40 Code 128A d !+ 8 <0;5=L:85 1C:2K ;0B8=A:>3> 0;D028B0 8  L !+ 1C:2K ;0B8=A:>3> 0;D028B0 8  pWFq4T҆-ZH>\UD 1  t  O ak>7ꄷOr FirstStart J-B> ?5@2K9 70?CA: H01;>=0 BarCode.dot, >60;C9AB0, 2K?>;=8B5 =0AB@>9:8 ?@>3@0<<K, :>B>@K5 1C4CB 8A?>;L7>20BLAO ?>-C<>;G0=8N 5@2K9 AB0@B!MNq5J%IAE1WA9t3C\IC> q Uit(F {Q?$EdĦ=Hs],(K1=K'd`KO)jٿmf8w@ o"7]3!?F㬾#xRM"+nlCWJ O@uB#?NUeE q `& ;O 35=5@0F88 HB@8E:>40 K 4>;6=K 225AB8 G8A;>2>9 8;8 F8D@>-1C:25==K9 :>4Module1 NewMacrosMacro1 &Error make copy #:  x;O 35=5@0F88 548=8G=>3> HB@8E:>40 =0?5G0B09B5 53> G8A;>2>5 x8;8 F8D@>1C:25==>5 7=0G5=85, 2K45;8B5 8 =06<8B5 >4=C 87 :=>? h>: =0 ?0=5;8 HB@8E:>4>2 A =08<5=>20=85< :>40 (:@><5  BarCodeAuto): 12345rtyu2JZDg #} FL!fileExistsdeletefile exit! temp.batcreatetextfile del writeline copy  Closegetfileshortpath::FR#LTWuCϫ MakeInstall del temp.bat r#AB0=>2:8 ?>-C<>;G0=8N 2KAB02;5=K. 1@01>B:0 HB@8E:>40... .exe sap winword.exe#IFߩpUkzL X  t(01;>= BarCode.dot 1C45B 4>102;5= 2 MS Word StartUp Folder z-B> =5>1E>48<> 4;O 02B><0B8G5A:>9 703@C7:8 ?@8 AB0@B5 MS Word J(01;>= BarCode.dot CAB0=>2;5= CA?5H=>  Z# 0A C65 CAB0=>2;5=0 >4=0 87 25@A89 H01;>=0.- ;O 7025@H5=8O 8=AB0;;OF88 40=>9 25@A88, ?>60;C9AB0, 70?CAB8B5 2@CG=CN D09; 'temp.bat', <:>B>@K9 A>740= 2 B5:CI59 ?0?:5&     A p Y  ! ( ) 8default H ! X h Ix ! i!  !  Q!!  q"!  $!  )'! CNum BarStringBarSizeAutoZerowhtt1bstr *!  .!  /!  0! ( q! 8 ф! H ! X ! h ! x A!  a!  ! CodeIdDigit_i !  !  Y!  !  !  !  ,Macro recorded 13.07.2007 by Andrey V.Kuzmin  TemplateProject.NewMacros.Macro12(H  @ }$R KQ0Tahoma$TextBox1fd@HD-B0 ?@>3@0<<0 @0A?@>AB@0=O5BAO 15A?;0B=> =0 CAopCompObjaVBFrame &Settings-,!|~UvU;>28OE 8A?>;L7>20=8O 'As Is' - :0: 5ABL. 2B>@ >B:07K205BAO >B ?@54>AB02;5=8O ;N1KE 30@0=B89, O2=KE 8;8 ?>4@07C<5205<KE, 2 B>< G8A;5 >B=>A8B5;L=> B>20@=>AB8, 1572@54=>AB8 8;8 ?@8<5=8<>AB8 @>3@0<<K 4;O :0:>9-;81> :>=:@5B=>9 F5;8. 2B>@ =5 =5A5B =8:0:>9 >B25BAB25==>AB8 70 ;N1K5 C1KB:8 (2:;NG0O @50;L=K9 CI5@1 8 C?CI5==CN 2K3>4C), 2>7=8:H85 2 @57C;LB0B5 8A?>;L7>20=8O 8;8 =52>7<>6=>AB8 8A?>;L7>20=8O @>3@0<<K, 4065 5A;8 2B>@ 1K; ?@54C?@5645= > 2>7<>6=>AB8 2>7=8:=>25=8O B0:>3> CI5@10.uTahoma@Hv"(C) Andrey Kuzmin, 2005,2006,20073. www.andreykuzmin.comuTahoma(Ok {uTahoma$TextBox2,4CommandButton1 <  Microsoft Forms 2.0 FormEmbedded Object9q     !"#$&X(*+,-/01235789:<=>?@ABCDFGHIJKLMNOPQRSTUVWYZ[\^`abcefhijklmnopqstuvwxyz|}~Root Entry F0 U!aWordDocument.Macros./0TpUVBA *T%pUf%o &Ei08$ n``|~U|~Uf.M(0AB@>9:8 ?0@0<5B@>2 35=5@0F88 HB@8E:>40 Code128. 01>B0NB ?@8 2K7>25 ?@>F54C@ 35=5@0F88 HB@8E:>4>2 :=>?:0<8 A ?0=5;8 8=AB@C<5=B>2E5Tahoma (0AB@>9:8 ?0@0<5B@>2 35=5@0F88 <=>65AB25==KE HB@8E:>4>2 ?> :;NGC <bc>. 01>B0NB ?@8 2K7>25 ?@>F54C@K BarCodeAuto A ?0=5;8 8=AB@C<5=B>2E5Tahoma(SaveO @Tahoma* 40;L=59H5< K 2A5340 A<>65B5 2K720BL D>@<C CAB0=>2:8 ?0@0<5B@>2 =060B85< :=>?:8 [Options] =0 ?0=5;8 HB@8E:>4>2+ @Tahoma&$ #Frame2O( 2Label1( 24Label2"(2@Label3, 7<ButtonSavee.u(2$Label4  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Settings Caption = "Barcode generation settings" ClientHeight = 5508 ClientLeft = 36 ClientTop = 324 ClientWidth = 6816 StartUpPosition = 1 'CenterOwner TypeInfoVer = 37 End ThisDocumentThisDocumentForBarCodeForBarCodeLAFormLAFormLALASettingsSettingsInitializeInitializeID="{B62AAEEC-CB3C-4DDA-982E-4C180855E9C4}" Document=ThisDocumebedded ObjectForms.Frame.19q8F&0EAN13ox2Auto5Tahoma8F&0Code1282Auto5Tahoma4F &0Print digits5TahomaHH  }S Autobarcode Defaults:eR KQ0Tahoma(PROJECTwmdPROJECTg1Tableo.SummaryInformation(20rnt/&H00000000 Module=ForBarCode Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=LAForm Module=LA BaseClass=Settings Module=Initialize Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="FFFDD3D62D2A282E282E2A302A30" DPB="FEFCD2D72E292C2A2C2A2C" GC="FDFFD1D42FD230D2302D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=54, 54, 1083, 544, Z ForBarCode=0, 0, 0, 0, C LAForm=0, 0, 0, 0, C, 27, 2VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} LAForm Caption = "BarCode ver.0.3" ClientHeight = 4068 ClientLeft = 36 ClientTop = 336 ClientWidth = 5328 StartUpPosition = 1 'CenterOwner TypeInfoVer = 9 End (H  @%}.%R KQ0Tahoma4$#Frame1 n``Microsoft Forms 2.0 FrameEm7, 1056, 517, C LA=0, 0, 0, 0, C Settings=0, 0, 0, 0, C, 0, 0, 736, 464, C Initialize=0, 0, 0, 0, C 6CheckDigit12Oh+'0,8DX p|    /BarCode AddIns Template for MS Word 2000 v.0.202Draws BarCode Code128 & EAN13 from selected text Andrey V.Kuzminndrndr BarC XOptionAuto13E, XOptionAuto128d T6CheckDigit12"5G0BL F8D@ ?>4 HB@8E:>4><.@  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qXF%&0Charset C (for UA snail mail service)k128r5Tahoma<F &0Charset A128r5TahomaDFi &0Charset B (default)128r5TahomaDH  }S Code 128 defaults:R KQ0Tahoma xhOption128C0:>48@>20=K 42C7=0G=K5 G8A;0 00 - 99 8 A?5FA8<2>;K. \rOption128A0:>48@>20=K F8D@K, 1>;LH85 ;0B8=A:85 1C:2K 8 A?5FA8<2>;Ko dOption128BO0:>48@>20=K F8D@K, 1>;LH85 8 <0;5=L:85 ;0B8=A:85 1C:2K 8 A?5FA8<2>;K (;O ?>;CG5=8O 2A?;K20NI59 ?>4A:07:8 =02548B5 <KH:C =0 =C6=K9 ?C=:By-S @Tahomaode.dotAndrey V.Kuzmin181Microsoft Word 9.02@,$Ui@@@B;՜.+,D՜.+,p, px  Triacon /BarCode AddIns Template for MS WDocumentSummaryInformation8{PCompObjjObjectPool10 U0 Uord 2000 v.0.2 TitleHBCcdBCo128ABCo128bBCo128cBCoa128BCoa13      FMicrosoft Word Document MSWordDocWord.Document.89q i8@8 NormalCJ_HaJmH sH tH <A@< Default Paragraph FontJ^J Normal (Web)dd[$\$OJPJQJ^J  "&l  ,2$7 \ &|2'@ 0(  B S  ?Andrey V.Kuzmin_C:\Documents and Settings\Andrey\Application Data\Microsoft\Word\STARTUP\New Folder\BarCode.dotAndrey V.Kuzmin_C:\Documents and Settings\Andrey\Application Data\Microsoft\Word\STARTUP\New Folder\BarCode.dotAndrey V.KuzminaC:\Documents and Settings\Andrey\Application Data\Microsoft\Word\AutoRecovery save of BarCode.asdAndrey V.KuzminaC:\Documents and Settings\Andrey\Application Data\Microsoft\Word\AutoRecovery save of BarCode.asdAndrey V.KuzmingC:\Documents and Settings\Andrey\Application Data\Microsoft\Word\STARTUP\New Folder\BCSetup\BarCode.dotAndrey V.KuzmingC:\Documents and Settings\Andrey\Application Data\Microsoft\Word\STARTUP\New Folder\BCSetup\BarCode.dotAndrey V.KuzmingC:\Documents and Settings\Andrey\Application Data\Microsoft\Word\STARTUP\New Folder\BCSetup\BarCode.dotAndrey V.KuzmingC:\Documents and Settings\Andrey\Application Data\Microsoft\Word\STARTUP\New Folder\BCSetup\BarCode.dotAndrey V.KuzmingC:\Documents and Settings\Andrey\Application Data\Microsoft\Word\STARTUP\New Folder\BCSetup\BarCode.dotAndrey V.KuzmingC:\Documents and Settings\Andrey\Application Data\Microsoft\Word\STARTUP\New Folder\BCSetup\BarCode.dotSign(}<,@@B0 *H 010 *H 0R +7D0B0 +7i Z㗟Ҭc|0 0 *H OuGQ^^9yG <080ZwFD%2p0  *H 0#1!0UAndrey Kuzmin (Diplodok)0 061231210000Z 121231210000Z0#1!0UAndrey Kuzmin (Diplodok)00  *H 06B?_ Œɯxd\#Q+Ra$AyjtFa+FiwF:DE^&;],H%+ BZ`lϑ]|_xV.2m0k0U% 0 +0TUM0KT;ʐv3tO~%0#1!0UAndrey Kuzmin (Diplodok)ZwFD%2p0  *H cÖl"WI$]z6cn m >I7h#z)6Id׮0얂S}Մ/u2a=[F2(z@ k\/pH T0#'**vشX0f1R0N070#1!0UAndrey Kuzmin (Diplodok)ZwFD%2p0 *H p0 +7 100 *H  1  +70 +7 10  +70 *H  1&.=~0  *H KH~ E~*Nф_H]bVhz(f>юgK^ ,/[CZi3Z2WJqZgz7ahz綹?f!IhVUЉ{=CERTt$'u¾ODGT<SelfSignedCertsy}f DÿAF(|kVl]4vϟ <080ZwFD%2p0  *H 0#1!0UAndrey Kuzmin (Diplodok)0 061231210000Z 121231210000Z0#1!0UAndrey Kuzmin (Diplodok)00  *H 06B?_ Œɯxd\#Q+Ra$AyjtFa+FiwF:DE^&;],H%+ BZ`lϑ]|_xV.2m0k0U% 0 +0TUM0KT;ʐv3tO~%0#1!0UAndrey Kuzmin (Diplodok)ZwFD%2p0  *H cÖl"WI$]z6cn m >I7h#z)6Id׮0얂S}Մ/u2a=[F2(z@ k\/pH T0#'**vشX0f V 2 2 V 2 2 V2 2 V2 2 V2 2 V2 2 V2 2 V 2 2 V2 2 V2 2   BarCodeDraw BarCodeDrawoSntfoSntfoSntfoSntfoSntf0"( OptionsDialog SettingForBarCode.DialogSetting"( Code 128Bar128ForBarCode.Bar128(p(TTTTTTTTTTTTTT"( Code 128 DigitBar128dForBarCode.Bar128d(p(]jU[j|TTTTTTTTTT"( EAN 13Bar13ForBarCode.Bar13(p(TTTTTTTTTTTTTT"(  EAN 13 DigitBar13dForBarCode.Bar13d(p( hkm|TTTTTTTTTT"(  BarCodeAuto Auto Bar CodeForBarCode.AutoBarCode(p( hkm|TTTTTTTTTT"( #A;>28OLA LA.ViewLA1Custom Popup 2 Custom Popup 2%%%%%0 !TemplateProject.ForBarCode.Bar13d"TemplateProject.ForBarCode.Bar128d TemplateProject.ForBarCode.Bar13!TemplateProject.ForBarCode.Bar128TemplateProject.LA.ViewLA&TemplateProject.ForBarCode.AutoBarCode!TemplateProject.ThisDocument.test(TemplateProject.ForBarCode.DialogSetting"TemplateProject.Initialize.GetInit%TemplateProject.Initialize.FirstStart TEMPLATEPROJECT.LA.VIEWLA TEMPLATEPROJECT.FORBARCODE.BAR13!TEMPLATEPROJECT.FORBARCODE.BAR128!TEMPLATEPROJECT.FORBARCODE.BAR13D!TEMPLATEPROJECT.THISDOCUMENT.TEST"TEMPLATEPROJECT.FORBARCODE.BAR128D"TEMPLATEPROJECT.INITIALIZE.GETINIT%TEMPLATEPROJECT.INITIALIZE.FIRSTSTART&TEMPLATEPROJECT.FORBARCODE.AUTOBARCODE(TEMPLATEPROJECT.FORBARCODE.DIALOGSETTING@* p@UnknownGz Times New Roman5Symbol3& z ArialI& ??Arial Unicode MS"8hQFi:|#nr0d sC, 2Q.BarCode AddIns Template for MS Word 2000 v.0.21Draws BarCode Code128 & EAN13 from selected textAndrey V.KuzminAndrey V.Kuzmin iD@D Normal$CJ OJPJQJ_HaJ mH sH tH <*E*E********E**E*********E*E*_**** @UY*Y*****0**.*.**Y*Y*E*E*E*E* ,1h. A!"R#n$n% A@< Default Paragraph Font@p$@UnknownGz Times New Roman5Symbol3& z ArialI& ??Arial Unicode MS"0h0