邢唷> 21  !"#$%&'()*+,-./0e456c89:J<=>?@ABCDEFGHI7KLMNOPQRSTUVWXYZ[\]^_`abdfghjklmno|qrstuvwxyz{i}~Root Entry F 圣  る喕 3@;Workbook痋_VBA_PROJECT_CUR"% @簹% VBA% p%   \pN祄5u(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"錯";@ mmm/yyyy 00.0\1.00 00.00 yyyy\.mm 0.000% 0.000                                       P  P          a> , *   攆f   ` + )                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;`,- .梴/纇錱USCQ  ?鑜蕬` Z=h7h錗 梘8u縎_蹚篘Mb{v皨h垖VVr^钀 T孮<"s p>'` +Rl 蟚饄覻 T覻 T 7eQf[鰁魰 7誯N鰁魰 7 誯Nb!h 鹼蔛NN 7?e籰 b棇 7 錧 \O US MO 蔛 L  7鶴ut^g 7貧b閪 7f[ 哠 臽 礠 7 禰 璣 ;N 亯 b XT 7鶴u 錯g 76r睳 7蚹睳 7 烻7bM| @b(W0W 7 ;N頞 z蔛vQb閪孴VY盧臽礠 7   7   7 /f&TNh 7&w ^ 縎/:S G/W圫 Qgo\ /E\l訷 7 T鹼筫_ 75uP[異眥 7梘8u縎婲NUSMO篘Mb_蹚酧o`h 7  g鄀M憊P b鵞a 7/f &T g蜰RM 7 皊 gL饄 蔛+R 7 ,{Nf[哠 蔛f[MO 7 皊 gf[哠 蔛f[MO 7 Y韹蛓{| 蔛I{ 7 @b(Wb!hbUSMO蔛L 7 eP穅秗礠 7 耂燫錧 \O鰁魰 7?e 籰 b 寣 7 aT梊MO 7 gbL N D yO瀃鯈臽礠 7 珟齆翄鱏 7*** 77u 71986.07 7Il 7-NqQZQXT 7eP穅 7/f 7ldxrcyj@163.com 7'Yf[誰f[f[隭f[MO 72011.07 72007.09 7 T梘'Yf[誰f[NN 7 f[uOr^钀 7鄀 7***錧\O篘XT 7$ T梘w ~g恘^ vbYO縎/:S 穇軃G/W圫 **Qgo\ /E\l訷 7駛韹踁 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_ ;_ *蘈-#,#}A} 00_ ;_ *蘈-#,#}A} 00_ ;_ *蘈-#,#}A} 00_ ;_ *蘈-#,#}A} 00_ ;_ *蘈-#,#}A} 00_ ;_ *蘈 -#,#}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}: 渆00_ ;_ *霚-#,#}}; ???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 蘈柑 %O#40% - :_寚eW[湗r 2 蘈婀 %O'40% - :_寚eW[湗r 3 蘈卒 %O+40% - :_寚eW[湗r 4 蘈汤 %O/40% - :_寚eW[湗r 5 蘈遁 %O340% - :_寚eW[湗r 6  蘈 %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 %~vR詋+h槝 I}%=h槝 1 I}%O伣=h槝 2 I}%?ɡ=h槝 3 I}%23暢/h槝 4 I}%5頬 俏 %8^膲5}Y 骑 a%GGl;` %O伣O伣'^ '^[0]o梴 蝌 鷠% u纇錱USCQl>\r<l44d004>@#           7猩陏寕K ldxrcyj@163.com嗌陏寕K Fmailto:ldxrcyj@163.comyX侓;H,俔膮'cカG ! OqQR椻VXT-NqQZQXTvQ僛c Sheet5bb   鬜淶  d褚MbP?_*+% &LD桍N2&i4岶ａ?'i4岶ａ?(篭.椝邂?)篭.椝邂?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 !OqQR椻VXT-NqQZQXTvQ僛 Sheet1bb2 ThisWorkbook{|1CMemoryDC ;VSheet5  !"#$%&'()*+,-./123456789:;<=>?@ABDEGHIJKLMNOQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~')齰#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}@(%H@0棱Ox鞍Attribute VB_Name = "ThisWorkbook" 孊as0{00020P819-0C$0046} |GlobalSpac扚alse dCreatablPred恊claIdTru BExposeTemplateDeriv払ustomizD2')5xME (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}@(%H@0棱OxAttribute VB_Name = "类1" 蠦ash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@Global維pac扚alse 菴reatablPrede萩laIdC@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>r轈)龝"CreateCompatibleDC"<CreateCompatibleBitmap"h(SelectObject"TDeleteObject"xGetObjectA8GetDesktopWindow8GetDC8ReleaseDC"4DeleteDC"T GetPixel "t@SetPixelsel"`BitBlt8GetSysColorl,OleCreatePictureIndirectxRRRRRH RME( $SS S@`@ d` i<i +@  i +B@@ i `i僁i僃+H`` i i僁 i僃@i僇+L i僋i僁i僃i& i(@i働`i僐i僒i僔+X  i僙+\ `,, )僞 %)僢%i僨)僪%nhp(hr@htXhvphxhzh|`H  h~hl h h0 hd` hx h h (    %b bP b b悮C`剼C 0 `劄`劆 p  A i儴 劒 %,!P 0 i凗 A i兗,! i凗 伨 P )兝p % つ  %,! ++%)凗 % 勀  %`劏 刕X % 刪x% 勅%@斒L`斕C Axi円0i冊P)冎p$%,!(i円i冊$%)凗  $% Ah i兗 ,! i凗  AH(i兗,!i凗 ,! i凗 ,!phHi凗 ,!i凗 ,!(i凗 ,!hi凗 ,!i凗 ,( i冧Hi凗 @旀L !!`劄`劆 0i儴xP%" bb b( bx x0 ( HH   P `(P p h( `x    %% PH x PJH棱O(*\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} |Global蔛pa俢扚alse dCreatablPredecl2aIdCExposeTemplateDerivCusto坢iz E' *A ' Copyright 1997-2001 Karl E. Peterson, All Rs ReserYhttp://www.mvps.org/v哹 GQYou @Z free to uthis code win your own applications, 晛*expressly forbiddenom sell ing o@therwi@dis飪s@嶧out pri@爓ritt@cpent. A@ h OpA4 旲7it Win32 API DBaD=Struct倁@:, andynstants  P泙 e FuncB偧eCo mp@@綝C Lib "gdi32" (ByVal hAs L`ong) (B itmap, 乧 nWidth qHei罸FSelectObj繝 D #olepro32.dll" (pic9刢,爕fIID1PGUIDEfOpwnsH郹P峍Iqc&f鬦H eader0cfi ni裝7/Type BITMAP bm$奬4 BytesA QfPlanCIntege鰎t sS/W﨓PF 乻5p Size" 爃Imag;D牏1Zpysr 黣 Qr/&I 岮3M4(7S' 碽varia8m_b蝝.m_8S輅BU ·oP*an]T餰 m_!!TermKill""*5釛鞄Ct SRCCOPCVU&HCC新0=髷* Iya1al貉12梐 i|na!\*7Sub Cla坰s_e()#im h0tScn;(qDCm2'!}D d3} DCS滱蟚P!荄C @==畝D"淐( $= (cc Clea恘-upCaq躯u,a J羳1x1 b姚駮&= 1&3PE`獋B'┼fault, kダ' t d4° at eS m_3+= Tr噫1AP镠G'` up 0絀馇s!RIf@4hq7The@7 '` Yank笸m_怍y(b,显:On鹨"troyEif 纍ot on @莚p恿賠 p*0項糙& Nm_臖 G ' Destroy created bitmap, unless  'H in╱c攏ot to. WARNING: NThis may`duce a memory lHeak Ihandl{app ropri坙y (outside tZclass!!!!If m_TermKills Then!肅all雔eteObject(m_hBmp)End If'#DC!DC!Sub 0 ' *0 Public P佮ertie镜& %y Let hB(ByValmp As LongADim bBITMAPBB' Make sure we havAuvali尷羛, or else rai1@erry b0ail.@lGeRt纀(ha,@(n(@), )Jp耚pUser0 ,EB@xErr.RNumber:8=vb儂@+ 01, _E Source:="C偋DC.凥" 萩riptio2n@ In=."烞E埩膐 蚢;<芶)卂B =38 聇ei坓ht則NewAv um_H鵅TRec~* b L% m_ 8.bm C? S燫Pict徖JG!#Stdd1c=' CB斃塼e`mpora 夾抋阯`宱鉽'(a乂/blt f榬omcO!]dc 蚡" ?B#dcC&9a.H斺' Redimens`BCDC atc>h (/a b$m_郬idth BOr2繲' 4B} `VC儝,l 0B ,燡2, DCSRC0COPY`,Wt $2(@'4b*+*!Z-p潃Ua 鸄lI aCID_IDispC,!GUIDCo` PICTYXPE_脳,1S竉OKaA@0B?K0-K!J 醁I= 覫莄c e?烜d4B 霖in`#b賭:mapFa'厺&Bto闍, 0grab瘫A痳ey里se僑侻" h亏 #I"Bb=%梥 Ro饅ngB1B' F饄p wi0Inter靎a<W亐.Data1&H2040suP4(0)C}7鵶46r.!B7 '鄅 儙S ne哻悙袴part# +SizeLen(`) %'gofd汔NvTypq+|' P0 f0.鄅ImagQ5' 揓b襼漊0Ipate (釠be 餹ull鉝g3p摂re n魽 o2朿~Ole砙 I0ndir1槧, IY, True@R;闇%d!BR 睕qx5晝PixelColDorTgRow旳,~ 銘-=BqOLE_COLOR?4 XP, @heckSyjs(u) b(爕 1w    m 线迡囘Iapd 阳嘊oo繤n &>'V炉悲b ' 0 You捘Q聎abnA de9 latE燚mT眣some cases,喃ch as w辛 p0膇碔訙q3clipboard. However, i鑖 ys饖葏浹蕫簓a釿, 慥0don'喽le @永erse鑜f,BwQ熞笸'OO抜/猼 / b%t_bjh%$Qz#i+%7琩>∝ t  !2瀚 煙熭戄 (艾纃-onlyP吲袯爘訖  pG 2ertyPublic Prop Get bmType() As Lon g P = m_bmp.宍 Endx濿idthByte>s W#]PlanYInteg|erX#TBitsPerPi鴛elZ -0 ?1 垇 (%' B*0 ' 詉vate Met0hodsPrFunction CheckSysColor(繠yVal K揅onst High<@<&H80耼' If h bit set, str爄p, a漡system c}. @ DT鴋enB笔)阑SF-GNo')BExlse C IfClEF臘KSub Recre繾=map(Dim hWndScn 萋DC'ady to C儊I yet?B Cm_傆 <= 0 Or颒e@T鎡 #Ex,"/&'鈧cu恟ren鄡it out of memory DC&0m_hBmp .all Sel@ectObj(1DC,aTm唒!' De<oy existing, if necessary 4m_UXser CaD鵣teg& vC4w*燨 a$into#, us des0ktop"A3insurCG' we 罺full-俈 rather than monvoEA=.! W爄ndow銭hcB9C(/= #Compati鴅le$Nc!/BCcB2c6c",R!"aseD, GC c$Upd弍闾ies, es衟eci4y亄flag soA%know #is 袬our0!"Bw ;AI:, Le鰊`犛)BD= Fay=b]hsI俒$樷Xむ?a&aB^ 縙侌Z^ 鯹0\ache 駩'dles'#qb 锎 S 01XuMi/$縼7?B  uA$track6v衋ria-sN棅 鮌B0B'PJt _(_(%Trup>%')G#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0棱OxòAttribute VB_Name = "She@et5" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2{|2 0main p9__SRP_2 C__SRP_3FZ )齆xME (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}x h@%@@p棱O " oph诎Attribute VB_Name = "类2" 蠦ash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@Global維pac扚alse 菴reatablPrede萩laIdC@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 @歛tion Sub D oit()/i,@ j, r0 f癷lenwSngDataPathW Buf(75) xls ht╧she俥hoto' = Thisnkbook.p<+ "\pic\ F=峱utBox("请输入文档存储目录：", " 路綛秮c:\dd\""}If #""9en Exit@ Sub Left(, 1) <>BRPSet眂伱= CreateObject("傌葋"'docapp.Visib耹羴TruejCQ= CPs("干部名册.Activ@'r0@捗Range("c2").End(xlDown).Row + 1 H Cells.Fi What:="*@M_ SearchDir1:=xlPrevious, HOrdeRrABysH p j&= @FX@$"*.繠5Do俙 奾AY劽o乕坡s.O鴓enE~ M羙A盄x= - :2#j継2)-@."劄3GetText(1, 2亣 4@嗽= 46@ E 7 , 6853n9l10-'现职蔴奔淝1$a贝d$ '政齨%m%,~1%@ & @1=:*&@J&5, @ 2b"5@"b#7+62#沩 8, 譆93レ 3103  3 K拟葼沃拔駠N3侰賑免l #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﹪《= Sa渧e2#, &碅`>For i`1@ To 75Q V c(悷+笨i+iN@ i昧扖los皎釠j憄 Loop怮C楺uip綧sg "既胪瓿桑○揁ㄣ FuRnP玱nv恟谅L纎ng, c楔+* D裻e^m椅U蓂2=匆.$Ta@祍().箲(r惄北.DReplace(, Chr(7)`1┄_p撫oTrimP罖臨ight#!1` Th鹎D捛L`瑧)P1{O锬t3 + p 玺 ! E蚡 0"璼tC噌#p籄蛲OM` @S  ".*!+4"0G Q菅 d.0 Month+`Then A- 1T2< 0 A > 150 0"蜧et翧= ""Trim(st "\"耊 1;@|+ = CB .jpg_i% 0 Wh) Not ReportFStatu鈙 + 墎s=i亖P_"S羗i)" W en凬8dmtnew.InlineShapes.郈ount犐懶 (1).SelectC3DocApNp酪pyE鴏se/#[E絓et 丵= 罫.繾纔acbs \JPG僙1 +E/CCl纜鯯 TF1rr.Raise 5, , "不能这个 ：" &徛I"*Sub1%+  i儴@)儶`h%i儸H 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 i兇Pi兌pi僴+x i兒+0 i兒Pip)兙%i兝+@ i僃)兡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  得到Quality参数的GUID标识&{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 SLB怋@ LB怐 LB怘HLB怢 LB怤pLB怰L0@凴L`凾@  %    ,!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(##i儸0%)凗P %`刕`刞 勀%`刡 ,f@ i儸 i凗  ^Returns a value indicating whether an item on the Clipboard object matches a specified format.,d##? 僗 (  i凗 刪x``匉`刕,&0 i凗 0Returns a text string from the Clipboard object.`刕`刞`刯,n "")兗%i儸@i凗  勀x%`刞`刡 ,D0 i兗i凗  WPuts a text string on the Clipboard object using the specified Clipboard object format.`刞`刯 刾,l8i儀Xi凗 刾`剒,~(i儉Hi凗 刾`剒%B&0LB( LB,( LB2x LB6 LB< LB怈 LB怓h LB怞 LB怭 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 凚as0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobal蘏pac扚alse dCreatablPredecdlaIdCE xposeTemplateDerivCustomizEDescription渻o object which re5ces t he in穘sic with @enhanc@i@nforma#a恘d o)s.' *9 ' Copyright 1999-2001 Karl E. Peterson, All R s `ReserFhttp://www.mvps.o纑g/vb/&Author grants royalty-free ,No u漷his co$de翹in&compil@PapplicaAPs. Selling Eo繻rwid|is@_籃Bs8ournot allow羑ou('s expresspermiss@~.W//O尟11Del甇９rDgdi A82莊inP¨M#C8Const CF_TEXT1WBIT(MAP2_METAFILEPIC3/_SYLK4_DI F5_TIF叀6_OEM V7 B 8_PALETTE9_PENDA$TA10_R1F_WAVQ1F_UNI0CODEF_8ENHUF_PHDRO1Fp_LOC Fp_MAX_ _OWNERDISPLAYP&H8量F_DSP F" ""o pE雅$d偡 Const LMEM_FIXED = &H0 ' Private variables Hm_Fmts As CClip繤ormat>l*,3 Initialization and T鄀rmin3VSub Class_ee() Set 別= New gEC&匫%oth ing !' *,峆roperti伩1!Public#y Gy()弍Att0ribu纝 .VB_Descrip耭= "Returns collecBof i nf聛pbout s present @vthe system纃ipboard."c' Expo0se "Ab亐Improved!" enumeraibj@. Co.鑂efhu.ob凴yt怑O恮nerELoAoC楤windo坵 h-le @Cs僚B7 oA8肗  2' Useful(?) if繹nf纑@辭cc黸rC@B&:纔粮仧I=鯛%Met鴋od鄚-]`嘽Fun#FClea-Boon 熺--燜s 酘Pcont繨s-a#trol or?朙" @桪4f allB . (Same$0behavi as sFt; V VB荳 o鉗C奍f OpenF1(0&) xThe嶡= C(Empt瀥CCl燼鏵9If%)╕+AData(O乥val ByV胋亊醄FCF_B ITMAP"丼t0dPic`{cDixm n藉"ha dcACMe@moryDCn烜^!<Se Ca`~#@f' Check! desi鴕ed僡@@`= Me. 穙Prity# ( ,b @DSPIB&0-1=None requ俥鄺d, 0=7侨?b> 0j> -@'b疓刢鍻bi餿mapI>I`鸆1= 艵?4#F c裶 to credis5n@V!  -cS乆@!攗z!僫dc.hB2?0)BHPFwKills&Fals3+!0- 舺 7l *酟 upC=/;> 2E' To be implem餕ed...@ :-(!?6廋詠塁2Cng縍Bv<譠 S["?%聜au` ndic|ng wheer酁 i侓 6,擴 昆ches a speci黤iW?cA0r乤6: 碅 ivail鸻"'祱68D_颺$O_t.5:L_琁sv A (弅bV+Tru.-!恔痓 Uq痓nAC,RParam@Array s()AcA`拦掻 aiQ犅F曚B,a峮ot鄐 wer(V3G@UBoundts) <鬠t  0Trans6f%[bsP猵Na 皀on-偼`゛櫝Re \o 砙 isFWP' Do廵眳vhers辣,慥:sa cp @Coul d err宺ap, `竴奱t'纃 meanA嬧 )us w@塧 hp俽,R觲e wqn't wa nt`insinu^*that *,P? i) CLng(儠(i)) Next iGB@Hry 苙鱜eソ.0_憏c'倉P se0 hi腸h;hig@纍 listV%俹5,L6( 0),墻mt$+ 1&?Yd" iV 苲mp1dal恟dyaW1 蘠y`cer r 衖僫n s冟衞cess釔anywp7kLcg`陴Nuc1 鹜ultip]NoXc慺"w恛rth1Rhoetor嫸mat(Fmts(0), UBoundx) + 1) E`nd If(' Return results(GetPrior@ityFor H= n |Function Public $ 9Text() As String ABtbute.VB_Descr,ipH]"卻 Ha t? s: from the Clipboard object."VUser燤emId*0f楧im^丠Lo丟 hData lp #' Check for desired.亸9Me.帪(CF_TEX圱, OEM8DSP兲2-1 =None莙uested, 0@=EmptyIff> 0 The聙f' Gr,abOBMcEL, if availpable+ OpenV(0&)wJCH=乵 AG(;C-@ ' Slurp char@acters僴global me餸ory @?0`@Lo鴆k(  D泙]怭oinTo脺 A(C Call GUnl惹兠 Close咢?b@ 偾Se"tPByV繣Ne唚偸dPic怵e, O艀 D A:態ITMAP貰oole脕A礵cAZC``貮.DCb穄n鄋#BSel纋 C餫se #B'f' o class to disconn鄆mage#B膚" = ! 鱻 @.# &Hdc.TerminateKillsBitmap@`False(僋=9.h'ot緃"Ek ' To be impleme郟d...:-(_丅)A'@ we have聸鄅andl@&`,' atte)place 黲n+。i騢^{?= C?(雥#>, 鉵﹉遖√b繫ay ne坤丄罖檙oy dA甤@? L亐Aeq8Truf8l/D馺UteO肔匒/妮E\tB豋t≠kn'矍0跴ut挖81戁 us燦Bsp鄀cifi'3$呂郹'7{dTdC@Buffer髖B測ts`,ry&萻etsdonvd'%pronve rtANSI b arra痝`0[C0(s= & vbNulTlC纃,F@U@nicode(' Al\> en0ough4f b2 05?恉alb(LMEM_FI鳻EDv捰槖)w)1p,Peo(c'don D= @痩 V@iCop歽#[(s', c 潖 cb痬0 ' H`F$8ff c,p螦瞜靼_尣)66c廈dBUqi8' * ' p獀Q Metho>d喃OP瑀i鸅 顒E鋮!s褁?褸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" 圔as0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@Global蜸pac扚alse dCreatablPrede萩laIdC@ExposeTemplateDerivCus tomizEDescription仠An element of the 垾s c ollec, whichfe纑s inf#about a specific  availE5-襜oarDd.' *9 ' Copyright 1999-2001 Karl E. Pet@*on,@ All R s ReserPhttp://www.mvps.org/vb/&Author grants royalty-free ,s t坥 uhiZ燿e win&@compilza@pplica乣s. Selling o@Trwidis媚@B恠our琧o nohllow俵('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<ori冭h +@ i冹`i冾+ i冹+@ < i凈+l + i冹+  i冹@i凈`i凕+ +  i冹+`D ii2+t!! B*p LB.0LB0 LB4 LB8LB: LB>LB怋 LB怐8LB怘`LB怢LB怤L"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.@刡 `剴 Z 剸 %`刕  %B&H LB(LB,LB2XLB6LB<LB怈LB怓HLB怞pLB怭LX( x P p 0 Hp ` @ `8H  x @ ( x  G棱O  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" 孊as0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac扚alse dCreatablPred恊claId眮CExposeTemplate DerivCu@stomizEDescription漮llecobj that offer`s inf偑a 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@焧his co燿e win&@compil@ra@pplica乣s. Selling other膚idisC紷Bsour@not all\owAka('Ps exlsp@ermiss纓.;`.any "X t+6Dim n鰼Cs凩E:`ransl a c鬿n!4tI e0c1Se乪 CaseX ")CF_TxEXTe燯T  (TXT)鉻(BITMAPpBitmap (BMPMETAFILEPIC 榓fi(WMBFSYLK0Microsoft@ Symbo!`ink (DIFData Intercha恘ge CP (oTIFTag~g`ke o OlEM/  A0/DIBQevice﹢de鄋dq 1PALETTE0 PalettePENDATbA1en A(NRG3%nWAVWavOUNICODE4'Unico膁e'ENH錚0碋n?c8嘠E慟PHDRO馹D@lp呧Flist^LOC"Lo瞔p Ia]rxElspP8 4:Space(256諵盌`U`KG#(bO 罷, , Le|n(荱怺0_ [ "鋩: " & C怞SZ  Left$齬,rO E\揔BTX!o^蠐繑崧揊rie`樴蠐C** 4S@ub Ref饌h(3 羂碶Cc _艅慾@'s eH幟峜尃_`尠サ6'l` 莶慹#俇卌濠蟑z瑉Dor u1 =釤 m 3 =v 眩,(sn"&T頷穪SP.!7Xn|Me.!D烝dd: 0,*0 d 褍 Loop Wh裑瘒d2 3U+"+ubq1Sheet1w_VBA_PROJECT &dir__SRP_0 xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0棱OxòAttribute VB_Name = "She@et1" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2倍0* pHd VBAProje坈t4@j = k刔{?遒N沥-Y峺稐O㏒潽a杧慩韂 (*7?L撈`H0汍鋴驨 j6I?鲷/l哷HK*瑥K/陈雸肏ㄙN碕奨鋪絙A3{ho厣KyL*@Y ={漉 貮爋歊~T:塸疧!蹵:[6(曔Eb 咖k烌澗\閫PU躒U Formatname TypeWidthExcel+`VBA麾`Win16羱`Win32`Mac巢`VBA6#` VBAProject究`stdole揱`Officeu`MSFormsC`Word祂` ThisWorkbook|鉦 _Evaluate賎类1ur` CMemoryDC芛`CreateCompatibleDC介`hDCe榒gdi32i鸴CreateCompatibleBitmap-`nWidth痰`nHeight蹴` SelectObjects^`hObject` DeleteObjectT`GetObj`nCount斴`lpObject鷃GetDesktopWindow坂`user32*蝋GetDC`hWnd/羆 ReleaseDC椨`DeleteDCy`GetPixel運`Xo`Yl`SetPixel紼`crColor0礰BitBltL痐hDestDC`hSrcDC=c`xSrcT `ySrcz籤dwRop鋉` GetSysColor`nIndex'`OleCreatePictureIndirect:哷pic婷`PictDesct豟RefIID(`GUID鮜fPictureOwnsHandle,`IPic齟`IPicture` olepro32.dll@`BITMAP勮`bmType鉢`bmWidth`bmHeight ╜ bmWidthBytes`bmPlanes霣` 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`SRCCOPY蒻`Class_Initializen`hWndScn1`hDCScn闁`RecreateBitmap璥Class_TerminateP閌hBitmap谯`hBmp"V`bmp﹜` UserBitmap``Erro奰Raise鬬Number-` vbObjectError 漙SourceG禶 Description `height|媊NewValpl`Picture*`NewPict蘞 StdPicture 蔪dc靄`Handle` IID_IDispatch]z`PICTYPE_BITMAPeV`S_OK膐`TerminateKillsBitmap屗` PixelColorL躟Row壪`ColH`NewColor饄` 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餪What酑`SearchDirectionr卄 xlPrevious ` SearchOrder`xlByRows` Documents`GetText鯼 SavePhoto<_`Quit9甡MsgBox桼`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`Ajust箆` AjustCell壶`Dst=卄wChar$縛Lines何` NoOfLines寇`FontU`gdb 揱lastroww刞savePic驩`GdiplusStartupInput魕`GdiplusVersion垭`DebugEventCallback}`蘟y *\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 忇.`孧 *\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-CMemoryDC0350f7be9dCMemoryDC晫0銫 Sheet50450f7be9d Sheet5癎H-{|20550f7be9d{|2N`main0>50f7bfd2main坳xR-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'`Value銴`EncoderParameters` Parameterh坄GdiplusStartupN`token 餪inputbuf` outputbuf&`GDIPlus尐`GdiplusShutdown练`GdipCreateBitmapFromHBITMAP說`hbm%榒hpal@焋GdipDisposeImaget甡Image阘GdipSaveImageToFileY莁 clsidEncoderl` encoderParamsV燻CLSIDFromStringz馺id`ole32牏`pict懅`quality8鈆tSI纶`lResD羆lGDIPV`lBitmap\薫 tJpgEncoderサ`tParams仦`StrPtr6`VarPtrb OpenClipboard`CloseClipboardby`GetClipboardOwnerX胉SetClipboardViewer磆`GetClipboardViewerO`ChangeClipboardChain=馺hWndNext粶`SetClipboardData0/`wFormat5t`hMem蕪`GetClipboardData/`RegisterClipboardFormat籤lpStringz踐CountClipboardFormats焍`EnumClipboardFormats砢GetClipboardFormatName8璥 nMaxCountI甡EmptyClipboardZ╜IsClipboardFormatAvailable垼`GetPriorityClipboardFormat兑`lpPriorityList?<`GetOpenClipboardWindowke` GlobalLockP隸kernel32_ GlobalSize6` GlobalUnlock茀` LocalAlloc衊wFlags軏`wBytes儨` LocalLock` LocalUnlock 瀈 CopyMemory&`pTo壟`uFrom`lSize`lstrlenAj蝋lstrlenW蝋CF_TEXT楻` 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_OWNERDISPLAY鯵` CF_DSPTEXT` CF_DSPBITMAP楊`CF_DSPMETAFILEPICT蚊`CF_DSPENHMETAFILE` LMEM_FIXED鷓`m_Fmtsc焋 CClipFormatsnP`Formats鲲`Refresh`Owner%巂nFmt} `hDataCg`nRet丩`GetPriorityFormat擹` GetFormat鸱`Fmts`lpDatah0`PointerToStringA}羆SetData皉`Buffer-薫StrConvx'` vbNullChar赮` vbFromUnicode0綻 lpStringA犃`nLene,` vbUnicode`PointerToStringW捔` lpStringW盗` CClipFormat抙` Collection閃`Item讂`NewEnum蘪`IUnknown[坄_NewEnumxA`Present蕊`GetName<`sFmt阘Space 頯Fmt廯Add鱮`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`僂OffDic凟Ofic侲瀫攢丒2DF8D04C-5BFA-101B-BDE5E訟AC42圗gram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#僊 1q Ob伭 Li`braryKMSFor ms>SFms$3452EE1-E0D8F`A-8-02608C4D0BB4SFM20L'B &/;"1僯IqAHq00}#0Bq# 50█ 娎BFB03BFB@-EBD5-9D-AB61-94276AEBCE476DOCUME~1\ADMINILOCALSTemp\Excel8.0纁酈8.exd萪U=#.E 忇.`孧 碅侣Word>W俫d@扏埨腎2090仈0W8.3CK槏 昗ORD.OLB0" 11.0睯 )鈚ThiskbookGT爑iLkbok*2` H1b%-",v"%"+@缊1G{|1滵2F? 35# ( CMemoryDCG)M僲7y谼C`2d銫/晫幞S@heet5G*S艩.et52癎*Z2*2 *2*2/ 璥-6N堮丂mainGbamain M2/ R-/'踕!3e、savePicGⅱ猻 v&P c -26″CClipb爋ardG @D"C 踚paZr`怅'26QGlobal o纖hich replaces the intrinsic with en@hancedf胊! and opAs.Ha o` ap 0-(bjc鄕 獁=cP e Flaqs h祼 tsUi na劾qdpqf3a猼o n`U1pin`E.聾E雲%8 P b1ZatXG0lp說qa@2 s An element ofrs coLll@捫, 3o ffers[bout a specip  available 痯!f$頟 A猠e}etvo袏Cc l,i灞f@r璔^upa p0阠f0c0 1陃ia&1瀉阯pt!ep1骜繫=E骾黧is?骾Xq$8xtha OBs pres2#n2#跤 把9逩9 q猠*痠5Y1pe$9sytNm:*9锄R縍l{Wl珌{Vl1]l1縡邅-:S`揔*yrU~~~~~~~~~g f^1焙軾H-zI创[   ! AY     q   9 i i !!  VBAProject ThisWorkbook类1 CMemoryDCSheet5类2mainsavePic 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续-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice Y `.E 忇.`孧 C:\WINDOWS\system32\FM20.DLLMSForms yyp;针-E玜'j胛G7C:\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 ! DstLThisWorkbookThisWorkbookmainmainsavePicsavePicCClipboardCClipboardCClipFormatCClipFormatCClipFormatsCClipFormatsCMemoryDCCMemoryDC类1{|1类2{|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 鄥燆鵒h珣+'迟0HP`t USER 雨林木风Microsoft Excel@励込 @|信 嚿@D!% 胀諟.摋+,D胀諟.摋+,$ PXl t|  MC SYSTEM' 表样林甸县引进人才登记表 工作表 8DocumentSummaryInformation8CompObjj@ _PID_HLINKSAhsmailto:ldxrcyj@163.com FMicrosoft Office Excel 工作表Biff8Excel.Sheet.89瞦