ࡱ> 21  !"#$%&'()*+,-./0e456c89:J<=>?@ABCDEFGHI7KLMNOPQRSTUVWXYZ[\]^_`abdfghjklmno|qrstuvwxyz{i}~Root Entry FԘ:3\s3@;Workbookp]_VBA_PROJECT_CUR"s3\sVBAsRs \pLenovo 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ʑ` >h7hN g8uS_ۏNMb{vhVVr^ TQ<"( rC'` +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 ,{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   7 wpf[S Sf[MO 7 'Y^^g8uSNNUSMONMb_ۏOo`h 7gqGr 7gsObՋ0Wp 7%f 7gsObՋ0Wp 7J !0ixE TT!c" cc||}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 .mailto:ldxrcyj@163.comG ! OqQRVXT-NqQZQXTvQ[c Sheet5bb  S][  dMbP?_*+% &LDN2&i4F?'i4F?(\.?)\.?MHP10204 4XXSDDMHP LaserJet 1020 -(d" dX `? `?U} } `}  }  }  }  } @   @ @ @ @ @ ?@ ?@ ?@ ?@ @ @ @ @ @ @ @ @ @ @ @     R>RRRRRRRR P PA AA A E S?T P PA A!A A" GUV P PA A A A IUV S TKL AaLUV P P P=P 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@@@@@@@@42(dRR>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 " xGetObjectA8&GetDesktopWindow(8GetDCr78ReleaseDC"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*0352275090\1(*\Rffff*0352275090\2(*\Rffff*0352275090\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 Reserved&4 http://www.mvps.org/vbF *********************************************************************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:  This may induce a memory leak  if not handled appropriately  outside this class!!!  A.khk`kX A@o@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 = Trueatioɲ$. B@sly fo*r0 = xlsht.Range("c2").End(xlDown).Row + 1 *  "  !%! 'F *' *.doc $~'$x_ Gxj**   !$%.ra B@ucture   +`+$&+ $&+$&+p He$&+$&+p$&+$& + +ְʱ` +ʱ +ʱles$& +0 $&+x$&+$&+$&+$&+$&+$&+$&+$&+$&+$&+$&+ $&+ $&+ $&+ $& +!+ְ"+ְ $&#+$&$+$&%+&+$&'+ $&(+$&)+$&*+$&++$&,+$&-+$&.+$&/+$&0+$&1+x$&2+$&3+$&4+$&5+$&6+`$&7+$&8+$&9+$&:+$&;+$&<+$&=+$&>+$&?+ $&@+ $&A+ $&B+ $&C+ $&D+ $&E+ $&F+ $&G+  $&H+ $&I+J+$ $(K+ K $    ,  % B@B  ' ~'@ B@* ɣA@,o]  . 0 2 %6%8!:!d'4 4$>$<'4 4 $>$<'4 4$@'4 4$B $>G 4 4 $'4j 4 $> $> $> $<'4 4'&i8 F . 0 2 H%6%8!:(do  N  L ,i R'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\ 'djC .jpg '' d < L-) xME P11<<$< $>$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\$GetClipboardOwner8HSetClipboardViewer8pGetClipboardViewer8ChangeClipboardChain***8**SetClipboardData8( GetClipboardData8PRegisterClipboardFormatA8<CountClipboardFormats8lEnumClipboardForm hl L)6GdiplusStartup8GdiplusShutdown\$GdipCreateBitmapFromHBITMAPHSGdipDisposeImagezdx GdipSaveImageToFileCLSIDFromStringxRRRRRRRRME P@d@@@<<<<dh0hHh`(xhh hhH((dH@%h`hlxh hj(%+  i@$&)`h$&%i`+$ i+0H iPipin+x i+0 iPip)%i+@ iFK)8% t55)@%ii 2  '4%``<`4 p>% '4 %@@O(*\Rffff*0752275090\0(*\Rffff*0752275090\1(*\Rffff*0752275090\2(*\Rffff*0752275090\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ʶ up &{557CF401-1A04-11D3-9A73-0000F81EF32E}$ A@*  ýtm (je !  Qualityus.  õQualityGUIDʶ&{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}$5dA@  T99l $9q ͼap    $  $' GDI+ͼh A@XkP GDI+ A@******k( ats<8GetClipboardFormatNameA8EmptyClipboard8(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 > *************************************************************own< 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  Ph$]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 Reservedpboard 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.> *************************************************************] ] ɲ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*)8OpenClipboard88CloseClipboard8\$GetClipboardOwner8HSetClipboardViewer8pGetClipboardViewer8ChangeClipboardChain***8**SetClipboardData8( GetClipboardData8PRegisterClipboardFormatA8<CountClipboardFormats8lEnumClipboardFormats<8GetClipboardFormatNameA8EmptyClipboard8(IsClipboardFormatAvailable8XGetPriorityClipboardFormat8DGetOpenClipboardWindowxMEtPSS S<< <<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}+`@ i<+$ +H +@ p i<8+ + i< ix+@ 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 Reserveding http://www.mvps.org/vb/> *************************************************************hb; 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.> ************************************************************* Clipboard Manager Functions`@@  Predefined Clipboard Formats]D ]DH ]D]Dp ]D]D0]D ]DX]D  ]D ]D ]D  ]D ]D]D]D ]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'L <KTWave'L >KT Unicode Text' @KTEnhanced Metafile (EMF)' BKTDropped Filelist' DKTLocale Identifier'LS($' ^  $'b b Unknown: ^X 'Ld  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 = GQGNz%|} pEڃN<Dʘ( ~4_H9C+f\T_mHGjNSVU Formatname TypeWidth Excel+` 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`Debugay *\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{2304B74C-0E74-4C63-B8BC-E6C4B7F32F97}#2.0#0#C:\DOCUME~1\hzdn\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 ) ThisWorkbook0152275090ThisWorkbookv-{|10252275090{|15-CMemoryDC0352275090CMemoryDC0C Sheet50452275090 Sheet5GH-{|20552275090{|2N`main0<5227510fmainxR- savePic0752275090savePic6RCClipboard0852275090cCClipboardGlobal object which replaces the intrinsic with enhanced information and options.ECClipFormat0952275090CClipFormatAn element of the CClipFormats collection, which offers information about a specific format available on the Clipboard.CClipFormats0:52275090WCClipFormatsCollection object that offers information about formats present on the system Clipboard.* Sheet10;52275090 Sheet1:-Hx0`S q EventCallback}`SuppressBackgroundThread`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`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 A2304B7f0E74-4C63-B8BC-E6CF32F976DOCUME~1\hzdn\@LOCALS@Temp\Exce0l8.0bB7.eUWfd@@CH20900W8.3CK WORD.OLB0" 11.02J"b )BbtThiskbookGT uiLkbAok2E` H1b%-",v""+@1G{|1D2FS? 35# ( CMemory DCGMm7yDC`2C/ aSheet5G*S.et52YG*2*2K *2*2/ 3`-6NmainGbamain 2/ R-/'!3 e!savePPicG"s v&P c 2e6!CClipboarTdG@DCiDpcarb'26QGlobal owhich replaces the intrinsic with enhancedfa݀ and opA`s.H o` ap 0-bjEcx w=cP e l!qs h tsij naqd[pqf3ato n`1pJin`E.@E녯% P b1ZatG0lp&qa@2 s An element ofrs coll , 3offers[bout a speci0  available 0!f$UP Aee@}etoCc l,if@rQ^upUa p0cf]0c0 1vi]a&anpt!ep1M=Eii~s?ѨiXq$8tha OBs pres2#n2# 9G9 1e*i5Yu1pe$9sytm:I*9Rl{Wl{Vl1]l1f߁:S`K*yrU~~~~~~~~~g -_TA ]   ! AY     q   9 i i     VBAProject ThisWorkbook1 CMemoryDCSheet52mainsavePic CClipboard CClipFormat CClipFormatsSheet1F@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA  A0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 9a@0FC:\WINDOWS\system32\stdole2.tlbstdole aPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice Ai`.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aapL#tcLķ/ 3C:\DOCUME~1\hzdn\LOCALS~1\Temp\Excel8.0\MSForms.exd Aai F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord a DoitGetTextSetTextk FSaveDataGetAge SavePhotoReportFileStatusAjust AjustCellFFgdb 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="37359F2B63D75DDB5DDB5DDB5DDB" DPB="2D2F85218D168E168E16" GC="23218B3F804080407F" [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`p USERLenovoMicrosoft Excel@z @| @s՜.+,D՜.+,$ PXl t|  MC SYSTEM ֵ˲ŵǼDZ  8DocumentSummaryInformation8CompObjj@ _PID_HLINKSAhsmailto:ldxrcyj@163.com FMicrosoft Office Excel Biff8Excel.Sheet.89q