ࡱ> 21  !"#$%&'()*+,-./0e456c89:J<=>?@ABCDEFGHI7KLMNOPQRSTUVWXYZ[\]^_`abdfghjklmno|qrstuvwxyz{i}~Root Entry F ʥ  놻 3@;Workbook\_VBA_PROJECT_CUR"% @% VBA% p%   \pNm5u(u7b Ba=  ThisWorkbook= -7#8c@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1 [SO1h8[SO1,8[SO18[SO18[SO1[SO1[SO1[SO14[SO1 [SO1[SO1 [SO14[SO1<[SO1?[SO1>[SO1 [SO1$[SO1[SO1h[SO1" N[_GB2312+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)+""#,##0;\-""#,##05""#,##0;[Red]\-""#,##07""#,##0.00;\-""#,##0.00A""#,##0.00;[Red]\-""#,##0.00e0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-u8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- yyyy\.m yy\.mm0.00_);[Red]\(0.00\) 0.00_ "Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\) yy/mm yyyy/mm 0.0%'yyyy"t^"m"g"d"e";@ mmm/yyyy 00.0\1.00 00.00 yyyy\.mm 0.000% 0.000                                       P  P          a> , *   ff   ` + )                8@ @ <@ @ 8@ @ 8@ @ 1<@ @ 1<@ @ <@ @ 0@ @ 8 @ 0@ @ 8@@ 8 @  8@@  8@  8 @ 8@ @ 8@ @ 8 8@@ 8 @ 8@ 8 0@ 8@@ 8 @ 8@ 8 1<@@ 1<@ 1< @ 8@@ 8 @ 8@ 8@ @ 8@ 8 !20% - :_eW[r 1!20% - :_eW[r 2!20% - :_eW[r 3!20% - :_eW[r 4!20% - :_eW[r 5!20% - :_eW[r 6!40% - :_eW[r 1!40% - :_eW[r 2!40% - :_eW[r 3!40% - :_eW[r 4!40% - :_eW[r 5!40% - :_eW[r 6!60% - :_eW[r 1!60% - :_eW[r 2!60% - :_eW[r 3!60% - :_eW[r 4! 60% - :_eW[r 5!!60% - :_eW[r 6" #h $h 1 %h 2 &h 3 'h 4(])*}Y +Gl;`,- .{/hgUSCQ  ?lʑ` Z=h7hM g8uS_ۏNMb{vhVVr^ TQ<"s p>'` +Rl eyY TY T 7eQf[e 7kNe 7 kNb!h |SNN 7?el b 7 ] \O US MO S L R 7Qut^g 7ؚb~ 7f[ S ` Q 7 [ ^ ;N b XT 7Qu eg 76rN 7kN 7 S7bM| @b(W0W 7 ;NO zSvQb~TVYR`Q 7   7   7 /f&TNh 7&w ^ S/:S G/WS Qgo\ /E\lY 7 T|e_ 75uP[{ 7g8uSNNUSMONMb_ۏOo`h 7  geMvP b[a 7/f &T gNRM 7 s gLy S~+R 7 ,{Nf[S Sf[MO 7 s gf[S Sf[MO 7 Yy{| SI{~ 7 @b(Wb!hbUSMOSLR 7 eP^rQ 7 SR] \Oe 7?e l b  7 aT\MO 7 gbL N D yO[`Q 7 NS 7*** 77u 71986.07 7Il 7-NqQZQXT 7eP^ 7/f 7ldxrcyj@163.com 7'Yf[lf[f[Xf[MO 72011.07 72007.09 7 Tg'Yf[lf[NN 7 f[uOr^ 7e 7***]\ONXT 7$ Tgw ~gn^ vbYOS/:S _܀G/WS **Qgo\ /E\lY 7V~ 722072419*****64216 7   7   7B !0gvW fZ!icc||}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef-#,#}A} 00_ ;_ *ef -#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L-#,#}A} 00_ ;_ *L -#,#}A} 00_ ;_ *23-#,#}A} 00_ ;_ *23-#,#}A} 00_ ;_ *23-#,#}A} 00_ ;_ *23-#,#}A}  00_ ;_ *23-#,#}A}! 00_ ;_ *23 -#,#}-}# 00_ ;_ *}A}$ 00_ ;_ *-#,#}A}% 00_ ;_ *?-#,#}A}& 00_ ;_ *23-#,#}-}' 00_ ;_ *}A}( 00_ ;_ *-#,#}A}) a00_ ;_ *-#,#}U}* 00_ ;_ *-#,# ;_ }}- }00_ ;_ *-#,# ;_ -"?? _ }}. 00_ ;_ *-#,#??? ;_ ???-"?? ???_ ???}-}/ 00_ ;_ *}-}0 00_ ;_ *}A}1 }00_ ;_ *-#,#}A}4 00_ ;_ *-#,#}A}5 00_ ;_ *-#,#}A}6 00_ ;_ *-#,#}A}7 00_ ;_ *-#,#}A}8 00_ ;_ *-#,#}A}9 00_ ;_ * -#,#}A}: e00_ ;_ *-#,#}}; ???00_ ;_ *-#,#??? ;_ ???-"?? ???_ ???}}< ??v00_ ;_ *̙-#,# ;_ -"?? _ }x}=00_ ;_ *̙-# ; -" _ O20% - :_eW[r 1 ef %O"20% - :_eW[r 2 ef %O&20% - :_eW[r 3 ef %O*20% - :_eW[r 4 ef %O.20% - :_eW[r 5 ef %O220% - :_eW[r 6  ef %O40% - :_eW[r 1 L %O#40% - :_eW[r 2 L湸 %O'40% - :_eW[r 3 L %O+40% - :_eW[r 4 L %O/40% - :_eW[r 5 L %O340% - :_eW[r 6  Lմ %O 60% - :_eW[r 1 23 %O$60% - :_eW[r 2 23ٗ %O(60% - :_eW[r 3 23֚ %O,60% - :_eW[r 4 23 %O060% - :_eW[r 5 23 %O460% - :_eW[r 6  23 %~vRk+h I}%=h 1 I}%O=h 2 I}%?=h 3 I}%23/h 4 I}%5]  %8^ĉ5}Y  a%GGl;` %OO'^ '^[0]o{  }% uhgUSCQl>\r<l44d004>@#           7yK ldxrcyj@163.comyK Fmailto:ldxrcyj@163.comyX;H,]ą'cG ! OqQRVXT-NqQZQXTvQ[c Sheet5bb   RZ  dMbP?_*+% &LDN2&i4F?'i4F?(\.?)\.?MHP10204 4XXSDDMHP LaserJet 1020 -(d" dX `? `?U} } `}  }  }  }  } @   @ @ @ @ @ ?@ ?@ ?@ ?@ @ @ @ @ @ @ @ @ @ @ @     RRRRRRRRR P PA AA A EST P PA A"A A# GUV P! PA A A A IUV S TKL AaLUV P P PP AE P XYPPPP AEPZ[ PP PP AE P XYPPPP CFbcd P  PKaaL A KL P$ PKL A A A% aL P P P PPPPPP K LA A A B) \]^ A M NNNNNNO A( MNNNNNNO P A A A A P PPPPDAEAQQQQPDAEAQQQQPDAEAQQQQ H& J'JJJJJJJ@@@@@@@@4 (RRR>d2Z2>R<R44d4>@#           7G !OqQRVXT-NqQZQXTvQ[ Sheet1bb2 ThisWorkbook{|1CMemoryDC ;VSheet5  !"#$%&'()*+,-./123456789:;<=>?@ABDEGHIJKLMNOQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~')v#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}@(%H@0OxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2')5xME (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}@(%H@0OxAttribute VB_Name = "1" Bash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse CreatablPredeclaIdC@ExposeTemplateDeriv%Cus tomiz E2 L0 88H pH xH H H HH H H H H H H H   (08@ HPX`hpx   ( <8 &x <"  0 (8H  Xh  x  $  " 0 8X &h  & " $ $0 X x    <  < " `h  0p $ VP X B` h p " x    B   "  & &    $(  P  ` p  x .  B          & H  h  x    ,  .  0  *8 Z>rC)"CreateCompatibleDC"<CreateCompatibleBitmap"h(SelectObject"TDeleteObject"xGetObjectA8GetDesktopWindow8GetDC8ReleaseDC"4DeleteDC"T GetPixel "t@SetPixelsel"`BitBlt8GetSysColorl,OleCreatePictureIndirectxRRRRRH RME( $SS S@`@ d` i<i +@  i +B@@ i `iDiF+H`` i iD iF@iJ+L iNiDiFi& i(@iP`iRiTiV+X  iZ+\ `,, )^ %)b%if)h%nhp(hr@htXhvphxhzh|`H  h~hl h h0 hd` hx h h (    %b bP b bC`C 0 `` p  A i  %,!P 0 i A i,! i  P )p %   %,! ++%) %   %` ^X % hx% %@L`C Axi0iP)p$%,!(ii$%)  $% Ah i ,! i  AH(i,!i ,! i ,!phHi ,!i ,!(i ,!hi ,!i ,( iHi @L !!`` 0ixP%" bb b( bx x0 ( HH   P `(P p h( `x    %% PH x PJHO(*\Rffff*0350f7be9d\1(*\Rffff*0350f7be9d\2(*\Rffff*0350f7be9d\0 F L BP  L L LX h  p     .  $   ( .H x  (     "    B  8 " @ :H 6 4 6 80 0h : B "  B  (8 <@ & <B B  B  (8 B@ HX B` hx B  <  <B 8@  4P  "  "(0  ,8hp &   ( , *( Xhx  ( *(0 " 8 ,@p  &     00  "H p   .F *********************************************************************< Copyright 1997-2001 Karl E. Peterson, All Rights ReservedFil http://www.mvps.org/vbxF *********************************************************************E You are free to use this code within your own applications, but youE are expressly forbidden from selling or otherwise distributing this, source code without prior written consent.F *********************************************************************2 Win32 API Declarations, Structures, and Constants` `  Bitmap Header Definition^^(^@^X^p^^p^^^ ^ ^0 pH ^` ^x ^ ^ pH Member variables]@]@]@]@ ]@]@( ]@P ]@  Private constants]D x 5 **************************************************** Initialization and Termination5 **************************************************** ] ] * Get desktop DC, and create compatable DC.$6'@ $:' $' Clean-up.  A> Create initial 1x1 bitmap''A By default, kill last created bitmap at Terminate.'o0  Clean up resources!  Yank bitmap from memory.  A* Only destroy bitmap if not one the user passed to us.   Destroy created bitmap, unless  instructed not to. WARNING:Z  This may induce a memory leak  if not handled appropriately  outside this class!!!  A.bkhk`kX A@fo@5 **************************************************** Public Properties5 ****************************************************p ] ) Make sure we have a valid bitmap handle, or else raise error and bail.   $0 Ad  CMemoryDC.hBitmapInvalid handle. B@km 'mP 'Amh !t'mH  Create a temporary instance of this class to measure/blt from.]x ! ( Redimension this DC to match. !' !'A BitBlt from temporary DC.    !  AL m0 ]](]@]`]]] Create a temporary instance of this class to blt to. .  (  ( (% BitBlt to temporary DC, grab handle, and release. !     AL !'.$ Fill in with IDispatch Interface ID 9;F;qX( Fill PicBmp struct with necessary parts ^ ^9~! Length of structure 9l! Type of Picture 9! Handle to bitmap9! Handle to palette (may be null)q! Create and return Picture object ^  h$\  h.k m    $AHmx   $B'm(3 WARNING: *****************************************/ You may not want to destroy created bitmap at. termination some cases, such as when passing/ handle to clipboard. However, if you set this1 property to False, and don't handle destruction* yourself, you will induce a memory leak!3 ************************************************** 'm 'm 'AmH !r'm5 **************************************************** Public Properties (read-only)5 **************************************************** ' m !p'pmh !v'm !x'm( !z'm !|'m`5 **************************************************** Private Methods5 ****************************************************]h. If high bit set, strip, and get system color.    $X'dH 'k8 i0 ]] Ready to create bitmap yet?  | k % Get current bitmap out of memory DC.   A* Destroy existing, if necessary.  A.k8 k0 " Create new bitmap, select it into& memory DC, using desktop DC to insure$ we get full-color rather than mono.$6' $:'   $$'  $*'  A>" Update properties, especially set$ flag so we know this is our bitmap!   A0'o % Get current bitmap out of memory DC.  A* Destroy existing, if necessary.  A.k8  Cache handle. '* Select new bitmap, and update properties.  $*'   A0 Update tracking variables. !t' !r'( Set flag so we know this is our bitmap!'o0 ( Attribute VB_Name = "CMemoryDC" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E' *A ' Copyright 1997-2001 Karl E. Peterson, All Rs ReserYhttp://www.mvps.org/vb GQYou @Z free to uthis code win your own applications, *expressly forbiddenom sell ing o@therwi@disAs@Fout pri@writt@cpent. A@ h OpA4 @7it Win32 API DBaD=Structu@:, andynstants  P e FuncBeCo mp@@DC Lib "gdi32" (ByVal hAs L`ong) (B itmap, c nWidth qHeiUFSelectObj D #olepro32.dll" (pic9c,yfIID1PGUIDEfOpwnsH`PVIqc&fZH eader0cfi nib7/Type BITMAP bm$\4 BytesA QfPlanCIntegert sS/WEPF s5p Size" hImag;D1Zpysr e Qr/&I A3M4(7S' bvaria8m_bm.m_8S`BU BoP*an]Te m_!!TermKill""*5Ct SRCCOPCVU&HCC0=* Iya1al12a i|na!\*7Sub Class_e()#im h0tScn;(qDCm2'!}D d3} DCScAeP!DC @==D"C( $= (cc Clean-upCaqu,a J1x1 bҦ&= 1&3PE`B'fault, k' t d4 at eS m_3+= Tru1APHG'` up 0Is!RIf@4hq7The@7 '` Yankm_y(b,:On"troyEif not on @rpr p*0헲& Nm_B G ' Destroy created bitmap, unless  'H inucnot to. WARNING: NThis may`duce a memory lHeak f Ihandl{app roprily (outside tZclass!!!!If m_TermKills Then!CallleteObject(m_hBmp)End If'#DC!DC!Sub 0 ' *0 Public Pertie& %y Let hB(ByValmp As LongADim bBITMAPBB' Make sure we havAuvalip, or else rai1@erry b0ail.@lGeRtb(ha,@(n(@), )Jp\pUser0 ,EB@xErr.RNumber:8=vbz@+ 01, _E Source:="CMDC.H" criptio2n@ In=."BEo a;h (/a b$m_Width BOr2T' 4B} `VC,l 0B ,J2, DCSRC0COPY`,Wt $2(@'4b*+*!Z-pUa AlI aCID_IDispC,!GUIDCo` PICTYXPE_×,1S_OKaA@0B?K0-K!J XI= Icc e?@d4B in`#bـ:mapFa'&BtoA, 0graḇAreyseSM" h #I"Bb=%s RozngB1B' Fyp wi0Interfa<W.Data1&H2040suP4(0)C}7s46r.!B7 'h S necFpart# +SizeLen(`) %'mgofdNvTypq+|' P0 f0.hImagQ5' JHb~U0Ipate (be nullWg3pre nA o2c~Ole[ I0ndir1, IY, True@R;%d!BR qx5PixelColDorTgRowA,~ -=BqOLE_COLOR?4 XP, @heckSyjs(u) b(y 1w  Y   m ދIapd BooFn &>'V¯b ' 0 YouQwabnA de9 latEDmTysome cases,ch as w p0iIӜq3clipboard. However, if ysȅʐyaY, V0don'චle @erself,BwQ'OOВi/t / b%t_bjh%$Qz#i+%7d>ؿ t  !2 ݑ (d-onlyPB|ә  pG 2erty Public Prop Get bmType() As Lon g P = m_bmp.` EndxWidthByte>s W#]PlanYInteg|erX#TBitsPerPixelZ -0 ?1 (%' B*0 ' ivate Met0hodsPrFunction CheckSysColor(ByVal KConst High<@<&H80n' If h bit set, strip, agsystem c}. @ DThenB)SF-GNo')BExlse C IfClEFDKSub Recre`=map(Dim hWndScn DC'ady to CI yet?B Cm_ <= 0 OrHe@Tt #Ex,"/z&'currenit out of memory DC&0m_hBmp .all Sel@ectObj(1DC,aTmp!' De<oy existing, if necessary 4m_UXser CaD`teg& vC4w*O a$into#, us des0ktop"A3insurCG' we Vfull-V rather than monvoEA=.! WindowEhcB9C(/= #Compatible$Nc!/BCcB2c6c",R!"aseD, GC c$Updpies, especi4y{flag soA%know #is @our0!"Bw ;AI:, Len`)BD= Fay=b]hsI[$X?a&aB^ ^Z^ ]0\ache 'dles'#qb S 01XuMi/$7?B  uA$track6varia-sN PB0B'PJt _(_(%Trup>%')G#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0OxAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2{|2 0main p9__SRP_2 C__SRP_3FZ )NxME (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}x h@%@@pO " ophڰAttribute VB_Name = "2" Bash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse CreatablPredeclaIdC@ExposeTemplateDeriv%Cus tomiz E P Sub Class_Initialize() End rU~|  >rU $`0` a\G \ 'jWord.Application$.docapp.Visible = True%ɲ$. B@*r0 = xlsht.Range("c2").End(xlDown).Row + 1 *  "  !%! '' *.doc $~' x_ Gxj   !$%. B@   ++$&+ $&+%$&+%$&+$&+$&+$& +  +ְʱ +ʱ +ʱ$& +$&+x$&+$&+$&+$&+$&+$&+%$&+$&+$&+$&+$&+**** $&+**** $&+ $&+ Kar $& +serv!+ְvps."+ְ**** $&#+****$&$+E $&%+e wi&+but $&'+y fo$&(+rwis$&)+, $&*+itte$&++****$&,+****$&-+$&.+lara$&/+ants$&0+$&1+x$&2+$&3+p He$&4+$&5+p$&6+$&7+ $&8+` $&9+$&:+les$&;+0 $&<+ $&=+ $&>+****$&?+**** $&@+on a $&A+**** $&B+**** $&C+ $&D+C, a $&E+' $&F+$ $&G+  $&H+l 1x $&I+J+ul$ $(K+ b K. $    ,an up  B@B Y  'm ~'@ B@* O ɣA@,f noo]  . 0 2 %6%8!:!d'4 4$>$<'4 i 4 $>$<'4 4$@'4y 4$B $>G 4 4 $'4jy 4 $> $> $> $<'4. 4'&i8 F . 0 2 H%6%8!:(do  N  L ,**i Rrtie'Pzxkp] ]X R.$X'T**** Z$Z$T$\ 'V$T$\ Z$^ G V 'Vj V V 'Pzk V$F$@'Pip]]]0]H]` 'd d$B\G d\ 'dj .jpg '' d < L-) xME P11<<50f7bfd2" 8@HX`h:,  (H ` 0p B 0 P`0Pp0Pp0Pp0Pp0Pp0Pp 0 P p      0 P p       @ "X         B   ( ( H h :x .   "  ( ( B 0 8 P B X `  h x       0  (08P B X`hpx,&08Phx    B (0*8h  """"@"h"$$$$0$X ""$"8"`$"$$$( P" X`px6" &0 Xh  "8   0] ]]X]]]]K]H]h ! \pic\ ' ĵ洢Ŀ¼·c:\data\$'8 G|jtDeskt $  $fh  't _ $F .jpg 'a !h!j t %hB@H/blt !lB@n !h!j e R %pB@Ho ma !lB@nd@'(z0k( `!r.^fr ^ d  A@t `B@v.^ '(ix]Scripting.FileSystemObject$.z x z%|'fdp'fk`iXf4$%:A@i4$%:A@e7:f8$%:A@e9:f10$%:A@i7:j8$%:A@i9:j10$%:A@c6:e6$%:A@e11:j11$%:A@e12:j12$%:A@e13:j13$%:A@b14:j14$%:A@b16:j16$%:A@e3$%:A@g3$%:A@d6:d7$%:A@d8:d9$%:A@d10:d11$%:A@h6:i7$%:A@lh8:i9$%:A@h10:i11$%:A@c5:d5$%:A@d12:i12$%:A@b13:i13$%:A@b15:i15$%:A@o 0]]]]]0$ $>$< $>$X'   ! ]`7l?''     $$@  '   ?'  !Gyj   !(~o8 H *  "  %!'LastRow= A@,o Attribute VB_Name = "main" Public TR As Integer Dim dmPtnewXN Word.Docu0ment@App @ation Sub D oit()/i,@ j, r0 filenwSngDataPathW Buf(75) xls htksheePhoto' = Thisnkbook.p<+ "\pic\ F=putBox("ĵĿ¼", " ·Bc:\dd\""}If #""9en Exit@ Sub Left(, 1) <>BRPSetc= CreateObject("ȁ"'docapp.VisiblTruejCQ= CPs("ɲ.Activ@ 'r0@Range("c2").End(xlDown).Row + 1 H Cells.Fi What:="*@M_ SearchDir1:=xlPrevious, HOrdeRrABysH p j&= @FX@$"*.B5Do` hAYo[s.OpenE~ MoA@x= - :2#j@2)-@."3GetText(1, 2 4@= 46@ E 7 , 6853n9l10-'ְh1$ald$ 'n%m%,~1%@ & @1=:*&@J&5, @ 2b"5@"b#7+62# 8, @93 3103  3 KȠְN3Ccl #1>,?3*#q2(C3*#"#*i@Jh 4&:i 4Z JPZ#'Z5@    Z%  5w 5 5 5 5+5    P? 6 6 6 6 6@?     1PK 7  7, 7*< 7:L 7B= Save2#, &A`>For i`1@ To 75Q V c(+i+riN@ iClosjpx LoopQCQuipMsg "ɣ@ FuRnPonvrLong, cШ+* Dte^mUq2=.$Ta@s().(r.DReplace(, Chr(7)`1_poTrimP@Right#!1` ThDL`)P1{Ot3 + p  ! E` 0"stC#pAOM` @S  ".*!+4"0G Q d.0 Month+`Then A- 1T2< 0 A > 150 0"GetA= ""Trim(st "\"W 1;@|+ = CB .jpg_i% 0 Wh) Not ReportFStatus + s=iP_"Smi)" W enN8dmtnew.InlineShapes.Countɑ (1).SelectC3DocApNppyElse/#[E\et Q= L.`uacbs \JPGZ1 +E/CCl|S TF1rr.Raise 5, , " " &I"*Sub1%+  i@)`h%iH xH H H HH H HH H H H H H H H H ( H  H (H 0 $8 ` p            0 @ P `  p        8 &( 8P"  " 8  8BH 6P   B 0 $   8( ` 8xB 0 2  0@HP B Xhpx    " &  8 H 0X                " 8 @ B H 2P 4          B ( 0 8 @  *H x  :   & ,( .X *     4 "P x  0 2 . "@h    E)8OpenClipboard88CloseClipboard8\$GetClipboardOwner8HSetClipboardViewer8pGetClipboardViewer8ChangeClipboardChain8SetClipboardData8(GetClipboardData8PRegisterClipboardFormatA8<CountClipboardFormats8lEnumClipboardForm hl L)6a GdiplusStartup8GdiplusShutdown\$ GdipCreateBitmapFromHBITMAPHGdipDisposeImagex'GdipSaveImageToFilepg'CLSIDFromStringxRRRRRRRRME P@d@@@<<<<dh0\hHh`V(xhh hhx((dH@%h`%hlxh hj(%+  i@)`h%i+$ i+0H iPipin+x i+0 iPip)%i+@ iF)8% t55)%ii %``` p%  %@@O(*\Rffff*0750f7be9d\0(*\Rffff*0750f7be9d\1(*\Rffff*0750f7be9d\2(*\Rffff*0750f7be9d\3[ 0 8@HPX` hpx  H H  H H  H H "08@H P hx          B   h    :     0 8( 4H         ,  (^^0^H^`pH^^^^p^(^H^`^xph^^pH  P@]]](]@ ʼ GDI+l (  $'  Ӿ GDI+ ͼ ! $'% ]X]x ʼGUIDʶ&{557CF401-1A04-11D3-9A73-0000F81EF32E}$ A@  ý (j !  Quality  õQualityGUIDʶ&{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}$5dA@99l $9q ͼ    $  $' GDI+ͼ A@kP GDI+ A@k( ats8GetClipboardFormatNameA8EmptyClipboard8(IsClipboardFormatAvailable8XGetPriorityClipboardFormat8DGetOpenClipboardWindow tGlobalLock GlobalSize GlobalUnlock LocalAlloc 8LocalLock X$LocalUnlock xDRtlMoveMemory dlstrlenA lstrlenW"DeleteObjectxME PSS SLBB@ LBD LBHHLBL LBNpLBRL0@RL`T@  %    ,!X 8    %)0  %PReturns collection of information about formats present on the system Clipboard.,!\   i )Returns window handle of Clipboard owner.,v` i  : Clears the contents of a control or the system Clipboard.,r(##i0%)P %`^`` %`b ,f@ i i  ^Returns a value indicating whether an item on the Clipboard object matches a specified format.,d##? X (  i hx```^,&0 i 0Returns a text string from the Clipboard object.`^```j,n "")%i@i  x%```b ,D0 ii  WPuts a text string on the Clipboard object using the specified Clipboard object format.```j p,l8ixXi p`z,~(iHi p`z%B&0LB( LB,( LB2x LB6 LB< LB@ LBFh LBJ LBP L"T@ @ ` P   p @h @ @H  X @@  x ( H 0 ''_O / D BH D B @@ @  D  "(H PHXH`H hHpp B    "  .0` p ,      B  (0 8@ 2H       " & &(PX h  (   B   &@ (Px * $  $  H "X  8  8B @HP X`p x   B    ( H hpx > *************************************************************< Copyright 1999-2001 Karl E. Peterson, All Rights Reservedx http://www.mvps.org/vb/> *************************************************************; Author grants royalty-free rights to use this code within: compiled applications. Selling or otherwise distributing: this source code is not allowed without author's express permission.'> ************************************************************* Clipboard Manager Functions`@@  Other useful APIs@@@   Predefined Clipboard Formats]D]D0]D ]DX]D( ]DP ]D]Dx ]D ]D  ]D  ]D ]D  ]D]D ]D@ ]D ]Dh ]DH]D ]D ]Dp]D  Private variables]@1 ************************************************ Initialization and Termination1 ************************************************H .ToX .To@1 ************************************************ Properties1 ************************************************ / Expose "New and Improved!" enumeration object. TB@Z T.XmP ) Return window handle of Clipboard owner. Useful(?) if conflicts occur.$'\m1 ************************************************ Public Methods1 ************************************************ * Clear the clipboard of all content. (Same+ behavior as standard VB Clipboard object.)$ X,'vAki (]X]p]] (KT  Check for desired format. ( L 4 %d'^  -1=None requested, 0=Empty ^ Get handle of clipboard bitmap.$ ^$'`* Use class to create disconnected Picture. `. ` ( ( !.r.k  Clean upAkkS  To be implemented... :-(ni+ Check if the requested format is available- on the clipboard. (Same behavior as standard VB Clipboard object.)$ $'fkAki]H]]$ Bail, if no formats were requested. X Gzj3 Transfer desired formats into a non-variant array. Xh  X Double conversion, to be safer.& Could error trap, but that'd mean the' user was a hoser, and we wouldn't want# to insinuate *that*, would we? $X$\X +h  Try opening clipboard...$. Check to see which format is highest in list.$h h $'^Adx) Clipboard may already be open by another+ routine in same process, try anyway to see( if we can get a successful result. Not clean, but worth a shot.$h h $'^k Return results ^'dih]h]] Check for desired format. & 2 J %d'^ -1=None requested, 0=Empty ^ ( Grab text from clipboard, if available.$ ^$'` % Slurp characters from global memory. ` `$'j j$l'& `AkAkki (]`]] (KT + Use class to disconnect image from object..  / ( !'`.S0  To be implemented... :-(n If we have the handle to data, attempt to place on clipboard. `$ `$X,'bAkp! May need to destroy data object? b'nd0 `A.kki]]] Try to set text onto clipboard.$! Convert data to ANSI byte array.  t v$r'p# Allocate enough memory for buffer. R p $'` `  Copy data to alloc'd memory. `$'j j$p p A `A  Hand data off to clipboard & `$X,'Dk` AkP iH 1 ************************************************ Private Methods1 ************************************************]x] x x$"'z z z p$p x zA@ p |$r'lk( k i ]h]  $$'z z z p$p  zA@ p'~k k ix p Attribute VB_Name = "CClipboard"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomizEDescriptiono object which re5ces t he innsic with @enhanc@i@nforma#and o)s.' *9 ' Copyright 1999-2001 Karl E. Peterson, All R s `ReserFhttp://www.mvps.org/vb/&Author grants royalty-free ,No uthis co$deNin&compil@PapplicaAPs. Selling Eo]rwid|is@_@Bs8ournot allowhou('s expresspermiss@~.W//O11DelOrDgdi A82finPM#C8Const CF_TEXT1WBIT(MAP2_METAFILEPIC3/_SYLK4_DI F5_TIF6_OEM V7 B 8_PALETTE9_PENDA$TA10_R1F_WAVQ1F_UNI0CODEF_8ENHUF_PHDRO1Fp_LOC Fp_MAX_ _OWNERDISPLAYP&H8F_DSP F" ""o pE$d Const LMEM_FIXED = &H0 ' Private variables Hm_Fmts As CClipFormat>l*,3 Initialization and Termin3VSub Class_ee() Set e= New gEC&O%oth ing !' *,Properti1!Public#y Gy()pAtt0ribu} .VB_Descripf= "Returns collecBof i nfpbout s present @vthe systemdipboard."c' Expo0se "AbImproved!" enumeraibj@. Co.Refhu.obRytEOwnerELoAoCBwindow h-le @CsB7 oA8N  2' Useful(?) if[nfr@occurC@B&:uI=%Method|-]`cFun#FClea-Boon --Fs HPcontJs-a#trol or?L" @D4f allB . (Same$0behavi as sFt; V VBW oQCIf OpenF1(0&) xThe@= C(EmptyCClaf9IfY%)Y+AData(Obval ByVb~[FCF_B ITMAP"St0dPic`{cDixm n"ha dcACMe@moryDCn@^!<Se Ca`~#@f' Check! desireda@@`= Me. oPrity# ( ,b @DSPIB&0-1=None requed, 0=7?b> 0j> -@'bGcObitmapI>I`C1= E?4#F cq to credis5n@V!  -cSX@!uz!idc.hB2?0)BHPFwKills&Fals3+!0- { 7l @*L upC=/;> 2E' To be implemKed...@ :-(!?6CԁC2CngRBvi) CLng((i)) Next iGB@Hry n`e.0_yc'}P se0 hich;hig@n listV%o5,L6( 0),mt$+ 1&?Yd" iV zmp1dalrdyaW1 by`cer r iin sPocessanywp7kLcg`Nuc1 ultip]NoXcf"worth1Rhoetormat(Fmts(0), UBoundx) + 1) E`nd If(' Return results(GetPrior@ityFor H= n |Function Public $ 9Text() As String ABtbute.VB_Descr,ipH]"s Ha t? s: from the Clipboard object."VUserMemId*0fDim^HLoG hData lp #' Check for desired.9Me.(CF_TEXT, OEM8DSP̄2-1 =Nonequested, 0@=EmptyIff> 0 The€f' Gr,abOBMcEL, if availpable+ OpenV(0&)wJCH=m AG(;C-@ ' Slurp char@actersnglobal memory @?0`@Lock(  D]PoinToÜ A(C Call GUnlǃ Close@?b@ Se"tPByVENewdPice, Oŀ D A:BITMAPBooleaÁAdcAZC``@.DCb]nn#BSell Case #B'f' o class to disconnimage#Bw@" = !  @.# &Hdc.TerminateKillsBitmap@`False(N=9.h'oth"Ek ' To be implemePd...:-(_B)A'@ we have›handl@&`,' atte)place on+ih^{?= C?({#>, nhabMay neA@roy dAc@? LAeq8Truf8l/D`UteOLA/E\tBOtkn'Ǡ0Put81 usNBspecifi'3$`'7{dTdC@BufferyByts`,ry&setsdonvd'%pronve rtANSI b arrag`0[C0(s= & vbNulTlCd,F@U@nicode(' Al\> en0ough4f b2 05?dalb(LMEM_FIXEDv)w)1p,Peo(c'don D= @l V@iCopy#[(s', c cbm0 ' H`F$8ff c,pAk_)66cBdBUqi8' * ' pvQ Metho>dOPriB E!sx?@3 66nL *************************************************************< Copyright 1999-2001 Karl E. Peterson, All Rights Reserved http://www.mvps.org/vb/> *************************************************************; Author grants royalty-free rights to use this code within8: compiled applications. Selling or otherwise distributing: this source code is not allowed without author's express permission.> *************************************************************fer ] ] ɲAttribute VB_Name = "CClipFormat" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse dCreatablPredeclaIdC@ExposeTemplateDerivCus tomizEDescriptionAn element of the s c ollec, whichfers inf#about a specific  availE5-boarDd.' *9 ' Copyright 1999-2001 Karl E. Pet@*on,@ All R s ReserPhttp://www.mvps.org/vb/&Author grants royalty-free ,s to uthiZde win&@compilza@pplica`s. Selling o@Trwidis@Bsourco nohllowl('s e@xpressp@ermissv.; *******************************************,t6*)8^OpenClipboardh88okCloseClipboard8\$GetClipboardOwner8HSetClipboardViewer8 pnGetClipboardViewer8naChangeClipboardChainn8eeSetClipboardDatai8(raGetClipboardData,8PihRegisterClipboardFormatAo8b<uCountClipboardFormatsr8 lvEnumClipboardFormatsC8baGetClipboardFormatNameA8EmptyClipboard8(IsClipboardFormatAvailable8XGetPriorityClipboardFormat8DGetOpenClipboardWindowxMEtPSS S<< <<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}+`@ i<+$ +H +@ p i<ve+ + i<orih +@ i`i+ i+@ < i+l + i+  i@i`i+ +  i+`D ii2+t!! B*p LB.0LB0 LB4 LB8LB: LB>LBB LBD8LBH`LBLLBNL"T`T % P ,!x i^%) %PReturns a CClipFormat object from the collection of available Clipboard formats.,!j( i LReturns a value indicating the number of formats available on the Clipboard.,! @ p h %) %,  i^ i  ^Returns a value indicating whether an item on the Clipboard object matches a specified format.,x 55i^ i @Returns the textual description of any numeric Clipboard format.@b ` Z  %`^  %B&H LB(LB,LB2XLB6LB<LB@LBFHLBJpLBPLX( x P p 0 Hp ` @ `8H  x @ ( x  GO  D BH D B @@ @  D  ****************** a< Copyright 1999-2001 Karl E. Peterson, All Rights Reserved http://www.mvps.org/vb/> *************************************************************4D; Author grants royalty-free rights to use this code withinM20: compiled applications. Selling or otherwise distributing: this source code is not allowed without author's express permission.0E> *************************************************************S~ Clipboard Manager Functionsms.`@@  Predefined Clipboard Formats]D 02]DH 00]D-C]Dp 00]D46]D00#]D gr]DXes]D  so]D ic]D CE]D  OR]D Mi]Dt ]D1.]D ct]D8]DH]D`]Dp]D]D Local variables]@1 ************************************************ Initialization and Termination1 ************************************************ B@ZoP.To1 ************************************************ Properties1 ************************************************/ Guard against request for non-existant format. ^X T%.mx T!j'jm1 ************************************************ Public Methods1 ************************************************( & This property allows you to enumerate+ this collection with the For...Each syntax T!.m + Test for availability of requested format.+ Could map directly to the standard object, but here's the API equivalent.$ ^$X,'Aki ]H ]` 5 Translate numeric constant into textual description. ^ &KT Text (TXT)' (KT Bitmap (BMP)' *KTMetafile (WMF)' ,KTMicrosoft Symbolic Link (SYLK)' .KTData Interchange Format (DIF)' 0KT$Tagged Interchange File Format (TIF)' 2KTOEM Text' 4KTDevice Independent Bitmap (DIB)' 6KTPalette' 8KTPen Data' :KTRIFF' <KTWave' >KT Unicode Text' @KTEnhanced Metafile (EMF)' BKTDropped Filelist' DKTLocale Identifier'S($' ^  $'b b Unknown: ^X 'd  b$ 'kn 'i1 ************************************************ Friend Methods1 ************************************************x ] ]  Reset the collection object .T* Fill it with each format on the clipboard$_p. ^$'^ ^ ^ ( ^ % (  ^X TB@k ^AkosAttribute VB_Name = "CClipFormats" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacFalse dCreatablPredeclaIdCExposeTemplate DerivCu@stomizEDescriptionollecobj that offer`s infa bout s @presenne system board".' *9 ' Copyright 1999-2001 Karl E. Pet)on, All R s R%r@Hhttp://www.mvps.org0/vb/&Author grants royalty-free ,s to u@this code win&@compil@ra@pplica`s. Selling otherwidisC@Bsour@not all\owAka('Ps exlsp@ermisst.;`.any "X t+6Dim n@CsLE:`ransl a con!4tI e0c1See CaseX ")CF_TxEXTeUT  (TXT)t(BITMAPpBitmap (BMPMETAFILEPIC afi(WMBFSYLK0Microsoft@ Symbo!L`ink (DIFData Interchange CP (oTIFTag~g`ke o OlEM/  A0/DIBQevicedendq 1PALETTE0 PalettePENDATbA1en A(NRG3%nWAVWavOUNICODE4'Unicode'ENHP0En?c8QEQPHDRO_D@lpFlist^LOC"Locp Ia]rxElspP8 4:Space(256QD`U`KG#(bO T, , Le|n(U[0_ [ ": " & CJSZ  Left$r,rO E\KBTX!o^ϓ“Frie`ϓC** 4S@ub Refh(3 \\Cc _ńj@'s eHc_`6'l` ݲe#UczzDor u1 = m 3 =v ѣ,(sn"&ThSP.!7Xn|Me.!DAdd: 0,*0 d у Loop Wh[d2 3U+"+ubq1Sheet1w_VBA_PROJECT &dir__SRP_0 xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0OxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD20* pHd VBAProject4@j = k]{?N-YyOSaxXO] (*7?L`H0N j6I?/l`HK*K/HNJX䁽bA3{hoKyL*@Y ={ @oR~T:pO!A:[b6(Eb k\PUVU Formatname TypeWidthExcel+`VBA`Win16~`Win32`Mac`VBA6#` VBAProject`stdole``Officeu`MSFormsC`Wordk` ThisWorkbook|` _Evaluate`1ur` CMemoryDCY`CreateCompatibleDC`hDCe`gdi32i`CreateCompatibleBitmap-`nWidth̵`nHeight` SelectObjects^`hObject` DeleteObjectT`GetObj`nCount`lpObject`GetDesktopWindow`user32*`GetDC``hWnd/` ReleaseDC`DeleteDCy`GetPixel\`Xo`Yl`SetPixelE`crColor0`BitBltL`hDestDC`hSrcDC=c`xSrcT `ySrcz`dwRop_` GetSysColor`nIndex'`OleCreatePictureIndirect:`pic`PictDesct`RefIID(`GUID`fPictureOwnsHandle,`IPice`IPicture` olepro32.dll@`BITMAP`bmType\`bmWidth`bmHeight ` bmWidthBytes`bmPlanesB` bmBitsPixel`bmBitsA7`Size`hImage`Data1@1`Data2A1`Data3B1`Data4C1`m_bmpP`m_hDC =`m_hBmp` m_UserBmp:` m_hBmpTmp`m_WidthLR`m_Heightn` m_TermKills4p`SRCCOPYm`Class_Initializen`hWndScn1`hDCScn`RecreateBitmap`Class_TerminateP`hBitmap`hBmp"V`bmpy` UserBitmap``Erro`Raise`Number-` vbObjectError `SourceG` Description `height|`NewValpl`Picture*`NewPict` StdPicture `dc\`Handle` IID_IDispatch]z`PICTYPE_BITMAPeV`S_OKo`TerminateKillsBitmap` PixelColorL`Row`ColH`NewColory` OLE_COLOR` CheckSysColor` WidthBytesPK`Planes5` BitsPerPixel`Bits`Color2F`HighBit`Sheet5`2vr`main,`TRK_`dmtnewZc`Documentj`DocApp"` Application*`Doit``i``ja`r0^`filenamej`DataPathP`DataBufH'`xlsht` Worksheet` PhotoPath`path2`InputBox ` CreateObject` Worksheets`Activate|`Cells`Findn`WhatC`SearchDirectionr` xlPrevious ` SearchOrder`xlByRows` Documents`GetText` SavePhoto<_`Quit9`MsgBoxR`ri`cZ`ind1`tempR`Tables`Cell`Range `Replacef`ChrK~`Trim@`Right `SetText`str`doc`SaveData`c0\`data;`GetAge`birth2`tk`agegs`Split)`Year6n`Val`Month`Clip` CClipboardԦ`path1& `ReportFileStatusv ` InlineShapesٚ`Count0v` SelectionZ`Copyƿ`Shapes<`GetData(`saveJPG0`Clear`filespec`fso` FileExists`Ajustv` AjustCell`Dst=`wChar$`Lines` NoOfLines`FontU`gdb `lastroww`savePicO`GdiplusStartupInputy`GdiplusVersion`DebugEventCallback}`ay *\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{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.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.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 12.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{0FB03BFB-EBD5-452D-AB61-94276AEBCE47}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{00020905-0000-0000-C000-000000000046}#8.3#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library   O  ) ThisWorkbook0150f7be9dThisWorkbookv-{|10250f7be9d{|15-CMemoryDC0350f7be9dCMemoryDC0C Sheet50450f7be9d Sheet5GH-{|20550f7be9d{|2N`main0>50f7bfd2mainxR-savePic0750f7be9dsavePic6RCClipboard0850f7be9dcCClipboardGlobal object which replaces the intrinsic with enhanced information and options.ECClipFormat0950f7be9dCClipFormatAn element of the CClipFormats collection, which offers information about a specific format available on the Clipboard.CClipFormats0:50f7be9dWCClipFormatsCollection object that offers information about formats present on the system Clipboard.* Sheet10;50f7be9d Sheet1:-@0x`HSuppressBackgroundThread`SuppressExternalCodecs'`EncoderParameter`NumberOfValuesE'`ValueK`EncoderParameters` Parameterh`GdiplusStartupN`token `inputbuf` outputbuf&`GDIPlus`GdiplusShutdown`GdipCreateBitmapFromHBITMAPf`hbm%`hpal@`GdipDisposeImaget`Image`GdipSaveImageToFileY` clsidEncoderl` encoderParamsV`CLSIDFromStringz`id]`ole32`pict`quality8`tSI`lResD`lGDIPV`lBitmap\` tJpgEncoder`tParams`StrPtr6`VarPtrb` OpenClipboard`CloseClipboardby`GetClipboardOwnerX`SetClipboardViewerh`GetClipboardViewerO`ChangeClipboardChain=`hWndNext`SetClipboardData0/`wFormat5t`hMemʏ`GetClipboardData/`RegisterClipboardFormat`lpStringz`CountClipboardFormatsb`EnumClipboardFormats`GetClipboardFormatName8` nMaxCountI`EmptyClipboardZ`IsClipboardFormatAvailable`GetPriorityClipboardFormat`lpPriorityList?<`GetOpenClipboardWindowke` GlobalLockP`kernel32_` GlobalSize6` GlobalUnlockƅ` LocalAlloc`wFlags܋`wBytes` LocalLock` LocalUnlock ` CopyMemory&`pTo`uFrom`lSizeo`lstrlenAj`lstrlenW`CF_TEXTR` CF_BITMAP `CF_METAFILEPICT`CF_SYLK`CF_DIF֘`CF_TIFFTe` CF_OEMTEXT`CF_DIBҘ` CF_PALETTE` CF_PENDATA8`CF_RIFF`CF_WAVEV`CF_UNICODETEXT`CF_ENHMETAFILE`CF_HDROP` CF_LOCALE``CF_MAX`CF_OWNERDISPLAYY` CF_DSPTEXT` CF_DSPBITMAP`CF_DSPMETAFILEPICT`CF_DSPENHMETAFILE` LMEM_FIXEDp`m_Fmtsc` CClipFormatsnP`Formats`Refresh`Owner%`nFmt} `hDataCg`nRetL`GetPriorityFormatZ` GetFormat`Fmts`lpDatah0`PointerToStringA}`SetDatar`Buffer-`StrConvx'` vbNullCharY` vbFromUnicode0` lpStringA`nLene,` vbUnicode`PointerToStringW` lpStringW` CClipFormath` CollectionW`Itemz`NewEnumj`IUnknown[`_NewEnumxA`Present`GetName<`sFmt`Space `Fmt`Addr`Sheet1`Sheet2`Sheet3`Workbookk`c  W  $ @r O J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 1q Ob Li`braryKMSFor ms>SFrms$3D452EE1-E0D8F`A-8-02608C4D0BB4SFM20L'B &/;"1jIqAHq00}#0Bq# 50 BFB03BFB@-EBD5-9D-AB61-94276AEBCE476DOCUME~1\ADMINILOCALSTemp\Excel8.0cB8.exddU=#.E .`M AWord>Wgd@@I20900W8.3CK WORD.OLB0" 11.0J )tThiskbookGTuiLkbok*2` H1b%-",v"%"+@1G{|1D2F? 35# ( CMemoryDCG)Mm7yDC`2dC/S@heet5G*SŠ.et52G*Z2*2 *2*2/ `-6N@mainGbamain M2/ R-/'d!3esavePicGs v&P c -26CClipboardG @D"C ipcaZr`'26QGlobal owhich replaces the intrinsic with en@hancedfa! and opAs.Ha o` ap 0-(bjcx w=cP e Flaqs h tsUi naqdpqf3ato n`U1pin`E.@E녯%8 P b1ZatXG0lpfqa@2 s An element ofrs coLll@Ѕ, 3o ffers[bout a specip  available p!f$P Aee}etvoЊCc l,if@rQ^upa p0cf0c0 1via&1anpt!ep1M=Eiis?iXq$8xtha OBs pres2#n2#ө 9G9 qe*i5Y1pe$9sytNm:*9RRl{Wl{Vl1]l1f߁-:S`K*yrU~~~~~~~~~g f^1YH-zI[   ! AY     q   9 i i !!  VBAProject ThisWorkbook1 CMemoryDCSheet52mainsavePic CClipboard CClipFormat CClipFormatsSheet1Sheet2Sheet3F@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA I q0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel i @0FC:\WINDOWS\system32\stdole2.tlbstdole yPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice Y `.E .`M C:\WINDOWS\system32\FM20.DLLMSForms yyp;-Ea'jG7C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Excel8.0\MSForms.exdgdb Yy F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord a DoitGetTextSetTextk FSaveDataGetAge SavePhotoReportFileStatusAjust AjustCellFF !rU~~{ rcindstr  doc__SRP_1APROJECTwmPROJECTSummaryInformation(r0c0databirthnamepathfilespec ! DstLThisWorkbookThisWorkbookmainmainsavePicsavePicCClipboardCClipboardCClipFormatCClipFormatCClipFormatsCClipFormatsCMemoryDCCMemoryDC1{|12{|2Sheet5Sheet5Sheet1Sheet1ID="{504A5B75-1318-4091-8435-04CDF791C2CF}" Document=ThisWorkbook/&H00000000 Module=main Module=savePic Class=CClipboard Class=CClipFormat Class=CClipFormats Class=CMemoryDC Class=1 Class=2 Document=Sheet5/&H00000000 Document=Sheet1/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4745EFAA71B6BCBABCBABCBABCBA" DPB="8E8C26732AFD70FE70FE70" GC="D5D77D38837E847E8481" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=22, 29, 646, 473, Z main=-1, 83, 631, 535, C savePic=110, 145, 764, 513, C CClipboard=0, 0, 0, 0, C CClipFormat=0, 0, 0, 0, C CClipFormats=0, 0, 0, 0, C CMemoryDC=0, 0, 0, 0, C 1=0, 0, 1252, 547, C 2=22, 29, 1274, 576, C Sheet5=132, 174, 804, 622, Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C Oh+'0HP`t USER ľMicrosoft Excel@z @| @D!% ՜.+,D՜.+,$ PXl t|  MC SYSTEM' ֵ˲ŵǼDZ  8DocumentSummaryInformation8CompObjj@ _PID_HLINKSAhsmailto:ldxrcyj@163.com FMicrosoft Office Excel Biff8Excel.Sheet.89q