邢唷>? J?|<$€#Frame2? ? Microsoft Forms 2.0 窗体Embedded Object?瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm浏览人员 Caption = "浏览人员" ClientHeight = 4455 ClientLeft = 45 ClientTop = 345 ClientWidth = 7740 StartUpPosition = 1 '所有者中心 TypeInfoVer = 65 End i18pxv n`粑浲`??????fdouwaCompObj_o 衫\pqq Ba= ThisWorkbook=i恸?8X@"1喕媅SO1喕媅SO1喕媅SO1喕媅SO1喕媅SO1喕媅SO1 喕媅SO1喕媅SO1喕媅SO1 喕媅SO1喕媅SO1 喕媅SO1h 喕褳SO1 喕媅SO1 喕媅SO1 喕媅SO1 喕媅SO1 喕媅SO1喕媅SO1喕媅SO1 喕媅SO1 喕褳SO1 喕媅SO"?#,##0;"?\-#,##0"?#,##0;[Red]"?\-#,##0"?#,##0.00;"?\-#,##0.00#"?#,##0.00;[Red]"?\-#,##0.007*2_ "?* #,##0_ ;_ "?* \-#,##0_ ;_ "?* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ "?* #,##0.00_ ;_ "?* \-#,##0.00_ ;_ "?* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)yyyy"t^"m"g";@? ? ? ? ? ? ? ? ? ? ? ? ? ? ?   ?  ? ,? *? +? )?    1 1|, 1|, 1| , 1|. 1|. 1<      x x x  x   P x  @ @       @ @ +  1 @ @  @ @ @ @ @ @  1@ @ 1@ @ @ @  1@ @  @ @  @ @  @ @  0 1< 1|Q+ 1m1:$燫eQZQ>m1鰁魰: 燫eQZQ>m2:$燫eQZQ>m2鰁魰:€{哠: eP穅秗礠:VY閌臽礠:l蟚: t^;:"t^€8h觺済:t^劅1:t^劅2:t^劅3:t^劅4:t^劅5:t^劅6:鵚瓔臽礠:"vQ諲烺齹 c當: . hQ錯6RYe瞼誯Nb?h蔛NN:$hQ錯6RYe瞼f[哠:$hQ錯6RYe瞼f[MO:"鸑皊+R鰁魰:  鸑皊L€鰁魰: ( >yO>NP?{孨u榶橆v:珟齆翄鱏:&焣塦NN gUON旡, @b(WUSMO╟Pt1u孴a翂: ╟P傷$╟P僓SMOT€鹼篘:( ╟P僓SMOT€鹼篘5u輯:╟P儃|+R:&孾b酧o`U_eQ c當:皊鸑+R: 皊鸑L€: '`+R:覻T:覻T1:覻T2:覻T3:覻T4:覻T5:覻T6: g; , (WL€Ye瞼誯Nb?h蔛NN:"(WL€Ye瞼f[哠:"(WL€Ye瞼f[MO:gqGr: ?e籰b棇?: ?e籰b棇?: ?e籰b棇?: ?e籰b棇?: ?e籰b棇?: ?e籰b棇?:"NN€b/gL€:( 膥莮╟P?{孨u榶橆v:* 鎉箯珗╟P兒N5uP[異眥:* 鎉箯珗╟P兒NT€鹼5u輯:鎉箯Y鑜:&鎉箯USMO╟Pt1u:( 鎉箯╟P僓SMOT€鹼篘:, 鎉箯╟P僓SMOT€鹼篘5u輯:" v覻 T'` +R鶴ut^g乗 l 蟚M| /鶴u0W eQ ZQ鰁 魰耂燫錧\O鰁魰eP穅秗礠NN€b/gL€ f[ 哠f[ MOhQ錯6RYe 瞼 誯Nb?h鹼蔛NN (W L€Ye 瞼皊鸑L€ 焣塦NN gUONUSCQyOsQ鹼,{Nu榶橆v 7覻T睳^\2 饄睳^\2 t^劅睳^\2  ?e籰b棇睳^\2 饄睳^\3 覻T睳^\3 t^劅睳^\3  ?e籰b棇睳^\3 饄睳^\4 覻T睳^\4 t^劅睳^\4  ?e籰b棇睳^\4 饄睳^\5 覻T睳^\5 t^劅睳^\5  ?e籰b棇睳^\5 饄睳^\6 覻T睳^\6 t^劅睳^\6  ?e籰b棇睳^\6 Y鑜 7'`+R 7'`+R 7Ll蟚 7LM|/ 7L鶴u0W 7L耂燫錧\O鰁魰 7LeP穅秗礠 7LNN€b/gL€ 7L 焣塦NN gUON 7L誯Nb?h蔛NN 7L皊鸑L€ 7L鸑皊L€鰁魰 7L燫eQZQ>m1 7 燫eQZQ>m1鰁魰 7 燫eQZQ>m2 7 hQ錯6RYe瞼f[哠 7 hQ錯6RYe瞼f[MO 7 (WL€Ye瞼f[哠 7 (WL€Ye瞼f[MO 7 7u 7 sY 7 g 7l蟚 7@ZQ>m 7t^ 7@01 702 71209 703 704 705 706 707 708 7ZS隭xvzu 7_Ux隭xvzu 7_Ux隭u韘 7_-N.YZQ!hxvzu 7_w訷ZQ!hxvzu 7@^訷ZQ!hxvzu 7@'Yf[ 7@-N.YZQ!h'Yf[ 7 w訷ZQ!h'Yf[ 7@^訷ZQ!h'Yf[ 7@'Yf[nf愴s 7 ,{孨f[隭f[MO韘 7@f[哠 耂€酧o`揯剉钀R   7鶴ut^g (乗) 7-NqQZQXT 7剺YZQXT 7li 7 l遶 7 l鷁 7 l蹚 7 淨錧 7 魜lQ 7 ]N N 7 餝遶 7 Il蟚檮銼蟚轛蟚蠀蟚魚>T\蟚讉蟚]_蟚頧蟚^漁蟚g湝蟚醤蟚桹蟚vt蟚萒<\蟚蟚螢蟚圥驪蟚dO蟚ru蟚貧q\蟚蒪\y蟚4l蟚硚壪eof嚇蟚飃\KQ\[蟚W蟚緩\蟚隢lO蟚蟚^g蟚抎蒪蟚踜WS蟚酦lO蟚!?O蟚? f蟚nfs|蟚TX TKQ蟚`蟚LN\[+RKQ蟚腛W痚蟚?nKQ蟚穇f蟚軴塠蟚請鶹蟚琋蟚TXTX\蟚靣櫉蟚?O%f蟚k嶒T蟚钑鬩蟚辳鬩蟚鶺鷭蟚VY閌臽礠 7鵚瓔臽礠 7?e籰b棇 7饄覻Tt^劅錧\OUSMO蔛L€ ;N亯禰璣bXT 蔛>yOsQ鹼 7@b(WUSMO╟Pt1u孴a翂  c愬w亯BlkX橯  7 珗╟P兒N 5uP[異眥 7╟P僓SMO T€鹼篘 7qQR椻VXT 7\HQ朮T 7O 7€L€MO 701 YeYY02 S琋貧!hr^钀鵚瓔錧\O濺lQ;N鸑ckY 03 ^D崱{t濺lQ;N鸑ckY  04 f[MRYe瞼YoRY05 褃f[€b/gNxvzu錧\OYoRY 06 f[!hT銻YoRY 07 YoRY08 S琋^篘l?e淾Ye瞼cw黐cw黐NYoRY09 :gsQZQ訷濺lQoR;N鸑10 :gsQ釼訷fN皨oRYL€ 11 S琋^Ye瞼€b/g緥Y-N胈;N鸑12 S琋^齎E朰e瞼Am-N胈oR;N鸑13 S琋Ye瞼鹼邁€r^钀;m≧-N胈oR;N鸑14 S琋^!h濺Nt-N胈oR;N鸑15 S琋Yef[iir鞻oR;N鸑16 S琋f[u;m≧t-N胈oR;N鸑 錧\OUSMO蔛L€睳^\1  錧\OUSMO蔛L€睳^\2  錧\OUSMO蔛L€睳^\3  錧\OUSMO蔛L€睳^\4  錧\OUSMO蔛L€睳^\5  錧\OUSMO蔛L€睳^\6 燫eQZQ>m1燫eQZQ>m1鰁魰燫eQZQ>m2燫eQZQ>m2鰁魰'`+RX[鶴ut^gX[l蟚X[M|/峏[鶴u0WX[eQZQ鰁魰X[耂燫錧\O鰁魰X[eP穅秗礠X[hQ錯6RYe瞼X[(WL€Ye瞼X[皊鸑L€X[鸑皊L€鰁魰X[鸑皊+R鰁魰X[t^€8h觺済X[饄?X[覻T1X[t^劅1X[?e籰b棇?X[ 錧\OUSMO蔛L€1X[饄?X[覻T2X[t^劅2X[?e籰b棇?X[ 錧\OUSMO蔛L€2X[饄?X[覻T3X[t^劅3X[?e籰b棇?X[ 錧\OUSMO蔛L€3X[饄?X[覻T4X[t^劅4X[?e籰b棇?X[ 錧\OUSMO蔛L€4X[饄?X[覻T5X[t^劅5X[?e籰b棇?X[ 錧\OUSMO蔛L€5X[饄?X[覻T6X[t^劅6X[?e籰b棇?X[ 錧\OUSMO蔛L€6X[╟P僓SMOT€鹼篘X[Y鑜X[gqGrX[燫eQZQ>m1X[燫eQZQ>m2X[覻TX[ 7t^€8h觺済 7t^€8h觺済 7USMO╟Pt1u 7USMO╟Pt1uX[ 7hQ錯6RYe瞼f[哠 7hQ錯6RYe瞼f[哠X[ 7hQ錯6RYe瞼f[MO 7hQ錯6RYe瞼f[MOX[ 7(WL€Ye瞼f[哠 7(WL€Ye瞼f[哠X[ 7(WL€Ye瞼f[MO 7(WL€Ye瞼f[MOX[ 7誯Nb?h蔛NN 7 hQ錯6RYe瞼誯Nb?h蔛NN 7hQ錯6RYe瞼誯Nb?h蔛NNX[ 7 (WL€Ye瞼誯Nb?h蔛NN 7 (WL€Ye瞼誯Nb?h蔛NNX[ 7焣塦NN gUON 7 焣塦NN gUON昘[ 7NN€b/gL€ 7NN€b/gL€X[ 7珟齆翄鱏 7珟齆翄鱏X[ 7€{哠€{哠X[ 7VY閌臽礠X[ 7鵚瓔臽礠鵚瓔臽礠X[ 7珗╟P兒NT€鹼5u輯 7 珗╟P兒NT€鹼5u輯X[ 7 ╟P僓SMOT€鹼篘5u輯 7 ╟P僓SMOT€鹼篘5u輯X[ 7珗╟P兒N5uP[異眥 珗╟P兒N5uP[異眥X[ 7鸑皊+R鰁魰皊鸑+R皊鸑+R 7ck@\ 7oR@\ 7ckY 7oRY 7ck褃 72L€XT 73L€XT 74L€XT 75L€XT 76L€XT 77L€XT 7皊鸑+RX[ 7€L€MO€L€MOX[ 7ID鱏 7hQ錯6RYe瞼 7(WL€Ye瞼 7饄睳^\1  7覻T睳^\1  7t^劅睳^\1  7 ?e籰b棇睳^\1  7gqGr 7╟P儃|+R 7鱏 7鱏X[ 7╟P儃|+R 71膥莮╟P 72>yO>NP 73*N篘陙P 7╟P儃|+RX[ 7╟P儃|+R* 7珟齆翄鱏* 7覻T* 7€L€MO* 7 Nb桿SCQyO>NP?{孨u榶橆v 7 *N篘陙P?{孨u榶橆v 75uP[異眥 7燫eQZQ>m1鰁魰X[ 7燫eQZQ>m2鰁魰X[ 7燫eQZQ>m2鰁魰 7Y鑜T€鹼5u輯 7 膥莮╟P?{孨u榶橆v >yO>NP?{孨u榶橆v *N篘陙P?{孨u榶橆v梺夢f剉顣槝,g篘~{W[╟P兒N覻<T N珗╟P兒NsQ鹼 7╟Pt1u 7Kb:g 7珗╟P兒N T€鹼5u輯Kb:g  7╟P兒N T€鹼5u輯 75uP[異眥 7 / 7 鎉箯珗╟P兒NT€鹼5u輯 7 鎉箯珗╟P兒N5uP[異眥 7 鎉箯╟P僓SMOT€鹼篘 7 鎉箯╟P僓SMOT€鹼篘5u輯 7鎉箯USMO╟Pt1u 7鎉箯Y鑜 7Lub?N鵞擽USCQ-D.>/?,0?l 1~1P?h2:?`?????~?r燏r啕= > ?4@LAcc 衫 UJ[V d褚MbP?_*+€%MHP LaserJet P1008飥 dXXHP LaserJet P1008 d'4@ @ dd" dXX??U} } @ } `}  } `} ` } `} @ } } @,} } } g@        H   N  O  ,h #V #W  X ~ ? ~ ? ~ ?  ~  ?  -b %^ %^ )] ~ @ ~ @ ~ @  ~  @  -c % % *` ~ @ ~ @ ~ @  ~  @  -d % &[ *a ~  @ ~ @ ~ @  ~  @  -e %_ %_ *U ~ $@ ~  @ ~  @  ~   @  -f % &\ *Y ~ (@ ~ "@ ~ "@  ~  "@  -g '5 (T *Z ~ ,@ ~ $@ ~ $@  ~  $@ $$ ~ 0@ ~ &@ ~ &@  ~  &@ $$+ ~ 2@ ~ (@ ~ (@ ~ (@ $$+  ~ 4@ ~ €E@ ~ €E@ ~ €E@ $$+ ~ 6@ ~ €F@ ~ €F@ ~ €F@ +  ~ 8@ ~ €G@ !I~ €G@ "K~ €G@  ~ 9@ ~ €H@ ~ €H@ "P~ €H@  ~ ;@ ~ €I@ "J~ €I@  "L~  €I@ ~ =@ 5~ €J@ 5~ €J@  "M~  €J@  ~ ?@ ~ €@@ ~ €A@ ~ €B@ l~ €C@. ~€€€zpppp&>@A @7 Sheet1 衫 h]莋 d褚MbP?_*+€% MHP LaserJet P1008飥 dXXHP LaserJet P1008 d'4@ @ dd" dXX??U} } `} `} :`} ;;@D} <<B} =} €R BSR BR BTI@I@IX@ 3            4  5         6 7 8 9  " ! # $  !% "& #' $( % &) '* (+ ), * +- ,. -/ .0 / 01 12 23 34 4 5 6 7 8 9 :5 ;C: <B = > ? @ A B C  D  E# F1 G; H<                                      ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ;C <B =Q > ?R @ A B  C  D! E0 F2 GB H= ih@@@"@&@*@.@1@3@5@7@:@<@>@@@A@B@C@D@@@@*@,@.@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@@@€@@A@€A@B@€B@C@€C@D@€D@E@F@G@H@I@J@K@C@; (>@A 7 Sheet2 衫 ;鷑唨磪 d褚MbP?_*+€%+MHP LaserJet P1008飥 dXXHP LaserJet P1008 d'4@ @ dd" dXX??cf蟄} €/}  /} /}  /} /} /} /} €/} /}  1}  /} 1}  /} `+1}  1}  /}  /}  /;H@+@+@+@+@+@+@+@+@ +@ +@ +@ @K@+@+@+@+@+@+@+@+@+@+@+@ @+@+@+@+@+@+@ .C Em FG Ak Aj 0G /6 1L /M 2e / /$ /N /K 1 1> 3F XXY 4 /I 1q /g 1Y /g /%~ /牉@ 5O 1 1? 6E7 678 9f: Ms /J 1r /h 1Z /h /&~ /@ 5P 1 1@ 688 698 6: 8N 1s /i 1_ / /'~ /@ 5S 1 1A 6;; 6=7 9> 8N 1t /j 1[ / /(~ /瑸@ 5T 1 6B8 6C; 6< 8N 1u /k 1\ / /)~ /盀@ 5U 1 6D8 6S; 6D ItI 1v /l 1] /i /*~ /礊@ 5V 1 6E8 <F7 6  MN 1w /m 1^ /j /+~ /笧@ 5W 1 6G8 <H7 6? OP 1x /n 1` /k /,~ /紴@ 5X 1 6@ NNNNNN 1y /o 1a /l /-~ /罏@ 5R 1 6A Qt RRRRS 1z /p 1b /m /. /臑@5$@ 1 6$ It II =" It I 1{ 1c /n // /葹@5&@ 1 9u JKKKKL 1| 1d /o~ /虨@ 5Q 1 6HHHHHH 1} /p~ /袨@ 1 6HHHHHH 1}~ /詾@ 1 6HHHHHH 1}~ /貫@ 1 T > > > > \\ 1~~ /転@ 1U8888VW 1~ /酁@U8888VW 1€~ /錇@U8888VW 1~ /铻@U8888VW 1~ /鞛@U8888VW 1~ /馂@U8888VW 1~ /魹@ ?^ NNN 9n NN 1~ /鵀@ @o NNN 9p NN 1~ /鼮@ 9qJZZZZ[ 1| 1d~ /烜 5Q 6rMNNNNN 1~ /烜 1~ /烜 1~ / 烜 1~ /烜 1~ /烜 1~ /烜DTlx\NN444444VV\@ +@!+@"+@#+@$+@%+@&+@'+@(+@)+@*+@++@,+@-+@.+@/+@0+@1+@2+@3+@4+@5+@6+@7+@8+@9+@:+@ 1~ /烜 !1~ !/ 烜 "1~ "/$烜 #1~ #/(烜 $1~ $/,烜 %1~ %/0烜 &1~ &/4烜 '1~ '/8烜 (1~ (/<烜 )1~ )/@烜 *1~ */D烜 +1~ +/H烜 ,1~ ,/L烜 -1~ -/P烜 .1~ ./T烜 /1~ //X烜 01~ 0/\烜 11~ 1/`烜 21~ 2/d烜 31~ 3/h烜 41~ 4/l烜 51~ 5/p烜 61~ 6/t烜 71~ 7/x烜~ 8/|烜~ 9/€烜~ :/劅@:>@<d A @       7] 鲖 愰b0筽鸔 諷坢 0 6qT蜰h圏h N蒪Fh-N 愰b0 % ] 鲖 愰b0筽鸔 諷坢 0 6qT蜰h圏h N蒪Fh-N 愰b0 %  ] 鲖 愰b0筽鸔 諷坢 0 6qT蜰h圏h N蒪Fh-N 愰b0 %7 ] 鲖 愰b0筽鸔 諷坢 0 6qT蜰h圏h N蒪Fh-N 愰b0 %  ? 鲖kX橯孾te0俌 誰f[f[隭 Nhh ? 鲖kX橯孾te0俌 誰f[ZS隭 Nhh _ 鲖孾tekX橯f[!h0b桘|0NN0俌 **'Yf[誰f[b栒l媉NN 0M wQSO0R^縎 0俌 q\?Y烻 0f[f[V 筽鸔 諷坢 0 6qT蜰h圏h N蒪Fh-N 愰b0 % i 鲖 愰b€L€MO0筽鸔 諷坢 0 6qT蜰h圏h N蒪Fh-N 愰bL€MO0 %G :y婳籝P[ sY?Q ?QP[ 6r睳 蚹睳Nhh ] 鲖 愰b0筽鸔 諷坢 0 6qT蜰h圏h N蒪Fh-N 愰b0 % % i 鲖 愰b╟P儃|+R0筽鸔 諷坢 0 6qT蜰h圏h N蒪Fh-N 愰bL€MO0 % Sheet4ggD ThisWorkbook+__SRP_c0__SRP_d BSheet1 ??? !"#$%&'()*+,?./0?2?456789:;<=>?@ABCDE?GHI?K?MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€\?#<~雤晜荗━ジ韦2F詄蕧~嘕斦"?Vx詄蕧~嘕斦"?V~雤晜荗━ジ韦2ME(SLSS?6"N0{00020819-0000-0000-C000-000000000046}€?(%(凗p %偁?? %pxH@TT N汷$*\Rffff*0Z4f9b33e84x鞍Attribute VB_Name = "ThisWorkbook" 孊as?{00020P819-0C$0046}|GlobalSpac扚alse dCreatablPred恊claIdTruBExposeTemplateDeriv払ustomizD2rU€€€ 0﹗.製?#4a.?`rU€€€ @nT?#<属'糛凚擇檣_l F?I砡I蛋穘敩x?I砡I蛋穘敩属'糛凚擇檣_lME(SLSS?6"N0{00020820-0000-0000-C000-000000000046}€?(%@凗h %偁?? %Xp@@HH N汷$*\Rffff*0_4f9b33ef4xòAttribute VB_Name = "She@et1" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom izD2rU€€€ @檞羨a4a)__SRP_18-__SRP_191BSheet2%I3__SRP_12*F`rU€€€ @nT?n #<荦(蔔笌拠> F塾酄M_g\呸]x塾酄M_g\呸]荦(蔔笌拠>?ME(SLSS?6"N0{00020820-0000-0000-C000-000000000046}€?(%@凗h %偁?? %Xp@@HH N汷$*\Rffff*0[4f9b33ec4xòAttribute VB_Name = "She@et2" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustom izD2rU€€€ Iwqwa4a)`rU€€€ @nL({C ?@8xME,__SRP_13)9JB:y婳!jWW L1__SRP_3cT__SRP_3d'g 6 <0<<j<<<<<< <$<(<4<8<<<€@?0% xP % tp %@( 凗 x t€x`|D8`旫@A b8`|  €x`@?  @?忐  (荥  烃 x件  x8羹  (@?  0p0橚  @?旫`xP?  08h  @?X  0 .`€@@x N汷$*\Rffff*0A4f9c105e" € € € .~€ 8€ 6rh€ HH€ € 8)0&0€ b€ *zp€ € @€ € € P@opxh]8X $jB@*   $'iant   $%%  ! $%%!N'.这个必须的，因为有部分名称并没有列在界面表中。8 +j$虽然是""但我认为这也还是有“内容”的 !N$%!( +j 2),&[不知道为什么用Range(mingcheng).ClearContents不能删除合并单元格中的数据，因此结合用了一个=""3p&N€€浔Attribute VB_Name = "示？? Sub 8() Dim rngcun As€ Range, 發uru"PiSheets(2@).Cell, Columns.Count).End(xlTo8Lef=On Error Resu扤ext '这个必须的，襾????????????为有部分名称并没有列在界面表中。GFBEach?In P€3ize(1, i - 1€u  mi€vheng€g丷(儈, L鬳n)倠 ()€"" '虽然是""但我认为这也还是有“内容”的.ClearContents '恢牢`裁从脥8 荒苌境喜⒌ピ裰械氖ご私岷用了一个积"}??峅4纼€t乿).Val|ue_繭羗纘 拋 rU€€€€~| =<krU€€€ <$<`?nrU€€€€~|  ? "$&( "$&(*馝? i,| " x$xx    l  l  l    l  l o_Wh=XA8(H麥(%_W=A棹(麥佝%_W>坅0ubTh圎` z廭bUSh?jWW ^Fh6__SRP_1et__SRP_1f0r$R璭Gr/f&TX[(W!jWW. F'这里和梢槐恚ㄒ磺鹗嵌嗔恕敖ord牡怠闭庖灮8 H—第二页的0表格`是逆过来做€的 Appation.Sc€reenUpdngxFalse%( 页€面设置2!插入1并合并单訦駣给乨赋值2 亙?填充竴刹啃畔鶎q一塹匴匱?媀?V ?IO)玡xcel中的图片复制到任免p表中F D?ActiveDocument.R 坋(.End - 2,煉E €).Delet@v '为了保证能AФ喔2鰜炘谄y翗中有意@◆了一个回车，但是这样就增加C空白页虼嗽诹结束时将此A删除珹C 。罵湣T剅u? 'A!量可以 ,只要将顺序肪托小Ｈ缯湃⒗钏摹⑼跷`澹诹ˋ&蹦谌萏钚却的A为AE !ca+纖酛  @?  @?棹  @?H佝  @?0叁  @?羹  @?`  @?x橚  @?堽  p  `X堽k,,I?  € 0?(%`H`堽@p,,`  €裏6hX8棹堽"? x$xx$ < xhX8(棹佝橚堽khrU€€€ (`?/nH4(b?C2xME06 <4<<< <<<<< <$<(<,<8<<<€€8僃0% D`8P x  @?h  d  @?T  @?D  (4 @?$  ((  (  0  @?瘙  0帼  0x0@(0(忐   @荥  "`G@?烃  瘘滁@?件  ?璈88x N汷$*\Rffff*0B4f9c105e"(€ 0( $X+h +8€€ € @€ HopX01A@6ic0 8$图片"pa"不存在A@k8d88这个方法比在图片中循环要快！€:参考http://www.officefans.net/cdb/viewthread.php?tid=10202p编号$j!($%h.6H?Attribute VB_Name = "判贤计欠, (?aKxME,>       LL? <0<4<8<<<(x 0\&TVX^L陘" @(X@?x  ,J""@?@h  @?pX  @?H  @?8  @?(  @?  @?  @?  @?棹  @?H佝  @?0叁  @?羹  @?`  @?x橚  @?堽  p  `X堽k,,I?  € 0?(%`H`堽@p,,`  €``@?凝  @?待  0ne@褒`s\X h ` $ `滮 p@hH@p@hH@p@hH@h岧 P?`\W2s\S ? `em@rog(p@hH@p@hH@p@hH@p@hH@h00 N汷$*\Rffff*3[4f9b2713$*\Rffff*0a4f9b33ef$*\Rffff*0D4f9b33c1$*\Rffff*3`4f9b2713$*\Rffff*3_4f9b2713$*\Rffff*3^4f9b2713$*\Rffff*3]4f9b2713*\R1*#d7*\R1*#e8*\R1*#2ac$*\Rffff*3Y4f9b2713.€€ " € € :(€ € € . "h€ € X€ `€ h€  €  € € € @€  € € p€ x€  €  € @o€ €  "x€ € t€ €€ p] 0A@\ "!!j! "!!j! "!%jB@A@TA@VA@XA@A@,o H p A@ ( H XxpP(————第二页的表格——这里是逆过来做的—————第一页的表格——( &(b &(biewn一个文档可以生成多个表，只要将顺序逆过来就行。如张三、李四、王五，在设置程序时内容填写的顺序为王五、李四、张三€为了保证能生成多个表，在页面设置2程序中有意多留了一个回车，但是这样就增加了一个空白页，因此在程序结束时将此回车删除，删除空白页。 X 4A@LT?x 4A@J~( 4A@ste 4A@^ 4A@ 獴4这里和成一表，唯一区别是多了“建立word文档”这一程序⒉Attribute VB_Name = "a0杀碜艹绦虺傻ケ砟？? Public mybook1 As Object Sub x多眬?hang)翊嬖谀？? Sub h() '这龇椒ū仍l中循环要快！ ' On Error Resu腘ext Set shptSheets(2).Pictures(Range("编号").Value) 6IfP <> ? ThenPMsgBox "?"pa""Else,1nd If Z参考http://www.officefans.net/cdb/viewthread.php?tid=?0202E$€ rU€€€€~| ?>krU€€€ >$>__SRP_3eT__SRP_3fg黐eQ烻薡penc!jWW}r__SRP_40^`?nrU€€€€~| A@frU€€€ @$@`?$@`?nrU€€€€~| ! 馝?笹罠棼? H__SRP_41au榖椌媙!jWW 6A__SRP_20__SRP_21储表推荐类别$j!N$%!('C推荐类别竞争上岗报名表（   $）9d共Attribute VB_Name = "a页面设置模块" Sub H(hang) bkzw碨heets(2).Cells>, RJe("存储表报€考职位"Folumn).V@alue '2 tjlb#M推兰隼啾M With mybook1.ActiveDocument.Paragraphs(1).W .TextH"竞争细诒恚? & R ight(Y, Len) - ?)"）€" Fo5谔鍛 Siz?2= 嘕Format?Align乄€D1 '横向又s.Add9'这样硎疽彩强€梢缘摹釙 End N亁逳3腘.B:?10 '中间空祤囊欢 ^4#&u溃u ?4?Ck厊联编号及名称：?亅B蝗獵 F懶k0 蒖 eSetup '60蝷?.12cmi.TopMar鑗in€?€.Bottom蠰eftF6I偘? a 酅 €2(A??(0, 0) '为了酫在同一word中建羳⒍嗳吮韚Q 坆脄!bi85 &埣`仸?? (縩焞蒹5焥6/e禬d骳.昪.3c.蟗aDb@?H   8@?p`` @?  H @?酤`p @9HiH〩酘 (  1 a"a(丮 &筂)M袽Y'iKK馦\s X'\%:l %$XaH?齣 %0(4%D$Dd0A帼瘙)XD06Hs X'\%:l%$XaH?齣 %0(4%D$Dd0A帼玄)XD06H2(l%"XWH>A帼俐俐q件6HE:\玄H(l麥?玄帼  帼:4滯%l件C6帼滯:l%l件=HC5H(l%l件=HC5H(l%l件=HC5Hl件=裏5l件=裏5l件=裏5 q件<(4 %(l%"XWH>=帼=C6H帼<(4 %(l%"XWH>=帼=C6H帼2(l%"XWH>A帼岨岨q堽6H(l%l堽=HC5H:l瘙H%l堽C5H(l%l堽=HC5H q堽 "XWHAxxt?H(l2%lt?C(l2%lt?C (l<%lt?C (l<%lt?C qt\8 俐岨x瘙玄,XD0H帼滯t.(l%(L%"XW,B  q5,l=裏5l=裏5l=裏5l=裏5l=裏5l=裏5 q"XW,q酤2(L %(l%l酤>,==濑C6,濑2(L %(l%l酤>,==濑C6,濑2(L %(l%l酤>,==濑C6,濑2(L %(l%l酤>,==濑C6,濑2(L %(l%l酤>,==濑C6,濑2(L %(l%l酤>,==濑C6,濑 q酤 "XW,A轧轧q玄5,(l2%l玄C(l2%l玄C (l<%l玄C (l<%l玄C q玄t0 轧,濑f>.    rU€€€ ( `?/$ `?CompObjroi28} n`粑浲`0^@?0^@?f o(?")xME06 <4<<< <<<<< <$<(<,<8<<< €€ x p%  `!!P@  @?0   ,   P8@(  @?  P8@  好地@?  @?棹  用第@?佝  @?叁  取文p羹  ."X逮  €@?剥  "@?  这@?  (1). €`|€H N汷$*\Rffff*0C4f9c105e="&h€  € O€  (€ Z(€ € :€ @€ €  "€ ?€  "€ € H€ € € " €  € €  0€ Z@€ € *€ € € € € <€ $€ @€ $P€ x€ €  € €  € € !'h  &%B@ !'  G|j#B打开对话框，但是点击取消时，没有表格被打开，此时防止关闭现工作簿。$On Error Resume Next '避免没有表出错 &(`B@Bo &(` (88 $%%B@ $B@ $%%B@H-2 $%B@quanq $B@B6Workbooks(newname).Sheets(1).Pictures(1).Copy'这也可以Des !'Ke  &%B@FM !'ou  G|j#B打开对话框，但是点击取消时，没有表格被打开，此时防止关闭现工作簿。BAC   $%%hB@I这也可以 &(`lVi $B@B &(`1oh避免没有表出错B复制部分参考http://www.feiesoft.com/vba/excel/xlmthCopyPicture.htm单纯是图片的话这个方法更好re $%% $%B@vAttribute VB_Name = "导朐际菽？? Sub X() '单纯是计幕罢飧龇椒ǜ oldn濼hisWorkbook.8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?(X%h>( 裏 5(v(X %(  ~?RnxMEP6 LL? <@x"?  @@?Xl  @凓p% T`玄k"( @?p\  @?L  @?<  @?,  @?  (@?H   8@?p`` @?  H @?酤`p @?濑  @?轧  @?玄`P (j"@@?l  @?P\  @?8X  @?H  @?hD  @?€4  @?0  @?   @?  @?  @瘙  @?`帼  @玄  @?俐  @?@件`(@?x  @?滯  @@?X岨  Sp@gs\x x` t""I?  €p@?€堽`@?x?  X@?t?`€xH N汷$*\Rffff*3]4f9b2713*\R0*#f*\R1*#dc*\R1*#1c8*\R1*#e8*\R1*#2ac$*\Rffff*3[4f9b2713@" € Fs`Fs€ 2€ 8E( $    €€ 4<4<€ 2@0,  €  P0 € (€ "€ € >.      0 @ €  p,2P,2P,2€,2,2,2 `€  € € € h29<9<9qo290 "!%l!j(<q( "!ook1qX黑体5:(5:(<5B($横向居中q5lB@h这样表示也是可以的。5lB@h5B(可以5lB@h 中5:(< 中间空的一段! "!!* 60为2.12cmH "!!& 60为2.12cmx5lB@h5lB@hq2929<9<9q8o0X5lB@h飑5lB@h|5lB@h  7l!j!:(<) 中间空的一段一段 7l!j!:(<) 中间空的一段一段 7l!j!:(<) 中间空的一段一段 7l!j!:(<) 中间空的一段一段 7l!j!:(<) 中间空的一段一段5lB@h"%l 7l!j!:(<) 中间空的一段rd中 "!%l!j  "!%l!j!:(<: 中间空的一段  "!%l!j!:(<: 中间空的一段 "!%j(为了可以在同一word中建立多人表 4存储表报考职位$j!N$%!('C报考职位职位编号及名称： 9d&报考职位0 4存cTv^USCQ?@ABCDEF?HI?KLMNOPQRSTUV?XY?[\]^_`abcdefghijklmnopqrstuvwx?z{|}?€ .%!j!7j!B@U被推荐人行，11 .%!j!n .%!j!7j!B@U推荐意见行，13 .%!j!n .%!j!7j!B@S年度考核行，2 .%!j!n .%!j!7j!B@S参加培训情况行，3P————————q8o0 .%!j!n  .%!j!7j!B@T家庭成员列，4、10行h .%!j!n .%!j!7j!B@U推荐意见行，13  .%!j!n  .%!j!7j!B@U被推荐人行，11 .%!j!n .%!j!7j!B@S 奖惩行，3 .%!j!n .%!j!7j!B@U 备注行，14@  "!%f..  .%!j!n .%!j!7j!B@U 备注行，14 &(b鋨? &(b忶旆 &(b_穹 &(b駑?0 粘Attribute VB_Name = "c合并单元格模块" Sub P() Application.Sc€reenUpdng咶alseJDim rngbiao As €Variantet.= mybook1.ActiveDocument.TablPes(1o With,  .Range(s.cell@(5, 2).繱tart,{6End).C€s.Merge '学历学位列，5??行? Column丷.De8let{俇'獌职务、0简历V10粶V7gW?U?0?9, 3嚸拟免A3:98任u87虾謬7C1K茤c%KK#K€%X ??\輀`m6??在职教育行、毕业院校酷r剅 篯48  礔 幒伕全日制?儚@ K?C?照片欖, f碑4/! !!;1—4 FM熟悉专出 5YM? "崴f职楚?畚&6! f4  吝^颰r緐"圉?? ||5p||'|鎫#& ?l(鐮鯥?l(Js,|家庭成员a、10c4?|)铥|? ?6啽缸{?Q/\倳C??\o3uj1? 推荐幸饧鹯 3 W y P _!嶳}2 /Q鳃艘 2?7 0s ??2t1熆  v被 1_W P _R9?l(?v参加培训情况燅o 8 l(年度考>篵 _ , 胦f奖惩 [w盵蟐 臹骯鈄l  ?P xMEP6  ?LL<<<p凗H`?h % X`8$%%1P&"@?x  (€ P`$11`?h  8`P@?X  @?H  @? 8  @?(  @?  x8@?`` @?  @?酤  @?濑  @?轧  @?宁  @?€逮  @?0  @?h旫  p@ X@?匎  le@?t?  ar@?d?  ed@?T?  am@?D?  @?4?  @?$?  0@XH&"\  d@?x  il@?X  Pr@?€H  @?(8  @?(  @?  @?`X@?  @?酤  @?濑  @@?轧  @?宁  @?X逮  @?(  @?@旫  @?€匎  @?t?  P@?d?  %@?T?  %@?D?  |B@0@?4?  莵@?$?  疭?P N汷$*\Rffff*3_4f9b2713$*\Rffff*3[4f9b2713*\R1*#2ac*\R1*#e8*\R1*#d7V"p€  "x € €h#€  € \v€`€ € € TvXv XvxXv€ XvXvXv@€ € € € @fv(fv€ hvhv€ € € €XvH€ € Zv€ € `Vv€  `€  " € x€ € "€  " € €# €  € ^v € € Tv Tv Xv Xv€ VvVv8€ Xv Xv€ \v€ Xv@€ Tv8 € €   €  " € €    "!ook1 "!————职务、简历————————学历学位————q]0oX————照片——————————熟悉专长————B@  .%!j!n  .%!j!7j!B@U 简历行，10?  .%!j!n  .%!j!7j!B@S拟免职务行，9 .%!j!n .%!j!7j!B@S拟任职务行，8 .%!j!n .%!j!7j!B@S现任职务行，7 .%!j!n .%!j!7j!B@S在职教育行、毕业院校列，6行% .%!j!n .%!j!7j!B@S在职教育行、学历学位列，6行% .%!j!n .%!j!7j!B@S全日制教育行、毕业院校列，5行————职称————S .%!j!n .%!j%h>8=(A匎%(濑 %(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X %(%h>8=(A匎%(濑 %(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X %(%h>8=(A匎%(濑 %(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑? q"? x $ xxJ邀X,h4 x8(旫匎dD4$4" x $ xx#(X%"XW8B(h﨨58"XW8qv(X%(%h>8=(A匎%(濑 %(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?(X%h>( 裏 5(v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X %(%h>8=(A匎%(濑 %(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X %(%h>8=(A匎%(濑 %(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X %(%h>8=(A匎%(濑 %(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X %(%h>8=(A匎%(濑 %(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑?v(X%(%h>8=(A匎%(濑%(宁%h>=旫Ad%l>D=$裏68(旫匎d﨑? q"? x $ xxX4,h4 x8(旫匎dD4$frU€€€ $$$`?$$`?nrU€€€€~| #"馝笹?I 9I罠aI塈罥!JiJ慗??貸鵍-K棼?IKY'iK ?P" x$xx?h%"XWH>8=(A叁%(x N汷$*\Rffff*3^4f9b2713*\R1*#2ac$*\Rffff*3[4f9b2713*\R1*#e8*\R1*#d79"€  "€ €€( 0 P $(p€ . , € "0"P"€   "€  € € "€  "€ € €(   $(€  $ P $ € €  € "@"`"€€ € €  €  "€ € €  "!%f! "!%fj?5(& 列宽 2.22cm"5( 行高 1.2cm5|??xMEP6 ? LL<<<@ V`Hk!!凐p%&" @?x  @?h  8@?X  @?H   `Hk x XH@?8  @?H(  @?0  @?  @?`  @?x棹  @?佝  @?叁  @?羹  @?  @?h橚  @?8堽  @vx?  @zh?  @?PX?  @?H?  @?€8?  @?(?  @??  @??  @?  @?椠  @?佚  @?` 三  PhP @?庚  @?  x  08x @?`` H` H` H` H` HX&"Xl@?x  @?h  @?X  @?H  p ` H` H` H8` H` H @pX@?8  s}@?H(  hM蟺@?0  M湸@?  @?`  6R疠@?x棹  络萆@?佝  ?K翤?叁  ,魥跕?羹  銦 @?  賥|郂?h橚  阈炽@?8堽  賰翤vx? 齵鍬zh? 嵛@?PX?  {简褸?H?  岀慵@?€8?  Ll@?(?  勉繞??  M頁濦??  缅g瓳?  俚頏?椠  3??@?佚  |壅兀?(三  ?鋷@?庚  [ti@?  Z添瀳@輞6.+?@?`袼?p铈R婉?@H网格型G网格型9|jT 7(12cm'第10行，即简历行c7(€列宽 3.49cm，照片列5(表格居中opp 5j!:(<小四(宋体5j!:("小四rHh`5j!B(,横向居中5|网格型G网格型9|j27(奖惩情况5(表格居中宽 3.27(培训情况 5j!:(<小四(宋体5j!:("小四5j!B(-横向居中&q0o( <5(& 列宽 2.22cm"5( 行高 1.2cm7(€ 列宽 7( 单位推荐意见醇€27( 年度考核情况* "!%l!j!n "!%l!j! "!%jj pr vt zx "!!fB@h* "!%l!j!n "!%l!j! "!%jjpr vt zx "!!fB@h@q`(@€ &(b蝠鲻躞 &(b篌篌篌 &(b貂躜蝌 &(b篌鼬xAttribute VB_Name = "b插入表格并设置模块€" Sub `() Application.ScreenHUpdng朏PalseJ mybook1.ActiveDocument.Tables.Add Range:= ((Paragraphs(3).*.Start, (1End)`, _ 乄NumRows:=10, Column€8, D@efault俲Behavior:=wdWord9 , AutoF it  Fixe耫CWith昦?Xs(1€膯V.凢.PreferredWid!= 63 '列宽 € 2.22cms.?.Height續34 '行@高 1. If 繳yle <> "网格衻? Then@悇G(10B) 0 '1€'第10行，即简历行C5(8).?99?3.49cm€，照片罥罛5Align仛6? 'A毒又 #I'A?Fo昆Siz伱12€B∷膬 盘宋体" 啨Format.崽#横向?馈 羮溩TruB讈 骼?g辍HC焧g鉔vqv(5v遖叏|&€v 羣昤v4kv7vleEtvBvvdv`cvv黃tvAy漫茾!dvHv5奖惩荴榭?2膧甓瓤己藂嘆礷巃 培训1 206 'ノ煌萍鲆糕见qE?G圏18爖?卄!漘 砚塤卐._?H匒3#醽脟cz鬋D咲__SRP_22*6__SRP_23 G\GrY6R0R鸑MQh?N!jWW@C__SRP_2aJ%"XW>棹=佝A%"XW堽BH%(( %(%x @h @"XWX=庚裏 6H8(棹佝叁堽X﨟((h%"XWHB8q5H(h?%l=H C5H(h"%l=HC5HlAH:h]鸃5H`:h%lC (T%(h %l>HC5H (c%(h%l>H C5H(h%l=HC5H"(h %l=H=8C6H8":h%l=H=8C6H8"(h%l=H=8C6H8 q"? x$xx鷒P0hxDxH8(棹佝叁堽XH三庚$" x$xx?h%"XWH>8=(A叁%(%"XW>棹=佝A%"XW堽BH%((%(%x @h @"XWX=庚裏 6H8(棹佝叁堽X﨟((h%"XWHB8q5H(h<%l=H C5H(h"%l=HC5HlAH:h]鸃5H`:h%lC (2%(h%l>HC5H (2%(h%l>HC5H (2%(h%l>HC5H (%(h%l>HC5H (%(h%l>H C5H(h%l=HC5H"(h %l=H=8C6H8":h%l=H=8C6H8"(h%l=H=8C6H8 q"? x$xx=0hxDxH8(棹佝叁堽XH三庚frU€€€ "$"`?$"`?nrU€€€€~| +*馝9I  1 a"?y'盞? ??€K#(\%"XW<B,l﨨5<s ('L%:\%$(a<?齣%(%$$$d,A玄 帼)($6<,E帼龘 @$(\%($(d$, 裏 )($5,x(\%(%l>< =,A€%(瘙%(剥%l>玄 =慆A`%"XW@> 裏6<,玄慆€兀 #珲 ($((\€,l帼< ($<,玄慆€`@0 0 8  fI?  €`?濑 rU€€€ *(*__SRP_2b-_WdK岦P!jWW 4?__SRP_26Z__SRP_27Ky`?/$*`?n @?@?  @?(0U€€€€~| '&a(  1 a" L1LiL慙蒐馤?馝9I)M?8" x$xx?P%(0%`(d%x$xd`狛%(%(佝%( %$d€%€ € 2 !€  €F6€ `6Z88p € " €  € (€H>P p€€ € €€  F6€ `6ZH8€ € € € € " 0€ €8@`p€ € €€ 4€ H ——调用第一个文档——?]@ &!('$' 获取文件名(岲嶍 $$*." "!&(,$]X'koP A@f!@  ' "%f!j!! '  "%f!j!+这样不行mybook1.Tables(1).CellsCe !j!n !j! "%j!dt(   ! $%%, !j!n !j! "%j!d  ! $%%,P]0]X &!('$' 获取文件名 $$*." "!&(, "%f!j!qoP 5j!:(<小四k 宋体5j!:("小四o "%f!j!B(-p >!$%???????!('!(( mybook1.ActiveDocument.Tables(1).Selectcto-mybook1.Tables(1).Range.VerticalAlignment = 11.Ta "%fB@HalAl !(X设置居中还有更好地方法吗？——调用第一个文档——] &!('$' 获取文件名 $$*." "!&(,]€'  "%f!j!,这样不行mybook1.Tables(1).Cells !j!n !j! "%j!d  ! $,  ?捚xMEP6 LLL? <@兡0% ` 88`?l  8`X  "j&I?@?\  I?  €`?濑  @@?L  @?(<  @?,  0@?X(  @?$  `?x X@?  @?  @?  @?(瘙  @^帼 @?€玄  @?@俐  0@?X剥  @?狛  p@?慆  @?€?  @?p?  @?`?  @?P?  @?@?  @?(0?  @? ?  x\  @?L  @?<  (,  R(  @?$  @?  @?  @?酤  @?濑  @?轧  @?宁  H@逮  @?  @?旫  @?匎  t?  @?d?  @?T?  (D?  @?4?  88 N汷$*\Rffff*0a4f9b33ef*\R1*#d7*\R1*#dc*\R1*#1c8*\R1*#e8*\R1*#2ac$*\Rffff*3[4f9b2713&" p€ €€ €x#€ BsP€ $E€ x€  #€ € € € " € € €8>` €€ €@€ DH€ ~n€  #€ € 8oh]@——调用第一个文档——]x "%f..j%x &!('$' 获取文件名 $$*." "!&(, &( .%!j! .%!j! "%jB@P3注意，第一个不能用start，如用则插在第一个单元格了。0h2$%hB@`] &(taco "!%f.. .%!j! .%!j! "!%jB@_3注意，第一个不能用start，如用则插在第一个单元格了。H 4 存储表编号$j!N$%!('^A照片名称 ^$%hB@ 复制<Attribute VB_Name = "将计粗频饺蚊獗碇心？? Sub 将ex€cel中的(hang) On Err€or ResuNext.Dim rngbiao As VariDanSet= mybook1.ActiveDocBnt.Ta@bles(1at uming盨heets(2). Cells? R塭("存⒈肀嗪?olumn).Value '諃掌苼K"Pictur3C0py ' 擭?n.€憀(1, 6). .End,q).Pas€?注意，第一个不能用start，如用 虿逶单元格了。侺MApplication.CutCopyMod羴隖alse乼€C 辴dd(耓'——调動妹文档A 乼凞乼Obj別c@twenj纕1@hI%GetOp€enFilenA'获取文?楡亝= 粊 (".0Visi@咢Tr>u9?蕰P?2弍y €||葾_|%%, !j!n !j! "%j!d   ! $%%,k  '€o(]8 > $% $%$%jes(1).o >!(  "!%f!j%!j(d >!(  "!%f!j%!j(d( mybook1.ActiveDocument.Tables(1).Selectt 0| Selection.Cells.VerticalAlignment = 2 '居中对齐。但是不能直接用mybook1.ActiveDocument.Tables(1).Cells.VerticalAlignment = 2.Cells设置居中还有更好地方法吗？ >$%$%$%jC:\| Selection.Cells.VerticalAlignment = 2 '居中对齐。但是不能直接用mybook1.ActiveDocument.Tables(1).Cells.VerticalAlignment = 2= 2e@  1组织推荐组织推荐第二页项目$j!N'  2社会举荐e社会举荐第二页项目$j!N'  3个人自荐e会个人自荐第二页项目$j!N'第二k( >!  $%!(' 4存储表推荐类别$j!N$%!(' € H X &(b &(b &(b &(b 牬Attribute VB_Name = "d赋值模块" Sub 给word表单p() Application.Sc€reenUpdng奆alseAJDim r$A@s Rang&F€or Each0In Sheet爏(1)."(Cells(2, 1),&1u kt7w.Row, 2).0Valu|* mybook1.ActiveDocument.Ta╞leC.?k凧?Text2*&嶯€乹* ',Select 6.Vert猯Align丣€82 '居卸云搿５遣荒苤`苯佑脼d?@ '设置褂懈玫胤椒穑&縼5xTr丼 pEnd @壛 ? (h纝|宼jlb_@Bx€s?B,脮("存储表萍隼啾?).ColumnA唦 If " 1组织 " 怲henBdli量儬"第二襚诚钅縁历E€穲2社会?偌鰰3膏鋈俗詶yeIf?摆 恗186, !適 +@v塶nnn峺nnn▏nn挭tn粗刑崛内容?鄘饔玫谝桓鑫牡驳! 伈2 Objwenj0ian1 miGetOpenFilena?获取@文件名 膃辴艦A (e 郋肍?芕isi牠@媴cVa(!?{xME$6 LLL(j LL?<(<,<0<4<8<<<8PP&j"`?x `濑 v%?%@?xx  %(  凗tp`?x  8` f`? €P`濑  ^` I?  € \`|JM 凗t ,`88`0P p@?Hd  8@?T  @?D  @?@  @?0  @?P,  @?  X@?h   @?   @忐  @?8荥  @烃  @?叁  @?€羹  @?  @?橚  @?旫  @?匎  @?€?  @?p?  @?`?  €@?P?  (@?hL?  @@?H?O  h @8? @?(?  @??  hp 8 8 &"@?x  @?d  @?H`  @?P  @?@  @?00  X@?`   @@?x  @?   @?  @?  @?棹  @?佝  @?叁  @? 宁  @?P逮  @?剥  @?h狛  @?慆  @?€?    *` 3H@?p?  X@? `?  @? P?  @?H L?  `  @?H?O   H O @8?  @? (?  @??  H  x`p p  SSx  IE@?酤  ly 轧 3 @?宁  0,@?逮  te  CES 剥  6  SSO  =18  rogH  \P`  mDap o Fi8 :\P旫  es@?匎  \U@?t?  c@?d?  Pr(`?  s\@?\?  6.@?L?  xt@?8 Xh€ € €xr{膜i泊`}unMsgBox i!? &` c @秃 '这姥恍邢侜o罚嵧蛃∫.啖(xlUp).€Offset(€?0)銓cC?S纓art, —-!h佄爫Len(%) <>| 0菧a蠙蠻 , k 馝a騥帼 ?a????t????鄜??驅?? &&0驧&/G-&茟(y&4)&&P?&釼&o&& .浬 5- ( & ~& 勤??坅aa'% oO2 ?oOoO% T%%舶 W鴌th%TWd?6BDFo 猄iz1? ⌒∷腛A吋€宋体" '? $k?Pa€ragraph S0mat.9█T '鐝O? 箈 X?逮%宁$宁d剥P?郎Lt) x`宁剥6狛€圚[ta狛?齣P%(0%`(d%x$xd`€A`8?x`6狛€Tta(%8 @(d%"XW狛>€=`>P=C6 狛€?tH"? x$xxd4LH8t< x`宁剥狛€`P(" x$xxs x'T%:d%$xaD?齣%,(0%@$@d,A荥忐)x@,6D忐:d]?4x'T%:d%$xaD?齣0烃x5Di忐:d ]?%4x'T%:d %$xaD?齣0烃x5Di忐:d ]?i4x'T%:d %$xaD?齣0烃x5D?T%烃龘 @@(d%x$xd@D%(羹%烃龘 @叁( %,$,d叁%€?匎%旫$旫d€歅?郎Lt) x@,叁旫€?DP圚dtaD?齣0%烃(d麛%@(T%x$xd@荥AP8?x@6D荥Tta(%8 @(d%"XWD>=荥>P=C6 D荥P?tH0"? x$xxd<$LH8烃t忐< x@,叁旫€D荥P(0   0   0   WrU€€€ &$&`?(&`?/$&`?$&`?$!&`?nrU€€€€~| ?A'  赛黐eQgqGr!jWWU__SRP_10= ~B__SRP_11wordh坘XEQr^钀酧o`!jWW" 笮。?要改`表$!h!   表$!hP 由录制宏改编而来，可以参考一下。E解除保护祓111表$B@q驵保护鷬?y表$111C@0 保护工作表 90不锁定单元格可以编辑綔讎x鎞 8Attribute VB_Name = "导胝掌？? Sub AH() '絸獬；theets("?).Unprotect Password:="111 w@enjian翧pplication.GetOp€enFilen geshi&UCase(@Right(<, 3)) '提取.jpg。 If C<> "JPG@" Then''如果图片不是则顺鰞!MsgB纎x "请vp格式^1E0xit €厐En恉 If 5S墍Pictures.Countp > 0価€€!Dim tu AsP Var卼 F€or Each8In ?丆tu .Dele?境延械颇丼Nex+匬?rng9Range€譭t pic瘬[Inser燮[€{S = &("H).Resize(4, 1!€g指定AY的位置与大小，3要那1?CWit唄?.Top@*#€B+ 2Le黤tJIHeA擠- 3慔Wid@"= Placeme@~= xlM€oveAndS€F汬勝i'.?? ' G  .E)2 'F, 亖AU@霤雮X ~ .Pw, conts:=True '! 工鞅韱EnabhleS繰c亃`+xlUnlocke@dCellsE&'不锁定单元格可以辣嗉  以上部分参考了http://club.excelhome.net/ redir`?php?fid=2&t713921&goto=n羳aoldse@b Ox亴 a铓2(繴陕贾坪旮谋喽矗啲!一下a@焷u亾1 To f1繗繗and$'取副檔名s?e' _沖汸G_沘2)."9(i, 5).c=#f爈墛咵. Shape聣.Scale鉠1.8爥msoFalse, Fro~m爞!~ $j2?839 c 胏 鹀?.鼁鏦茂La@ @?P狛  @?P滯 h(@?橚 P? &Q-? ,A?I,i,??9"??-!-Y')=?Q=D;:T%d:h%x$xdd)xd> '$%'4%'D%'T%'h%x$xxx' 酤 酤濑5濑:h ]鸃+'宁'轧'酤:h N 6酤轧宁Hd:h%x$xddWA酤(T]鹴)xd6酤@d:h%x$xddW逮)xd旫逮裏 逮旫jG龘 @d:h%x$xddWB酤€N)xd5[(4%(p%:T%d:h%x$xddB酤慆)xd6酤€\$慆a~(h麛酤%l\?C6酤$慆a(h麛酤%l\?C6酤 慆a{(h麥酤%l\?C5 慆az(h麥酤%l\?C5h%l\?CL\?C q\*d:h%x$xdQdHx:h%cD%Hh%H點H4DL4 旫狛HL濑慆€逮$xd酤轧宁0   f€ 0$$p€ rU€€€ $`?$`?n@h€ € \€ rU€€€€~| )( €  B p € € .€ €  "€ ]`] * mybook1.ActiveDocument.Tables(1).Select@ >!(  "!%f!j%!j(d( mybook1.ActiveDocument.Tables(1).Select云设置居中还有更好地方法吗？ox > 4$% 4t$!N$%$%j > 4u$!N$  C?卝$OpenClipboard7H8iCloseClipboardl\?DEmptyClipboard€CqSetClipboardDataMEMCopyImage135DeleteObjectIxME6 <4(j<< LLL?<8<<<8%儂0%x x`H00@ 凗慆` 逮 @(h0x(pH&@?x  @?h  @?d  @?T  @?D  @?4  @?$  @?€   X@d @?酤  @濑 @?轧  @?宁  @?  @ @?P狛  @?P滯 h(@?橚 P@?旫o xxH@€? @?p?  @?`?   @?\?`h@L? @@?H? `效)P%L?  ` 0P(€0x8@ N汷$*\Rffff*0k4f9bb7dd*\R1*#1c8*\R1*#74*\R1*#81*\R0*#14*\R0*#f*\R1*#d7*\R1*#dc*\R1*#e8*\R1*#2acL"€ € ;€  >€ ('`€ ,+€ HH€@h € GP[€ 0$$p€   0€  X€ (€ &8 (€ *("@h€ € \€ H€ € € ", € px € &€ ,0`€€ € €   €  € € (€ € x@ &!('d 9q0 >!€ 9€%oPH @ 取副| JPG如果图片不是JPG则退出 请导入JPG格式照片A@片是|xkp &!('d8 d$$'(取副檔名 JPG如果图片不是JPG则退出请导入JPG格式照片A@k $%B@H d$!h%NB@Hq= 祝p? n p !jB@l= 祝@ n p !jB@r  9q o   .Width = 2 '.Width = rng.Width d$$'! 提取.jpg。 ".Height = 3 ' .Height = rng.Height] >! 9 >! 9$U以上部分参考了http://club.excelhome.net/redirect.php?fid=2&tid=713921&goto=nextoldsetcaleX( 9@ >! 9$` d表$!h%N. B@删除已有的照片$k]照片表$%j%.>1指定图片的位置与% 4bg$!N$%$%jn))H设置居中还有更好地方法吗？o8 >!(  "!%f!j%!j(d Selection.Cells.VerticalAlignment = 2 '居中对齐。但是不能直接用mybook1.ActiveDocument.Tables(1).Cells.VerticalAlignment = 2| Selection.Cells.VerticalAlignment = 2 '居中对齐。但是不能直接用mybook1.ActiveDocument.Tables(1).Cells.VerticalAlignment = 2 >!N$%!(',word表中单元格的序号 >!N$%!('-word表中单元格的序号8] "!%f!j%!j. !d G !:(<j5B(q4——党派栏,如果两个党派则会出现行高变大,因此改小字体 .Ran5(!x5B(5(q "!%f!j "!%f!j  xH0h(7!j!B(5简历水平不居中(7('简历垂直不居中历 $7!j!B( %*4D '0 &(b( &(b` &(b( &(b` "!%f!j%!j. !d G !:(<j  "!%f!j%!j. !d G !:(<j0kAttribute VB_Name = "word表填充刹啃畔⒛？? Sub p(hang) Application.ScreenU$pdng現alseJDim 聄$As RrFor EachIn Shee@ts(2)."(ACellsr,0 2),) Columns("t?). ) fkN3,<.€Value 'u中单元格的序号 ?mybook1.ActiveDocument.Tables(1刏.僅kTex巘>€}? N€墎)€,'——党派栏,葊绻礁则会出现行高变大,因此改衊∽痔鍍H? €猇arian Set乵2<猌15?If 怢en(?2.?) > 11 T坔en.Fo@鑃izA? C5 $28 26 11 s(3厽慇d With  .Paragraph狼mat?Align仛@s?@ 倷.Vert遧(40腡Z0 '简历讲痪又>墟Z垂勚辩End Ab '繻!Sel靍cdX A嬿2 '对齐。但是不能直接用 '设肁 还有更好地方法0吗？醱烼r緐`溼 唰莹2?ㄥ洙ΕuД?玝g_ 礯玙玙W玜rr€eArray(2, 4, 6, 17€菭?334?2勀Uv&姐Zv_峒v% :i0 To 9!に(i)遺= 0偿Ｎ Gsv'J翻m?p'?廐 ?邚9縯硉?%P2??'o9鴪c9 ?  @?P X?  h (  @?T?O   P ?@D?  P  @?$?    @? ?` __SRP_28 __SRP_29,#a1鷁藌word噀ch!jWW7__SRP_1a  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGH?Q]LMNOPRVSTUW`XYZ[\^_csb?defgrijklmnopqatuxw?yz{~€(C?`SxME(j6  LL?LL LLLLLL  JH`0 @&&I?  € 凗@tx%&"H@?px  I?  €€働% 凗t8`% L`庚k& PX0(h€@?@d  @?T  @?D  @?@  @?0  @?,  @?0  0@?   @?H  @?  @?`棹  @?佝  @?x轧  @?宁  @?俐  @?剥  @?狛  @?滯  @? 岨  @?堽  @?8x?  @?Ph?  @?hX?  @?H?  @?€8?  @?(?  @?$?  @? ?O   @?  € `劕4? `€? ?H  @ €@?忑  `h@?椠`@佚 @?三  @?庚    x `(  @ &"(@?x  @?0d  @?``  (@?HP  @?x@  @?<  @?,  @?  (@?   @?  @?   @?8酤  @?€濑  (@?P轧  @?h玄  @?俐  @?件  @?  @?滯  @?岨  @?|?  @?l?  @?\?     @?P X?  h (  @?T?O   P ?@D?  P  @?$?    @? ?` P€0P P x椠`` 0 酏  6 :瘕`@D8H N汷$*\Rffff*0D4f9b33c1*\R1*#1c8$*\Rffff*3[4f9b2713*\R1*#dc*\R1*#e8*\R1*#2ac*\R1*#e8*\R1*#dc$*\Rffff*1T4f9b4e37*\R0*#17*\R1*#e8*\R1*#d7*\R1*#dc*\R1*#e8*\R1*#d7*\R1*#dcB" €  "€ €€ V>[ 0TP€ € € : €*E&5€ *E0&5`€ *E&5€ € 2  `.2(& X € € 0 € € €  "€ " €  "€ €€ b8>[`0TX€ 2€ 2 IM " 1 aM?a"馝9I)M)N棼?醩﹎iKK1y~?" x$xx琮 (P%`(d%x$xd`% :,%<$`< A濑%酤(%$d酤岨%件(俐%玄$玄d件\?郎Xt)x`<酤玄件6 濑岨\圱 [(P%ta ?齣,%`(d%x$xd`濑A D?x`6 濑Ttal%D @(d%" XW  >濑=>岨=\C6 濑岨ltT E(@%(d%" XW  >濑=>岨Al4N6 濑岨4?A 濑(d ]鹴5 A(d%4?= C5 E(@%(d%" XW  >濑=>岨Al4N6 濑岨4?A 濑(d]鹴5 (d %4?= C5 E(@ %(d%" XW  >濑=>岨Al4N6 濑岨4?A 濑(d]鹴5 5(d %4?= C5 2(d%" XW  >濑A$$ ? 濑(d%l ?= C5 (d%l ?= C5 2(@%(d(%l ?> =濑=C6 濑 (@%(d(%l ?> C5  q "? x$xx\<$XT$Dt4@x`<酤玄件 濑岨l\B" x$xx :d%x$`xDA%,(0%@$@d,x% :%$`佝A剥%俐(宁%轧$轧d俐X%堽(岨%滯$滯d堽(?郎$t)x@,轧俐滯堽6D佝剥x? [(T%taD?齣 %@(d%x$xd@A佝 ?x@6DTtax% @(d%" XWD >=佝>剥=XC6 D佝剥xt 3货  €(dl (Tl (0l ( l (l (棹l (宁 l (狛%l (岨*l (h? l  D  D2(d%" XWD >A佝忑忑q椠6D(d%l椠=DC5D(d%l椠=DC5D(0佚(T 庚nB(0%佚龘 @D龘 @l椠>=佝=剥C6D佝剥 佚庚! q椠"? x$xxs蠾H0 $ 忑三庚佚tVx@,轧俐滯堽D佝剥xX8( 怰frU€€€ (((`?/((`?/nT5?渚xMEP6 L? <<PX僞0%*"8Vx \`$o`X@8@?pl  @?\  N@?L  @?<  *@?,  @?(  @?$ *XX N汷$*\Rffff*3Y4f9b2713*\R0*#19*\R0*#1a*\R0*#13$*\Rffff*3[4f9b2713*\R0*#14"€ z€ P*€  $    (8PXXopp这一句是必须的，因为如果缺少这一句，在没有打开word的情况下Set docApp = GetObject(, "Word.Application")会出现错误Word.Application$*."5'得到当前的WORD程序对象,如果WORD已经运行 8Word.Application$V." 8B@X*k "(,cro "!ZB@h1iAttribute VB_Name = "a1ord牡的？?@ Sub X() On Error ResuzNext '这一句 潜匦~蛭绻鄙6，在没有打开h的情况耂et docApp圙etObject(, "W?lication")岢鱿执砦p Am纘book1B6'得到当暗腤ORD绦蚨韵?X已经运L行wIfy <> 0 Then; 慒罠K*:LN<<'\,  ,?6\<,$$ ((l$(\  \?5\ ((H(cl%"X"XW<裏5<X$ (\<,krU€€€ $`?nrU€€€ h$__SRP_1b/HgSheet4RG__SRP_73< __SRP_6x$*\Rffff*0Z4f9b33e8$*\Rffff*0Y4f9b33e8*\R0*#14$*\Rffff*0X4f9b33e8$*\Rffff*0k4f9bb7dd$*\Rffff*0V4f9b33e8*\R1*#f1*\R1*#e8*\R0*#f46" € € ?D€ € *h€ €  p€ 0€ € <p€ @€ 8€ € € Dp€  € € € € *G€ t(+€ &+€  € E€ € &G€  X€ € &x€ (x\9(;";綜?柱#<麯7 黲A氄I?蝾 F:俐Z蔅⒚婄]x:俐Z蔅⒚婄]麯7 黲A氄I?蝾?ME`@[LSS?8j?L?L6"? ? ?LL!(请完整填写项目！A@kdHA@2 p!完成信息录入按钮$j!片$jkk 推荐类别$j!(报考职位$j!(姓名$j!(身份证号$j!( p! 其他功能按钮$j!p l%B@? B@保存A@信息已记录。可进行新的操作。A@X B@P蔩P 点击导入照片照片+jTarget.ClearContents '清除GAttribute VB_Name = "She@et4" 鐱ast0{000?0820- C$0046}|Global!腟pac扚alse dCreatablPre declaId玊ruBExposeTemplateDeriv$払ustomlizD2P€€ Sub Works亽_SelectionChange(ByVal Target As R ) '——淙肴掌 If.Add0ress€f("出生年月")Or _ 参加工作时间加入党?52Column7任现屩And6xRow A岮?侗皈H Th enk€Z合并单元格比较麻烦，要用行和P列。羉'Cz.ClearContents '?宄齺Ar选€择.Show2E@;IfB亜导廊胝掌瑝勍5@u昁D ?1A  B Hネ萍圉类别e_?$" ,#完成信息侣 $按钮I巉`e匉爊刲( vu?" L报考职位C姓名u蓘矸葜ず烹€@MsgBox "请完钚聪钅乜！牔E@!喆娲⒈韲B9 Thisbook.Sav€e '保存E !(已记录。可进行新的操作肌Ｃe ?AveCell.Offset(0, -1爳`～Y8其他功能?€"3UserF鴒rm)0f?#]呧"点击臶cH@ a)Y  )ayA @ ??  -亙y&﹥)yQya4a)` , l xxah`#0D'H%:X%!Da4`#,?xa`#濑'%: %!a棹`#帼?xa玄`#橚'剥%:俐%!a滯`#旫?xa匎`#L`?d?:t%!`P`#H0xa8???:(%!?xa酏?旋'札%:潺%!旋a例?悄xa褒?岧'慅%:狚%!岧a|?xal?H?L?:\%!H齛8?悄?0,濑帼橚旫L﨟?D`龑鼿? h4棹玄滯匎P?齶齦?$€pxah?D'H%:X %!Da4?xa?'%:     ?? !"#$%&'()*+,-./01?345?789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]?_`abcdefg?i?klm?opqrstuvwxyz{|}~€ %!a棹?悄)D6h4棹[ pxah?D'H%:X %!Da4?xa?'%:  %!a棹?悄)D6h4棹 $€Gxah`#0D'H%:X%!Da4`#,?20,D6h4D'H%:X %!Dah: ]?4'俐%:%!a:剥]?棹玄'd?:t%!a滯:(]?匎P`?潺%:%!`8:札]?酏)D`?h滯8+'棹''4:XNhh 6h4棹_  $+'棹''4:XNhh 6h4棹E(X%( %D$(Dh0)D5hGxah`#0D'H%:X%!Da4`#,?20,D6h4$ €&: #%D'H%:X %!D,DD,(x 0,濑帼橚旫LHD`旋岧Hh4棹玄滯匎P8酏例褒|l84XrU€€€ @,`HnrU€€€ xi墎Q2眮A 1醽y&鶃 sAsis憇駌48t^g 愰b LODt__SRP_4__SRP_5D22Lub梱橆vT饄鬴9e!jWW6 请选择 ((o0请选择 ((X8@8Poph !(' !('X 请选择 请选择缧 请填写年月！A@*d l!出生年月$j!缧$r$  $r$  '=利用逻辑结果很棒燢) .  $（ 岁）出生年月$j((雀 d0 .  l(((?kk l%B@阜  B@F?`oH l%B@ 瞬Attribute VB_Name = "年卵≡?  鳥as|0{AD5F3211-08AB-4E1A-9328-2F0CE6E50EB2}{2C8C70F4-60EC-4C36-9E4B-2AF0A13DD886}dGlobaBl奡pacoFalse 奀re atablPr@edeclaI"d覶ruBEx0pose0TemplateDerivCust衞miz婦P Sub UserForm_Activ€ () ComboBox年.Valbuc"请詡 End-#?€mandButton确秬╛Click?On Error Resu€騈ext nian嚴G? yB%g?If? Or FThenEB Msg; !填写翖！~ 4聎@翴eCell.Ad dress€'Range("出蓃")  sui Year(Now()) -C*+ ((?* 1) > Month) '利用逻辑结果很棒?k侻& "." &B>& C@hr(10)"（A#€岁ｚ┠:E::U"y羬If脈?HOffset(0, -1G臍F M楌.Hid懒€h睻QueryCld(Cancel As Inte ger, Mo黡e繸?: aX i凗 `x  @?x  @?h `I<@!DAHa0€`0€` bWP$:hNXXx!xx5X$:hNXXx!xx5X2$P$ xX`K hx!xhXx hx!xhHx%X:8]?hH:(]?+'佝'':8Nhh 6h佝^x$(xah`#玄轧'(%:8%$轧a`#烃?2玄烃)x轧6hXh h X麥H(8佝件 件 鹥滯麛岨|?h件wX:8 hH  佝:(件|铿?滯%x'l?:棹%$x,x6h佝件滯6X:8 hH%x$(x,x6hE(8%(%x$(xh轧轧0)x轧5h$€ `0H|X< 玄烃x轧h佝件滯岨LE(h%(H%x$(x($$0)x$5( XL$ x$(H8HHrU€€€ T$`$A`,` 9Q&&n?h? P0寙y.:@弾 茒t<鮮h0.肴旵崸怪蔪趈棠書蕩朑€WH冣kUG嫿B渦劑鍚[ixkUG嫿B渦劑鍚[i0寙y.:@弾 茒t"L?LL<<<0{AD5F3211-08AB-4E1A-9328-2F0CE6E50EB2}{2C8C70F4-60EC-4C36-9E4B-2AF0A13DD886} €?0(%侢X0 % ` $k i凗 凗%偁? ?%i凗 i凗 i凗 pi凗 i凗 i凗  `(Xki凗 h4``i凗 JXi凗 a凃 eH€i凗 i凗 i凗 a凈e€i凗 i凗 i凗 i凗 i凗 X i凗 `x  @?x  @?h  i凗  ``\ei凗 x`@?X   `ljr@?x  @?h  @X  @H  i凗 x  (08@HP@?x8  @?(  @?  @?  @?  @?棹  @?X佝  0@?轧  @?@玄 €@?烃 @?p件  o@?  @?滯  @?岨  @|? €F  a@? l?  @?\?  lx  @?€ x  0@?h h  @?€ X  @? H  @?8    H0 h P  @?(  @?$  `0TH N汷$*\Rffff*0V4f9b33e8*\R0*#f*\R0*#12*\R1*#1c8*\R1*#e8*\R1*#2ac*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4648<@DH%"€ $ $H€ 8€ "€ €   € $%€ + € 8"^@JXhLw608€ E@ h€ € "x€ E€ €xxMEP(j6 LL?<<(PPH %"凗$  `滯k` 儶%Hpj  @?l  @?0\  @?xX  @?H  @?8  @( @4( @?  @?`酤  @?濑  @?帼  @?荥  @?烃  @?件  0@?  @滯 `PP N汷$*\Rffff*0^4f9b33ee*\R1*#1c8*\R1*#dc*\R0*#f*\R1*#e8*\R1*#2ac"4€ .8€   0€ €€ €€ *tP $Z € H](opP'根据推荐类别,表格后面项目的名称相应更改?@ 4m$!N$%.>份证号 4j(推荐类别$j$' 类别序号 >!('xp  >%!( $j((| 6hk8?Attribute VB_Name = "界嫦钅棵聘哪？? Sub h() '根据推荐类别,表格€的勏嘤 lb繪eft(Ra nge("7")@, 1) 'C袌蚝,If /"" Then Exit End If'Dim r纍g As U`For hbn2` To 7?Set+= Sheets(1).C ells(, Columns(?m" )<€ mc'€4.Value emc) Offset(0,b N8ext丏^俠rU€€€€~|    a葾"__SRP_16^`__SRP_17?hg搹eQX[≒h?jWW]?__SRP_ar  1 P8X'\%:l%$QX齩H8  8(5H(:l]?M((\濑Mt龘 @:l%X$`XHA8%荥(%帼$帼d荥  $)X帼荥6H8$aH滯Z(l%(龘 @$H XXa8%帼'烃%滯$帼,)X帼6H8 濑dP<$酤濑($滯$X帼荥H8krU€€€ $`?nrU€€€ $ `?( `?/( `?/n ."9"a"?)rU€€€€~|   1 "9"€ 6p@ :p8 € € 2   € 2x   € € € + +8 € € :p € % € € @€ € " € $+€ € l € p E€2p€ C8Xzh € *)h55x€ €8]x  ! $%%!N'奔.这个必须的，因为有部分名称并没有列在界面表中。 8@  ! $%%! '4;如不存在则增加一行 k( ——输入内容B@   $%%oH   $'!(  ]d ——输入照片H 4A@boP@??????End IfB@]0 ^$%hB@%@ 4 存储表照片$j!N$%.>表$%hf ^9C@nSheets("表").Pictures(1).CopyPicture xlScreen, xlBitmap'，如果用这个则图片的名称无法保留，而是改成了“图片**”q$ >C@ >! ^7h(,F可用.Pictures (*****.Pictures.count)图片数表示刚粘贴进去的那一张照片。qo >! ^7h(h编号$j!('^图片名称推荐类别$j$类身份证号$j编号$j((@ $j!( 4 !N$%((j 加入党派1$j!('. 党派1名称奔加入党派1时间$j!('2% 党派1时间 加入党派2$j!('6 党派2名称奔加入党派2时间$j!('8% 党派2时间 .e.)If Right(dp1, Len(dp1) - 2) = "党员" Then .$ 2 :(( .$预备e2 .$ 2 :(( 2 :((kdk .  2$ 6  8 :((预备 .$预备e 2$ 6  8 :((:(k 4A@@ 4存储表入党时间$j!N$%.: 6罀 . . $党员 .A4 . . $党员 . "预备  2$ 6  8 :(( 编号$j!($!%:!'45 判断编号是否存在，如存在则覆盖。 H.这个必须的，因为有部分名称并没有列在界面表中。 ——输入党派p——输入学历学位`全日制教育学历$j!('T&学历教育学 在职教育学历$j!('L#学历 在职教育学位$j!('N#学位全日制教育学位$j!('R&学位% 党 4存储表在职教育院校$j!N$%.` L$ N \((n( V ^(("党 X `(( T$ R Z((全日制教育毕业院校及专业$j!('V0毕业院校及专业]全日制学历学位院校在职教育毕业院校及专业$j!('X-毕业院校及专业]P在职院校]( 全日制院校]h 在职学历学位 4存储表全日制教育$j!N$%.Z 4存储表全日制教育院校$j!N$%.^H' 4存储表在职教育$j!N$%.\——现级别时间ceQh现任级别$j!('  ( =#?.€xME8 (j>  L?LL?LL<<<  %僪0% 2`岨o x间: tP% b`X 宁ogI?  €间: %%0 凗 888j8 @b% 凓,?  @`Hh齩QQI?  €8@?l  @?0\  @?X  @?H  @?H8  @?`(  @?  @?x  @?  @?酤  @?濑  @?轧  @?宁  @? 逮  @?剥  ]苎瑻?狛  py@4慆  刞 岧 刓慅€ %@?岨 €Rj 刏橗% 剼( h?j%j@ 刕旪@%(hP(@  0@?p  @?`  @?H\  @?`L  @?H  @?x8  @?(  x@?  @?  @?  @?X棹  旋@?佝  p@?@叁  @羹 @?P  @?p橚  @?堽  @?匎  @?€?O  @p? ` @.`?  @2P?  @6@?  @80?  @?h?  @?€ ?  @?  @Tx忑  @R荦  @V听 @L箭  @N8 @X滮 @|? @l? 00p X   0 h  H j?  @?( l  @? \  X H @? X  @^H @? 8  @? 4  @? $  @?   @?   `@?   @?忐  @?荥  P € 0   H @?佝` h @?轧 `     @?宁  €  剥  wO_? 8h N汷$*\Rffff*0Y4f9b33e8*\R1*#1c8$*\Rffff*0c4f9b372c*\R1*#41*\R0*#19*\R0*#1a*\R0*#13*\R1*#dc*\R1*#1c8*\R0*#f*\R1*#e8*\R1*#2ac*\R1*#e8*\R1*#dc~"€ J€ 8H€ Tp€  $€L€ €  € € € € ` € € " 8€ 8€ €.~€ 6rHH.x@h€ € P,+p0+,+0+€ €p6p€ € 0@ .E2p&2x .E8:Z&@>Xh 0,F`€ € h*+*+ >+ € (+(+<+8 € € € € € €x € 8p <p  ((]现任级别? 4存储表任现级别时间$j!N$%.  任现级别时间$j!(' A@R If Err <> 0 ThenfSet shp = Sheets(2).Pictures(tuming) '判断是否已有图片，如没有则出现错误，err值<>0，如果有则不需要插入p 埗Attribute VB_Name = "输氪娲⒈砟？? Sub P() Range("编号").ValuvLeft(4推荐类别"), 1)€ & "类" <身份证=NOn Erro@r Resu哊ext '这霰匦氲模蛭胁糠置撇⒚挥辛性诮缑姹碇h小Gh肧heets(2).Cells.Find ?.Row '判断 是否存 冢鐏则惛哺莾,If丳 <> 0 Th€en 7(*s.Coun(t, €AE>xlUp?+ 1 '如不?增紑右恍  If乥'—獊改谌 噮7照片脕排序侽*飥邅*(乗^肎Dim rng€cun As yB,luruF iOg(2, C olumnM).yCLTo翐纏?F!@圗achEIn 寊€\€慽ze€(1, i -€焌BC mi@(og @!(C,, Le鷑) AMB5€9?x?秵 敛/Fu党派0 dp1@!"绩尤雭1?梁 sj 时籍  2 2 ?2q 2o B塂=dp琥Set?齚=N2?$#嫛$ C?bQ'€lRighe`BH预瘫辅 p1 dT?e醿b吡%c粪伌 a碻麁Bk2@F" ·躅 "%&`燑?`?<-e 学历 qrz xl啕$X全日乐平逃鼳噅恕w位$ yx毕业盒＜白ㄒ.登乹zj在|职5 'o z込Y ? R'? BpB obASG?ce‵zzn" W15縄I眵p諭W焌萵g,co("4Nv" 曘Rp/ / 眵 a gE?怬VG / @%wyxyx蟊並zzv??1 x?现侗饝a jb釛1现任襓搜>=任7 D&?VK坘jb$jb睪" 餗& 黬b殬$礱浛樶Y tu1叿  '图片搢癒1A*shp Pi€ctures(s?惝‘已有岙岽则出现错误，er@r值<>0性虿恍€枰迦雬`X鸷侔.De恖ete 拯B?Z r粧\5@\BWith睍?表 1绤{`".T蚊sC鄌py 'T 罏py xlSc reen,Bi爐map'd?则A的Q无法保留，而是改成了“**扁 B 2! .Pas愙Destinatio竛:=€'"1 .q.To 0+ 2 '可觔脰 (*. cA? 数表示刚粘贴进去的那p一张縍 A憼Q`{# ' 嵰__SRP_bQj搹鶴0RLub?jWWA}__SRP_14nB__SRP_15>8籃有列在帽 碇小G'悄谌 F€*Eac鈎cIn 怱€Y=ize(1, i - 1 m耰€}heng€n乊?儏, Len? 儛()€"" '虽然是""但我认为这也还是有劇U”的.ClearContents '不知道为朗裁从6不能删喜⒌ピ裰械氖軦S此结合用了一个="纮 ?L亣倎绤€v亁).Value 乶奲照片 eA @€剘 @k叀A N 聑8亐中  IfEw"表").Picture > 0 T纒 穞偙Var餴antF尷GC ?tu.Dele雷'#已訜@Y#僀9If咵判断存储欠裼邢揉应tuA徖 ]脇"C编号9醚D`€\葽鮡`t shp %"() '图坡?存在?纐 叁A羹)p\H6`佝叁Kr(棹%羹(L麥`%((%(%\(8%p$pd\佝B?郎匎x)p\6佝€Hxa`佝(L麥叁?lxppM8 @ lp=xpp5`):8 %p'L%p$p,p&p'L%p$pqpx xa`?齣8%\(L%p$pd\佝A叁 %H'%p$H,)p\H6`佝叁x€ l   <$匎€羹tpx(p\H`佝叁€KHd:h%x$xddWTA4(D]鹴)xd6T4@d:h%x$xddWT)xd酤裏 酤s x'D%:h%$xaT?齣玄%帼(濑%d$dd帼4A$ 剥)xd帼6T4?剥龘 @d(h%x$xddT狛﨨)xd$滯 xxl滯x[(玄%(堽%:D%d:h%x$xddTB4橚)xd6T4E剥龘 @d(h%x$xdd4裏)xd54Xx'D%:h%$Qx齩T%帼:濑%d$dd帼)d帼5TD剥龘 @d:h%x$xddThhd?xd$橚aT~(h麛4%ld?C6T4$橚aT(h麛4%ld?C6T4 qdD,酤h橚剥狛$xd帼T4$fe8*\R1*#2ac*\R1*#41rU€€€ (`?/(`?/n€ € 6r€rU€€€ P rU€€€€~|  9   1 Q q Q! ."9"a"?)?Y?a &#y&!#A#Y#?? $9$i$??!%Q%????'A'Y'y'???i,0X'\%:l%$QX齩H8  8:(酤'%:%$酤a濑轧%剥'逮%:宁%$剥,)酤剥6 H8濑轧KpX'\%:l%$XaH%剥((%酤$酤d剥W8 > A濑 慆)X酤剥6H8$岨 XXl岨X夻聊?%X$XaHv?齣\%(%剥(l%酤$酤d剥8 >A濑 (狛麛轧慆)X酤剥6H8濑 慆  慆  (慆,X酤剥H8濑轧D K~溜%(8%p$`pa`v?齣%H(L%\$\dH佝 >叁A羹)p\H6`佝叁r(棹%羹(L麥`%((%(%\(8%p$pd\佝 B?郎匎x)p\6佝€Hxa`佝(L麥叁?lxppM8 @  lp=xpp5`xp'L%p$pa佝% xa`?齣(%H(8%\$\dH叁 C)p\H6`佝叁x€+p'8%:L%$pa``p+p'8%:L%$pa`Pp+p'8%:L%$pa`@p+p'8%:L%$pa`0pp p'8%:L%$pa`?齣%H((%\$\dH佝 ,?p\H6`佝@?L]?E`隸(L麥佝?`叁  叁:8]?`?(]?' ?5叁j2`` `佝P锶?,?6`佝叁#``  `:L]?5`2`` `佝P锶?,?6`佝叁P @,?TE`隸(L麥佝?`叁  叁:8]?`?(]?' ?5叁~Z`?L `P镓叁 叁@?8  0稂?,?6`佝叁 R#``  `:L]?5`X *F`P镓叁 叁@?L  0稂?,?6`佝叁 R`?L]鸃RFP` `佝@锶?L 0?,?6 `佝叁+p'8%:L!%$pa`忑p+p'8%:L"%$pa`荦p+p'8%:L#%$pa`听p+p'8%:L$%$pa`箭p+p'8%:L%%$pa`p+p'8%:L&%$pa`滮pp p'8%:L'%$pa`?齣%H((%\$\dH佝 橗)p\H6`佝p p'8%:L(%$pa`?齣%H((%\$\dH佝 旪)p\H6`佝p p'8%:L)%$pa`?齣%H((%\$\dH佝 慅)p\H6`佝p p'8%:L*%$pa`?齣%H((%\$\dH佝 岧)p\H6`佝2忑` `佝荦叁%橗,6`佝叁听龘 @旪,2箭` `佝叁%慅,6`佝叁滮龘 @岧,+p'8%:L+%$pa`|p+p'8%:L,%$pa`lpp p'8%:L-%$pa`?齣%H((%\$\dH佝 h?p\H6`佝%l?L.`|镓?h?6`佝 l匎€羹慅岧滮t旪l箭P荦h|,p橗听`@忑x04 p\H`佝叁 pK+X'\%:l%$Xa8HXEH龘 @4(l%X$Xd4$/裏8)X45$p X'\%:l0%$Xa8?齣% (%4$4d $  )X4 68$C(\%4:l1%X$Xd48/荥荥q佝)X4Hl佝C2l佝裏3 q佝*4(l%X$XdQ4轧X)l XX龘 @轧45lX= X5 a8~(l麛$%H龘 @轧宁/C668$宁5 a8(l麛$%H龘 @轧宁/C768$宁點轧4轧荥 H$X4 8$宁aUserFormOm葔篘XTd?__SRP_fB: __SRP_eUserFormubTh??v??8????? (o '?GxME(j> <8<< <L?LL?<<<€`  0 凗橚 xX?% txa% j`0p僱%%€I?  €€`0@H`0 `XdI?  €j@?xp  @?P`  @?\  @?L  @?H  @?8  H@?(  @?  @?   @?8  @?棹  @?h佝  @?叁  酤@@羹 @?  @?橚  @?堽  @?匎    O @?€?O  H  @p? (((@0hj8xX@?px  @?h  0@?d  @?T  @?D  @?4  @?$  @?x  @?  @?@ X@? €@@?酤o hh@?濑  @?帼  @?玄  @?H俐  (@^剥 @6狛 @?滯 (@?`堽  @?x?  @?h?  x@?d?`€ N汷$*\Rffff*0]4f9b33ee*\R1*#1c8*\R0*#19*\R0*#1a*\R0*#13*\R0*#f*\R1*#dc*\R1*#e8*\R1*#2ac*\R1*#417" € €€ .~€ 8H€ € € € 6r€H€ 8)r&€ *x€€ € ( H€ € € " h€ `€ 0H8€p@Xx x€ € $Bs`0? $0€ X € € @€B[$Ex.XD@$$ p€]@`  ! $%%!N'.这个必须的，因为有部分名称并没有列在界面表中。   $%%   $' +j$虽然是""但我认为这也还是有“内容”的 ——输出内容` ——输出照片mingch ——输出照片外地方|] 4 !N$%!( +jG禨our@o8 $jB@*![不知道为什么用Range(mingcheng).ClearContents不能删除合并单元格中的数据，因此结合用了一个=""鼢?表$!h!   表$!h  B@删除已有的照片k](照片表$%j%.>2指定图片的位置% ^$%h.6%判断图片是否存在kX 8表身 ^表$%h名称€o ^$%hB@ 复制照片$j表$B@.粘贴 >! 9 >! 9A@qH——判断存储表中是否有相应照片——删除界面中照片 4A@判断存 4 存储表编号$j!N$%!('^A照片名称 MsgBox "无照片"e兂Attribute VB_Name = "输龅浇缑婺？? Sub P(hang) Dim rngcun 怉s R,e, 發uru"PiSheets(2@).Cell, Columns.Count).End(xlTo8Lef=On Error Resuext '这个必须的，因为有部分名称并?4f9bb471*\R0*#2*\R0*#f*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46$*\Rffff*0^4f9b33ee$*\Rffff*0]4f9b33ee*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R1*#dc*\R1*#1c8*\R1*#e8*\R1*#2ac*\R1*#41 48txx ?腹hDt撪抬M葲R鬿糈S减N浽蒩wa庉?限#G S翊 `_9澀}M T銀x`_9澀}M T銀奃t撪抬M葲R鬿ME\@SPSSSLL LL  LLLLL6"?<`现任职务报考qP  (d+  (dx报?oX  (d '——在填写界面中显示的信息 4存储表报考职位$j!N7!('>报考职位信息 4A@j启动时即赋予下拉框选择数据源(o n!z '4'index与实际行数差4数据清除后不可恢复！$$清除请按“确定”'x x$ z&可以将17替换成vbOKCancel|`dXkHH 4A@v   ! $%%!'b.ComboBox选择姓名.RowSource = "sheet2!b4:b" & i更新@i = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row '更新数据源范围 nB@X!b4:bXA@*根据推荐类别变化而更改界面表后面的项目名称 4 8 4存储表推荐类别$j!N7!('>推荐类别 nB@X n.ComboBox选择姓名.RowSource = "sheet2!b4:b" & iM——删除后及时调整下拉框范围胙≡?  ! $%%!'1 4$%!( nB@€ 4  4$%!( nB@0` 4 3 藎 (dG| (d (dkph( n!( 请选择姓名！A@|kjAttribute VB_Name = "UserForm浏廊嗽?  淏as?{47B49419-01D8-43E2-8293-FA53C44CDF87}{A00@86C74-&1-4A83-B37F-DAD1004E3937}dGlobalSpacoFalse 奀reatablPred恊claIdTruBExpo se0TemplateDerivCustom膇z婦 P Sub ComboBox选裥彰鸰Change()  O.ListIndex @+ 4 'i胧导市惺?If 3 Then Text€6现任职蝜?€0"€硣?粿籗推@荐类别LExitA4 End If '——在面板上显示的信息 Dim xrzw As S罋ng, 刡ktjlb With S€heets(2€G?= .Cel坙s(?, R翺€"存储表:").Column).Value 'E侲臘EB-匫ECP蟻;罰TlAO  卍丷A(g钚唇缑嬷 h 输出<到!翲!项目名称更改 '根据佸 变化而表后面祣腻C`^AL`mandButton删除_Cl鴌ckC`燲蝊#8@?"[Msg郱 "淝?i！僙SA噭c渒祂msg1g数据清除后不可恢复 & Ch爎(13)*"请按“确榷āA ?a , 17) vbCancel"@]'可以?7替换赤蓈bOK翹h9ⅰ ?〈? bq后及时调整下拉@框范围i嚴鎘DjRows gunt, 2). 8(xlUp).?ClearB€泞 4 To i羦Add餓tem莧*zB>赔N '慲U隆5源#?`Sour率"s!?!b4:黚"?€罻釟蠿佸鉥Activ嗷() '启动时即赋予??罶丳m. 箢D. 1.- A L4 1 q 1|Q2a"a A貮 (a(閪1BAy&Q6 Y|亅﹟褆1|4??8? 0<?10@Y0Dq0 ?H?L?`IPq0 ?TX1` \`ai0€`hWp,hx!xh(X麛H8x5h8(X]? x!xh x x!xh x x!xh x*((X%x$xdQ($xS8龘 @x'%:X %$xah?齣酤%$HA轧 `14x6hH轧S8龘 @x'%:X%$xah?齣酤%$HA轧 `10x6hH轧S8龘 @x'%:X%$xah?齣酤%$HA轧 `1,x6hH轧點$l4x!xh xl0x!xh xl,x!xh x 8  8 $840, x(hH轧(*hx!xh:X ]?x5hZ+'''H:XNhh 6hH,hx!xh(X麛H棹x5hG:Xh hH :8佝叁6hH*''H'h叁^?hH" 棹 ~狛撅%x$xahv?齣8%(%俐(X%宁$宁d俐H>A€?x宁俐6hHx!xx(8棹€h`?e'棹龘 @((%宁(X%x$xd宁h=H 俐!俐)x宁俐6hH 棹`(8 p`€叁棹,x宁俐hH佝x~撅%x$xahv?齣@%( %P(T%d$ddP帼>玄A剥俐)xdP6h帼玄x!xx(@狛俐€e'玄狛龘 @(0%d(T%x$xddh=帼 P!P)xdP6h帼玄 狛€4慆€俐狛(xdPh帼玄剥XL`HrU€€€ l$`$A`$`nrU€€€   1 q 羫Q2€ € `H.~€€  € &e € +`+€ 0€ "€ €€ ,8€ \g`€ *0<S@<S€<S€    (€ € H€  h€ 6x€ € 8€ € "@€ *+€ ,H€ € @/€ &€ (? ` 2€ ": P ,( €  € p€ €` ](@$ 4存储表现任职务$j!N7!('>现任职务x 4存储表报考职位$j!N7!('>报考职位 4存储表推荐类别$j!N7!('>推荐类别q  (d  (d  (do n!z ' 4A@o€x  ! $%%!'(H n!(0 请选择姓名！A@?|@k8p nB@X  4  o€ZComboBox选择姓名.RowSource = "sheet2!b4:b" & i'不知为什么用了这个就不能和additem一起用了。 4$%!( nB@p 4A@ k 4 n!  进行循 n!z '4 n 4A@ 1表/人 4 n!  4 n! G|jZ$“全部”这2项的index=0，所以要去掉。所以PdXA@\成一表的把此程序放这里了。@ 4 n!   n!z '4`——在填写界面中显示的信息 4A@jA@*根据推荐类别变化而更改界面表后面的项目名称p B@F#姣'oq8P1人/1表 nB@np  n! e4  n! /$即选择“全部（1表/全部）”，进行循环X全部/1表 nB@姶Attribute VB_Name = "UserForm生杀?D as?{CC726533-5765-49EC-8993-0C8B4A61AAFE}{68FE0DB0-C21F-43EF-AE68-8B5;78BB80}dGlobaBl擲pacoFalse 奀re atablPr@edeclaI"d軹ruBEx0pose0TemplateDerivCust衞miz婦P Sub 叒_Activ€ () 'ComboBox选择姓名.RowSour倄"sheet2!b4:b" & i'恢裁从昧苏飧鼍筒荒芎蚢dditem一起。 ixS s(2).Cells(/s.Count, End(xplUp)$?C0learA绖 hang4 To i N AdtdI@! V刟lA`Next"全部/1C烿"1人> €2AZA ^_C?e僟Dim xrzw As S伬耼g, bk餿jlb@A?ListInd@ex + 4 IfEL 俛 3 Or" 2 Then Exit? '“両”这2 项的i=0，所以要去掉羴 W榠th莇n 慢孆 銪a, R啕e("存储硐秩沃拔?`Golumn?.? '% & 报考  % "- 推荐鹄啾 %聾葆/T燣`k.7?> E ! '—谔钚唇缑嬷邢允€镜男畔⒘朗涑龅?龙A项目名称更改 '根据 变表亨竺娴腻闧J媊KmandButton确秬╛Click#\o@PnO?@?釯?M剆g % "请%慄！@侧D#If;1 )N N` 弰`刐'即!)#[（ €/a\）”，进行0循环B建立word文档 '成一表的把此程序放这鹄锪恕`@"铇- `o 4罖僥p -1 g阕茚 凖 脹E嗾@眀€A{?" _多<表2??o馱?Me0.HidpvJ+页面设( t%?XOh撶}伦G臂巼/範邏 G腃殣4*iFK絀SM檭At祦4骝[房顲瀙斊0B伛x4骝[房顲瀙斊0B伛撶}伦G臂巼/範MEh@SPSSS6"LLL     LLLLLL?LL玄A剥俐)xdP6h帼玄x!xx(@狛俐€e'玄狛龘 @(0%d(T%x$xddh=帼 P!P)xdP6h帼玄 狛€+'帼:TNhhx!xx6h帼+'帼:TNhhx!xx6h帼t4慆€俐狛(xdPh帼玄剥x ,\l!l\(L麛<,l5\d,(l!ll(iL]?\, $!$l i]?<)l$*$(L%l$ldQ$lS,龘 @l'%:L %$la\?齣荥%<A `1xl6\<S,龘 @l'%:L%$la\?齣荥%<A `1tl6\<S,龘 @l'%:L%$la\?齣荥%<A `1pl6\<點lxl!lhlltl!lhllpl!lhl ,   8 ,xtp l$\<<*hx!xh:X]?x5hZ+'''H:XNhh 6hH,hx!xh(X麛H棹x5h/棹濑x!xl濑iX]?x ?濑x!xl濑i(轧(8(Xx逮 轧  轧逮/棹濑x!xl濑iX]?x:((轧濑x!xl濑i8x旫 轧  轧旫~,hx!xh(X麛H轧x5h 轧 €<$宁逮旫轧棹 xhH`XLHrU€€€ l$`$A`$`n(6 ?     !"#$%&'()*+,-./012345678?:;<=>?@AB?D?FGHIJKLMNOPQRSTUVWXYZ?\?^_`abcdefghijklmnopqrstuvwxyz{|}~€xME,6        LL?<0<4<8<<<X`?0%`&TVX^L `堽k++I?  €8h€@?x  @,J"@?h  @?X  J@?@H  @?8  J@?(  b@?(  @?X  Vra@?  蛭@?p棹  芗由@?佝  €@?叁  @?羹  班 @?  IN@?橚  @?堽  ``8 N汷$*\Rffff*0`4f9b33ef$*\Rffff*3[4f9b2713$*\Rffff*0a4f9b33ef$*\Rffff*0D4f9b33c1$*\Rffff*3`4f9b2713$*\Rffff*3_4f9b2713$*\Rffff*3^4f9b2713$*\Rffff*3]4f9b2713*\R1*#d7*\R1*#e8*\R1*#2ac+" € € :@€ € . "8€ € H€ P€ X€  `€  p€ € € €€  € € € €  €  € @r€ (€  "€ € t€ 8€ € `(————第二页的表格——这里是逆过来做的 &(bIA@TA@VA@X 4A@^h 4A@Lx————第一页的表格—— 4A@A@A@A@, 4A@J 4A@ "!!j! "!!j! "!%jB@为了保证能生成多个表，在页面设置2程序中有意多留了一个回车，但是这样就增加了一个空白页，因此在程序结束时将此回车删除，删除空白页。 &(bn一个文档可以生成多个表，只要将顺序逆过来就行。如张三、李四、王五，在设置程序时内容填写的顺序为王五、李四、张三resso4这里和成单表，唯一区别是少了“建立word文档”这一程序v筂ousx劜Attribute VB_Name = "a01生成报名表总程序成一表模块" Sub €(hang) '这锖统傻ケ恚ㄒ磺鹗巧倭恕敖ord文档闭庖e8第二页赖谋砀P是逆过来做的 Application.ScreenHUpdng臚PalseP  页面设置2插1并合瞼⒌ピ駣$给乗表赋p值2 亄?畛涓刹啃樑息宷一塹匴匱?媀?V 廢廟将excel中的图片复制到任免表中F mybook1.ActiveDocument$.R別(.End - 2, a ).Delet@v '为了 Ｖつ蹵６郿个仛在苰翑杏幸舛嗔袅艘桓龌爻担钦庋驮黾覥空白页，因此在结束 苯薃删0除，AC 。ＡR湣Tru? @腃A粱可以 ,灰承肪托小如张三、李四、王牢澹诹ˋ&时内容填愋吹腁为A?E A?罺€肓 rU€€€€~|  ? "$&( "$&(*馝? i,x" x$xx    l  l  l    l  l r"XWh=XA8(H麥(%"XW=A棹(麥佝%"XW>堽裏6hX8棹堽"? x$xx$ < xhX8(棹佝橚堽krU€€€ (`?/nrU€€€€~| 76  1 "9" a?A'赛?__SRP_1dGCp Rd柡NXT!jWW1(%__SRP_36E€__SRP_37]T[pI,i,)=?Q=a"?`~溜%(8%p$`pa`v?齣%H(L%\$\dH佝>叁A羹)p\H6`佝叁Kr(棹%羹(L麥`%((%(%\(8%p$pd\佝B?郎匎x)p\6佝€Hxa`佝(L麥叁?lxppM8 @ lp=xpp5`):8 %p'L%p$p,p&p'L%p$pqpx€;:8 %\:L %p$pd\)p\H\:L %p$pd\W`A佝(8]鹴)p\6`佝v@\:L %p$pd\W`PP`?p\@`燓 `孈*\:L %p$pdQ\<p:L %c(%<L%<點<s p'8%:L%$pa`?齣%H((%\$\dH佝A叁,?p\H6`佝E, @\(L%p$pd\佝裏)p\5佝O8撅% \(L%p$pd\佝裏)p\5佝汰tPT< @匎€L<P羹t,p`x(p\H`佝叁krU€€€ 6(6`?/n t(D?9 x!jWW1ea]F__SRP_32__SRP_33bZ╟P儃|+R [€ME6 <(<<< <LL?<,<0<4<8<<< 0%  `x 轧k宏由 qq 录制，时间: 2011/6/19 14`   `J88h €0x@?x  @?8h  @?d  @?PT  @?€D  @?h4  @?$  @??????????  6RYe€ @?  鸑@? 鱏@? a翂Ho@?酤o X0`0ar@濑 总@?轧  X 8  Exit Su Exl  片 @?\  t rn@X  ge("@?H  '指度D  2).P@?4  '复@0  te D@?   掌?@?  ("表@?  @?瘙  + 2X帼  .Lef玄 @?俐  剥 @? 8 N汷$*\Rffff*1]4f9b51c5*\R0*#14*\R1*(?孏xME,(j6 LLLL?<0<4<8<<<` ``? 僼H%p xxerWW% t% v` ,))I?  €0€ px(Pj @?p  @?`  "@?8\  € @?PL  @?H  H@?h8  H@?€(  $@?  @?  褴@?  @?@棹  @?佝  @?(叁  @羹 @?  @?X橚  @?堽  @?匎  周@?€?O   @p? @?P?  @?L?  @@?PH? h(@?D? *P edF e@?@?o xx@?   $'*\G{ +j$虽然是""但我认为这也还是有“内容”的 $jB@*![不知道为什么用Range(mingcheng).ClearContents不能删除合并单元格中的数据，因此结合用了一个=""表$!h!  !(](ko 表$!hl蟚 B@删除已有的照片劅 ^$%hB@"删除%——删除存储表中的照片ar`h 4 存储表编号$j!N$%!('^A照片名称B@——删除存储表中的数据  4$%B@——删除界面中的内容 ——删除界面中的照片H表$保护111表$B@111C@0 保护工作表 90不锁定单元格可以编辑q解除保护o3Attribute VB_Name = "删嗽蹦？? Sub H(hang) Dim rngcun As$ R,e, lu,ru"Piheets(2).Cell, Columns.Count).End(xlToLef=On Error Resu濶ext '这个必须的，因为有部分名称并没有列在界面@表中。G'0——中的内容 BF€,EacheIn 怳€[?ize(1, i - B1 mi€hXeng€p乕(儑, Len)倫 ()€"" '虽然是""但我认为这也还是有“Q”? .ClearContents '不知道为什0么用6不能吅喜⒌ ピD数据AS此结嫌昧艘桓8觚"@€]Q照片 '解砢；だz"表").Unprotect Password: ="111@ IfEZ Picture > 0L T繴俐 泃倳Variant績FoGnC €tu.Dele篮?A?已觻丆0c9馈 If??W榠th?.P?, c膁:=Tr ue 'A工作表EnableS@#ction纻xlUnl鄌ckedB$!纔锁定Ci可以编辑 'A)? 奼存$储伨的?tu滰投A?dK"0编号`7#p).鑆al€'羕&<隌b%6( )?丩aiRowsc姤S@hift:=?pa!c@ #dc*\R1*#e8*\R1*#2ac "€ H€(@H€ ` €€ =0 !€ " `€ € Bu0?(€ BuX0? $€ $E€ € "Q8€ h€ 8op A@!hB@]$!h! '奔 $!htu.Delete '删除已有的照片PkH$!h!  @——删除存储表中的照片 存储表编号$j!N$%!('^>照片名称 ^$%h.6%判断图片是否存在 存储表编号$j!N$%!('^>照片名称 ^$%h.6%判断图片是否存在 8|0k( ^$%hB@"复制——删除存储表中的数据 $%B@贶opxAttribute VB_Name = "模?" Sub Macro1(X) L.腄escriptionp宏由 qq 录制奔泮 2011/6/19凱rocDataNInvok@e_FuncN \n146' If Sheets(2).Pictures.Count > 0 €Then Dim tu As VariantFor Ea鋍hInL 'tu.Dele€?删除已有的照片Nex€)End If iU昅 MsgB纎x i €琩d '——?存⒈碇?tuming .Cells(6, Range("编?)唋umn).Value B'X名称鉫爐 shpS(C) '判断计欠翊劓在?  €} Err <妜Ex鴌t BRa`E6苧x复Cx^堇K歊ow€[)Shift窥=xlUpAGtrU€€€€~| 32  ?I,APHd(h%x$xddWTA4(D]鹴)xd6T4@d(h%x$xddWT)xd酤 酤=d(h%x$xddWTA4濑)xd5T!'$'4'T濑 6T4$8 酤濑 xdT4$0   frU€€€ 2$2`?)q$2`?nrU€€€ A__SRP_8__SRP_9P; Npenc!jWW__SRP_38Q2ayOA  塼眛賢uat4` 8`I<a`0€`_W8$ H*hx!xh:X]?x5hZ+'''H:XNhh 6hHDhx!xh酤'8%:X%$酤,)x酤5hE(X%((%x$(xh 酤酤0)x酤5h $ € $ $x酤hH0 0  0   48<<@ @?rU€€€ H$`$A`$`,` 9Q&&n @? rU€€€€~| 98 ?4@ ?`  ! 7%! '4可以编 4 存储表简历$j!N7%.作 &(bOn Error Resume Next7q !'q7C@  ! 7%!'4q111C@5 保护工作表 5&%B@ $B@B &(bM为什么这种方式复制粘贴没有出现225个字符的限制？因为是Destination:=rng的原因？o % &!B@h新增只含一张表的工作簿@5(&*设置成文本格式 95不锁定单元格可以编辑C@B!close方法后面还有几个参数可以设置 $@4: 47B@)为什么Destination:=.Cells(1, 1)方法不行呢A@jA@0mAttribute VB_Name = "上ㄊ菽？? Sub H() Application.Scree恘Updng|False  显示筦ぷ鞅" ThisWorkbook.Sheets(2).Copy隐?5 nmVAcptive8?单元格中的沧址笥?25时，用复制只能保留!前的#，后面的都删除了，所以要用下 程序0Dim rlAs Range '循环用D jl 糎蚶鷨 ly 蛝萍隼碛蓡刡z备注?0With攼 hB?Cell@s(Rows漸nt, nd€(xlUp).  - 3SetbU= 4,僩("存储表匒."乤lumn@esize(A, 1@}纒 6嶂单位您€BoAF€< AMAOF€or Eachl營n Un@?@oHjl,lybz?E搒(nm)泞1?z.Address).V8alu'持 Nex辴Fn 腲B' GT羒s("1:3伬8Entire@n€.Hidden€yTr@'撩标鈰Protect Password:="111", conte nts:= 'p保护扔B.EnableSel %€Gnlo0cked釱%' 凰╟m可酪员嗉G0.閮Dialo gs繰#SaveBA*Show%.`Close'BcA方法u褂屑父霾埼数设pI?a?1闀不捎?) '裁碊esHtin"桗=$a1\!不行呢A淐 'On ErrORes>u唰鉇 咮 1 '新增只含一张表劦腁3簿 鶞兡.dO4:"< &聤叞?@1 B?[唲?膶.Numbersmat Local€L"@" 'A8成文辣靖袷紻D Z 襳5違違違A?違a%違違違 ?€頙5Ck~ZAd2这种方式裺粘贴没 谐鱿t个駍的限制恳騪5菤R祤脑颍砍 d9 P` )@  r?2Dqw蔬黊凧廆?$愰蟀3厢\閟B唤﨣r?[:GA" L?LL<8<<<0{34466111-BC46-40BA-8980-0B60D1BC34A7}{C01B894D-32F5-4BB9-BD3F-DF67FB592180}`€?0(%侢X0 %凗%偁??% 0`酤kei凗 ≒h? `| ei凗  `$Ja凃 e€a凈e€ i凗 ?ejlFp b`|+ei凗 0P0P@?x  @?h  @?X  @?H  00@?8  @?(  @?  @?  @?  @?酤  h(H  @?8  p(  P  H@?  0(  酤  e NeHP0hH N汷$*\Rffff*0X4f9b33e8$*\Rffff*0^4f9b33ee*\R1*#1c8*\R1*#e8*\R1*#2ac*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4648<"€ € "€ *h+x€€ € DE8€  X€ 0€ € " € € " € E€ op !(推荐类别$j((A@ l%B@ B@F !(|Hk@请选择推荐类别！A@?P0oo l%B@StahPoAttribute VB_Name = "推隼啾?  鳥as|0{34466111-BC46-40BA-8980-0B60D1BC34A7}{C01B894D-32F5-4BB9-BD3F-DF67FB592180}dGlobaBl奡pacoFalse 奀re atablPr@edeclaI"d覶ruBEx0pose0TemplateDerivCust衞miz婦P Sub Com boBox叐_Change() EndmandButton确定_ ClickIfA?.Valu亜"" Then @ Msg; €"请选择? ！€穩Exit= If R{?)F?ect€GCell.Offset(0, -1).AAC.Hid@a 界面项棵聘 訠UserForm堾 QueryCl@w(Cancel As Integer, ModeH@cE翹0e\6F" y'41 q a;9"堺利 <?a"1<?Q<??)=赛?Q=橗(" x$xx 1d(h%x$xdd )xd (`x$Hx>`F@Px*d(h%x$xdQd,xd忐撅%x$xa@v?齣h%( %,烃 >件 A滯(麥岨|x6@烃件滯d| @(l%( %x'%:h%$xa@?齣忐%,烃 B件8x6@烃件d| @(l%( %x'%:h%$xa@?齣忐%,烃 B件4x6@烃件d| @(l%( %x'%:h%$xa@?齣忐%,烃 B件0x6@烃件點,( ',?'d6dx8€ (8z@ € (' &(P ( "L.€ € "6 €  "€ € .:( (€ *$Y € (' "X * (P "€Lx.H€ ?€  "€ € T€ `op &(b >   $*]简历nm).Sh] 循环用由 %B@x 5&%B@q7可q]推荐理由]备注rror R 4存储表单位推荐理由$j!N7%.qH >!( >! $%%j((@赋值 4 存储表备注$j!N7%.%` !'`` % \单元格中的数据字符大于225时，用复制只能保留225前的字符，后面的都删除了，所以要用下面的程序。分.1:37!(0隐藏标题以p111C@5 保护工作表C@B!close方法后面还有几个参数可以设置 $cl 95不锁定单元格可以编辑0__SRP_39SW6epenc!jWW__SRP_3a8__SRP_3bVg?y'??p" x$xx" x$xxOd%tx$xtD@@)xt@5D(<x$Hx><FD,x",<$><FD]?5D#,D  D:d ]鸃5Dt+'荥'':d NDD 6D荥? ' %'T%'d%t,x$xD tl)xtJ佝(d%@t,x$xD t@dQ佝轧)xt@?d%( %轧D:宁]?(逮%(旫%轧:t]?荥d?$%:T%x$`x4A%轧札:潺]?凝待x6 D4+'荥'':dNDD 6D荥Y宁撅%x$xaDv?齣d%( %轧>A荥x6D):dD%轧裏6D點轧*t(d%x$xdQt滮xl(%(匎%宁撅%x$xaDv?齣d%( %滮>B荥狚x6D荥)l狚xx齺??|I??? @滮lx=狚x點滮? ' %'T%'d%t,x$xD tl)xt"? x$xx"? x$xxp8 轧滮狚,H<xt@佝D荥d4札凝待k?H4U€€€ :$:`?n\1@?潺  t ?j悥蠀>f:y錧\O!jWW__SRP_34, __SRP_35YJ5抍廭!jWW 8     !"#$%&'()*+?-./01234?67?9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvw?yz{|}~€xMEP6 LL?<<< 14優0%00hx  @?8x  P *` 8宏由 qq 录制，时间: 2011/6/190 j`€Dkp€ h@?Ph  @?d  @?hT  @?D  8P 8@?hx  @?€h  @?d  @?T  @?D  D   0`€Dk(C ?zoxME6 (jLL?LLL?(00 凗狚(% "`8滮k--&僞%8@?x  @?t  @?d  H8 @?hT  @?PD  @?@  @?< @, @?€  @?   H@?  @?忐  @?荥  @?佝  @?轧 `@?宁  @?(逮  @?@  @@?X旫  @?p匎  X@?t?  @?d?  @?T?   @?D?  Sh@?H4?  ar@?0$?  gr@?`?  om@??  Ro@?x酏  \1@?潺  re@?札  ra@?凝  in@?待  ctp "ties\C@4 Fi@?滮 `\C00 N汷$*\Rffff*0I4f9bb59b*\R1*#1c8*\R1*#41*\R1*#1c8*\R1*#dc*\R1*#f2*\R0*#14*\R0*#f$*\Rffff*0Z4f9b33e8*\R1*#f1*\R1*#1f2*\R1*#1f1*\R1*#a5*\R1*#d7*\R1*#e8*\R1*#2ac-"€  " "€ € € pO (@€ "€ #H+h? 8@€ € Jf + (0 $Y )8€ €*2l0)hx€ ?€€  " " € € T0€ @0 &(bk &(boq !'.>x@On Error Resume Next  &%B@  ! $%  ! 7%!'44: 47B@] %@A怉  ! 7%%.>?`A >C@`@q $B@B|M为什么这种方式复制粘贴没有出现225个字符的限制？因为是Destination:=rng的原因？P &(` &(`ID:|d|k $xls请导入Excel表！A@7ID号7右边是word表号bu$!N7编号存请导入正确数据源！A@k80 $B@B0Attribute VB_Name = "接帐菽？? Sub !H上报X() Application.ScreenUpdng凢alse FDisplayAlertsDJ'On Error Resu!僋ext=alogs(xlDi Open).S€how nmNActiveWo€rkbook.ZIf This  Then Exit r End IfRight(nm, 3) <€> "xls"MsgBox "请导入Ex€cel表！ *6s€ ).Clo亣 ? With She鄀ts(1€竵N@ .Cell , 1KID号"( Or 3 右边是word表2, Columns("bu"(B编?糯鎵:墅正娜冊矗匋B 焽7聛ha倗?Rows.Count, 2).聾_纖Up).僨?4:" & A?pyD舕AP Dim 聄@As R@@耊 倓W2匴Set =臨V(Offs€et(1, -g.Pas褼es萾in批=@ 儠?纘薚ru層庈 '为什么这种方式复制粘贴没有出现225鲎址南€拗疲恳菎的原因 ？俢 P N汷$*\Rffff*034f9bb370*\R1*#dc*\R1*#f1$*\Rffff*0Z4f9b33e8*\R1*#10"€ 88€ € "€ 33€ € " €  € (€ $@€ h€ € px ? oo Macro4 Macro 宏由 qq 录制，时间: 2011/6/19Sheet5$B@ B@B4:4$B@H  B@4:8$B@H%3>BU4$j. 20B4$j4 26IT4$j8 2: ><@P B FD JH JL JN B@,€ %(,$0o h %(,。8 h %(, %(,;Attribute VB_Name = "隐叵允竟ぷ髂？? 0Sub XH表() ThisWorkbook.Sheets(1).Visibl恱lVeryHidden\2\ End> wj~?~True v7Mac竢o4乼噾 .Description仒宏由 qq 录制，时间: 2011/6/19!ProcData'Invo€ke_Func' \n14' ' :? 仐 Wind ows("偽5").Activa.t€媮eC .C(losR4:4@ Select SmallSIll Dow皀:=3C E8LC@L.Sort Key1:=Ra€nge("BU€, Order@xlAscend衖ng, 2 | _?  39 IT@ Hea€I:=xlGuessCus€tom:=1,繾tchCase:@=FalseAi0enta羴To纏ToBot )丄x8T%d(h%x$xdd)xd8T%d(h%x$xdd)xd18x$ xdl3cT%d(h%x$xdd)xd3cT%d(h%x$xdd)xd8l$ xd0   arU€€€ 4$4`?$4`?$4`?)qn ( 0?陔xME6 <0LL?<4<8<<<@僜0%@ R`赛k@XX j2>BF@?px  @?h  @?@d  @?` ` X?@?@P  p@?@  @?0  (@?   @?(  @?p  @?p瘙  0 @?帼  X@4玄 @?俐  @剥 @X狛 @慆 @?€?  @?|?`X @?x?  (Jd  @?h?  @?X?  H@?H?  @?8?  @?(?  @??  @?0?  @?  @?H椠  @?`佚  @?x三  @?庚  @@?  @?橗  @?堼  @?x?  @?h?  @? X?  @?8H?  @?P8?  @?h(?  @?€?  @??  @?  @?椟  @?攸  @?赛    @?椠  @?佚  @?三  @?庚  @?  @?橗  @?堼  @?x?  @?h?  @?X?  @?H?  @?8?  @?(?  @??  @??  @?  @?椟  @?攸  @?赛  @@8 N汷$*\Rffff*0c4f9b372c*\R1*#ba*\R1*#92*\R1*#10*\R1*#a2*\R1*#94*\R1*#1c8*\R1*#41*\R1*#dc*\R1*#e8*\R1*#2ac"€ *$Y(€ $C Cx$C€ 'P?  h p@$q  ! 7%!'44: 47qo€ 存储表姓名$j!!'X存储表推荐类别$j!!'@存储表报考职位$j!!'*8C 4$j. 20 X4$j4 26 4$j8 2: ><@P B FD JH JL JNC@,H@卤Attribute VB_Name = "排蚰？? Sub 8() ' With Sheets( 2H hangl.Cells(Rows.Count, 2).End(xlUp)2.0 ` bkzwlR=e("存储表报考职位")Blumns. 0xm.姓名!*tjlb,推@荐类别0 1 pUs("4啁" & 乶卼€^.Sort Ke0y1:=]俢& "4"), OrderxlAscending,潄2b _9*3俬?cHea€= +:=xlGuess?Custom:=1, MatchCase:=FalseAien@tationT€opToBot K*?Method PinYin,€ DataOp? Normal鐗?xl 6g処払g K@ __SRP_2exH__SRP_2f$NgUserFormvQ諲烺齹 c當({__SRP_2d`\???????rU€€€€~| /.  1 q (9(a(???i+? )1)Q)y)???!*Q*???1+*d(h%x$xdQd`xY撅%x$xaPv?齣h%(0%`瘙>帼A俐玄x6P瘙帼Cx'@%:h%$xaPdda瘙n剥)xd5PCx'@%:h %$xaPdda瘙n狛)xd5PCx'@%:h %$xaPdda瘙n慆)xd5P':h 玄P%`瘙 €€|?Px'@%剥:hP%$Qx齩俐%X%d' %狛:0瘙%$Qd齩8?%x?%慆:帼%$Qxo%佚%庚%(橗%黤x?X%8%%%攸%l|燓 6 P瘙帼俐8 q|點`<l$`€玄剥狛慆0 xdxP瘙帼俐8 krU€€€ .$.`?nrU€€€ ,   ` 8:蓎駓zyy4a)0€` -BE0A1}{AAB273F3-6A3F-4D7D-B161-C5680D3@EB444}dG lobal朣pacoFalse 奀reatablPredec$laId逿ruBExpose0Templa€teDerivCustomiz婦P Sub CommandButton接收数据_Click() Me.8Hid€O€上尡Act@Cell.Offset(0, -81). 3"End?>浏览鹑嗽 >F ?Show凗?R?<砃[生硛杀須<搰 = ? 塢S_QueryCl€?Cancel As Int@eger, MxodeH€?~0R(€ € " € € €0@€ € P€ $p€ € €€ € >,8€ h€ x  "!!f落] "!%f!j%!j!B( !j!B( !j!(o--调用第一个文档--]P7mybook1.Tables(1).Range.Cells(40).VerticalAlignment = 0 &!('$' 获取文件名? $$*." "!&(,?--判断段落数是否相等--dl1 = mybook1.Paragraphs.Count]€  "!f? !j!B( !j!(onX7mybook1.Tables(1).Range.Cells(40).VerticalAlignment = 0 "%f!j%!j!B(o颈Attribute VB_Name = "模?" Sub Test(mybook1)  Dim mytable As Variant 4For Each>In~.ActiveDocumen鑤.T~s58O.Range.ParagraphOmat.Ali,gn5?2Cells.Vertical0Nex;'詣B(1)C凕#(40)%0w嘄榠?2.k- End €粊2(?--调用第一个文档-- 膫D腛bjecrwenj€?Appl€噒ion.GetOpe@nFilen侕'获取文件涿鸃{etj€ =(!匧Visi亖= True?*判断温涫欠 裣嗟+'dlA$E艬s.Co鷘亸'€侰5畻據y ?撿1?悁rU€€€€~| 01馝9I?iKK1 ﹎$$l =LA<,,l5Lu"(\%l=L=<C6L<"(\%l=L=<C6L< l&R(滯%(忐%( %l =L><=烃>件==|C6 L<烃件|4(,l$L<烃件|0   frU€€€ 1(1`?/$1`?nし€0* pHd VBAProje坈t4@j = r  N汷 J< r€stdole>stdo€leh%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`僂OffDic凟Of€ic侲瀫攢丒2DF8D04C-5BFA-10€1B-BDE5€E訟A€C4€2圗€gram Files\CommonMicrosoft S_VBA_PROJECTA鉟dir __SRP_0syP__SRP_1fE 9bb7ddz 黐eQgqGr!jWW卝PIwordh坘XEQr^钀酧o`!jWW0D4f9b33c1Pwordh坘XEQr^钀酧o`!jWW`S`xa1鷁藌word噀ch!jWW3Y4f9b2713^a1鷁藌word噀ch!jWW渚`; Sheet40l4f9b378ec Sheet4柱P 腃t^g 愰b0V4f9b33e8t^g 愰b Lub梱橆vT饄鬴9e!jWW0^4f9b33eeLub梱橆vT饄鬴9e!jWWhH搹eQX[≒h?jWW0Y4f9b33e8h搹eQX[≒h?jWW.€€ C#搹鶴0RLub?jWW0]4f9b33eel搹鶴0RLub?jWWG@-UserFormOm葔篘XT0v4f9b3f90UserFormOm葔篘XT腹@H`~ UserFormubTh0p4f9b3790UserFormubTh?XO@H`€ a01ubTh圎` z廭bNh?jWW    6<1 !"#$%&'()*+,-./02345?79W:;@R>??ABCMEFGHIJKL=NOPQSkTnVXYZ[\g^_`abcdefUhij?{m?opqstuvwxyz??~€0`4f9b33ef( a01ubTh圎` z廭bNh?jWW0x`  Rd柡NXT!jWW084f9bb471t Rd柡NXT!jWW孏 !jWW11]4f9b51c5!jWW19 J╟P儃|+R0X4f9b33e8╟P儃|+R2Hx Npenc!jWW094f9bb4af Npenc!jWWk` 3 6epenc!jWW0I4f9bb59b^ 6epenc!jWWzo@悥蠀>f:y錧\O!jWW034f9bb370悥蠀>f:y錧\O!jWWj` 抍廭!jWW0c4f9b372c\抍廭!jWW陔€6UserFormvQ諲烺齹 c當0o4f9b378eUserFormvQ諲烺齹 c當絕€` @!jWW21T4f9b4e37!jWW2TC @@`H0 P`0x€€p `?C>L嬓s@-c?椓 孊奰`縶YP侀#譂OB靶os簐葆dw4[茒滲祴Wa瘘巀谵+菷岼儷忦柆?飚6-櫆鮋旾銮Fhv袭]墠丣??婰籎x|跠男\颫?勵芼岮笌J犞鐆5謆?#?鯧X臷?8]L鯤N吡u琗??抿濾頏篽紾触渫he奨笽皥"?0盹#秱K璵蕙麻?q:酴紶3C更>a?p8K辢謆"@渐} !<ti蹟镮N発锡蓾喳樥d嚵L伷,軅j?u!l[匾@偮>苸?寵杔?揂庩)0f K 水C從|n舏@釖蘟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 11.0 Object Library*\G{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0#C:\PROGRA~1\MICROS~2\OFFICE11\MSCAL.OCX#Microsoft Calendar Control 11.0*\G{E659180C-01AE-4D17-8FAA-A3E19A7CCE77}#7.0#0#C:\Users\quanquan\AppData\Local\Temp\Excel8.0\MSACAL.exd#Microsoft Calendar Control 11.0.?巇?$*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{5A529D39-738E-431F-806B-83F89F19F826}#2.0#0#C:\Users\quanquan\AppData\Local\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library?E忇?`孧 *\G{00024517-0000-0000-C000-000000000046}#1.0#0#C:\Program Files\Microsoft Office\OFFICE11\REFEDIT.DLL#Ref Edit Control*\G{153B47E8-8BB9-476E-867B-86393DEA2A40}#1.0#0#C:\Users\quanquan\AppData\Local\Temp\VBE\RefEdit.exd#Ref Edit ControlEF   N汷   ? ThisWorkbook0Z4f9b33e8ThisWorkbook Sheet10_4f9b33ef Sheet1 Sheet20[4f9b33ec Sheet2n 0:y婳!jWW0A4f9c105e0:y婳!jWW@8I a0ubTh圎` z廭bUSh?jWW3[4f9b2713*a0ubTh圎` z廭bUSh?jWWaK0x`$R璭Gr/f&TX[(W!jWW0B4f9c105eF$R璭Gr/f&TX[(W!jWWC2黐eQ烻薡penc!jWW0C4f9c105e黐eQ烻薡penc!jWW")pau榖椌媙!jWW3]4f9b2713au榖椌媙!jWWRn`cTv^USCQ<` €ShapeRange樚` €ScaleWidth愃`€msoFalseF.`€msoScaleFromTopLeftσ` €ScaleHeight?`€IncrementLeft嬣` €IncrementTop粓`? 导入照片澝` 导入照片模块鸴€_B_var_wenjian]宍OpenClipboard`hwnd/羆user32*蝋CloseClipboardby`EmptyClipboardZ╜SetClipboardData0/`wFormat5t`hMem蕪` CopyImageT`handle`un1J違n1L^`n2M^`un2K違 DeleteObjectT`hObject`gdi32i鸴 CF_BITMAP 玚LR_COPYRETURNORG坜`PointPerMilimeter紁`CommandButton1_Click淞`hBmp"V`Image1_`€Picture?`€Paste`€Shapes?`€_B_var_Image1~` €PlacementI豟€xlMoveAndSizeU躟 €PrintObject!`€Copy瓶` €CutCopyMode` €_B_var_Set恅Pg`? 将excel中的图片复制到任免表中隸 将图片复制到任免表中模块筦sExtO鎌UCase5 `Right` €FoundFiles` €_B_var_sExt|K`geshi※` _B_var_Right9賎 _B_var_UCasea蝋 €_B_var_geshi幗` ? 导入照片2Y`pic婷`€Top5赻 €TopLeftCellV` €MergeArea腵 €_B_var_rngf宍 €_B_var_pic鱻`€_B_var_Placement庒`以上参考了来源http懘` ?导入原始数据?`oldname公`€Dialogs娛` €xlDialogOpen乃`€Show鮜newname#`€ActiveWorkbook €WorkbooksB靈Before夀`€_B_var_oldname=痐€_B_var_newname`€Activate梶` 导入原始数据模块嵚`€icturD檂 €_B_var_ictur1]` €_B_var_Paste缮`€_B_var_Pictures`CopyRowsx `模块5蔯`€Windows` €ActiveWindow?`pictrueso鸴 €Worksheets鉴` €CopyPicture瘼`€xlScreen`€xlBitmap瘳` €Destination谢`?导入原始数据2 黗 €xlPicture硱`€Default倦`xlPicturedefault櫥`€_B_var_xlPicturedefault揰`Chart1赞`Chart?Sj` FormatNumber/齚vbCrLf`€_B_var_Sshp儆`Erro奰 €_B_var_shp陳`Number?`elsify=` €_B_var_elsiff`elesifEn`?判断图片是否存在O醏 判断图片是否存在模块r`word表\n`?word表填充干部信息g鏯?word表填充干部信息2諌`€Column爄` word表填充干部信息模块|譧aa将excel中的图片复制到任免表中!萡总模块` CreateObject鴬`Clear阃` documents` ?建立word文档鈫` a1建立word文档模块N隸总程序訢` Sheet4`Sheet31kP`MSACAL氤` Calendar1<榒Calendar1_Click㈡` €ActiveCell椒`Worksheet_SelectionChange?`Target現`Now%篳€Click娿`€SelectionChange鉵`ctrs粟` €_B_var_ctrs?`ctsr镖` UserForm1)謄 MSFormsC`UserFormN` ComboBox1'豟 ComboBox2(豟Label1?` Label1_Click惶`Label2?`ComboBox1_Changea`€ChangeＧ`年月` 年月选择谰` ComboBox年M璥 ComboBox月O痐mc9^`of哵`€Names慰` €RefersToR1C1礳` €FormulaR1C1S`出生年月澬` 参加工作时间加入党派1时间嚒`加入党派2时间U3`€_B_var_出生年月&╜€_B_var_参加工作时间鏖`€_B_var_加入党派1时间%u`€_B_var_加入党派2时间`€Address`exti珄`€100o`UserForm_Click埒`ComboBox年_Changep`ComboBox月_Change?`ListBox1涬`ListBox2滊` ListBox年儎`ListBox年_Click幈` ListBox月厗`ListBox2_Click=`€_B_var_ListBox月I€`ListBox年_Change瀳`ListBox年_AfterUpdate夁` €AfterUpdate侥`ListBox月_Click:琡ListBox月_AfterUpdate"穈ChrK~` _B_var_Chr\;`sui痴` €_B_var_sui膾`Year6n`Month`nian`yuea郹esle耞` €_B_var_nian2乣 €_B_var_yuer漙ListBox月_Change筏`UserForm_QueryClose`Cancel駱` CloseMode責` €QueryCloseT鬬combox月F襚UserForm_ActivateZs`ele剦` €_B_var_End轋`照片`?dd韁`€Resize@4`TextBox1`TextBox1_Change=鏯tuN_`RefEdit`RefEdit1彠` TextBox简历饆`TextBox简历_Changefv`存入数据\L`rngcun勿`rngluru?`rancun`€xlToLeftWY` mingchengy莁€_B_var_mingcheng拘` _B_var_LeftQ醏€_B_var_rancunj`显示数据` 显示数据模块釴`€ClearContents{躟€ClearCommentsf萡?示例饳` 示例模块飆` ?输入存储表*.`hang錚` €_B_var_hangQ禶 €_B_var_Row殞`€Findn餪What酑`after`€LookIn襊` €xlFormulasZ擿LookAt癘`€xlPart椟` SearchOrder`€xlByRows`SearchDirectionr卄€xlNext锴` €MatchCase囄` MatchByte胹` SearchFormat?`di騖` €_B_var_di汃`€_B_var_Picture` CopySheets差`tuming樮`€_B_var_tumingW`?输入照片jD`errow@踐resu` 输入存储表模块尗` ?输出到界面認` 输出到界面模块U綻ComboBox选择姓名`ComboBox选择姓名_Change価`ComboBox选择姓名_AfterUpdate `€ComboBox穃`€_B_var_ComboBox@4`€ListRowsF` €ListIndex鱍`msgQ礰 €_B_var_msgbr`€List*揱 €ListCount6`ListBox单位职务鈯`ListBox报考职位[(`ListBox推荐类型`dwzwF琡 €_B_var_dwzws`xrzw6`bkzw7鎌tjlb苣`€Sheet[謄 €_B_var_SheetH歚ListBox单位职务_Click鸴ListBox现任职务玚ListBox推荐类别b` €_B_var_xrzw` €_B_var_bkzwdK` €_B_var_tjlb *`€_B_var_ListBox推荐类别4ListBox现任职务_Click蟾`TextBox现任职务騾`TextBox报考职位;`TextBox推荐类别郹Label3?`Frame1筦Label4?`CommandButton确定焯`Frame2筦€AddItem `€_B_var_TextBox报考职位韅TextBox推荐职位轳`€_B_var_TextBox推荐类别撋`CommandButton确定_Click賏`删除界面中照片卵`不存在穀` Sub输出照片?`?输出照片$_`lie劗` €_B_var_lie昸`€_B_var_ElseIfqm` 第二页项目雭`UserForm查阅报名人员e沗 UserForm生成报名表`3`? 将excel中的图片复制到任免表中dd鵌`生成报名表总程序慚`a0生成报名表总模块灹`a0生成报名表总程序模块eZ`scells蚭`组织推荐A` Frame1_Click鯢`vlaue槒` €RowSource2`ReturnBoolean閑`ComboBox选择姓名_ExitJK` DataObject` fmDragStateゑ` ReturnEffect"H` CommandButton确定_BeforeDragOver}燻Data;`Xo`Yl` DragState`Effect銃`Shift潆`ComboBox选择姓名_BeforeUpdateV癭 €BeforeUpdate?`ComboBox选择姓名_BeforeDragOverj豟€BeforeDragOver芵ReturnInteger鍌`ComboBox选择姓名_KeyPressrg`KeyAscii#`€KeyPressq鯼全部?` €_B_var_全部榒TextBox现任职务_Change1綻hang1綴`msgbboxLB`€_B_var_msgbbox蠩` €_B_var_hang1`?生成报名表总程序成一表?`?生成报名表总程序成多表>3`生成报名表总程序成单表鎯`a0生成报名表总程序成单表/僠a1生成报名表总程序成一表模块琡 a01生成报名表总程序成一表模块 ` a0生成报名表总程序成单表模块鳋`€_B_var_生成报名表总程序成多表`dp1珓` €_B_var_dp1糀`dp1sj` €_B_var_dp1sj2襚dp2瑒`dp2sj_`rngdp 馺 €_B_var_dp2紸`dp鵟`?输入内容\昤 €_B_var_dp2sj嬜`€_B_var_rngcun8k`€Hide9z`qxls薫qxw}薫zzxl%綻zzxw/綻qrxlQ燻qrzxw8轥qrzxl.轥qrzyx溯`zzyx陆`rngqrz ;`rngzzA鬬rngqrzyxS鎌rngzzyx`rngqzz2<` €_B_var_qrzxl €_B_var_qrzxw% €_B_var_qrzyx浮` €_B_var_zzxlR#` €_B_var_zzxw\#` €_B_var_zzyx?`CommandButton删除違CommandButton删除_Click%礰 删除人员模块廯€_B_var_rngjl1=廯€_B_var_rngtj2n腵 €_B_var_nm骮€_B_var_rngtj1m腵liejlK焋 €_B_var_liejl8c`lietj粻` €_B_var_lietj╠` 上报数据2?`sa_` €UsedRange葔`rngjl泷`都適`rngly6騚rngbz绅`€Union` 上报数据模块鹇`导入 ` €Interactive`单纯导入8j`自动更改单表名称及排序壟`建立工作表目录PQ` €EntireRow鱜€Hidden]鎌 导入数据模块v醏 接受数据模块惯`接受数据呂`tihO賎 €WindowState|頯 €xlMinimized2鴃 €SmallScrolltm`Down;哷 ?接收上报数据Cb`€_B_var_Workbook3餪€NumberFormatLocal)訿€_B_var_contentsa`?Macro4豊`€Sort`Key1O竊Order1o璥 €xlAscending`郹Key2P竊Order2p璥Key3Q竊Order3q璥Header扢`€xlGuessY` OrderCustom皘`€xlTopToBottom塦 SortMethod錁`€xlPinYinbt` DataOption1邈` €xlSortNormal` DataOption2驺` DataOption3玢`?上报数据不可用壬`?排序赙` WithSheets` €ClearOutliner鷃xm赺` €_B_var_xm傯` 排序模块醏 接收数据模块a瞏他很骿`ComboBox推荐类别_Change柦`显示隐藏表一表二%`隐藏显示工作表*塦 €xlVeryHidden绺` ?显示工作表MP`Worksheet_Activate+乣thisworksheet謔`€_B_var_thisworksheettC`€_B_var_Worksheet咗`activeWorksheet亡`activWorksheet磎` thissheet`€_B_var_thissheetA蝋CommandButton1|訿CommandButton输入珽`CommandButton输入_Click锶`CommandButton其他功能按钮W'` UserForm其他功能按钮銦` UserForm浏览人员0昤CommandButton浏览人员`CommandButton上报数据K`CommandButton接收数据陉`CommandButton生成报名表'癭CommandButton浏览人员_Click+DQ;_? P@@€ @   €      €hared\OFFICE11\MSO.0DLL#僊 1@1.0 Ob伭 €LibraryK僠MSACAL儲MSAC羳L3w€乛8E27C92E -1264乛C-8A2F-040224009C0@/7ERPROGRA~@$ICROS ~2?€.OCXH)Calendar Contro?/;1 僰0塺坮00}t#0 # €?04埨?E659180C-01AE-4D17-8FAA-A3E19A7CCE77}#?Use€rs\quan\AppData\Local\Temp\Exce0l8.0纃罺.exd<€"€.?巇? $A@MSForm皊>€iF綘rmsjo20D452EE@1-E08FjA-8-02608C4D0BB4a櫦FM20虗B ?@蒐4 440 孌5A529D39-738`431F-806B-83F89F?9F82﹜4h4b?@?E忇? `孧 寸4Re爁Edit?R佽fE攊罃j@#?45繪W摾vC藖韠REFED霫T"8 5G`50 #u`AQ153B47E8-8BB9-476E-867?6393DEA82A4@vF5VB麰\B5` @DEA1烂FE佋 &荰hisWorkbookGTT狼i鄆W"kkbokT2bH1衮?,"" +跾hee╰1GSe郍竧1 赁2ワ牮2?221n p示纮？镚:y婳!jWW2I饊q@8!RQa0生成报碜艹绦€虺傻ケ眢a0ubTh;` z廭bpUSh圫 _[290_Y1I  aK  判断图欠翊嬖趕 $R璭VGr/f&TX8[(W ?327?3 榒C2  导入詟际輘 Q黐eQ烻薫Ypenc3 縃?WW鳶€n")a页面设置醧au榖棸緥ncn2Rt搆Rnc合并 ピ袂cTv^USCQ|] 盪,复制到任免表中\?Y6@R0R鸑M€ -﨨CSX_⑵%捚 `d赋值 蘢`K岦P27午{ 郘?照片嘋?gqGrco=3Y9I jword表填充干啦啃畔 '纎r袐h坘XEQr^钀醲Oo`3 馽' -`S ?a1建羈 文?"aA0r鷁藌w抺d噀cD7_?7_S ;牚渚 z4齮4鵷4齮"4t腃柱t年月选耋tt^g 恷閎髏髏?餉糯{(?Uu丏界面响钅棵聘哪？镚Lub梱橆vTy鬴9e!jWWd界面 ?fH 1(, Hh? +输入碻娲⒈廵QX[≒hv'2; '僀#?€慉出祮絹x堿鶴0R亸焿A匒廇-廇G鋴A€僓serForm浏廊嗽盙 serFo€mOm葔篘XTM2?~ ?改?(BEj@E(生成鞧?ub@Th2撥O*O*XOQ*! a01)总程序成一厴@=a01?;` z廭0bN2?? ?K劻€删除A偯めA Rd朅Cねl2頏i璻Gk`:a1G@162? J9 + @推荐类餑╟P僠{|+Re2薺ox2卤Bb%€媳ㄊ葭) Npenc熻)h?i/3 ka接收醟6ekic薸o癜zok隐藏显示0工作c悥蠀>f:y錧靄Oq2鈱mod j鬹帱判騝抍従^ci?eo6陔ka坼暺渌δ馨磁( U,杤Q諲烺齹 cl當＿q2~o炠翱絕1T舓2沥O ?TCi"狖rU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~息模块a1建立word文档模块Sheet4年月选择界面项目名称更改模块输入存储表模块输出到界面模块UserForm浏览人员UserForm生成报名表a01生成报名表总程序成一表模块 删除人员模块模块1推荐类别 上报数据模块 接收数据模块模块2排序模块UserForm其他功能按钮 VBAProjectF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA  A`F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 9ap0FC:\Windows\system32\stdole2.tlbstdole a€L续-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice A i .?巇?$ 'C:\PROGRA~1\MICROS~2\OFFICE11\MSCAL.OCXMSACAL a a  鉢m秙0B個h諑鷦P8C:\Users\quanquan\AppData\Local\Temp\Excel8.0\MSACAL.exd Q a y ?E忇?`孧 C:\Windows\system32\FM20.DLLMSForms a a  ??嚟J揷眈Y9C:\Users\quanquan\AppData\Local\Temp\Excel8.0\MSForms.exd Aa i EF6C:\Program Files\Microsoft Office\OFFICE11\REFEDIT.DLLRefEdit AAi駟OGt贮幷 4C:\Users\quanquan\AppData\Local\Temp\VBE\RefEdit.exd QAyF_H]盩Y荄€?A  F&貚菕K拤w涷~DF WorksheetWorksheet_SelectionChangeFF @ 鶴ut^g 耂燫錧\O鰁魰 燫eQZQ>m1鰁魰 燫eQZQ>m2鰁魰 鸑皊L€鰁魰 鸑皊+R鰁魰瀖&種$髐倞F襇从兼纴?g綶lG?3棱頕Q揘kI獔J怳l 櫨1汳?芞A炎"瀸棸晕??@Label1!?6€S`  0{l烣WJOCommandButton确定Label22覌B煳` ComboBox年 ComboBox月葟漑qJ棪 e缷UserForm╢ ?C鮗-* F3Dynamic @UserForm_ActivateCommandButton确定_ClickUserForm_QueryClose T gqGr导入照片 导入照片2  ╟P儃|+R楜 L?鉍孖s?om眇?H|癬 恶\蜁驜?渣k'偏g瘜7q錙盯鄑屑F/魤*蘂嚋鄀>▕ComboBox推荐类别噸L鱋DＱo9 ComboBox推荐类别_ChangeUserForm_Click HF揔*yP        rU€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~U n?H揙嘾谕_ 4 儕e 儕e 儕e  <a閏坅 鵅罛1 >a(筥y @a@ d1d坅 a!CAC坅 $a盋袰 坅 "aaC塁1坅 *a0aE〦a坅 &a D9DiD橠蒁坅 a!A坅 (aE1E坅 apaB!儕e IQ儉a Iyi坅 a(qA坅 a!Aa坅 a1AQA 儉a 12??I1儉a 12I?ya坅 a塀坅 6a 坅 2aaO?儉a 1yi坅 8a8;9;9坅 :aPYda坅 4ay>>9>例坅 .a 儉a -!a坅 1ay}a~   ThisWorkbookSheet1Sheet2示例模块a0生成报名表总程序成单表模块判断图片是否存在模块导入原始数据模块a页面设置模块c合并单元格模块b插入表格并设置模块将图片复制到任免表中模块 d赋值模块 导入照片模块word表填充干部信F 孾b酧o`U_eQ c當  €L€MO 覻T 珟齆翄鱏 鲖孾tekX橯y橆v 输入存储表输入内容输入照片 vQ諲烺齹 c當*?|佁擟梀,忉皒}芲蘹O?u泙婶埫?妏pF/彈UR*}_蚎恢K?R嘘F忏*>!貸岒G碉漐嵧礨koWfM _[S汤K CommandButton浏览人员CommandButton上报数据CommandButton接收数据CommandButton生成报名表CommandButton接收数据_ClickCommandButton浏览人员_ClickCommandButton上报数据_ClickCommandButton生成报名表_Click PVBE6.DLL!S  {| 鱏LeftF CellsFindRow竑膜烮粁8<End排序!i H! hI#D嫭探磨篪瓢v州絢E??v Column Resize Value 燫eQZQ>m1 燫eQZQ>m2 X[≒h坋QZQ鰁魰 ZQXT 剺Y   hQ錯6RYe瞼f[哠 hQ錯6RYe瞼f[MO hQ錯6RYe瞼誯Nb?h蔛NN (WL€Ye瞼f[哠 (WL€Ye瞼f[MO (WL€Ye瞼誯Nb?h蔛NN X[≒h坔Q錯6RYe瞼 X[≒h坔Q錯6RYe瞼b?h X[≒h?WL€Ye瞼 X[≒h?WL€Ye瞼b?h 皊鸑+R X[≒h堺N皊+R鰁魰  !k !` Pictures X[≒h坓qGr hNameCopyDestination PasteTop X[≒h垾b€L€MO X[≒h堄YT X[≒h埁cP儃|+R 4:Rows 4Key1 Order1Key2 Order2Key3 Order3 HeaderOrderCustomMatchCaseOrientationSortMethodDataOption1DataOption2DataOption3l??????SortF JPGTextBox现任职务dd 鲖黐eQJPG瞗} 鏷H蜕?> Q 連C熸Po<参覌B煳`TextBox报考职位TextBox推荐类别Label3爺?螰跷浳`Frame1Label4CommandButton删除Frame2ComboBox选择姓名(蕂9H殱Z绩?鰕R?UFCB_N 輼霶墟_F彞:0x覧 3Ui?嗡<J杠ExIH鎧B?恢)wSize蟓痚B匔C前Z:胑?x驥?滟鲺疣鸂B!-宽K瀔%@6礥 Y4辮B9e'4H戝d+淞璚u搓c岯塆購* 貪D忐;Fn 郐XtG?L慂/x;v=!榕J狛`?忋]|燐QpW2I?a3. ? hQ钀1h?hQ钀  hQ钀1h?1篘 諘櫮燞?Fw]]鴞銚+ム諮噯В!苒J駴拮蠁C溞颜ff_jMp?H瓽O忯?爺F6应覰栃$gd 17 @}€鸛H酵?GUr?導懤J?熣D_+酟赌萘騌Jx鍛^x鬾薎憸瓑鰻D敄f郒慤JVs Y8x躛墎9N桍熥3i泲'@肑橫胦uJ=;??㊣?G仳4ド淕E潲G拺靓BU狢C両?T琬:i y9?|2B冧q%妠 ?ICOH拁J衄€=o庝K琗?ó甧.3SJ紏tS鈷饇?9乕D徻?睃€J 橔(上报数据上报数据不可用 X[≒h垁{哠 X[≒h圲SMO╟Pt1u X[≒hY鑜FontF 1:3EntireRow Hidden 111PasswordcontentsProtectEnableSelectionzF隐藏显示工作模块隐藏显示工作表 显示工作表Macro4Visible 隐藏工作表簞R3箺WFO?\庼E尪7鮺瀌B帹b ?tL貝(,镵?Of?E]蓑I泂!?:滠 9?疎蚏垵5E栨蔝f%?霠E龍emK⒛倰貭媎QG?輝€9pc蒄mK?錣Q`?#瘦饾A尖TV恡癏 Y@ X[≒h埌s鸑L€覌B煳` 输出到界面输出照片界面项目名称更改 X[≒h鱏 m[艑妱 瓺猘z;=*7锌懦N炗娓乮 鲖 愰b覻T 建立word文档生成报名表总程序成一表生成报名表总程序成多表页面设置 页面设置2插入表格并设置插入表格并设置2 合并单元格 合并单元格2给word表单元格赋值给word表单元格赋值2从word表中提取内容从word表中提取内容2aaa给word表单元格赋值word表填充干部信息word表填充干部信息2将excel中的图片复制到任免表中将excel中的图片复制到任免表中ddActiveDocument Word.ApplicationdocumentsAdd!r h! ParagraphsPageSetupTopMarginBottomMarginLeftMarginRightMargin Start TablesNumRowsNumColumns (DefaultTableBehaviorAutoFitBehaviorColumnsPreferredWidth Style QyO>NP >yO>NP?{孨u榶橆v 3*N篘陙P *N篘陙P?{孨u榶橆vText u bg 込塏 N梊Th   褳SO L€MO鱏蔛T饄 t )引J拤F耬Wc?痆O嫟? S x!贗宺 q 儂7黆.鶨技剁/kq ,鞬瀖I時霁# 酦 Macro1 鲖 愰b╟P儃|+R暚[H酱F傁,謂o€_篂€騂搠S╋睄?J=琋琘]h贷檇邛NE槶譁撋呶(1l?C敢x拻騨 YP` WordWrapFitText豲珷L睭 I祕(6 N瑋擖?硰 螲鴥L裀訰佴簸赼)MHt煳蝱J嫽loH庼.?潁8 裃 @蝋馿qI擃 .T鏶猼B$"6[?w葃鋥HE牁鄷?!YiI≠,? L媉7?眖FM!拙' 馬 '粽('@N熪媼S?cW顣鈽AX9)?鼊靴盢j幉P劐z澏J稼>?H洘匼?开侱竒掮簩2R 1TP 隿B}XAケ状厊SV<景)B读殓o楇t鉫G偃hC?U?yD麻C? H~胈g8[闉．H箚U峦 QU 2辁螴s酧窧獛 掐 %1NC寸嘻婆酉Ξ?$g鉋棢qwPrbY[|S N僛i?嬊蛓G鼺玣枆觐" qV #L牐?_絴8F/Bc;C矒鴒S漣K翭浨嚦:tR呮b?C塭爙4 X0塳馟睞 悈€w?灦EhM?容H扒uKb戄`〡繒BlDH 慦@ 阔A荆,咵醼U臇F€òw撄o历8*L孩Q径C峡?a骷B孞R/棃OLkz屰褴覦??c口 Y€ 5\偙Q茿慃fp-M>彐焨uO嗮wx睻.?o鼔慗偟c8x嵲3楞瀾H恊E关l陰邖腱ū?(MYK磌 !Z MD?鏟塋炍U鎔虮荘; 妸Lx??在?L蚂翈鏿哞\炰肗慿?騷8燤[λ矱凗#LC A[ p樣绩te@伆诌0羛??貰?"俻-8晗嫅?怬刉髟 1\H o睯o揋稱泱肒?}[癗箑釰??z矉k?2齑H↙枎ox(萯Dy?K軂猦gpS|橩嚤?旋# Q] 士糧Nк&簹瀸彝头薕昗9e汃dd&旄蜧诫缇戁€漨桻DC岗q坝垰?=@簊鏠㏒ q^ \嚍朣?O希O礜贏1}?I眓訾k` 鮆塗D畟弖 l窨鞼藵I{q娟-w墥颒E彿<┠;判断图片是否存在 慱# G嘲Y5LTQ鴙/g蚶!滺顿3峑C咂zE]M架慃淒~%倷w课Cj G5僒?羆M€7鏦?? aHMF?p嶜瓁Aし譑癗 ?nDN叫j?92O堏l鸅?s狜e>邂r?H寂摴喂N??A哾N-M埞nd?pV佝l`緽晢盗貭纆囘驞徖滥偃2 竢_G曓鏘? 羁f鸅昌 阐落 譙sV?SA合w櫑C鬜鯯谌B珗?鏹◎見緔Fj襅?P係膝O赽C癭咜燴xz?薂ν妯h 羓h侪鉅禬汚被u鷓琈9/栍N憺F蛫?摴D鯌綞瓝G锁~腌M綀谬櫣zO栎ТsK箠@? 醟9踃?Z鶥? 瘳}F?- THO??朠?帜w碋C垙鄷IxYL|O籾 #N~惗U@箔楳 (]?EズuJ逎Vp )m "VerticalAlignmentY?肢@捯fCHgz%:?忴蘭G澍X"8?K M撯#V觾瘘M睬?;)禺 檔4鎥?1@刼 \y-4湰oE瀙忀| 櫚絅塷纺L?u詇 P0K輐? EV+殫隖傕璲F嘖0猰2C?敘麧K 筼鄠RL lFy禁jコ蠀1亥H璈樝tk襍嫨蛽鯝?L€g鵉^"妣?J饠N弌Z蒅>滫X葰DW郻塽;}稴悦K场髪蘊阋 )q8阔-侵墬H保€r崮t劯?G凑缒?F>{旉O漾!@馧竅詆筏N?r鈖-ｍ儲K瞸3%K媹@gq穲輻茤O峜,mW qrxh闘H? Uq0寙y.:@弾 茒t<rh0.肴旵崸怪蔪趈棠書蕩朑€WH冣kUG嫿B渦劑鍚[i椸p挡郞丏* 詟鶘 Select 箂鄻{批B緒;N耼|^qw蔬黊凧廆?$愰?厢\閟B唤﨣r?[:GA塾酄M_g\呸]属'糛凚擇檣_l?I砡I蛋穘敩 xlsb鳁榿SB堿騠k傼譖,>D@∩9潩紵?祮?oE縴蝜驉帰3\⒀湊BM峷l瀍?pg`g?虆tG濔o艣殴 ﹛x麯7 黲A氄I?蝾:俐Z蔅⒚婄]鮄^@堟J暟/UM橑4`瞑驥佇殽r钐岓鼰K忹?h鹷ms樓N崕眾8嶶l?sI?f;oikBCompObjlGa8CommandButtonnx歔1" ,t^{{5?媅SO,gSO{{5?媅SOA€H€, O5;?媅SOA€H€, O5;?媅SO(nx歔 O@,?媅SO? Microsoft Forms 2.0 窗体Embedded Object?瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} 年月选择 Caption = "年月选择框" ClientHeight = 1620 ClientLeft = 45 ClientTop = 435 ClientWidth = 4545 StartUpPosition = 1 '所有者中心 TypeInfoVer = 26 End (H  @A}T5R 憦濄K窺恄宋体TO$€#Frame1{VBFrameI#UserFormOm葔篘XTzo@>???fNont?    ?% "?#$&9'2)*+,-./01!345678h;=?>?@IBCDEFGH:JKLMNOPQRSTUVWXYZ[\]^_`abcdefg?ijklnopqr{tuvwxyzm|}~€?i15r n`粑浲`p堽?€??fXoqsRDCompObjPoCompObjyiaVBFramek)UserFormubTh|??p鶣?fpCompObjoCompObjaVBFrame-╟P儃|+R p鶣?怘A????????????????????o{?i03 n`粑浲`????fzo~€tDight = 4455 ClientLeft = 45 ClientTop = 345 ClientWidth = 7740 StartUpPosition = 1 '所有者中心 TypeInfoVer = 11 End ?(H  @ }>#! R 憦濄K窺恄宋体O@錋4ComboBA€H€,]+5?媅SO(nx歔 @,?媅SOox╟P儃|+R{h?╟P<8CommanfolCompObjaVBFrame&dButtonnx歔{ ? Microsoft Forms 2.0 窗体Embedded Object?瞦*+,-./0VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} 推荐类别 Caption = "推荐类别选择框" ClientHeight = 1470 ClientLeft = 45 ClientTop = 345 ClientWidth = 5115 StartUpPosition = 1 '所有者中心 TypeInfoVer = 9 End ?~€?  n`粑浲`Microsoft Forms 2.0 框架Embedded ObjectForms.Frame.1?瞦€H€ €"5?媅SO)皊鸑L€ {5,?稏fN)€L€MO {5,?稏fN)╟P儃|+R {5,?稏fN€H€ €"5?媅SO€H€ €"5?媅SOUserFormvQ諲烺齹 c當怘A?爋A?fyoCompObja(H  @ }t wR 憦濄K窺恄宋体O@"<CommandB +€Om葔篘XT "u?褳SO +€ Npenc "u?褳SO +€6epenc "u?褳SO$+€ ubTh "u?褳SO^_`uttonOm葔篘XT00{@"<CommandButton Npenc00 @"<Commedded ObjectForms.Frame.1?瞦) Rd曽"@,?媅SO) 愰b覻T {5,?稏fNA€H€,;"5;?媅SO(H  }SO<<CommandButton Rd(€28Label4{44ComboBox 愰b覻T Root Entry F.??K纻Workbook_VBA_PROJECT_CUR"@W?丅?VBA `? 琵?<H   }鶺,g酧o`>f:yR 憦濄K窺涝宋体<824TextBox皊鸑L€閧"(€ 28Label1+R{(€ 28Label2+R{ (€ 28Label3+R{824TextBox€L€MO閧g 824TextBox╟P儃|+R閧 ?  n`粑浲`Microsoft Forms 2.0 框架EmbandButton6epenc001 @$@CommandButtonubTh?{ ? Microsoft Forms 2.0 窗体Embedded Object?瞦0^@?0^@?VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm其他功能按钮 Caption = "其他功能按钮" ClientHeight = 2535 ClientLeft = 45 ClientTop = 345 ClientWidth = 4710 StartUpPosition =     ? !"#$%&'()*+,-./0123456789:?<=>?@A?CDEF?H?JKLM?OhQ?STUVW?YZ[\]^?`?bc?efg??j?lmno?qs?uvwxy?{|}~€VBFrame1PROJECTwm3PROJECThm@ PROJECTlk(H  @ }T5R 憦濄K窺餓宋体TO$€#Frame1{?  n`粑浲`Microsoft Forms 2.0 框架Embedded ObjectForms.Frame.1?瞦>?@€H€ €"5?媅SO)皊鸑L€ {5,?稏fN)€L€MO {5,?稏fN)╟P儃|+R {5,?稏fN€H€ €"5 1 '所有者中心 TypeInfoVer = 12 End ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2a0生成报名表总程序成单表模块a0ubTh圎` z廭bUSh?jWWa页面设置模块au榖椌媙!jWWb插入表格并设置模块b襝eQh圏hv^緥n!jWWc合并单元格模块cTv^USCQf:yR 憦濄K窺涝宋体<824TextBox皊鸑L€T{"(€28Label1+R{(€28Label2+R{ (€28Label3+R{824TextBox€L€MOT{g 824wordh坘XEQr^钀酧o`!jWWa1建立word文档模块a1鷁藌word噀ch!jWWSheet4Sheet4年月选择t^g 愰b示例模块:y婳!jWW界面项目名称更改模块Lub梱橆vT饄鬴9e!jWW输入存储表模块搹eQX[≒h?jWW输出到界面模块搹鶴0RLub?jWWUserForm浏览人员UserFormOm葔篘XTUserForm生成报名表UserFormubTha01生成报名表总程序成一表模块a01ubTh圎` z廭bNh?jWW删除人员模块 Rd柡NXT!jWW模块1!jWW1推荐类别╟P儃|+R上报数据模块 Npenc!jWW接收数据模块6epenc!jWW隐藏显示工作模块悥蠀>f:y錧\O!jWW排序模块抍廭!jWWUserForm其他功能按钮UserFormvQ諲烺齹 c當模块2!jWW2ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Module=a0生成报名表总程序成单表模块 Module=a页面设置模块 Module=b插入表格并设置模块 Module=c合并单元格模块 Module=d赋值模块 Module=导入照片模块 Module=将图片复制到任免表中模块 Module=导入原始数据模块 Module=判断图片是否存在模块 Module=wordTextBox╟P儃|+RT{ ?  n`粑浲`Microsoft Forms 2.0 框架Embedded ObjectForms.Frame.1?瞦)nx歔;"@,?媅SO) 愰b覻T {5,?稏fNA€H€,;"5,?媅SO(H  }SR 憦濄K窺恄宋体O<<CommandButtonnx歔(€28Label4{44ComboBox 愰b覻T $€#Frame2?# ? Microsoft Forms 2.0 窗体Embedded Object?瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm生成报名表 Caption = "生成报名表" ClientHe硖畛涓刹啃畔⒛？ Module=a1建立word文档模块 Document=Sheet4/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=年月选择 Module=示例模块 Module=界面项目名称更改模块 Module=输入存储表模块 Module=输出到界面模块 BaseClass=UserForm浏览人员 BaseClass=UserForm生成报名表 Module=a01生成报名表总程序成一表模块 Module=删除人员模块 Module=模块1 BaseClass=推荐类别 Module=上报数据模块 Module=接收数据模块 Module=隐藏显示工作模块 Module=排序模块 BaseClass=UserForm其他功能按钮 Module=模块2 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="C8CA6472687268776D776D" DPB="2527898EBBF6D8F6D80928F7D86204F085B16649AE7CA3B9C5B23CCBA2C3D594C1B5AA8D5527" GC="82802E718A728A728A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C a0生成报名表总程序成单表模块=0, 0, 0, 0, C a页面设置模块=0, 0, 0, 0, C b插入表格并设置模块=0, 0, 0, 0, C c合并单元格模块=0, 0, 0, 0, C d赋值模块=0, 0, 0, 0, C 导入照片模块=0, 0, 0, 0, C 将图片复制到任免表中模块=0, 0, 0, 0, C 导入原始数据模块=0, 0, 0, 0, C 判断图片是否存在模块=0, 0, 0, 0, C word表填充干部信息模块=0, 0, 0, 0, C a1建立word文档模块=0, 0, 0, 0, C Sheet4=0, 0, 0, 0, C 年月选择=0, 0, 0, 0, C, 115, 115, 889, 509, C 示例模块=0, 0, 0, 0, C 界面项目名称更改模块=0, 0, 0, 0, C 输入存储表模块=0, 0, 0, 0, C 输出到界面模块=0, 0, 0, 0, C UserForm浏览人员=0, 0, 0, 0, C, 23, 23, 797, 417, C UserForm生成报名表=0, 0, 0, 0, C, 46, 46, 820, 440, C a01生成报名表总程序成一表模块=0, 0, 0, 0, C 删除人员模块=0, 0, 0, 0, C 模块1=0, 0, 0, 0, C 推荐类别=0, 0, 0, 0, C, 92, 92, 866, 486, C 上报数据模块=0, 0, 0, 0, C 接收数据模块=0, 0, 0, 0, C 隐藏显示工作模块=0, 0, 0, 0, C 排序模块=0, 0, 0, 0, C UserForm其他功能按钮=0, 0, 0, 0, C, 69, 69, 843, 463, C 模块2=0, 0, 0, 0, C EFSummaryInformation(DocumentSummaryInformation8@CompObj j?鄥燆鵒h珣+'迟0HP\h € qqqqMicrosoft Excel@~?V&@€倎"@€&??胀諟.摋+,0 PXd lt|  f表 报考职位被推荐人电子邮箱被推荐人联系电? ?备注编号参加工作时间称谓1称谓2称谓3称谓4称谓5称谓6出生地 出生年月存储表报考职位 存储表备注 存储表编号存储表单位推荐理由 存储表简历存储表全日制教育存储表全日制教育院校存储表任现级别时间存储表入党时间存储表身份证号存储表推荐类别存储表现任级别存储表现任职务 存储表姓名存储表在职教育存储表在职教育院校 存储表照片单位推荐理由个人自荐第二页项目工作单位及职务1工作单位及职务2工作单位及职务3工作单位及职务4工作单位及职务5工作单位及职务6籍贯 加入党派1加入党派1时间 加入党派2加入党派2时间简历 健康状况 奖惩情况民族年年度考核结果年龄1年龄2年龄3年龄4年龄5年龄6 培训情况其他功能按钮全日制教育毕业院校及专业全日制教育学历全日制教育学位任现级别时间 任现职时间社会举荐第二页项目 身份证号熟悉专业有何专长所在单位推荐理由和意见推荐推荐单位联系人推荐单位联系人电话 推荐类别完成信息录入按钮 现任级别 现任职务性别姓名姓名1姓名2姓名3姓名4姓名5姓名6月在职教育毕业院校及专业在职教育学历在职教育学位照片 政治面貌1 政治面貌2 政治面貌3 政治面貌4 政治面貌5 政治面貌6专业技术职务组织推荐第二页项目左边被推荐人电子邮箱左边被推荐人联系电话 左边备注左边单位推荐理由左边推荐单位联系人左边推荐单位联系人电话 工作表 命名范围e?  FMicrosoft Office Excel 工作表Biff8Excel.Sheet.8?瞦