邢唷> bm "Ni欹_ 鳵芶bjbjdbb&0$$p4l#X0."PP ))))UHWHWHWHWHWHW$SZ]^lWQ)F)|)))lW$$P & 絎*222) $P )U2))U226峂6鞱P滻<.mNU鏦<#X塏dc].:c]8鞱c]鞱())2)))))lWlW2)))#X))))c]))))))))), :  CONTROL Forms.TextBox.1 \s  CONTROL Forms.TextBox.1 \s  CONTROL Forms.TextBox.1 \s  CONTROL Forms.TextBox.1 \s  CONTROL Forms.TextBox.1 \s  CONTROL Forms.TextBox.1 \s  CONTROL Forms.TextBox.1 \s  CONTROL Forms.TextBox.1 \s  CONTROL Forms.TextBox.1 \s   CONTROL Forms.CommandButton.1 \s 3u鲖fNkX橯ek y橆v鶺,g酧o`03u鲖篘鶺,g酧o`0槝膥bXT酧o`0蟸9崅i梴惽 Nb楕v擽 c當kX0頞9e0 y橆v鶺,g酧o`  CONTROL Forms.CommandButton.1 \s  3u鲖篘鶺,g酧o`  CONTROL Forms.CommandButton.1 \s  槝膥bXT酧o`  CONTROL Forms.CommandButton.1 \s  蟸9崅i梴  CONTROL Forms.CommandButton.1 \s  (W3u鲖fNhyOf[16 l蟚f[N噀Sf[17 癳麜f[N O璬f[18 fN啓0臽N噀.sf[19 Ye瞼f[20 胈tf[21 SO瞼褃f[22 邁f[23 /n硂餝顣槝xvz24 齎E栴晿xvz25 蒘f[褃/鼅Txvz0 40xvz筫T cgq 0齎h鉔x 0-N Nf[褃 T饄蔛鉔xkX橯 俌 g Nf[褃 cgq孨f[褃kX橯0kX橯筫誰俌 O汯fWSSg騍7703020  03u 蒘f[褃/鼅Txvz 剉槝 亯 愰bgY N*N鴙sQxvz筫T孨f[褃 S靊t錧{|孨f[褃 0 50xvz{|+R 愰b 鶺@xxvz 0 擽(uxvz 0 瀃寶N裇U\ vQ-NKNNkX橯0xvz{|+R-N剉 瀃寶N裇U\ (W>yO褃f[啒遅 c奲惽忷W@xxvz0擽(uxvz@b穬梍剉鍂茓l徹Sb颯錘瀃絜剉RS靊:N蹚L埨h寶孴膵0O瀃絜:y儁橆v 剉菑 z0鵞篘噀褃f[eg魦 購N{|+R郠NN gaIN0 60,g!ky橆v N緥3ucWSNy橕Ny橆vdY 3u鲖擽'}'}鬡諂ZQ剉ASkQ'Y孴ASkQJ\ N-NhQO衏鶴剉癳`骮0癳聣筽0癳簨璭 觺T齎禰蟸Nm>yO蔛f[褃裇U\剉梺 yr+R/f9hnc陙珟剉xvz鶺@x孴yr 陙L堖b歔xvz槝0 70g葉b済b__ c NRb済b__kX橯W刓O0簨噀0═鈰JT05uP[鶴Hrir孴vQ諲亯鑜fwQSOb済b__ 0 80俌3u鲖篘 gE-Mail0Kb:g 鲖kX橯y橆vT鹼篘剉E-Mail0Kb:g 錘縊嶯b霳N╜諷梍蔛鰁剉T鹼0 90槝膥;N亯bXT酧o`gYkX橯9篘0 100 ,g槝xvz剉t簨孴瀃E枖^(u鱊

yO褃f[xvzy橆v 3u 鲖 膵 fN y 顅 {| +R CONTROL Forms.Label.1 \s f[ 褃 钑 {|  CONTROL Forms.Label.1 \s  槝 T 饄  CONTROL Forms.Label.1 \s y橆v#嵑N CONTROL Forms.Label.1 \s @b (W f[ !h   CONTROL Forms.Label.1 \s f[ !h 鉔 x CONTROL Forms.Label.1 \s 3u 鲖 錯 g CONTROL Forms.Label.1 \s  Ye 瞼 钀 >y O 褃 f[ 鳶 6R 3u鲖篘酧o`覻 T'` +R鶴ut^gL 饄@b(W钀钑L gTf[哠gTf[MOY韹韹蛓E-Mail惎0W@W異 Kb :g鶹歔5u輯 3u鲖\O:N#嵑Nb舃w錘 N>y褃xvzy橆v臽礠錘蔛孾b臽礠y橆veg恘{|+R槝 T饄y橆v鱏 yb芉鰁魰/f&T孾b3u鲖,g篘褟 Nt^ !"$%?@ABD`abd枳杷謀⑺臋膯w四dU四B$jeFX h銁CJKHUVaJo(jh鍉+h銁5丆JU$jeFX h銁CJKHUVaJo(jh鍉+h銁5丆JU$jeFX h銁CJKHUVaJo(h鍉+5丆Jo(jh鍉+h銁5丆JU$jeFX h銁CJKHUVaJo( h鍉+5丆Jjh鍉+5丆JU!jh鍉+5丆JUmHnHu.jh鍉+B*CJ PJUmHnHo(phu$ % & M N  f ( D d x $d a$gda>$7d\]7`a$gda> & F dG$H$gd  & F dhG$H$gd  & F dhG$H$gd & F dhgd  & F dhG$H$gd dG$H$    ! 皴匏煎蕞氬迖x遛eV遛C$jeFX h銁CJKHUVaJo(j h鍉+h銁5丆JU$jeFX h銁CJKHUVaJo(j5 h鍉+h銁5丆JU$jeFX h銁CJKHUVaJo(jt h鍉+h銁5丆JU$jeFX h銁CJKHUVaJo(jh鍉+h銁5丆JU$jeFX h銁CJKHUVaJo( h鍉+5丆Jjh鍉+5丆JUjh鍉+h銁5丆JU! " # & ' I J K L z | ~  " 皴苠章沖塄殣◥}l\惃怚$j eFX h銁CJKHUVaJo(jh鍉+CJOJQJU*!jwh鍉+h銁CJOJQJU$j eFX h銁CJKHUVaJo(h鍉+CJOJQJjh鍉+CJOJQJUh鍉+CJOJQJo(jh鍉+h銁5丆JU$jeFX h銁CJKHUVaJo( h鍉+5丆Jh鍉+5丆Jo(jh鍉+5丆JUjh鍉+h銁5丆JU" $ & 8 : < > ~    \ ^ 鈸仗欄談撈綻柑竷t撈誮^WD$j eFX h銁CJKHUVaJo( h鍉+5丆Jjh鍉+5丆JUh鍉+CJOJQJjTh鍉+h銁OJQJU$j eFX h銁CJKHUVaJo(j h鍉+h銁OJQJU$j eFX h銁CJKHUVaJo(h鍉+OJQJjh鍉+OJQJUh鍉+OJQJo(h鍉+CJOJQJo(jh鍉+CJOJQJU!jh鍉+h銁CJOJQJU^ ` b x z |  ,. 皴諞毆毆毆毆崥﹠﹏^n^n^n^Q^hF#CJOJPJQJo(h h; CJOJPJQJo(h h; CJOJPJQJh :@haDCJOJPJQJo(h :@CJOJPJQJo(hK=ha>CJOJPJQJhK=ha>CJOJPJQJo(ha>CJ$OJPJQJha>CJ$OJPJQJo(h鍉+OJQJh鍉+CJOJQJo(jh鍉+5丆JUjh鍉+h銁5丆JU .zbd0&vXb~ d$G$H$If $G$H$If$a$ 4d `4gdt- 4dp`4gd( 0 0dp`0gd( 0"$24JL`bvxzbdfh,.02&*vzV襻襻襻襻裱卵播槇xk圽樠樠樠樠樠樠樠h( 0h( 0CJOJPJQJh蟬TCJOJPJQJo(h蟬Th蟬TCJOJPJQJo(h( 0h( 0CJOJPJQJo(h( 0CJOJPJQJo(ha>CJOJPJQJo(ht-ht-CJOJPJQJo(hK=ha>CJOJPJQJhK=ha>CJOJPJQJo(h h; CJOJPJQJo(h h; CJOJPJQJ"VZ`b|~468:<麩溘疑井緵埉{p緖cP=甤$j; h鍉+h銁CJ OJPJUo($jeFX h銁CJKHUVaJo(h鍉+>*CJOJPJo(h鍉+>*CJ PJo(h鍉+>*CJ OJPJo($jh鍉+h銁CJ OJPJUo($jeFX h銁CJKHUVaJo(jh鍉+CJ OJPJUo(h鍉+CJ OJPJo(h鍉+CJ4PJo(h鍉+OJQJo(h鍉+CJ0PJo(h鍉+CJOJQJo( h鍉+o(ht-CJOJPJQJ<>PR\Gkd$"$$If4斃0|(L taf4 d$G$H$If $G$H$IfGkd$$If4斃0|(L taf4<>NPRT,蹶菀瑪瘻聫鮽s瑪`M螺蹶衣$j$h鍉+h銁CJ OJPJUo($jeFX h銁CJKHUVaJo(h鍉+>*@CJ OJPJo(h鍉+@CJ OJPJo(h鍉+>*CJOJPJo($j"h鍉+h銁CJ OJPJUo($jeFX h銁CJKHUVaJo(jh鍉+CJ OJPJUo(h鍉+CJOJPJo(h鍉+>*CJ OJPJo(h鍉+CJ OJPJo(h鍉+>*CJ PJo(4\Gkd&$$If4斃0|(L taf4 d$G$H$If $G$H$IfGkdm$$$If4斃0|(L taf4,.0246HJ~碲式缽失攣蕋缽失aN蕋睮>h鍉+CJ OJQJo( h鍉+o($j+h鍉+h銁CJ OJPJUo($jeFX h銁CJKHUVaJo(h鍉+>*CJ OJPJo($je)h鍉+h銁CJ OJPJUo($jeFX h銁CJKHUVaJo(h鍉+CJ OJPJo(h鍉+>*CJ PJo(h鍉+>*CJOJPJo(jh鍉+CJ OJPJUo($j'h鍉+h銁CJ OJPJUo($jeFX h銁CJKHUVaJo(46H\GkdM+$$If4斃0|(L taf4 d$G$H$If $G$H$IfGkd)$$If4斃0|(L taf4  $Ifd $dG$H$a$# ^# 勞dG$H$^勞Gkd-$$If4斃0|(L taf4   :<xP窽篢糡綯甎癠繳VV VTVVVXVZV耉腣躒轛釼銿6W:WW鶺黈XXXX X翮廒庋饌饌餿餛飴饌饌飩饌獬獬┾モモ蜖鉀摏饌聡|騾h hQCJaJh hQCJaJo(h橭h\ o( h\ o( h`o(hYh鍉+CJOJPJh鍉+B*o(ph hso(hQU ho(h鍉+h鍉+OJQJo(h鍉+OJQJ h鍉+o(h鍉+CJOJPJQJo(ht-CJOJPJQJ/$&.0:<>FHRT~~~~~~y~~~~Ff10 $$Ifa$wkd-$$If朖4##  覽04 J` 覽aJf4p 覽yt TV^`j-$$$ $$Ifa$kdK2$$If朖4旞謀! #!8 (覽覽覽覽04 J` 覽aJf4p(覽覽覽覽ytjlvxzFf4 $$Ifa$-$$ $$Ifa$kd 7$$If朖4旞謀! #!8 (覽覽覽覽04 J` 覽aJf4p(覽覽覽覽yti``````[V$a$Ff: $$Ifa$kd=8$$If朖4旞0!#! 覽覽04 J` 覽aJf4p覽覽yt *4>^kd<$$If杔4旞##04 lalf4 $$Ifa$>@BDFHg^^^^ $$Ifa$kd@=$$If杔4旞謀#804 lalf4HJLNPRg^^^^ $$Ifa$kd=$$If杔4旞謀#804 lalf4RTVXZ\g^^^^ $$Ifa$kd>$$If杔4旞謀#804 lalf4\^`bdfg^^^^ $$Ifa$kdY?$$If杔4旞謀#804 lalf4fh睺g^ $$Ifa$kd @$$If杔4旞謀#804 lalf4eg;N亯xvzb済鑜f Rir剉t^0gb鶴Hr>y0鶴Hr錯g P800W[  槝膥;N亯bXT臽礠蔛~{ T覻 TL饄/L鶴u錯gN N錧\OUSMOR錧臽礠~{ T 錘 NbXT褟 Nt^egN,g槝 gsQ剉;N亯xvzb済 鑜f Rir剉t^0gb鶴Hr>y0鶴Hr錯gP800W[  Bh陙dk_ N N梍鶴皊3u鲖篘*N篘珟齆酧o` &TR3u鲖fN\O焇 槝 T饄xvz筫T蔛鉔xxvz{|+RR孾b鰁魰g葉b済b__3u鲖蟸9;`潣(NCQ)0vQ諲eg恘蟸9(NCQ)0 N0,g槝xvz剉t簨孴瀃E枖^(u鱊

y褃xvzt钀钑a翂 Ta3u0 US MO lQ 鄗 t^ g 錯   CONTROL Forms.CommandButton.1 \s       PAGE  PAGE 10 ╜皊(W颯錘ck8^蹚L坘X ╜皊(W颯錘 N Oy橆v3u鲖fN N OMR鲖HQsQ頃3u鲖fN 俌済╜梺夘O9e匭筟鲖筽鸔 頞9e3u鲖fN c當 1u嶯*g /T(u廩 ╜皊(W N齹ck8^kX橯噀chbSbpS噀ch 鲖9hnc錘 Nek蚫\O 俌済╜/fWord2000,word XP, word 2003(u7b 鲖奲Word廩剉塠hQ'`緥:N:"-N" 筫誰: Word軆US->錧wQ->廩->塠hQ'`->塠hQ,緥n:N"-N" sQ頃,g噀ch 蛻癳Sb_ 筽鸔"/T(u廩" c當 sS颯_薡kX橯,g噀chbSbpS哊 俌済╜/fWord2007,Word2010(u7b 筽鸔word鎉 N覊"塠hQf婮T"Y" 恲"-N剉"/T(udk匭筟") sS颯_薡kX橯,g噀chbSbpS哊 孾bkXT 筽鸔 纇錱kX匭筟v^軴噀ch c當 錘纇錱kX匭筟/f&T&{T亯Blv^鵞,g3u鲖fN蹚L堓O0:N哊2朾k3u鲖fN珗諲篘醷9e 颯錘(W軴菑 z-N緥n芠x FO鲖br皨錘縊(W頞9e3u鲖fN鰁O(u0纇錱孾bT Mb颯錘(W3uQ賨 N O3u鲖fN0 睺碩禩窽篢糡;66$a$^kdHA$$If杔4攩##04 lalf4$If^kd緻$$If杔4擜##04 lalf4糡豑赥釺頣鳷U UUUU U"U$U{{{{{{{v{{{FfD $$Ifa$qkd薃$$If4斒##  覽0` 覽af4p 覽yt 刬$If`刬 $U&U(U*U,U.U0U2U4U6U8U:UU@UBUDUFUHUJULUNUPURUTUVUXUFf[OFf揔Ff薌 $$Ifa$XUZU\U^U`UbUdUfUhUjUlUnUpUrUtUvUxUzU|U~UU俇刄哢圲奤孶Ff砕Ff隫Ff#S $$Ifa$孶嶶怳扷擴朥楿歎淯濽燯║猆琔甎癠V$If$a$Ff fFfCb $$Ifa$Ff{^VVVVVVXV;666$a$^kd裩$$If杔4斦##04 lalf4$If^kdNh$$If杔4>##04 lalf4XVdVfVhVxVzVZkdTi$$If杔4旊0p#pl 覽覽04 l` 覽alf4p覽覽yt$If $$Ifa$zV|V哣圴朧榁i```` $$Ifa$kd3j$$If杔4斍0p#pl 覽覽04 l` 覽alf4p覽覽yt榁歏╒猇-$$ $$Ifa$kdk$$If杔4斖謀pl#p pp (覽覽覽覽04 l` 覽alf4p(覽覽覽覽yt猇琕耉芕躒郪i```` $$Ifa$kd+l$$If杔4斖0p#pl 覽覽04 l` 覽alf4p覽覽yt郪釼銿8W-+%$Ifkd m$$If杔4斖謀pl#p pp (覽覽覽覽04 l` 覽alf4p(覽覽覽覽yt8W:WW@WBWDWFWHWJWLWNWPWRWTWVWXWZW\W $Ifgd\ Ykd#n$$If杔##04 lal\W^W`WbWdWfWhWjWlWnWpWrWtWvWxWzW|W~WW俉刉哤圵奧學嶹怶扺擶 $Ifgd\ 擶朩榃歐淲濿燱╓猈琖甒癢瞁碬禬竁篧糤網繵耊腤芖萕蔠蘔 $Ifgd\ 蘔蜽蠾襑訵諻豔赪躓轜郬釽鋀鎃鑇闣霿頦餡騑鬢鯳鳺鶺 $Ifgd\ 鶺黈XXX.ckdo$$If& t04ap $$Ifa$gd $a$[kd渘$$If杔(##04 lalXX XRXTXVXXXZX\X^X`XbXdXfXhXjXlXnXYkd漮$$If杔##04 lal$If$a$ X^@^D^F^J^L^P^X^Z^f^h^j^n^p^z^|^坁奮巀恀抆擽朸榐瞊碸__l`~`轥滾疑徑捕捕捕伯畽灓帳灆伄伄t`t&Hhq骹h*F5丅*CJo(phh*F5丅*CJo(phh*F5丅*CJo(phh銁0JmHnHu h*Fo( h*F0Jjh*F0JUh*Fh篩jh篩Uh鍉+CJOJQJo(h鍉+5丆Jo(jh鍉+5丆JUjAh鍉+h銁5丆JU$jeFX h銁CJKHUVaJo(%4^6^8^<^>^B^D^H^J^N^P^R^T^V^X^j^l^n^刪]刪gdt- 匋&`#$gdt- &dPgd梄)$劆dhG$H$]劆a$4kd晛$$If4旍 taf4n^p^r^t^v^x^z^抆擽朸榐癪瞊碸鎊__^_ & Fdd &dP 匋&`#$gdt-刪]刪gdt-芲`T`轥郹鈆繿耡腶^VQOOOOd & FdI & FdE苺p骹) 劋劋d^劋`劋I & FdE苺p骹) 轥郹鈆繿耡腶芶麴屨嶂h鍉+CJOJQJo(h篩h*F5丅*o(phh*Fh*F5丅*CJph腶芶$劆dhG$H$]劆a$=0182P/R :p 8i皞. 捌A!拔"盃#悹$悹%癝班 惄G0P182P/R :pt-皞. 捌A!拔"盃#悹$悹%癝班 惄Dp: 00182P/R 皞. 捌A!拔"盃#悹$悹%癝班 惄:182P/R :pQ皞. 捌A!拔"盃#悹$悹%癝班 惄: 00182P/R 皞. 捌A!拔"盃#悹$悹%癝班 惄7 0182P/R 皞. 捌A!拔"盃#悹$悹%癝班 惄: 00182P/R 皞. 捌A!拔"盃#悹$悹%癝班 惄:182P/R :pQ皞. 捌A!拔"盃#悹$悹%癝班 惄@ 00182P/R :pQ皞. 捌A!拔"盃#悹$悹%癝班 惄:182P/R :pQ皞. 捌A!拔"盃#悹$悹%癝班 惄@ 00182P/R :pQ皞. 捌A!拔"盃#悹$悹%癝班 惄:182P/R :pQ皞. 捌A!拔"盃#悹$悹%癝班 惄@ 00182P/R :pQ皞. 捌A!拔"盃#悹$悹%癝班 惄7 0182P/R 皞. 捌A!拔"盃#悹$悹%癝班 惄Dd 餳  s *A? ?3"`?2餟麴e忙t_5Z)y紘1D4`!)麴e忙t_5Z)y紘$$mQ;n翤湻~丠D態=e" jZ*Z .q4%RR~蘙冑'韏vv=颴Pet%瓾xCM'DDO╮?騀U塋?Xt+=黁#+d窾o誯p瀆缞綁Q "5uS籌mX`唵Y; 堵渰悛m}C :b牲銶)匟鼖A鏇81邐譍橰鈏TZGQ+漳&e螜鰨+^薸尲Z贄禦'e▁;?+ya疅 ]噺 柿蹎!霚a誄"鱻7澤)fDd h餳  s *A? ?3"`?2餪s館X隄P狜3 藠3Q<4`!4s館X隄P狜3 藠3Q$鴟mQ1N聾=Hb啶H $hBDOE;"9pKE泜袱 (/HgQP Q袘錁繃9 V謨祛坍wmh bzd-艪鈹趘=">而.X褶?06忨1e雽.齏YiOYㄔk攅Y瞊+]繩5F^╘4PfY(w鍜黠t s赲琚ZT葯`Bvt:蛆iu/鱒c褳U蓋5NΤ梂貀~慧yz溸`o|吷胕~擒縹璨2&單C#T嵸緽g娼 :Dd 餳  s *A? ?3"`?2艷窱(#64`!鸛艷窱(#r$$mP!藔}蠐'=]褑跣鑾 氬0剱0L { >0癹'a;A屝1 戣-霙7頝$爓p赲稷嶨疄〥s鏈ILN雝摢w 艹斠湣s/KO鞅23ピ湵訊?葩鼵g鴽舶犐咁uP侸餼`岐顏,4繒軙$C0徚Dd 餳  s *A? ?3"`?2艷窱(#4`!鸛艷窱(#r$$mP!藔}蠐'=]褑跣鑾 氬0剱0L { >0癹'a;A屝1 戣-霙7頝$爓p赲稷嶨疄〥s鏈ILN雝摢w 艹斠湣s/KO鞅23ピ湵訊?葩鼵g鴽舶犐咁uP侸餼`岐顏,4繒軙$C0徚Dd 餳  s *A? ?3"`?2艷窱(# 4`!鸛艷窱(#r$$mP!藔}蠐'=]褑跣鑾 氬0剱0L { >0癹'a;A屝1 戣-霙7頝$爓p赲稷嶨疄〥s鏈ILN雝摢w 艹斠湣s/KO鞅23ピ湵訊?葩鼵g鴽舶犐咁uP侸餼`岐顏,4繒軙$C0徚Dd 餳  s *A? ?3"`?2艷窱(#y 4`!鸛艷窱(#r$$mP!藔}蠐'=]褑跣鑾 氬0剱0L { >0癹'a;A屝1 戣-霙7頝$爓p赲稷嶨疄〥s鏈ILN雝摢w 艹斠湣s/KO鞅23ピ湵訊?葩鼵g鴽舶犐咁uP侸餼`岐顏,4繒軙$C0徚Dd 餳  s *A? ?3"`?2艷窱(#: 4`!鸛艷窱(#r$$mP!藔}蠐'=]褑跣鑾 氬0剱0L { >0癹'a;A屝1 戣-霙7頝$爓p赲稷嶨疄〥s鏈ILN雝摢w 艹斠湣s/KO鞅23ピ湵訊?葩鼵g鴽舶犐咁uP侸餼`岐顏,4繒軙$C0 Dd 餳  s *A? ?3"`?2餛9fE'藸Xw l/eY-4`!%9fE'藸Xw l/eY$$mQ=kA湻鏕Q0bc!愐熱/鋇睻H曨﨩B~B毭^ Microsoft Forms 2.0 FormEmbedded Object9瞦 VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserfrmSubCode Caption = "學科選擇" ClientHeight = 4335 ClientLeft = 45 ClientTop = 435 ClientWidth = 5730 StartUpPosition = 1 '所有者中心 TypeInfoVer = 12 End lpoq(H  @}U R 憦濄K窺VBFrame'chooseYearMonth #,G<,G<fox_1481008407覌B糊 `pY(<pY(<PRINTCompObjsObjInfo  !&'()*,123457<=>?@BGHIJKMRSTUVX]bcdefhmnopqrstvz|}~   - ! !牋- ! !灃- ! !iii- ! !  . 2 @"宋體(wL 疿m5彄$w(w fI- ' 覌B糊 `Microsoft Forms 2.0 文字框Embedded ObjectForms.TextBox.19瞦status@H,03@"媅SO{    - ! !牋- ! !灃OCXNAME contents <_1481008406 覌B糊 `pY(<pY(<PRINT z- ! !iii- ! !  . 2 ' 覌B糊 `Microsoft Forms 2.0 文字框Embedded ObjectForms.TextBox.19瞦docStatustusH,{@"媅SOCompObj sObjInfoOCXNAME  contents4_1481008405覌B糊 `pY(<pY(<PRINTCompObj sObjInfo"{   - ! !牋- ! !灃- ! !iii- ! !  . 2 @"宋體(wL (蹻詉5彄$w(w f4-  2  ' ' 覌B糊 `Microsoft Forms 2.0 文字框Embedded ObjectForms.TextBox.19瞦docPassword @H,{eplugger@"媅SO    - ! !牋- ! !灃OCXNAME#contents$@_1481008404" 覌B糊 `pY(<pY(<PRINT%z- ! !iii- ! !  . 2 ' 覌B糊 `Microsoft Forms 2.0 文字框Embedded ObjectForms.TextBox.19瞦psdox1H,@"媅SOCompObj+sObjInfo-OCXNAME.contents/4_1481008403覌B糊 `pY(<pY(<PRINT0zCompObj 6sObjInfo8    - ! !牋- ! !灃- ! !iii- ! !  . 2 ' 覌B糊 `Microsoft Forms 2.0 文字框Embedded ObjectForms.TextBox.19瞦sqrxxXmlStrH,@"媅SO    - ! !牋- ! !灃- ! !iii- ! !  OCXNAME!9contents:4_1481008402($覌B糊 `pY(<pY(<PRINT;z. 2 ' 覌B糊 `Microsoft Forms 2.0 文字框Embedded ObjectForms.TextBox.19瞦sqxmxxXmlStrH,@"媅SO    - ! !牋CompObj#&AsObjInfoCOCXNAME%'DcontentsE4_1481008401*覌B糊 `pY(<pY(<PRINTFzCompObj),LsObjInfoN6$# - ! !灃- ! !iii- ! !  . 2 ' 覌B糊 `Microsoft Forms 2.0 文字框Embedded ObjectForms.TextBox.19瞦jfgsxxXmlStrOCXNAME+-OcontentsP4_1481008400E0覌B糊 `pY(<pY(<PRINTQzH,@"媅SO    - ! !牋- ! !灃- ! !iii- ! !  . 2 ' 覌B糊 `Microsoft Forms 2.0 文字框ECompObj/2WsObjInfoYOCXNAME13Zcontents[4mbedded ObjectForms.TextBox.19瞦cyzkxxXmlStrH,@"媅SO 覌B糊 `Microsoft Forms 2.0 文字框Embedded ObjectForms.TextBox.19瞦baseData_14810083996覌B糊 `pY(<pY(<CompObj\sObjInfo57^OCXNAME8_contents`0_1481008398?4;@2譱甕j$contentsk@_1481008397A@2譱甕?@ABCDEFHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnpqrstuvwxyz{}~ {   - !  .@"仿宋_utf-8X黦5彄$w(wf- 2  - !X-' #瀸棸暈-?@Microsoft Forms 2.0 標簽Embedded ObjectForms.Label.19瞦ObjInfoOCXNAME contents P_1481008385@2譱甕5?)鯫寉Up禓VDd 餳  s *A? ?3"`? 2癉iQ磚<匵b愛4`!鶿iQ磚<匵b愛R$$M愅B! 7瘺mAgG|漆鄋追涢%點鯥\招t橺鈧zD鰭骽陳ч莽忮{8迯巘Sg鐽%e﹚]禗朓Dd 餳  s *A? ?3"`? 2饙圙 =xb┚佺歌i4`!餫圙 =xb┚佺歌(wHL/m?K肞畔}i玈嬟狣t﹥囝霿W%釸鼡丈U/D腢↘]蔔%偒 襤噝^r遹鐆s遾嗟AG嵱贈5猦4]$"帑;q3R<骮臺'亨棊"\u∕娶(*Iq|K汗tJEZ懫!楄Q俿:鵪炵9綞K篣唯檴灘"k笯熱S灻輎O^yS{ㄝ95謚V偃垎藴?鍷勖q5靄>z緾稈a氳d腔腹跦7廚6S棉ZDt' 0噛V梵4}磒饞縹F兦袂笥☆b 颮6(粑?!9D$KDd 餳  s *A? ?3"`? 2饛G瑋`暮D44kM4`!餭G瑋`暮D44(wHL1m?K腀胚l/'隄)6Zv謣盪bw'瓡瓊 [醠碔嚐A"XX(琽6\茆6l2&吵褏g 4猦4i:H0ZB鑷/w$a 蛺兣p熻K渰妏咋6"\暏x徑#齖3:",獺銘篝 )T(妸 <邷#*'訪E鎦^5彍ハ)廂鍰犌^c{ㄝ95讜V谷垎 ?鍷勖q%v2x綜鐘86o莧;諂脹jzA磯y窼諴w鈧篋封S榝!O覥 鸒潘w鋅~<>.莆葷jM;a荄㊣Dd 餳  s *A? ?3"`? 2饙e貓%}年pi4`!餫e貓%}年p(wHL/m懡J腀呄濎&nvQwUV囪B剞赪K昤跌撝蔞"b+瑣6閣%偔 襤 ;N&箂鎩7w@ D:j渷L∥鐦QE覣妧 "箵$ #鮫慻,嚝鳧\飴S劔61Y%W)灟mI?椸淣qd杄4笻弞淎振?嫝pd帙,閃!8欑#k9O熱S澝遡∠^{ㄝ95謚V偃垎K?鍷勖qRv6|紺6訔86偕顝{婦]O/┹臛嘦 u洨ao璌t'09V4}4\紐唭囇怯銇頱鈱颮6,蹺?X?D淰Dd 餳  s *A? ?3"`?2饸帝絎+8~W疥4[Se,v4`!餹帝絎+8~W疥4[Se,@穰<峈盝肞=鰩Mm-:Y珝"锠偦儞豢?牜摣?磧k 漷萈JkC?@p 倛垱B<7● 攫抯;緹嫚 8+肛値#S(;m擰T5"8D(頎喵塗縈?骮蒥;<0娜b凲冘臋$ L)柈:韁*%wA;嶅\悼U哖v瞘槍穎t ┯瓸0 grg喒砢9朐>9鞎曮g禌b4БmU妼(8刻嚩囥R﹕靋m4帪!浲冑淑劈瓝=\\7先蚖廜奿zkz浕戧盉棫閏鱧潡璀}踸A 堨 %虭擷拡iu ;DS腣9@ 漍k戇P鍃 7惿罏n祏/!還PVc橢憎怯y:z輲鳉M翮=6 !pf閾毄纒AW4U拋Cěbd坄佀@T|`d洭硒?(\┯#v^$$If枲!vh#v#vL:V 4斃 t55L4af4Dd @g餳   s *A ? ?3"`?24 2MRa[袽TcY'4`! 2MRa[袽TcL)HA弱cd郿``^$d$ 埻攘 す橜" &Ff K巵H庶┳ed櫭 甩瑞攘j,F&怤K畮灌7觡惐@0$雲嗬牬閟耦NF茊F -2L'珨70j斶酛媷竵l&'贗釦璅\ S8.d篒攁駣鉗Z糝(帉a>﹪鶊 蒅 ! "p垔孡`撜 趔*7^$$If枲!vh#v#vL:V 4斃 t55L4af4Dd $ h餳   s *A ? ?3"`?2,7B鄉秒濿繟陴)4`!7B鄉秒濿繟陴齃鴟mPAQ=撰B W$J養漀鼇V%血: 嵞廻nOr燔嫄負霳vg'矴B[hBA3&"Z搯蒫G驝'諾E7訟1Z2肕<#則p77蔶Z爮掰t箮酚vq8藪嬪6汯cvNMv5憔鐪 |嘝OY擾懩飡_D"髐慲勌g0<1緍]O%c^$$If枲!vh#v#vL:V 4斃 t55L4af4Dd $ h餳  s *A? ?3"`?2,LU笻&g穱Yg祑+4`!LU笻&g穱Yg祑L鴟mPM AQ=s}=I")6'e)廖NK+[手赺P柖北'诇en蜏f螠蝄A鞝 虭怷劥 ;D 撉V9@ 蛍漍k戇P舙W惿罏n祎鄉!浌PVc橢}T髑觵<笣秼!镸籜mj硡4f徳$閧O3陏伍9剒盛鼕8~啕"蜻櫙#d>焣)著Z $綹$$If枲!vh#v#vL:V 4斃 t55L4af4$$If朖!vh#v#:V 朖4  覽0,5#44 J` 覽aJf4p 覽ytv$$If朖!vh#v!#v#v8#vt#v#vp:V 朖4 <覽覽覽覽覽覽0,5!5585t55p44 J` 覽aJf4p<覽覽覽覽覽覽ytkd.$$If朖4謭! l#!8tp <覽覽覽覽覽覽04 J` 覽aJf4p<覽覽覽覽覽覽yt.$$If朖!vh#v!#v#v8#v:V 朖4旞 (覽覽覽覽0,5!558544 J` 覽aJf4p(覽覽覽覽ytv$$If朖!vh#v!#v#v8#vt#v#vp:V 朖4旞 <覽覽覽覽覽覽0,5!5585t55p44 J` 覽aJf4p<覽覽覽覽覽覽ytkd{3$$If朖4旞謭! l#!8tp <覽覽覽覽覽覽04 J` 覽aJf4p<覽覽覽覽覽覽yt.$$If朖!vh#v!#v#v8#v:V 朖4旞 (覽覽覽覽0,5!558544 J` 覽aJf4p(覽覽覽覽yt$$If朖!vh#v!#v:V 朖4旞 覽覽0,5!544 J` 覽aJf4p覽覽ytv$$If朖!vh#v!#v#v8#vt#v#vp:V 朖4旞 <覽覽覽覽覽覽0,5!5585t55p44 J` 覽aJf4p<覽覽覽覽覽覽ytkd%9$$If朖4旞謭! l#!8tp <覽覽覽覽覽覽04 J` 覽aJf4p<覽覽覽覽覽覽yt$$If杔!vh#v#:V 杔4旞0,5#4alf4$$If杔!vh#v#v#v#v8:V 杔4旞0,555584alf4$$If杔!vh#v#v#v#v8:V 杔4旞0,555584alf4$$If杔!vh#v#v#v#v8:V 杔4旞0,555584alf4$$If杔!vh#v#v#v#v8:V 杔4旞0,555584alf4$$If杔!vh#v#v#v#v8:V 杔4旞0,555584alf4$$If杔!vh#v#:V 杔4擜0,5#4alf4$$If杔!vh#v#:V 杔4攩05#4alf4$$If!vh#v#:V 4斒  覽0,5#4` 覽af4p 覽yt$$If!vh#v#v8#v#v#v #v#v:V 斦 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkd~B$$If斦譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 斂 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkdFF$$If斂譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 敜 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkdJ$$If敜譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 敜 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkd諱$$If敜譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 敜 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkd濹$$If敜譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 敜 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkdfU$$If敜譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 敜 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkd.Y$$If敜譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 敜 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkd鯸$$If敜譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 敜 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkd綻$$If敜譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If!vh#v#v8#v#v#v #v#v:V 敜 諪覽覽覽覽覽覽覽0,558555 554` 覽ap諪覽覽覽覽覽覽覽ytAkd哾$$If敜譃@ !#8  諪覽覽覽覽覽覽覽0` 覽ap諪覽覽覽覽覽覽覽yt$$If杔!vh#v#:V 杔4>05#4alf4$$If杔!vh#v#:V 杔4斦05#4alf4$$If杔!vh#vp#vl:V 杔4旊 覽覽0,5p5l4` 覽alf4p覽覽yt$$If杔!vh#vp#vl:V 杔4斍 覽覽0,5p5l4` 覽alf4p覽覽yt$$If杔!vh#vp#v #vp:V 杔4斖 (覽覽覽覽0,5p5 5p4` 覽alf4p(覽覽覽覽yt$$If杔!vh#vp#vl:V 杔4斖 覽覽0,5p5l4` 覽alf4p覽覽yt$$If杔!vh#vp#v #vp:V 杔4斖 (覽覽覽覽0,5p5 5p4` 覽alf4p(覽覽覽覽ytw$$If杔!vh#v#:V 杔05#4al{$$If杔!vh#v#:V 杔(05#4al$$If桘!vh#v:V t0594 p w$$If杔!vh#v#:V 杔05#4al{$$If杔!vh#v#:V 杔攊/05#4al$$If桘!vh#v:V t0594 p {$$If杔!vh#v#:V 杔敂05#4al{$$If杔!vh#v#:V 杔-105#4al$$If桘!vh#v:V t0594 p {$$If杔!vh#v#:V 杔敂05#4al{$$If杔!vh#v#:V 杔斿 05#4al$$If杔!vh#v#:V 杔4攽  覽0,5#4` 覽alf4p 覽yt$$If杔!vh#v:V 杔敭 (覽覽覽覽0,54` 覽alp(覽覽覽覽yt$$If杔!vh#v:V 杔敭 (覽覽覽覽0,54` 覽alp(覽覽覽覽yt$$If杔!vh#v:V 杔敭 (覽覽覽覽0,54` 覽alp(覽覽覽覽yt$$If杔!vh#v:V 杔敭 (覽覽覽覽0,54` 覽alp(覽覽覽覽yt$$If杔!vh#v:V 杔敭 (覽覽覽覽0,54` 覽alp(覽覽覽覽yt$$If杔!vh#v:V 杔敭 (覽覽覽覽0,54` 覽alp(覽覽覽覽yt$$If杔!vh#v#v:V 杔敭 覽覽覽0,554` 覽alp覽覽覽yt$$If杔!vh#v#:V 杔4,  覽05#4` 覽alf4p 覽yt$$If杔!vh#v#:V 杔4擿  覽05#4` 覽alf4p 覽yt$$If杔!vh#v#:V 杔4  覽05#4` 覽alf4p 覽yt$$If杔!vh#v#:V 杔4旪  覽05#4` 覽alf4p 覽yt$$If杔!vh#v#:V 杔4攠  覽05#4` 覽alf4p 覽yt$$If杔!vh#v#:V 杔4攠  覽05#4` 覽alf4p 覽ytTDd 餳  s *A? ?3"`?2饦"g袃e盓漧>醠6閆t4`!餷"g袃e盓漧>醠6閆@穰:峈盝肞=鰩Ml-:Y"锠偦冞" 獩. 兀P:閻jC?@p 倐垔汢<7● 攫抯;緹嫚8竂噹#(;i擰T3M膒囫 圱緼?骮轢歚垺#熫貦)\)栁蠝v.昍80,溒r蜵Z*稰v糶$呌眛硻贏B0 g gE叧d9>9鞎:曮g禌b4БMmU唽(lr~m簽R秦硫p?B諾揮障齱遻 秖r兌:$wT;萲(g*儕閙nU=4Pg.O憂 n^:像kw?x铚//G絥w娳N輎U襎PbG$$If!vh#v:V 4旍 t54f4F Normal.dotmWindows 用戶1650Microsoft Office Word@鷥芸@n牨吧@芇猇x@,3 i 脹諟.摋+,D脹諟.摋+,  `h 教育部社科司~  H9AyGoogle.Documents.DocumentIdGoogle.Documents.RevisionId$Google.Documents.PreviousRevisionIdGoogle.Documents.PluginVersion(Google.Documents.MergeIncapabilityFlagsGoogle.Documents.Tracking01dBZ_NEEmF4MevshH_jsw6BZznYRkC1Wx3gHguQH4w0s03821155985285849812138880497991440158932.0.1974.7364trueMacros`*<滻<VBA`*<,G<ThisDocumentVT__SRP_2% 7a轛V*\R8005*#5d*\R8005*#5b*\R8005*#5f$*\Rffff*0L5656de61$*\Rffff*0a5656de66*\R8005*#42*\R1*#91*\R8005*#44*\R0*#17*\R0*#1$*\Rffff*0`5656de61*\R1*#155*\R1*#152*\R1*#c6*\R4*#22@8@H0PX `hptP|`@pp  "   ( 0" H4PX  (  0 @ P ,` J F8@ H" `(h  8  "@H!P :`  ".:       0 @ P(:`d3'  0@ H h)) )) $)()@)X)p)))) ; N"h.p   +     !"V-&'()*+,./012357V89:;<G>?@ABCDEF4HIJKLMNOPQSTUXkZ[\]^_`aRcdefghijWlmnopqrstuvwxyz{|}~C"i#$誅 Gr/R]飫)甓K癓 紗*.寘D8┉$Z碪D雟巰N洓仁樧 x0btnCheckProtect1, 22, 14, MSForms, CommandButton!applyDate, 21, 15, MSForms, Label"schoolCode, 20, 16, MSForms, Label"schoolName, 19, 17, MSForms, Labelapplyer, 18, 18, MSForms, Label#projectName, 17, 19, MSForms, Labelsubject, 16, 20, MSForms, Label#projectType, 15, 21, MSForms, Label/btnCheckProtect, 14, 22, MSForms, CommandButton(feeTitle, 13, 23, MSForms, CommandButton+memberTitle, 12, 24, MSForms, CommandButton,chargerTitle, 11, 25, MSForms, CommandButton,projectTitle, 10, 26, MSForms, CommandButton-btnEditProtect, 9, 27, MSForms, CommandButton!baseData, 8, 28, MSForms, TextBox%cyzkxxXmlStr, 7, 29, MSForms, TextBox%jfgsxxXmlStr, 6, 30, MSForms, TextBox%sqxmxxXmlStr, 5, 31, MSForms, TextBox$sqrxxXmlStr, 4, 32, MSForms, TextBoxpsd, 3, 33, MSForms, TextBox$docPassword, 2, 34, MSForms, TextBox"docStatus, 1, 35, MSForms, TextBoxstatus, 0, 36, MSForms, TextBox碪D雟巰N洓仁樧 ]飫)甓K癓 MEL @S"SS"<%ss3{>"<< <$<(<,<0<4<8<<<@ 申報 J`   R`Do+ ^`恂o..3%%%`刲P `刾L `h4k a  `4Jo ``4J } `J  ` `  UU`劥接修`劧:`劯文`劶 勌X ( %  `    `  ,d ` J  i冭 @i凗 `勱r`勳p%*=pX@$*-l(`@#*+@dh@"%*Mp48@!%*h@ %*@%*@%*0@%*U`L(@%*@X @%*< @%*T @%* D @%*P\ @%*x4H@%*3dx@%*@%*|@%*@X@%*p8@%*h@%*@%*L@bVn(z|:T 8(XhXH``@(x` 凗 %偁(H % 8(XhXH``@(x 8(XhXH``@(x 8(XhXH``@(x8 8(XhXH``@(xX 8(XhXH``@(xx  @P@0p``p@`p0`H@xx @h @X @T @< (@8 @( 8@@ @ @ X`勮t@棹 `@  )  @<L@瀨 @恂 8x`勮t0@xp  !L8@ ) p`勮t(@p  !8@ ) h`勮t @h  !8@ ) `勮t @p`( )h  !8 @( ) `勮tH @hX( )`  !8 @( )  !8@H8L( )@  P8(<@0 @@x @h @hX @H @F @4 hP(TZV\@x @h @X @H @D @4 (ZV\px @h @X (H D   ( R0" .   +  0  8 H VP " .       +  ( 0 P  X h " p .x       J  0 8 X  ` p " x         f *`               ( H (h (       0 @P X hx    B   8 @ P p  ( (   (8@ HX`h ((  HX ` p"       "     8 @ P XB  x  0   (底部檢查保護按鈕A.oP頂部檢查保護按鈕@ 0!2!4 自籌經費項目 6!8!4 xK你填報的申報類別為 “自籌經費項目” 該類別要求其它來源經費大於或等於 8 萬元A@:|k (!<!d0, 表示鎖住狀態]A@@$B'>A@@ >填報內容已通過檢查 D提示...A: FB@H:彈出設置密碼對話框,保證其他人不能更改文檔,除了超級管理員kd,填報內容已通過檢查🗓,請點擊修改申請書按鈕修改 D提示...A:ko編輯填報內容按鈕 (!<!d1, 表示鎖住狀態 (!L!4ANdH PB@Hk0d(填報內容未通過檢查🦹🏽‍♂️,可直接修改 D提示...A:ko文檔關閉時清空常量緩存 (!T(4 Z Text Box 4 %V(X (B@\oh b Text Box 4 %V(X/隱藏提示]p n.l 載入常量文件] n.p p(r p(t p(v p(x (!z \base.dat p%3加載常量數據錯誤.請確保base.dat和申報書放在同一目錄 |找不到數據源,部分數據無法獲得A@:dx p!~ (!T(4kX ! A@@k(隱藏表示狀態和密碼的控件文檔狀態 0:非保護 1:保護? (!<(? (!<( 文檔保護密碼? (!L(? (!L(填報內容的XML格式的字符串數據? (!(? (!(? (!(? (!(? (!(? (!(? (!(? (!( (!<A (!B@HoXG-----------------------項目基本信息填報-------------------------------- (!<G|j B@HA@@ 0B@H (![點擊此處填報] (d[點擊此處修改] (kXA@@o@L-----------------------申報人信息填報--------------------------------------- (!<G|j B@HA@@ B@H (![點擊此處填報] (d`[點擊此處修改] (k8A@@o O------------------------以下是課題組主要成員情況的行填報-----------------------  (!<G|j B@HA@@ B@H (![點擊此處填報] (d@[點擊此處修改] (kA@@o` (!<G|j B@HA@@ 6B@H (!! (%%!!d$ %[點擊此處填報] (d8[點擊此處修改] (kA@@o打印前作些頁面上的處理,]]] !' !']( (!<!d1&請註意🙂:本文檔在提交之前必須檢查保護👱🏻。 %h "現在文檔還未檢查,仍要繼續打印嗎? '    文檔未檢查保護$:'   ! A@Ak|k 隱藏表樣式AA@@  (%!(  (%!(  (%!(  (!! (%!(  (!! (%!(A@@k 隱藏檢查按鈕? (? (]@ $.' B@ !' k B@  (沒有裝有打印機或別的錯誤,請檢查打印機👎🏽! 打印錯誤A@: ! A@kP (!<!d1AA@@  (%!(  (%!(  (%!(  (!! (%!(  (!! (%!(A@@kX  (  (k0( ! A@k (!<!d1AA@@  (%!(  (%!(  (%!(  (!! (%!(  (!! (%!(A@@k  (  (o ` FilePrint Macro 打印活動文檔 (Bo  FilePrintDefault Macro 以默認方式打印當前文檔 (Bo 根據全文件名返回路徑]`]x  %'     %\y k x   %'diX P 娑Attribute VB_Name = "ThisDocument" 孊as1Normal.VGlobal!猄paclFalse reatablPre declaId濼ru BExposeTemplateDeriv$Custom iz凜1Control亸btnCheckProtect1, 22, 14, MSF媠, CommandButt on崱%appl測DN!#15! LabelschoolCodeu0@6.佂9M7(B-er@ 8嚸=,projL1fsub7A:2<Ty鰌KAY2@[f |纙羭F鍆feeT鑙tl!3@m續emberE瀭21瀋harg隣!2iOCa9@22㏄&jEditj, B2 R摖ia, S2`+TextBox豬cyzkxxX癿lSt [2ISajfgs 3 Tsqxm13ITsqr@B3@C啔psd, 郠3iRdocPasswor 3塓Staltu@3IPs$,3㎞' '底部檢查保護按`鈕 P 羆 Sub 嵐_Click() #Callc` Enda 稁タ F菋 If 傽0Win.%k .valu零"自錁嚴钅p" AotherFeeS ource$< @8 ThenfMsg` ("你填報的申報類別為 “” 脩要求其@它來源笥諢虻扔傏萬元"Exit A\If墐..v0"b '表示鎖住狀態V Dim flag AHs B0pea' 榳d_亂 (騿# B= c褅AlYiX O"!("諶菀淹ü齺'", vbOKOnly, "提示...mset 8Show '彈出柚妹藶攵曰翱潁Vぐ瞬荒芨奈牡擔順豆芾仨員w)E挆 / * 🛢,請點擊修0"鵯朧閼3 q51編輯577榑0_"sV"1_"Z"M&42unlock忇痟unL@95. %",可直溄" 'A 關閉時清空常量緩|存kN跫牪/On Error 萊es嗑 NPr bduSMe.Shapes(";罞4").Vi膕i絤soA3O.Savp紭" 揉_Open  x 釦 '隱藏aC 罝roo皌Ele1EOb!Set = Get!3'載勅雚文件#aQxmlc泄t T.asy|ncP 燻id発OnPars8,EresolveExtern 莊` feserveWhite3Load(!Path + "\!. ")E黁cQ "加載!數據錯.請確保 和書放在同一目錄Critical怱找不到源,糠直無法鴰竦脿1k7o,前鎓, XMLS5噥PNot %1末ionQ男wd dowa]Q逨ie鴏ds_eb厃(qn1n和馸的貐$= 0:紡潛0 1:a # dtWid= 00.75_舦Heigh牭t = 0.75 '文當⚂;っ藶怲hisDocument.psd.Width DHeigh 填報內容的XML格降淖址 jsqrxxXmlStrr *z 瀞qxm'W,jfgs%,,cyzk%,,兂Call setProcessControl(( Jtatus羪))恎projectTitl e.Sel End Sub  C'-項炕拘畔厰  Pr爄vate I_Click(((If 01en Exit'梁R0Qwd_t@4 (False儙Win.Show廈D垪繬""B caption [點擊此ごαC]" Ea修改@bI苀3Tru3j仌4申報人_47+5chargebD?5侻25fM;5?`5茓4J4seg4^4 (4.韻率強翁庾櫓饕稍鼻榭齙男懈kK5mem鯾?5 纒艂255 8zycy4)5)44=44)昮鬳e_.;*e))崾)VBA.Val(getCell@ueK絋ables?es.Count - 2).(8, 3).Range.@Text))@0?LN6 N3o "vQ螹YhPubbbcntThe皩鮞'打印白饜┮趁嬪系拇恚Dim btnCheck爎a$uAs In|te癕S拸m strWarn餴ng 鄭c颯/硵|.?pk%-r lre聇1LongS鄉鳱ot8燇)81-m = "請註意🥭:本·在提交氨匭爰觳楸昆🤰🏿。" + q)Chr(13)"現訠!還未砸絳饅Q嗎?Tqp. = MsgBox(, vb YesNovbQuesv, "鲬s"} 靨bp"n0(Me.t饅Ty刾ewdNoG)<0矕G*匽j/檇`晑u媿Q]'隱藏表鷓階 爎9)6殫EPCShad..Backgr蠨dPatternColo@rIndexWhitHts(4)椷wd7痰 6n 1熢 篠__=  徹谉t.3VZ1? ? @w' %$1:按鈕螴嗲螲}1Idlg抁qI燚ialo擨S燡 = s(wd釗Filer=$=-1 Err.CPlearO襖rror GoTo l,uSvExxecue/= :3#< 驪 "沒有裝有亼S機或別恗理誤🧑‍🔬,荁Xs!", 氬vbInformation, "打印錯誤" If Me.Protec擳ype = wdNoP ThenftCallJ_pr(True)DEnd 孖ffNotGisDocument.statu@s.Textq"1"fesetcessCont榬ol l弚d壚 (Fals WTh "" And = ThisDocument.p聅Then!#蠧all1l雬 Unload vMF E耏AMsgBox "淙朊藶氪砦螅脛新n )彙SetF'sC扙/If A?MCcancelNCH+!_ChangeBPD]= text2NoCNFilter(@ ,De繸rU $h(HPh p  P  hx "  "  "   "   $ @@  F 4  L .p  "   "    "   ( "  0 08 h " p x  "  0  "   I I HI ,I B`+Ph p*?(@0 HX B `hpHPX` x B6 HX`0h4 8 @PX`4x ]@@]@h]@]@]@(]@P]D選擇]D清空x真的要刪除記錄嗎?   刪除...$: "MS (4en (4s (4 (4MS (4en (4s (4 (4 (4 "(4 $(4 &(4Re ((4 *(4 ,(4 (!%7!(d7!(d7!(d17!(d'7!(d7!(d'7!(dS R7!(dial7!(dS R7!(dial7!(d7!(d7!(degu7!(dq (!( (!(4 .(0 B@kHo@ 4!  (4d '6v-'8 :B@Hko@ B@$>|k (!% !47!(d !47!(d !47!(d !47!(d !47!(d !47!(d !47!(d !47!(d "!47!(d ,!47!(d $!47!(d &!47!(d *!47!(d (!47!(dq !4 (!(] n.l]]Charger l%D.@ 申請者信息 @ wapplyer,gender,birthday,IDCardNo,title,division,duty,eduLevel,eduDegree,language,email,address,postalCode,telOffice,telAF @!~ (!(4 A@ro A@ro`  $'o8H $R (4o VxGX'VjoPrivate Sub IDCardNo_Change(): tmpIDCardNo = textBoxNoCNFilter(IDCardNo, tmpIDCardNo)End Sub@Private Sub IDCardNo_Exit(ByVal Cancel As MSForms.ReturnBoolean)- birthday.value = getCIDBirthday(IDCardNo)End SubFPrivate Sub IDCardNo_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)( If KeyAscii = 120 Then KeyAscii = 88End Sub & $\'o(X & V %$`'V, Gr傟bl鴛-E擠`N~軔B琠A嘫2瀒侈恕-:侰餞R.=誛裨HⅰZMRo]xME@SPSSS<<` ""i凗  H`剕%侢8 %bh4@b8@b(@@bxHx@@hhH(XhP凗偁x@@hhH(XhPx@@hhH(XhPx@@hhH(XhPx@@hhH(XhPxP (qx = xx@@hhH(XhP x@@hhH(XhP @hxp# a轛V  (0@ " P:X          ( 8 H X h x       @ `        @`h   "    (0 " 8 @P`hp(Ho * $\'o  V %h %G'Vjoh ( $\'oh  V %h %G'Vjo( Al男,女,$p (ng教授,副教授,講師,助教,研究員,副研究員,助理研究員,研究實習員,高級實驗師,實驗師,助理實驗師,實驗員,高級工程師,工程師,助理工程師,技術員,高級農藝師,農藝師,助理農藝師,農業技術員,高級獸醫師,獸醫師,助理獸醫師,獸醫技術員,高級畜牧師,畜牧師,助理畜牧師,畜牧技術員,高級經濟師,經濟師,助理經濟師,經濟員,高級會計師,會計師,助理會計師,會計員,高級統計師,統計師,助理統計師,統計員,編審,副編審,編輯,助理編輯,技術編輯,助理技術編輯,技術設計員,研究館員,副研究館員,館員,助理館員,管理員,主任醫師,副主任醫師,主治醫師,醫師,醫士,主任藥師,副主任藥師,主管藥師,藥師,藥士,主任護師,副主任護師,主管護師,護師,護士,主任技師,副主任技師,主管技師,技師,技士,$p (n/博士研究生,碩士研究生,本科生,大專生,中專生,其他,$p (n博士,碩士,學士,其他,$p (n 1234567890 %h - %h . %h ' (!!4]P n.r (!!4 rBt r!x wapplyer,gender,birthday,IDCardNo,title,division,duty,eduLevel,eduDegree,language,email,address,postalCode,telOffice,telAvk !4 .(0 B@oh'> _applyer,gender,IDCardNo,title,division,eduLevel,eduDegree,language,address,postalCode,email,telY姓名,性別,身份證號,職稱,所在部門,最後學歷,最後學位,外語語種,通訊地址,郵政編碼,E-Mail,手機$zzk] !4$~'| | | D警告...A: B@z@k8 ,!4 %  ,!4@ % 申請者信息中 E-Mail 格式錯誤 D警告...A: ,B@zk &!4$ &!4 %申請者信息中 郵編 格式錯誤 D警告...A: &B@zk (!4$申請者信息中 固定電話 格式錯誤 D警告...A: (B@z k  *!4$申請者信息中 手機 格式錯誤 D警告...A: *B@z8 k0 '>i  獾Attribute VB_Name = "sqrxxWin"  鳥as|0{321D1A98-80EF-44D1-A7BD-56A3DE6EBBA4}{81189E8A-2345-4CDE-A55D-78|D33422F} dGlobalSpacoFalse 奀reatablPred恊claIdTru BExpo se0TemplateDerivCustomz婦 P!% tmpPostalCode As S緉g  TelOffi|Email IDCardNogNumbersCons t cho@JLa be娧≡駠纎/D lear p清空 匜 Sub btn_kt_delete_Click() If MsgBox("嫻囊境鍬悸穡", vbYe s6+@Question, "A `...")) 0Thenapplyer.vatlu翋"@&gendbirtphday YtitleRdivLis@-uteduLevelR ADegrel@anguaga纃dress 鄀粍WtEWe罺!2With6isDocumentD.R e.Ts (2$D6.Cell(2, 2)xext罷h;4# 63_C_4? # ? $ 5_C_! 6? # 7_嘇 End 丮莾Th∟e卌ap?!JeN(KJ"鑈m巐糝[ .En!Z(雅 %SetF``唖If /牕獕礏$旴t琻8.狾. c鱗;S螼E騳E c續恌lagp10'E3Y癮Bou= (1910) & "-"P(2 019=Mont刪DPWShow鎡 CommandButtxon11 g(checkFor,m(d騺)dEx鴌t AUKKq0s,?K 騣'}/9k / 廘 鑛 +m _M dfn衜╫閜疦 +r? WlO Jv颫 峸/ 纗揋寋-GQQ7C* Dim r纎otEle眥靴繭bject M陵= Get~僑cps`H.c1胑("Charger"d'申請@者信息Call makeXML(t, MVe嘯,S7,4,U,2,e0,-,We+(,e&,B,鮠!,, 痜;琭 . SUn餷oad 縞噢R^2跼漡_n糶e%糮蠒t@嗉NoCNFil衪er(,遺縋(V1 _X(ByVal CHanc蒙MSa[s.ReturnBtoo衛n$[Og鄀tCIDC懺_Key@鎠sAscii肁);Intep&4冃e= 120be 888'箎}'//Q -'懚End Sub 'Privatex IDCardNo_Exit(ByVal Cancel As MSForms.ReturnBoolean ) birthday.value = get蠧IDB,(^KeyPre ssAscii咺ntege"r咺f += 120 Then9 88s園postalCode_Change(脌+乶tmpP ntextBoxF@ilter(, , Fals%;^-|PzOnly"NumBb PVBA.(EE )%)telOET鶂= 婥 翧,▅A>@|4InStr(g闋(d工<程`aD技勈鮠農藝`a'佃獸>潔(畜|牧(絕綿(d鴰峒芵a(鵧統ba(`0編審)編浼,理&脝設計@!.涔副F !管理主$任#副F主N謈,bA主管溢護B B縅Qedu Level疩博士a生,碩!F本科 大$專中其他 Degre怽  ,學士,N%欯h"1234567890"$ +&8)45 6$lhisDocument.sqrxxXml9{<> ""聄 191Dim 憌Object>= Get.lo繿dXML(y P劺jueToControl(d Ele1 , Mv"app爈yer,覩,e ,鯂,翭,division,du8ty,U,luage,email,add釄v,▇諾,羋If3btn_kt_delete.Enabledp(4 tF s遡悮Funct伆 checkqY()櫭Bc mastIn鴓ut燴PX$s/'T 彰,性別,身份證,職稱,誆棵,最後學歷位,外語語種,通兜刂,郵政編碼,E-M手機"顰} +癮 u羴-idMsga00榠ngCC= 惈﨏fT@O3^ 鴆q唷(R,` vbOKQ櫊糾..."q..Ga1o i 胮a嶭en(R*D @ > 0 A 綨0ot (脩1, h@)7 "申請噝畔⒅  格式錯0N  } !,Item(鐎 w7EOrPe6_ l _ P 尤時? ly1o tr; 2鵣l3 袷(固定電芑盁  P亥 / / #!;鑔 /1 iO煉T桜XoPDPrivate Sub tbxpsd_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)6 KeyAscii = VBA.Asc(invertInput(VBA.Chr(KeyAscii)))End Sub  $' !4 !4 (0 !4 !4 !4e (0k(o EPrivate Sub tbxpsd2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)6 KeyAscii = VBA.Asc(invertInput(VBA.Chr(KeyAscii)))End Sub0' B@  (  (o0(]Attribute VB_Name = "setpsdWin" " Bas0{A69B5AFF-7EB1-42A2-8790-1B68A9E3D234}{92A55E55-19DD-4D01-B959-56CF402136BD} dGlob刟l婼paco False 奀r@eatablPredeclaDId訲ru BE`xpose0TemplateDerivCus tomiz婦 P# tmpPWD As S筺g 2 Sub btncannel_Click() edition_@status0" '表示戳巳∠ 磁ィ瑏檢查保護🦴,所以不要生成XML募 Unload } Exnd 0(!o俴 Dim n-Integer If tbx.value < >2Then MsgBox ("密碼@$恢!脛匭率淙"8 Set燜ocusEB' ThisDAment.V蛡=E  M 肒 . 0OUnprotect pa@sswordS@_s(2).PAC edFormc浝繦= 1 To, Fields.Count5(n).En檲Nex"`  11i凗  `>%侢 %Hp@0p00pX凗%偁0%Hp@0p00pXHp@0p00pXHp@0p00pXHp@0p00pXHp@0p00pXlp2(n @ x @ t @p @Hp@0p00pX h @ ` @ P @@ @ @X 0 Go@@ @p  @ @棹 P v.@瀨 p rort (LT@x HD a轛V*\R5*#d$*\Rffff*0a5656de66*\R0*#1e*\R0*#1f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Li@LEPFTGXD\?`adhlpt~x|b}`cd:yefix_z   "   " ( 0 @P " X`px   0Hh  0@   " ,( Xhp"x   "    " (08 Xh " p x "     " ,(X " ` hx "   "   "  6 * :  $` (       ( "  08@ " H:P         0 @ P ` p            0  H  `  x           (  H h p      "    "   >I I@ 4IP +   *  ,; 29  HA@ $     % ? 3P` #h@x  B  ,,,,@,p  B  (608$@Ph    0P Xh   $8  @4P  *    B@o`@'6 B@H 2B@o($>|k B@封面內容t ( 2!452( !45( !45( !45( !45( !4(蓋章) 5(q 項目表內容 (!% !47!(d !47!(d !47!(d !47!(d !47!(dq] n.l]Project l%D.@= 申請者信息 @ projectType,projectName,subject,schoolCode,applyDate,schoolName,researchDirection,researchType,planFinishDate,lastProductMode,qtContentAF @!~ (!(4 A@ro 請先選擇 學科門類 D警告...A: B@|k !4交叉學科/綜合研究 B@HdH'6 B@Hk(o 0'6-'8jv B@Hop'6-'8 B@Ho B@op !4 (0 !4 (X !4 ( B@d嚕 ( (4ko0 !0 !4 % (Xop B@oop B@oP0/ If subject.value = "交叉學科/綜合研究" Then# choosePertinentSubject.Show3 If subject.value = "交叉學科/綜合研究" Then subject.value = """ firstSubjectIndex = -1 Else End If Else !' End If (4op'Vo真的要刪除記錄嗎?   刪除...$:  清空填報項 (4 (4 (4 (4 applyTotalFee.value = "" otherFeeSource.value = "" 2(4 (4 (4 (4 (4 (4清空最終成果形式 (4 (4 (4 (4 (4 (4 ( 52( 5( 5( 5( 5((蓋章)5(qh 清空項目表格 (!%7!(d7!(d7!(d7!(d7!(dq清空XML填報內容 (!(4 .(0 B@k@o8 A@roX Al&規劃基金項目,青年基金項目,自籌經費項目,$p 2(n馬克思主義/思想政治教育,哲學,邏輯學,宗教學,語言學,中國文學,外國文學,藝術學,歷史學,考古學,經濟學,管理學,政治學,法學,社會學,民族學與文化學,新聞學與傳播學,圖書館👩‍🚒、情報與文獻學,教育學,心理學,體育科學,統計學,港澳臺問題研究,國際問題研究,交叉學科/綜合研究,$p (n基礎研究,應用研究,實驗與發展,$p (n (!!4] n. (!!4 Bt]subject !x%%!d'  %交叉學科/綜合研究 % 交叉學科/綜合研究 % %交叉學科/綜合研究  B@k`kX  (4 !x projectType,projectName,schoolCode,applyDate,schoolName,researchDirection,researchType,planFinishDate,lastProductMode,qtContentAv !4Ak !' !4 .(0 B@oX  ! %G (4j  ! %G (4j  ! %G (4j  ! %G (4j  ! %G (4j !4 (4AAk(i H'> bprojectName,projectType,researchType,subject,researchDirection,schoolName,applyDate,planFinishDateQ課題名稱,項目類型,研究類別,學科門類,研究方向及代碼,所在學校,申報日期,計劃完成時間$zz8k0d !4 !4 %申請日期 應小於 計劃完成日期 D警告...A:zk !4 !4 %6最終成果形式選擇“其他”後必須填寫內容到後面的文本框中 D警告...A: B@z0k(]'> !4 > ! 、 '>k !4 > ! 🦢、 '>k !4 > ! 、 '>kp !4 > ! 🌮、 '>k8 !4 > ! 、 '>k !4 > !4 % 、 '>k >至少選擇一項 最終成果形式 D警告...A:zp kh > > % % (4'>i( 敹Attribute VB_Name = "sqxmxxWin" " Bas0{C7EF480C-6CEF-4B61-9EB7-9C3786879588}{F195D5CB-5E39-4ED5JEC-5CEE0DABD4A4} dGlobal!婼pacoFalse 奀reatablPre declaId訲ru BExpose0TemplateDerivCustoHmiz婦 7P'+ Sub applyD_Enter() CommandButton8.SetFocus End' #4_Click%cod爀flag1.UserfrmC$ho~SclCA .ShowCprojectType,5 If (checkFo0rm() BZ) 0Then;Ex渋t5B9IfJ"僅"A '封面內容 Wit"h@isD@Jme,ntA .3ca`ption@"IvalA嘇 B sub@.G EM D(BG\ 茍H#7S#sBG# + "(蓋章|)爋A!Ka(&'@項目表+.Range.T醊s(6W'Cell(1, 2)xext.H4b2oresearc癶DirR7. ]"37俋4MlanFinish 乺s 4o lastProductM!i *Dim r@ootEleaT 餉s O"MC!}= GetZ-( .c瀝e ,("["5'昵胝噝畔 Call makeXML(, Me, "鑕j,╚,$c,僉!,w芐A>,N9&A4, `璈/,L*,qtC8ont鄗AcTh.C諼mlSt6r6!.CUnploadJ┶3.歠irst牱) Index -1L)MsgBox("請先選擇 學科爬", vb@OKOnly +糾...2乭艒G俊awPA"交叉/綜合研究"!僺ePer竧ind 竊E遜e宒/gq 焝攏7[3 YABouPb= (2013) & "-f"P21-M綈#h$ t8t4s15{0乿7痽罽 qt_ChqZ艀1V4.En慬睆qtyNLabel97.Visi脮@&$BackColor(&H805"-&E0d Q/8m'$EL/eA'(VBA.Tprim(7q"墾鈟磯 applyDate.value = ""  schoolNamx'清兆鈧粘曬 問rzzA燜alse2lBCompObjaVBFrame*UserfrmChooseSchoolCode0,G<,G<fw2zxbgd(zcb8l6qtWith ThisDocume nt嘝亊.projectType.caption巺sub!,偑,偭Cod囩&- "(蓋章)8End L荋倊項目0表格NU.Range.Tab纋es(6) 侻Cell(1, 2) ext  2% 3( 44[HXML填報0內容> .sqxmxxXmlStr啰夃btn_kt_dele镋nRd@HL 曅SetF祍&If SubPriv  CommandButton6_Click(4Unload M爓-UserForm_InitializeCall cu@rrency(MeD 耴Lisa>SplitStr("規劃疳K,青陠自籌經費!", "," 錹n 馬克思主義/枷胝治逃,哲學 ,邏輯宗劷湯語言@中國文虰藝術防考古!經濟管溊砝 法社會民逖в胛幕"新衛與傳播圖楣蕁⑶楸r╝獻!腷 體育科統劑港奶ㄎ侍庋芯,國際交叉學坷/綜合#research!-基礎" 應用實驗 敕⒄故If3*W<>葼en!^Dim 鎈 Axs Ob C= Get牪翲&.丷 k(i$C羾" u"7)(f阾 ,)々 C .Add  q酅AE uE RVa嘥oCon`trol(w,穩H ?楥,Q,硦=qr,FpD50Dirp}鄚,Y1,planFinish褠,lastPr@oductM爓,|qt `GQs)etCheckBo@> A棹`16`@ 棹9MP@` `:0N@@  鹴6@` -A:PN``@ @"M0@   :]36`@ +$'`MP@x! x x5`%lFPN``x! x x5`?W`鼖Cttl=瀨瀨`4xx  /t)x瀨5`3@`x! x ``t/tx6`@#`x! x `Uzx5`@`x! x `:P ]<@黇瀨! 瀨 8)x瀨5`x! x xD,(5,tpx瀨`@ 棹0   0 H  HDrU x!*Q*I1+ ,A.@  yQ...1///A2/2 0!Iq2555.qI4 ` 8 < 1`@aQ  DY q jjj` HY q!|||`IL 1@@@P 1EEET 1A!FFFX 1Y!GGG\ 1q!DDD`!!???daQ!aaahaQ!laQ!paQ "taQ!"xaQ9"~~~|aQQ"aQi"aQ"aQ"aQ"aQ"aQ"aQ" Y q#`I9#a#` bbb i ` `Q ) I`  }}} `aQa$``` y$ccc `aQ$ddd $::: Y q$yyy`<4     G`D$A`H$`L$`P$`T$A`X$`\$``$`d$A `h$ `l$ `p$  `t,I `x $`|$`$ `,I` 0/(`#nrU~| y iIA@ Q i  )!3Y+I3  SchoolCode p%%%$!d B@  'i鄞Attribute VB_Name = "UserfrmChooseSclCo de" 窧as0{04BF4A7F-66E1-4938-84EF-85AAE24E1E30}{4434F994-EC23-4339J6A-A3DA0176 6189} dGlobal橲pa俢oFalse CreatablPredeclaId釺ruq BExpv0TemplateD eriveCu@stomiz婦  Public@ num1,2 As Inte纆er P/3` xmlc箒 O bject Sub btn_u円蜟ancel_C-k()  Unload MuEnd OD1#OkDim a, bA!S缐ngIf !'flag繰1 pThenCA@Me.lbx_second.value <> ""髮 bcA@篴=1NJ E聟MsgBox "對不起👨🏻‍🦰,請您選擇學校!"@, vbEx唌ation, "0錯誤罓LEx渋t肙TIfa@BVBA.Trim(Split @L(.:")(1)eb 0 sqxmxxWin.s嗏腡= a颎 撂 b E-_7first_C鄅angeeJA6$ma6aown嚞VAhAClea繺 n .Lis@tIndexSPet n =.getElementsByTag A("().It癳m(nd-A 0 HWhi爟No .RC dNs 菼s hie\! Yn Mod 2廆蚛AddA ( . A.Text + ":"0)W鐶峅n@ 1de恘d Su?C ~._Dbl儏B`yVal 銍:MSForms.ReturnBoo聾6*Call槅霑!省 _Init鄆alizJ!== GetDoc.async 0洳/E@媔d啷`OnPar⒀resolveEx皌ern荢 p恊rveEtee?隳!C BEA玐M@L(This@ui.b@釪 雁n)7% /ぅL碖Pah@9"\a ."艣加載A毘A渴J萘.聸Cr .cal鄲找不攪文件,部分薹獲得|OOOy'b!9un纐rsi則y Func酻 *E頓;;UpO@@=! F0.V;F2F)=:99%h@H@@H@@UserfrmSubCodepub_check[__SRP_4| __SRP_5ntsByTagName("SubjectA").Item(n) Is Nothing lbx_first.AddItem (xmlcode.getElementsByTagName("SubjectA").Item(n).Attributes(1).Text + xmlcode.getElementsByTagName("SubjectA").Item(n).Attributes(0).Text) n = n + 1 Wend End Function] 6 課題主學科]( !!4 %.'d !!4'k 請您選擇二級或三級學科代碼! 錯誤A@:|XkP :$p# %' :$p# %' ( ) 0!(4k A@ro`Attribute VB_Name = "UserfrmSubC@ode" 擝as0{CD6B6BF1-DE65-40A1-8E10-B5CFB23D195B}{9EAD5827-DCCF-4D7B-BE6D-E608F9750182} dGlobalSpacoFalse 奀reatablPred恊claIdTru BExpo se0TemplateDerivCustom$iz婦 Public num1,2 As Integer P/3 xmlc箒 Object btn_u 蜟ancel_C-k() Unload 嬥 End &Xget AB 0|8xGrm&xMEPSPSSS<<<< P0{04BF4A7F-66E1-4938-84EF-85AAE24E1E30}{4434F994-EC23-4339-846A-A3DA01766189}((bp `刾  @ `` @剨 `` &)僋% j@ ( i凗  `剨%侢 %J @ j @H@X@H@h@H@@H@@H@(@H@h@H@H@a轛V M " 0 "8@ P`x   ,&&(8H P` "hp  ( NX`px"  "      ( H8  B *<0@H X] @]@H A@roH] 6 !!4] !!4'dh對不起,請您選擇學校! 錯誤A@:|0k( :$p# %' :$p# %'If  0!(4  0!(4k A@r o]Ph] B@firstS !'= -1  SchoolCode p%%.'  %"    %"%$!d:  %"%$!d  B@k  'oAoh n.p p(r p(t p(v p(x (!T!4 p%t (!z \base.dat p%加載學校常量數據錯誤. | 找不到數據文件,部分數據無法獲得A@:|xkpkhA(oX@]'  SchoolCode p%%Dim n, 苖 'own 'lbx_second.Clea@3匒n[firsIndex 燬et n=<.@#ElementsByTag羱("(A").I`tem(n80崈m@Whi纻$No.C@dN匑-s Is 0hingAIf n Mod 2伬1 Then#7AddA! ( /.喩s(1).Text + ":"@ 0 7狹4m)7E潃9m9" w(,m)_ el&"s乊If4Am卄-1KWend+(F AWn醳&iCki&_Dbl胵B`yVal #tjMSForms.ReturnBooC爀錣Call衶O>kC{(x} _Initializeey羖鍓= Ge0tDoc .a餾ync燸$焌!E v@ d 扥nPar飩resolveExtern 萊S perve鵣Yteス#!B`TXML(T(hisu醾.b 螪.ue)7 mvLPah`;"\ .@"MsgBox "加載Э瞥A看砦.", vbCr`.cal, "找不到數據源,部分a無糞ɑ竦脿跘e郋xit 洠iZi釨A'Function 鶤?'! "故嘎a[噵U?X?X汧鋝!10"_.vR蟏萞C!T___Q峾s(gDv =2>'縜%>5y9e9Ca, bS饠醗(褆flag*砮'課蘃庵% bcpVBA.IsNull(Me.譋/gja0 &﨓3缽%03.請您≡穸級 蛉讀 代H碼!/ExP昺~a'/1$.-a Trim(S衟lit (X:")恟0obOtrH0)@sqxmxxWin.EarchDir0 0c@b & "ǎ"`a﹣?袕c飸85Q\Rffff*0L5656de61*\R0*#1*\R0*#f*\R0*#17  (0 8H 4PB  &> $"  0@ HP XB  hpx 00 ` h x ("     8H` ("  |Gr禨xMEPSPSSS<<<< P0{CD6B6BF1-DE65-40A1-8E10-B5CFB23D195B}{9EAD5827-DCCF-4D7B-BE6D-E608F9750182}(bp `刾  *@剨 `%` ,xP)僋p% j @ w``Hph@%侢p %J  j Hx HxHx0HxpHxHxHx0H@p pa轛V Z " 0"8@P Xh&p N (Hj`     "  (0 "8 @ P ` p    ( B   (08@ H h  P     " 08@P X2h&&&(  0@ P] ]@H A@roH]] B@ ' SubjectA p%%.''  %"     %"%$!d:  %"%$!d  B@   %"%"      %"%"%$!d :   %"%"%$!d  B@k(  ''k  'oAox n.p p(r p(t p(v p(x (!T!4 p%t (!z \base.dat p%加載學科常量錯誤. |找不到數據源🛀,部分數據無法獲得A@:|kkA*oFunction getSubjectA() Dim n As Integer n = 0I While Not xmlcode.getEleme Y"yGrxME@080d> >K`凘 `刅 {`劄 @`剅 `匉 `劆 + ` x i儴 i僤`劒`剨+n@`8寧o  `劕t +` %%)僟%i償i儾`劧`勱`> 陘X@蕫2xH陘8(@ppP0` XP 8 x8 h ( @PH 0p%ppP0` XP 8 x8 h ( @PH ppP0` XP 8 x8 h ( @PH ppP0` XP 8 x8 h ( @PH ppP0` XP 8 x8 h ( @PH ppP0` XP 8 x8 h ( @PH ppP0` XP 8 x8 h ( @PH ((@`nx   hD:@Xd @pT @D @4 @$ @ @ @酤 @瀨 @軋 @寧 H p0X(@l  H(@ @0h@`H%(@f @T @P @L @D @B @H@ 8 8` @0 @p, H@* pp@  ``x@@l `  (2$h` H% @d @(T @@D 0@X4 @p$ @ @ @酤 @瀨 ants0XXp@h rolW@d ectip@`_ that  B8iad @\ n ar@L sent@< e di  Colum0Xxch on be r8 by itt ent for Im0@PH(a轛V*\R5*#2e*\R5*#5f$*\Rffff*0`5656de61*\R5*#3d*\R0*#14*\R5*#28*\R5*#29*\R1*#91*\R1*#155*\R1*#152*\R1*#10b*\R1*#10a*\R8005*#42*\R1*#dc*\R1*#db*\R1*#c6$* 8H&`  $B      (08 n@B  B0 8 XRx4 ( 0 8 HPX`B  hpx       0@ P` p           0  @  P  `  p              0  @  P  `  p              0  @  P  `  p              0  @  P  `  p              0  @  P  `  p             0 @ P ` p            0@HB  PX` h x     ( 8H Xh x         ( 08@  0HB 4 xBV .  6N@ 7x        >B  08@HPXv`  . ( HX ` hx  B  . b   < "(8H X Fh((<@  B  0 F@ H"h 00 (@(h   B    0 @ PX `.p  6B   .* (-@ P/X p x      * 2 ( 89Hh $p # ) ) B h<BHP   XhXF P ` jp   p       \ 0! 8!BP! ! ! p!("0" H" vX"""" ""#V #x### ##0# # $ $ $ 0$ ,H$  *x$$$ H%P% X% `% Hp% % ^% 0&   (@& h&B& & & &x''''B' ' ( ~(((((B( ) ) ()))))B) 0* @* P*** * ++++ + &+ `+ H, h, r, - (- @- x`- - - .  .@8.x.R.. ./h// 0 0  0t 00000 0~0(`1 1 11111 1B 1 1111"2   (2H2 P2`2   x22 22 2 $2"32(3`3  $x3"3234  404H4 P4`4x44 4 444 55 05H5  X5 p5<5 45 "5 .6 806 &h6 666 B  666666 6@687@7H7 P7`7h7@777 77 7$8(808 88@8H8 P8Bh8p8 x8&8 8vN889@9  H9X9 z`9B  99: 6 : X: `: h: x:::<: ::: ; ;0;8;P; >p; ; ; ;;; ;F<P< X<h< p<x<<<< <] 0]$eplugger_sinossX] ] ]駾(] P.獲得Table中Cell裏的值 主要為了去掉最後的回車符x 4 4 % %'i@設置下拉為選擇 不可以直接錄入]X : 6!< : %>ComboBox B :(@ko必填校驗p'z]]0]H]` F,$p'L H,$p'N]x  L $L'P D P$R.J J!4 % 必須填寫 $N D警告...A: JB@zkxp'zi`!為某Element添加指定控件集合的信息]8]P]h]] F,$p'L n.l  L $L'P D P$R.J $L l%D.V J!4 V(d V TB@XXoP!為某Element添加指定控件集合的信息]X]p] F,$p'Lb]]  L $L'P \ P$R.J $L Z%%!d'^ ^ J(4`oX在userForm中得到指定的控件對象]X : `!< :! b :.Rzk.Rig控製textBox的數字輸入KeyAscii 為輸入的ascii碼canDecimal為是否可以錄入小數 canNegative為是否可以錄入負數p]8 1234567890 %h - %h . %h '  V %h %G'Vj f V.G'Vj h V-G'Vj V. ^!d. %G'Vjm"."點號只能出現一次 V-,""-"號必須放在第一位,且只能出現一次 ^!d- %'Vd ^(jkk V'`iP V'l V1KTF1'l 2KTF2'l3KTF3'l4KTF4'l5KTF5'l6KTF6'l7KTF7'l8KTF8'l9KTF9'l0KTF0'laKTa'lbKTb'lcKTc'ldKTd'leKTe'lfKTf'lgKTg'lhKTh'liKTi'ljKTj'lkKTk'llKTl'lmKTm'lnKTn'loKTo'lpKTp'lqKTq'lrKTr'lsKTs'ltKTt'luKTu'lvKTv'lwKTw'lxKTx'lyKTy'lzKTz'lAKTA'lBKTB'lCKTC'lDKTD'lEKTE'lFKTF'lGKTG'l|HKTj8jH'lIKTI'lJKTJ'lKKTK'lLKTL'lMKTM'lNKTN'lOKTO'lPKTP'lQKTQ'lRKTR'lSKTS'lTKTT'lUKTU'lVKTV'lWKTW'lXKTX'lYKTY'lZKTZ'lni V'n V1KTF1'n2KTF2'n3KTF3'n4KTF4'n5KTF5'n橒6KTF6'n7KTF7'n8KTF8'n9KTF9'n0KTF0'n-KTF h-'nd 'nk🕴。KTF f.'nd'nkni)控製textbox change事件 讓其只可以輸入數字Pz'防止錄入漢字 用在TextBox的_Change方法上 4'\]]0]H]` 1234567890 %h - %h . %h '  ^!4 % ^!4  % %t f h$n'p  p % 4 ^(4zP kH r p 'r0 r'\ r ^(4i 7控製textbox change事件 自動轉換全角到半角不允許漢字輸入x 4'] ] ]0 ]H >1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ %h - %h . %h 'v  ^!4 % ^!4  % %t$l'p v p % 4 ^(4z k r p 'r r' r ^(4i` 設置DOC安全鎖定密碼` ] ] ]  (!<(4"讓文檔的狀態變為保護狀態 x (!L(4[ ThisDocument.btnCheckProtect.caption = "修改申請書" '讓按鈕的說明由檢查保護變為修改申請書A5 MsgBox "文檔校驗與加鎖成功!", vbInformation, "保護" b Text Box 7 (%V(X b Text Box 22 (%V(X (!~( (!~( (!(0 (!(0A@@  (%!(I&.BackgroundPatternColor = wdColorWhite  (%!(  (%!(  (!! (%!(  (!! (%!(4文檔校驗與加鎖成功☹️!如確認無誤請關閉文檔後再做上傳!'z z D保護A:A@@iP解鎖 (!<(4"讓文檔的狀態變為非保護狀態@ ThisDocument.btnCheckProtect.caption = "檢查填報內容並保護文檔"A Z Text Box 7 (%V(X Z Text Box 22 (%V(XA@@ (!! (%%!(d  (%!(J= wdColorGray10  (%!(  (%!(  (!! (%!(  (!! (%!(A@@? (!~(? (!~( (!(0 (!(0i加/解 DOC安全鎖H  ( 5  2C@kd5   2C@kxkpqhi`/控製填報內容狀態 true:填報狀態 flase:只讀狀態  (A@@7(] 5!   7(d  7(kA@@ 5(0 5(0 5(0 5(0讓自由填的formfields] 5!  7(0  5(  Text Box 227V(X  (!( (!(dh? (!(? (!(k0q(i  檢查填報內容8 (!!I申請書格式已被人為破壞🧙👨🏽‍🎤,本申請書已不能正常上報,請使用原申請書重新填寫💆🏼。 D 嚴重警告...A:'Bzpkh]x ] ] ] ] 您的填寫有以下錯誤🚟: %h %h '提示🤸‍♀️:申請書有以下未填寫: %h %h 'z''人員信息 (!!4  '   %4 , 申請人基本信息 未填寫 %h %h 'k (%5!7!!d$ % %h$'P P  ' z  %4 +, 申請者本人近三年來的主要研究成果 未填寫 %h %h 'zk P %  '   %4 2, 申請者本人近三年來的主要研究成果 不能大於800字 %h %h 'kx'Pqh成員信息 (!!4  ' z  %4 , 課題組主要成員情況 未填寫 %h %h 'zk (%7!!d$ % %h$'P P  ' z  %4 1, 成員近三年來與本課題有關的主要研究成果 未填寫 %h %h 'zk P %  '   %4 8, 成員近三年來與本課題有關的主要研究成果 不能大於800字 %h %h 'k('Pq課題信息 (!!4  '   %4 , 項目基本信息 未填寫 %h %h ' (!!4e] ] n. (!!4 Bt projectType !x%%!d' 青年基金項目 ] ]8 n.r (!!4 rBtbirthday r!x%%!d'd 1974-12-31  %  '   %4 N, 申請者的年齡已經超出“青年基金項目”的申請範圍(40歲),請選擇其他 項目類型 %h %h 'kkk申請經費A If Val(ThisDocument.Tables(6).Cell(5, 2).Range.Text) = 0 Then n = n + 1W mess = mess + VBA.str(n) + ", 申請經費總額 未填寫" + VBA.Chr(13) + VBA.Chr(13) End If!replace(trim(strTemp),chr(13),"") (%7!!d$ % %h$'P P  '   %4 L, “一、本課題研究的理論和實際應用價值📜,目前國內外研究的現狀和趨勢” 未填寫 %h %h 'k'Pqp (%7!!d$ % %h$'P P  '   %4 @, “二🕌🫵🏿、本課題的研究目標、研究內容、擬突破的重點和難點” 未填寫 %h %h 'kh'PqX (%7!!d$ % %h$'P P  '   %4 R, “三🧘🏼、本課題的研究思路和研究方法、計劃進度、前期研究基礎及資料準備情況” 未填寫 %h %h 'k@'Pq0 (%7!!d$ % %h$'P P  '   %4 D, “四、本課題研究的中期成果👭🏻🎴、最終成果,研究成果的預計去向” 未填寫 %h %h 'k  P %  '   %4 K, “四、本課題研究的中期成果⛹️、最終成果👱‍♂️⚈,研究成果的預計去向” 不能大於800字 %h %h 'k`'PqP表5 With ThisDocument.Tables(11)Y tmp = VB5Replace(VBA.Trim(getCellValue(.Cell(2, 1).Range.Text)), VBA.Chr(13), "") If tmp = "" Then i = i + 1k tips = tips + VBA.str(i) + ", 研究成果的預計去向及使用範圍 未填寫" + VBA.Chr(13) + VBA.Chr(13) End If" If VBA.Len(tmp) > 700 Then n = n + 1r mess = mess + VBA.str(n) + ", 研究成果的預計去向及使用範圍 不能大於700字" + VBA.Chr(13) + VBA.Chr(13) End If tmp = "" End With 表八 經費概算 (!! (%%!!d$  '   %4 , 經費概算 未填寫 %h %h 'k (%%!!d$ (%%!!d$  (!! (%%!!d$  '   %4 *, 申請經費總額 與 經費概算的合計值 不相等 %h %h 'k]P '   %h %h %h 檢查系統為您檢查出以上 X 項錯誤♦︎,請修改... '  檢查系統A@:'Bz8k0  z %h %h %h 檢查系統為您檢查出以上 X 項未填寫⚓️,是否真的沒有內容? 'z z   提示...$: 'Bzhk`kX'BiH 生成上報數據h n.l] ] ] EPlugger_Data l%D.@構建Charger塊(人員信息)] n.r (!!4 rBt構建Project塊(項目信息)] n. (!!4 BtA@@向Project塊中加入 申請經費總額 applyTotalFee l%D.V (%%!!d$ V(d V !xB@X向Project塊中加入 其他來源經費otherFeeSource l%D.V (%%!!d$ V(d V !xB@X構建項目成員塊 (!!4] n. (!!4 Bt !x !xB@Xkh 加入一般項標示 projectMode l%D.V一般項目 V(d V !xB@X r!x @B@X !x @B@X (!! ( ! (正式使用校對碼version l%D.V V @B@X @!~ (!! (%%!(d Selection.Font.Size = 1( Selection.InsertBefore (rootEle.XML)1 ThisDocument.reportData.value = Selection.End Selection.Font.Hidden = TrueA@@'i@ 8 ] ] ' KT數字 d %X d0 d % %J dzkKT電話 d'  d %  %[0-9]  %-z k KTe-mail d@ % zkn'i 得到DOC對象 x]駾(Msxml2.DOMDocument.3.0$. F不能檢查保護👓,導致該問題的原因可能是文件msxml3.dll和申請書不在同一目錄 %h  D申請書A@:zk .nis用在TextBox的Exit事件上 來判斷txt中的輸入是否是有效數字 並規範,返回的boolean用來控製焦點是否移出(true表示不移除)@ ^!4 % ^!4 %  處填寫的數字格式無效 D警告...A:' ^B@zpkh ^!4 % ^(4 ^!4 %.G0 ^!4 ^(4j]]   0' ] ^!4.$p'>$> %   的金額應小於1 萬元 D警告...A:' ^B@z k >$> % & 只需要精確到百元(即小數點後保留2位) D警告...A:' ^B@zkxkpkh'iXPv2015 V(d<gAttribute VB_Name = "pub_check" Public edition_status AHs S鄋gConst pas sword奺plugger_s`inossXcodeflag0Inte%hooseYearBound jDim rootEle ment Object=firstSuInd ex#b '竦肨able中Cell裏的值 主巳サ糇詈蟮幕 爻搗麊+Fu刵c getValue(str/)  圴BA.Lheft,穪n) - 2) L Ev3 '設置下拉為選擇 豢梢災苯`勇既Nw currencySet(tFo剅m両User1K仮col僎 @ Each @ ,In.ttr榦lsC If-PType翃( )亃ComboBox" Then 兞 .StylAfmBDropD纎wnLis@n ?IfNex@A6BB必填校驗OdmastInput(uf;, item寥, capqmBoolea-儐6FalseC$瑿MnDf@XI繴arian4 岴CH tmp-SDBG= Sp(lit(2, ","剄N 9 紸$iF昧i @0 To U"n(O$ = &(~ih@N繥B# os1, HHr蘨mG.vAi翲袵Call Msg燢("必須晾@ " ++`, vbOKOnly 警告8...%aOn Error Rxesu酀CMc吤.Focu鑏痢Exit 莟Aw玏塈Tru`IaZ墊'為某毺砑又付丶集簚系男畔⑹|makeXML(4pa爙t9, 鳒_0e`q%п; 頣OGaD%'b酓埫a 資丠i= GetDocC 鰨烾 aNQ烾/牅怳Aa%=壩.c鄏eate$6ge 箬\.T`樌耚8.appendChild 療烡鮏uba遭覶oD(source蒃tar uF+.SX#tx&槳Hia1   aG $ 譓1/'逹 3!d廘@ g 廘 =煉~凩齃A= .d!sByTa.g"r".羈(0)!s 4揚 #PG 屧趗魘 械玫C的!C對象飍P U 駋ine2婨丂qC ArqB爘s Z /儌P_Q=飩 b4e颴/YAaNoth"-甕0刂苩P<癵的數字輸入KeyAscii 為的a碼canDecimal欠馛憵Q毿∈齹噉Negativea負數1d禙e1lPressNumber(&繢4aE , @4}嶶剭bxB麝A6g3垝惵12345607890y瓹h0r(8)鄖45M6XR詟In0'(飁1a)羴姞ヱG= 0' PQ$ A鄕= 46挬 G5 ?0壭 <> 0O'"."點號只能出現一次/) '"-"號1敺旁第一位,>ep_ P -"~)W 7xE&爹qSelSVt?}<=?30eA = -7inver斈 5Q` 罰 Case6'c儭 b"1":7髊+"1 骯1$N/F P"2//(兂 "3" Case "4 ":hinvertInput P= "4鵲d5Udd6227U22890 惐Za 屓b鉛c鋀 dO 錟W eO 鎃 fO 鏤W gO 鑇 hO 閁W iO 闣 jO 險W kO 霿 lO 鞺W mO 頦 nO 颱o鴟p馯q蚍r骍s舴t鮑u齜v鱑wx鵘yz罸A路B肬C姆D臮E品F荱G確H蒛I史J說K踢晙L滯M蕪ZN線O衚P堰Q疫R輿嫡S贓T終U謅ZV走W豮X龠Y-讖ZEnd Select蓮FunctionPublic % 擭um2(KeyAscii As String, canDecimalQBooleanbNegativ篹x) 飥5 2窙釥餞副彞Ωq 岣1璬瞣n2o硂縩綠A ?茫?脀g頻 茫胦棵棵o茫胦?模w?膐模膐磕2瓆If+V*= True The喜0%7"-!餎lseC+g.愥3} 9If)🖱。燂 6 X ". 輿 8 " 螪旵 1'控製textbox change事件 讓其豢梢允淙謔數字鞧BoxFilte爎(txt袰T罖, val烪烪n烪n楬 '樂孤既牒鶴 用在!D的_C@ ge方法上 textBoxFilter = valuexDim s As String `result 2@i0Integer tgNumberZ= "1234567890" + VBA.Chr(8)I 45 6)iFor i1 To_sV1  釭`l5!縟啡銜尬笄牘乇1後再做上即7 + '解鎖 佂UunlockO.(麿0O非[aAP'進進n$"!L填報內薩薟A鬍?L2L 慿j HmD5獽H<$PdI+).Cell(1獒.R!.rS"縐t..t.Gra鄖25 '1/"?10 ??O?縊衐_?QQ  oo?黱goU鏦i8鐕 i誯0.75 i筺鎘Bll_0ct鵮 E蘭/解 鰶螮 (p仏Bool萫an擣Wi {i鰨=鉷@Bw!嵿.斑Typq唨wdAllow裃裏mFieldsK .Unprotect password @End IfLElse BIf N ot .P巌onType = wdAllowOnlyFormFields ThI纍teger  = 2 To .E.Cou"Asi Mod = 0k%i%弽鸄"(U3銏xNex訲丠塗char繤Title.Enabll= .ej@_佫 member fee'讓雜商畹膄]薴偹=AwnVwn紷1Bw羻冓衱.G(n)* 鑤`.Shad& p`es("T1@`x 22").Vi黶i, ,Cf瘋Th莈.btnCheckd1.W恑dtha53+C佦Height<21oSa0.75g %a詴檢查艜o戞c#拉()AD+,Ta^s僀 <> 16蘾Call MsgBox("申請書格式已被人為破壞🚶🏻‍♀️,本#已荒苷I 媳ǎ瑺褂迷重新填寫👨‍❤️‍👨。 "@, vbOK×, "嚴重警欄..."萻 4偂+ExitF7 'm 薄St0ringcti鋚smp弆 = "您腶有以下錯誤:" + VBA.Ch鄏(13)#伬提示🎯:%yC未 熈~0= i`&D'葊嗽斃畔⒚岮sqrxxXm俵0.valuq{"" !Qn0 83鉨str EP 人基本 # _8 9s.+(3#t@=5Replace(!Trim(getCellVQ (.(.R$ow/, 0uRange.袹)), *i)Ps羐緄ab'i %者本人昀吹鬧饕芯囁成果O$x Len(I ) p>20}   aA大於800譄 1QM 廍!肣 '成-.cyzk-- v課庾閼情傀鰺 C O.D.f5sVBO.O.(2--6警-D/*E-與甭!有關.丯嚦!!P!.1. .Q..1 n9? 涮? o.o_C`唧 o.g.'AT囥P蕓sqxm_.e\=p>+ \\+翍z 項目颷cLOm n / -f@噹T1v ayOb穹cAtr犫0謞~Set '= GB389'rep lace(緈(纅Temp),c1Q,""〤 Wi\th埓;7H瞭刴p@9VB5R亮`Trim(瓵E V伨(H2, 1 H),B圖p@AI緦@\C""悺敔汻“一、本課題研究的理論和實際應用價值,目前國內蚫現狀和趨犑啤 03#JJ#,,-9--羶)-9-3揷-二-的!.@目標、"容🌙、擬突破的重點籃湍訓,聖廲&,,(11,煙,,焃皙,三,@思路和,椒ā⒓蘋取⑶捌巹基礎及資料準辣蓋榭鯗.. ""3_[Bо9?僣墏#, 緿o﹍“四e!0,釁誄果、最終,的詟ぜ迫ハ驈lj- $AVLen() > 90ef q_ _ _ R謃 _ R 不能大於800jA 7 3 _$帷 '表5詘=縤皒r<唘%遡鄘%窟i 朝OsON焅o ス庇&的合計值 不相等?H>HDim m_n玲Integ渆rS= %X -"檢查系@統為您碃鮃隕稀 C犱(睟項錯髞研薷...剋"MsgBoxR(, vbExclamation 鄂checkA= Fal se Exit Funcci!ON0nO cR項C校欠裾嫻@拿揮心黏縓 (YesNo \+ vbQuestion, "崾...") =繬o Th en ch@eckAll凢alse :Exi纓 Func4繣nd If q楾ruK> '生成上報數據 @Public` makeXMLReportData() As B oolea窼et rootEl ement稧etDoc岲imObject ele lis'53:.createA("EPlugger_乊")7'構@建Char椋ㄈ嗽斃`畔ⅲ﹥[sqrxxXml態蓡 = 塿Ca軈 .load@O(T╤isDu Microsoft Forms 2.0 FormEmbedded Object9瞦,G<,G<VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} chooseYearMonth Caption = "請選擇年月" ClientHeight = 1935 ClientLeft = 45 ClientTop = 435 ClientWidth = 3720 StartUpPosition = 1 '所有者中心 TypeInfoVer = 29 End (H  $@}(% R 憦濄K窺丟.EStr.valueJ' 'ProCK'項目'x'(U((wd_protp (婁.'向*中加入 昵刖炎杠額4羘A{= 蚼applyTo纓alFee舖@ .TexA朧alKSTables(6).Cell(5, 2).Ra榥ge (sq ""鞎F蚫a毩#KQ鈋観蚎?;!;' ? )'罻一般老畋曄<t("@c羥Mod臦<"c 目"C PR$灙VR3碼#S燼偺.#=薈Cont燤.St黙r劰萊*I '正式使觻瞇6月隝--vers籬袃"v2015$,QL| 砫np.Cou刵tD1, 1iq.` 炅RgF.Sizep1InsertBe纅ore ( p韤K'rfx揷 L2HiddeQ塡QdR迆F1 i儅俼咺te癿(ki悎侷"9爑, 俒;inng蹆酑@p慍 h' Qn!4  $# Caxse !0$ '數字Q%PM侰p(VBA.抍9@d))慙S "0" + V/顥倵2Q'跌緇皝 3PFor a1 T耾Len(! Not Left(& Like "[0-9`]" Or-梡タ NP  渹 3 'e-Pmail 坤 yInAp/ @珸醏> 0)蔪 C#)%'得到DOC鴝韻┯朿ㄉOn Err R /p!2Is釴0'ricq8/a0規 ( & " 處填寫pK格式無勑警告r沱#- 4uq1xU F 炳s{"2q:翹a1V6TM!K xt扢= ".鞢 QY& 丵=zeroTi鑓驀ihaXi bX=慹k3!! = 蹠04騍iGflag1VarianH flag = SplitStr(txt.value, ".")  If VBA.Len((0)) > checkMa倄, Then^nCall MsgBox(caption & " 的金額觻π∮1"zeroTip萬元", vbOKOnly喞警告.. \exitFun0True x臩e@tFocus E55 6c EndpvUBou詎dv)21恛崏1倝2檰只枰返槳僭蔥∈愫蟊A2位"媮岮擥孒塋莈FalsfG\ 30   XhH LQh[dl`Ul #\0/\H罫%lC l`@X05d`l\h0 p  0   0   0   0 p  0 P  0   0 P  0 x  0 `   0     V h Odh < ldJ:TNDDh  5Ddh < ld敲.'瀨':4N$$cDh H 6D$瀨點h龝 ,5lhD$瀨8 V h+fT 5T.LPh p P @ L @ )PL*JDPh p P lDP@kJ留-LkJPh p P @ L @ )PL/LkJPh p P @ L @ )PL Jd@x+fT 5Tl龘 @Ph P,Pl龘 @Ph P,Pl龘 @Ph P,Pl龘 @Ph P,P*.DPh P (lDP*2L.M0@Ph P 8L h)PL .d*Ph P 0P9L:0NTTPh D P 0L )PL5T$髾臊j0%P$ LP,P#臊j0%P$ LP,P)?齤0%P$ LP,P)?齤0%P$ LP,P點h龝" d,5lhPLT0 8  0 h  0 8   Kd  d4t5d lt點N d '寧'瀨:N:TdD:4$ 6 dD$瀨寧 ltx,5xt$dD$瀨寧0 @        rU (`y0,`=8` =008` ;=08!` )A;=04I`a=0<q`=&##(`00` 0##< `1=0##4 `1=0(9 `I0$a `( `a#(`q#$`$`,)`&0$Q`8y` =0&n Gr嬙xMEchoosePertinentSubject.jxxgxkSubCodeSK FchooseYearMonth )jfgsWin29亓冉細叩難Э", vbOKOnly, "警告..."膼藰.Set FocusEx渋tC悂 Ifq. 與 第二項瞼荒芟嗤?"帴b?`?t%A?"三?鈚, ,ctE*<> ""| Ad-%%={EJ"c12鮄2嚳22Dim 殣As S蚽gbF+ "、剕+% : +" ]k-_ 艼T JVBA.Lef磘(,熗n`) - 1-cs斅)Unloaxd M g耡pncel顟籨UserForm_Initiali鼁eUjA U+A strs V繿riant 4= Split潬"(<[燨)YOs c!(0) & " UBound() > 1蘕 u$=MiC(1), 2&A2<2qr !!4 !!4'd@對不起,請您選擇至二級代碼! 錯誤A@:|k :$p# %' :$p# %' 6交叉學科的相關學科 ( ) !(4 6e ( ) !(4 6e ( ) !(4k A@ro惖Attribute VB_Name = "jxxgxkSubCodeSK" Bas0{79CE57A7-C8C9-479A-9F68-F56E014FADC4}{1DFB65AC-F4E5JF9-A6A6-00B0E42C2784} d@Global慡pacoFalse 奀reatablPredeHclaId赥ru BExpose0TemplateDerivCustomiz婦Public@ num1,2 As Inte纆er P(,` xmlc硜 O`bject btn_userfrm菴ancel_C-k() Unload MnEnd "lbx_first_ChangeDim 巒%ABown%second`.Clea1AnV.ListIndex&Set nD=;.getElement@sByTagAz(".丂A").I`tem(n70憙Whi{No.C@dN+s  Is hin&g 'If@9Mod 2*1 Then5AddY (,.F聅(1).Text + ":"@ 0 4kIf"9n1Wen8d Ft蟭僢_Dbl儍ByVal C垇uMSForms.Retur0nBoo纋臫Cadll悧OkCKU燪 _Initipaliz艻A=錣= GetDoc#仱.async0Wdma Ev@ d bO0nPar"寪resolveExtXern係 pe萺ve`Ete鍑c #`B%agXML(This uT.b牅D.u躤) 岹L@pk怭ath9"\ ."MsgBox "加匱Э瞥A看砦.", vbCr-cal, "找不到數據源@🧑🏻‍🦽‍➡️,部分a蝷薹ɑ竦 ﹥ FExit ?G@劌N)P"BsSKsuB慉夽Fun纁tion J[壙w.uz仈sa\鰩ε丳s5 .峴`:(s)}w "1108/埪,%$#LA +Г鎸S?IHtH 鐧 # n鬾 鱜\ atx^(y__骭晄(杹@;Ye鮕a, :b0S罍uo1abcm)Sp.Me.$} <> "v"|N=饏E!1匧對不起👨🏽‍⚖️,請您選擇至二級代碼!"M銭x牂ma1EPM窴{Ky4ap8VBA.Trim(Sphlitp( @:,")pyvbtr90)憳flagc傖 '交叉Y的相笹cho啵P爀rtin缹Ss0.T1觕b & "("`a蕞2/1%2/& /+3/_ t%3/.(e熄 `a轛VZTF 經費-年度nx A@ro`p A@ro@o0 6KTF人員-項目批準時間KTF項目-計劃完成日期部分 !0A@:55! 5! 55! 5!  5!  B@qhKTF 封面-申請日期 !0bjec55! 5! 55!  5! 5!  B@qKTF 經費-年度dno0 Al%$(L/Gr2xME(SPSSS0{445AEAE3-4B4A-4BA6-B082-E8BBFE918983}{E04BE99E-9AF9-45BF-AF84-01D35FEA6E45}P @   < @ &&`>  j `勑 `X0%侢` %@@0@@@@@@@@P@@@@0` a轛VS "  "(0 8H "PX `p "x    "  "8 (8@H2` 2  4(2`    @ &H p  "  "  (0X` (p'6 B@H2oX@'6 B@Ho0'6 B@H o (4 (4 (4 0!(4o8o(@ !4至少選擇第一項關聯度較高的學科 D警告...A: B@|k !4 !4第一項 與 第二項不能相同 D警告...A: B@|PkH !4 !4第一項 與 第三項不能相同 D警告...A: B@C@|k !4 !4 !4 !4 f第二項 與 第三項不能相同 D警告...A:7 B@ |PkH] !4、 '> !4 > !4 、 '>k !4 > !4 、 '>5k > > % %'>讓 > 0!(4 A@r oh A@r oH 0!!45] 0!!4)$p'X$) (4  $ %) (4k  $ %) (4k`kXoPH懦Attribute VB_Name = "choosePertinentSubj@ect" 碆as0{445AEAE3-4B4AA6-B082-E8BBFE918983}{E04BE99E-9AF9-45BF-AF84-01D35FE@A6E45} dG lobal楽pacoFalse 奀reatablPredec$laId酺r鈛 BExpy0Template@DeriveCustomiz婦X P 儹1_Clic@k() codeflagP1jxxgxkC SK.Show End% -2-2-( 33.CommandButto n CsC1.vatluv"绬AI23qxmxxWin.researchDir@ion 訳LabelH'`@&mit圔tn婬If , 3 ThenCLA5Call MsgBox("至傺≡竦諞幌罟]p 8-$p'] $$$$  B@(   B@o獬Attribute VB_Name = "chooseYearMonth" Bas0{CE9B08AF-4254-4AFA-A306-FEC1BCC15924}{D2EE9255-82FJ738-AA70-DD963CCCAF9E} d@Global慡pacoFalse 奀reatablPredeHclaId赥膔u BExpv0Templat@eDerivCustomiz婦4 P $ Sub CommandButton1_Click() If 俿.valu乲"" Then Call MsgBox("胙|GrxMEPSPSSS<<<< P0{79CE57A7-C8C9-479A-9F68-F56E014FADC4}{1DFB65AC-F4E5-47F9-A6A6-00B0E42C2784}(bp `刾  `剨`  ,`8)僋X!4% j 0 i凗  `剨`刾 p i凗  `剨 @ ```X0%侢` %J  j H`0H`0H`0(H`0pH`0H`0H`0HH0`a轛VZ" 0"8@H P `&p N (8@ " HPX "` h x     ( B H PX`h B px(&  j B (jP`h "px  2&&0 $X& & & 0 @] ]@H A@roH]] B@ !' SubjectA p%%.'  %"    %"%$!d:  %"%$!d  B@k  'oAo` n.p& p(r> p(t p(v p(x (!T!4 p%t (!z \base.dat p%加載學科常量錯誤. |找不到數據源🙇,部分數據無法獲得A@:|kkAo]' SubjectA p%%] SubjectA p%%.p p%$!d110zk SubjectA p%%%$!d SubjectA p%%%$!d  B@  'hi`0]' SubjectA p%% SubjectA p%%%$!d SubjectA p%%%$!d  B@  'i]] ≡衲攴", vbOKOnly, "虁崾..."+aExit@%E鄋d IfA{ 月Dim nextC罊rol As ObjectC%res皍ltD丯@S,ngCH=蔐& "-" & sH4q SelP@癱纎defla罣C2: '嗽-項目批準時間硟Q B 3A  -計劃完@成日期J Pro5.sqxmxxWin.晙nFinish6,= 34申請apply5經費-鵡甓仁酑&Unload fM hBub鉡6[2+[3 hiUserForm_Activ繢wi?> ?>_>P> 餡ith?$IMe.Move (.Left + .Fr2+E壜),TopOd30H鄀ight蓛,B\BP封面-SP! `G|&WaD}BOB囘PInitializeQ碌currencySet(Me.裴泍漓Bou`崩浝Varian'= Split焠(g髠-E肌 iA↖ntegerc8`c i@遃al(& (0)) Tdo 1) ChAddItem i矯N癦S112C 罜 H @  鰠 ( H酤 8    (08@HPX4` "@ "    "@ "   @ " HPhp "  x  "  "    " (0 "  8 @` " hp "    "  t Grn愷yG睬瘕輟3殷}栘肙鱇販繹觻K橯 6=廚覬O-L(油虶媍敨=jxME@SPSSS<@p`Hh{)僕hH % @`l D `p)僕 H % FX `t J `x@x j `@| 8 ` i凗  ' >`x i凗  (   %侢   %b 4@b8@b(@@bxL@bT@b` @p8 (8X p xh  P`(0  xxH p 凗偁6 p8 (8X p xh  P`(0  xxH p p8 (8X p xh  P`(0  xxH p p8 (8X p xh  P`(0  xxH p p8 (8X p xh  P`(0  xxH p p8 (8X p xh  P`(0  xxH p (a凗x  p8 (8X p xh  P`(0  xxH p  8 8  @a轛V "     " (0HP "  X ` "  "    "  "   @ " HPhp "  x  "  "    "   00HXx  $(Hh(Hhp    "  "J$d` $\ $\ $\ $\  $\(  $\P  $\x  $\  $\  $\  $] @ H EP $\h $\     B   <  B   P X ` *h * $  $  8 $X  *  $  8@P]@ ]@ ]@]@H ]@(]@P]@p ]@x]@ ]@]@]@ ]D$!修改這裏要同時pub_check的checkAll8  $\'o@x  V %$`'Vo 8 $\'o  8 V %$`'Vo  $\'Ao  V %$`'VoX0  $\'Ao(p  V %$`'Vo  $\'Ao  V %$`'Vo  $\'Aoh  V %$`'Vo8( $ $\'Aoh $ V %$`'Vo * $\'Ao * V %$`'Voxx 0 $\'AoH 0 V %$`'Vo  6 $\'Ao` 6 V %$`'Vo < $\'Ao < V %$`'VoXp B $\'Ao( B V %$`'Vo 0B@ BB@$>G|j 0!2!4 自籌經費項目 8!4 K你填報的申報類別為 “自籌經費項目” 該類別要求其它來源經費大於或等於 8 萬元A@:|(k  (!!  (!% 0!47!(d B!47!(d *!47!(d !47!(d !47!(d <!47!(d $!47!(d !47!(d 6!47!(d !47!(d H!7!(dq (!% !47!(d 8!47!(dq0 A@roX A@ro  (!!  (%%!!d$ %  (!!  (!%7!!d$ 0(47!!d$ B(47!!d$ *(47!!d$ (47!!d$ (47!!d$ <(47!!d$ $(47!!d$ (47!!d$ 6(47!!d$ (47!!d$ H(qk (!%7!!d$ (47!!d$ 8(4q@ 0B@o( 0!4 % B!4 % *!4 % !4 % !4 % <!4 % $!4 % !4 % 6!4 % !4 % H( H! %.G0 H! H(ji8 '> applyTotalFee,otherFeeSource申請經費總額,其它來源經費$zzk  申請經費總額$Gzj 8 其他來源經費$Gzj 0 圖書資料費$Gzj B咨詢費$Gzj * 數據采集費$Gzj 勞務費$Gzj  調研差旅費$Gzj <印刷費$Gzj $設備購置和使用費$Gzj 管理費$Gzj 6 小型會議費$Gzj 其他$Gzj'>iNAttribute VB_Name = "jfgsWin" Basx0{D19B6DAA-ADA8-4A64-BA33-96784F90AFB7}{91A093B8-D2CB-4E@886F-6B96F405A133} d@Global塖pacoFalse 奀reatablPredeHclaId襎ru BExpose0TemplateDerivCustomi襷婦 P $ tmpTszl@f As S簄Hg Zx SHjcj Lw D$yc5YsSbgzGXxhyU Qt 0媽 2縶6vty纙F{奣坿 傮-ZF劧z噯 崿茍嬻崙E崠龣t墢3巃?af{J痮痮爋9K烮/(? 2垇oJ凮A 8"M!MFunc醃 c鴄clRU鮄 臝=) + eF;I8i&6I3i1Isw.i+IX)i&4(A訵Left(,D 1翢"."RS 羗"0" &[揷鶗 鏲棩C(Ζ+偊c` (mastInput(MPe, "Z&,""!申請仧總ǘ,櫊"F) `狑 1%0@e( "3!黅r +g瞷 堇 鹐O R)0圖書資淩戲2愫4 +咨詢OOD-`數據璨杉 /醼勞務OD1`調研差|旅4峪∷OD6`設備購置嗪褪褂__"冒8管理__T:`小型8嵋榀qtp$N5S6*;fun_for_word97 __SRP_8&__SRP_9IDCardNo_check^(6 < <+p@`2k@ i僋`i働 凴@h`凾f V`刅`'V`刋^   +` i僜'Vi僞$\i僠`凱$`剨`刡@僉`%@@@@@@h`@h`pl  h@$\  @L @< @: 0 @p8 X @4 p @2 @@8a轛V$*\Rffff*0b5656de66*\R0*#f'B  (0@$X"$x     #  (8@B  H P ` p <( 08 H]]]]'X XR P % 'P T N % N T %  %Z P %ZKT V X+R'V X 'X X酅R8S V N T %  'Vn V X+R R'pi@]駾]駾]駾 \'P P ^ %' ^ %'b b P  % ` P  b %'P  P ^ %'  P'iXAttribute VB_Name = "fun_for_word97" Public Function SplitStr(strValue As ing, &Divide r*)Variant Dim arrA鄏ray(>@nCountCIgersHo|ld\38%n != 0Re G- )坕=擜.`Left$u, 1For 哴@= 1 Ton問 Sele@ct Cas繟.Asc(VBA.Mid.,(2 嘡 嚩 o纚係9 CY? + 1YPrese8rve# 7El躶eN&+BX豅1End腬Ne顇儯啟 2) G値@﹕ 吪仙VB5Replace(By纑 My児, CToF'妊@憜嵥gA皌mpF =鉸踤捎bL' =n!AV処n@(1, .,燸萈LLe n(cDo W纇ile n # ft(b n -爉 & g#&%@q%+ L c +n6oop9!K? rU~|  4A2y44yhp^k^h '$flML@< ?@ABCDFGHIJKLMNPQRSTUWXYZ[\]^_`bdefghijklmnopqrstuvwxz{|}~ % %  身份證號碼輸入有誤🚵‍♂️!月份不正確!'nzHk@ p  % % p  % % 身份證號碼輸入有誤📼! z 日期不正確!'ndzd p  % % p  % % p  % %  p  % %  p  % %(d$身份證號碼輸入有誤!月份和日期不匹配'nz p  % % p  % % p  % %e身份證號碼輸入有誤!2月份沒有 p  % %天'nzkk p %'r't v t r v % % v$f 't v t KT1'xKT0'xKTX'xKT9'xKT8'xKT7'xKT6'xKT5'xKT4'x KT3'x KT2'xn x %| p %t %|身份證號碼輸入有誤👮🏽‍♂️🏏!'n)尾數校驗碼不正確"zkiB身份證檢驗函數🤾🏼‍♂️,如果有錯誤,反悔的是錯誤的字符信息,正確🐎,則返回空調用 ~ % ~$j'~ ~ %e ~$n'~d身份證位數不對'~ki]X'R ~ % ~$j'| |z`kX19 ~ % % %- ~  % % %- ~  % % %'R ~ %e ~$n'| |zxkp ~ % % %- ~  % % %- ~  % % %'Rdzki7Attribute VB_Name = "IDCardNo_check" Dim Wi(1 To 18) As Integer '校驗 Priva怓unctio n Seth) |)7*29310U4558U6472= 19R61031珌L1孡1 M1孧1 N1孨1 OO怑nd  ublic C伩C15(ByVal StrID15伬ing If Not錋.IsNumeric() Thenz+羬身份證號碼輸入有誤⚡️👱🏿!有非數字出 現!" ExLit,/IfV(BA.'(Mid, 9, 2)) < 1 O唕B& > 12)月份不正d確y)11) > 3瞄S日期襤)lse僘qRYJ= 4!T= 6 91`eA燰=]%$=+$A縉 9郝蚦%匹配銷?lOB &`%vdO= 2 aw*0 ' j2沒`有" &wa & "天< @1!p%q揍8 8銍7', AiWi劺, num申A1( "獵!7LeftD8, 昆摃8晻$邠 縝揳 D1攙顰>斱ㄡ3斺攚( )vbCrLjf"颙 颙a辧"6`J.rK鰀= K/K/ 14/Kx剅唏/KA1E/Kob?K W ?K ?K?Ko0;D?K"bA[Ri躦h)bP鏗CPgP鏗牎 '尾數o呈鉞D Oc u檛'S檢驗函綣寫砝鉑反 詰氖茄的字符信息🧑🏼‍✈️,b┈則返回空 '禒饔 u 7!(s0*dt0O獎Lenc2M5V蠶5皅垽 Gz8=鵑q﹫"位數不稁鑿ogetBirthday#皝噄dM黶g7{乼劆硂E Y5V ) D<> """D訪 19禐LTrim>⊕, 郔2)@-金S-壚抄)眤?Tヤ鴈!釩BA.Len(strId) = 18 Then  idMsgXCheckCI0DC18処f H<> "" x Exit F@unctio nd If~getWBirthdayjV扵riDm( ValMidx, 7, 4))) & " -"011, 2+13REls>eW恏単噓GrlxME0 hx +ji僱+n<<i僷`剅`則`剉碼輸`剎!'+~ i儈+R8i儈`剕 %f0p8x8p8xp8xp8xp8x(p8xXp8x8pp a轛VB  (8HXhx(8H B PX*pP((0P8(,zPH B  (0P8(P4HPX,(Xz`P08@H`h6         ( 8  @ P  X h  p          . 4 P X ` Hh B        8 @ B H P X ` x     H `  p    ( 0 8 @ P ]p校驗碼8+f +f +f+f+f+f+f+f  +f +f +f +f酅 +f+f+fV+f+f+fix l %"身份證號碼輸入有誤!有非數字出現!'j'zXkP l  % % l  % %  身份證號碼輸入有誤⏭!月份不正確👩‍🦰!'jzk l  % % l  % %  身份證號碼輸入有誤!日期不正確!'jzHd@ l  % % l  % % l  % %  l  % %  l  % %$身份證號碼輸入有誤!月份和日期不匹配'jz8 l  % % l  % % l  % %e身份證號碼輸入有誤🗃➜!2月份沒有 l  % %天'jz`kXkPiH]8PhA@h p % %身份證號碼輸入有誤🏋🏿‍♂️!'nB@zk p  % % p zycyWinj]XchooseYearMonthDay&jxxgxkSubCode/_VBA_PROJECT>EX`hp " x  "  "  "  "  "  0" 8 @P" X `p" x "    "    (0" 8 @ P` hx"    "     " ( 0 @P Xhp" x   "   HvR"Grq'h6薌WL苯抳Ln踳脼9系O匸w({ <軰桰酣Y西a8蕠la$tOィ觪"xMESPSSS< "" Then僝^captio趎`朿啌E⒊蟔菭dgIf坔w^*1]1_y`w1._蝵J_$姥w22_A2_#湎(榮J d _ 偗 3籣玊3 0 3 {皉&  v踧y 4 4 鴗n4  o 騥5 5惘 tn5 勘) 6 崼 6 tn6  67 7 tn7  郫 8 8 鴗n8  蹫頖prlicBkerCall廎C",=u, 1悾啞9m`m 豘Za!12e簣╋ 2_c?!23@c??3麧40^窡45 Y5麧6TEhdayBtnClick(chooseBirt6, memberL@7) End Sub Private z7_` 癈allHy7 y8&y88y8<9< 噞Fun ction昸btn As CommandButton, txt TextBox,@ indexI纍teger6If .cap1= clearLabel Thpen (.value = "" Elsecodeflag/6 }Y@Bou纔= (1910) & "-"罖(2012$脃 MonthDay.ShowC鵄咺fCGL M@6_kt_add媕Dim idsCString醽rowI J GheckLis$tVB("甆ame,Titl=CC叾SpecialtyUnitDivide", "彰,職稱/職務,身份證號,鏨掌,專業,工韉ノ,分工情況"vQ,"fa@i"Bs 0ExitC誂YWithisDocument.Ta@bles(4For 咲= 0 0To 8D.Cell(3 + , 1).Ran竒e.A瀳婖2m 3456No#%罸!-n2C2#Th1cyzkxx8Xml T躰se嘨燢:W遀薝dW^臤etUnlo癮d M@吜S伜撕@!ub弅us')肈delete g'!{formItem聗Var纈ant G= Split`._v{.袆z.,#'# AMsg("真的要刪除記錄嗎? vbYesNo燤vbQues碻...")kB"{d 攙B[ei"zU偛( Set "c@眗olgetC(Me, G(i)VBA.LTrim(!衧tr(ED) 1..z.咼?H0H0iu9t8 !k*:&O58 '.EnaTdPF盬Sxg70. FpWs3'82[2Usebrm_I餬餭ize(刏s弖rrpency`' <> "}K5sqr襃1u郞bjec5 = Get鄁gO .態XML( !)NTo)UP3Pro丵 ApplyM猞1vT<鵾_PO{C{$_P誏鵀壭()1Boop=詷cQ埱%A盌e.'4銩Q23G饏填寫 名楚圃溾俉11 駯a2秾鑔畠 // 祾 6]A欉S$焎b c"Au e*Tru銛g%Pub朽"蓧;0f(source夌D, 喋ity倍>T 螾z盎愇agQ訟両鄝Ga銃l`镴iDV勑秴卼 `I丼p秲亅Each A (In 3.Elbe岷sBy(髭豎1i癇弤爯x緦 乑= `?~9?~A.?~4宓 control.value = ele.getElementsByTagName(formItems(i)).$(0).TexPt N rowIndex1+ 1\TEnd Sub Public Function setListV(successRQds As String, t)i Dim iIn鄑eger(飯俓 t丅搧8Varian丆塩= Sp(litr(p, ",")僌" s =魜:Obj膃c圝roo|Set = G鄀tDocJD罀倕.create臐("me`mbers<]= 0CFor iBc To U郆oundJ寗M @0 芣 >)EM= 臗檬(M坋, 拭 + 蒦($))If饋< 6 Then嘋/This@Uu淋.Tables(4).Cel豯(3@?,佬).Range傔烜3D)馣A豂f栬VBA.LTr坕m(!strJ(7P#!<= D8ProaMApplyMB:%:Call pmakeXMLr( , a+?翈,A鉆TitledBirthdaySpecialt!UnitDDividCode<",`儝h3$X.appendChi黮d翣g&塐gL欋蟟柪2  1厸憐漜heck鐫蠚, cap潙blankNum醧鸂 殽CtipMsgA枚#+懟錹`〇GΞ*楗錈 a匜膜8C== "請補仇淶" u単"行中 "&2 揂c艴藍%pJ廕E,<""_KRV+ g饌、 Hv5E/L9嘝U1Len(-ZtD?/N)肧) > aZ'襆臜/煴i!IDO OO %G5id7 = C鳬DCqG??/$S<> #罰 Box("3y@1)@3C+缾是否進衻屑觳椋繍]vbYesNo@纕bQues罵@=提示...")",OB0別8Focus<^"falseO1BExi棟-11=s6C. 't+蓪s鬆 + !!",X E@魵昒Cs12 '9 isSB;q 'need 燞矄& eft(CK, D) - s'的數據伮%OKOnly%0警告%?On Err㏑es 藮1 1 蟔 sPd u瀏麪n跍@oNn Vj3#+!% q棏稇Sub貳8par劈!刢, 剈fUser0s鷐p眛伴!3啑74J馫唉q9卆V(~宊1/婒稹燪斤塱 &鮫轘O豀負弮d'嗜Y @筒etControl(uf, formItems(i) + rowIndex)  Set ele =potElement.cr衑ate( tAl.Textvc.value\parMappendChildkMN9 's僶皉der!"/|s"妳q%旲End Sub  B@ AkxopxAoX ! 6KTF55&! 5! 55&!  5! 5!  B@KTF55&! 5! 55&!  5! 5!  B@KTFA55&! 5! 55&!  5! 5!  B@KTF55&! 5! 55&!  5! 5!  B@KTF55&! 5! 55&!  5! 5!  B@emKTFerDi55&! 5! 55&!  5! 5!  B@KTFe55&! 5! 55&!  5! 5!  B@KTF55&! 5! 55&!  5! 5!  B@ KTF55&! 5! 55&!  5! 5!  B@ KTF ! !(! !!  ! !(!  !! !!  B@nPqHo@ Al]8 8-$p']P $$$$  B@   B@ 6 6  (4kXoPHAttribute VB_Name = "chooseYearMonthDay"D as0{AD6A35E9-6B3E-4F2F-99B8-1B8FCB403423}{46F1E390-2ABA-453C-8AA3-5B5399F903BD} dGlobal擲pacAoFalse 奀reatablPredeclaId軹ru B8Expw0TemplateDeriveCus tomiz婦 P" Sub CommandButton1_Click()  Dim r@esultDAHs S衝gIf s佀.valu亁"" And< s詭 軌 Th黣n#42纜_!GoTo tu爎nYMD EIf! Call MsgBox("請選衲攴", vbOKOnly, "提示..."D>Exi瀟罤SN9月3歈:日y:亐nextC遰ol 伬Object翏AIJn蓛& "-" &媰1 reDw:-Sel {codef琹a銷Ca~1zycyWin.memberBirthday0&N 213243546576879810爏qrxxANb凪w栥Y凮単Unl`oad M纀u襜! 2 大宥3 hi竴_Changee羠s!vCl圇c <> 芽+奿墍Integerd"`*curren蒮盚扺 =奿6G[A1xf Ph12". <]P=`夾.LTrim(VB A.strrVal(圥) + 1))怭"-01 }XE"劚 5逿&/' ; ╯! For i 1 w !Diff("dd,  檙!AddIte鑝 iwN纁&亄'l'聓 )o+悓UserP m_Activ+With Pr鷒ak.刡 OfOfh?Me.Move @(.Leftp.tfr`3輌a)b,Top30!-mHei鴊ht8p蒶 赽1B . 誸1Lv1. 醳Iq饗 2  2 2 蓈 ? oay3 3 I| 幌 4%4 4 蓙 n5 5 5肯 I囅 6 巰 6 6 鍔屜 7 7 7 I捪 幌 8 8 hd惐ay8.Heig@ht) Case 10:Me.Move (sqrxxWin.Left + Frame1,birthday0),Top~30 C 2 罞nd SelectWith ub Private Sub UserForm_Initialize(圕all currency@Set(Me Dim yearBou8As Va0rian: = SplitStr(chooseYA, "-"&i "Intege唕僝J i =-l(((0)) dTo 1)$佲s1.AddIte坢 i&NexNe+1#12 M0onthC If codeflag > 0 Or< Then#value201960cIf e hNx N (j8 " * 0 @ H ` p x    (L/WGrAcxME(SPSSS0{AD6A35E9-6B3E-4F2F-99B8-1B8FCB403423}{46F1E390-2ABA-453C-8AA3-5B5399F903BD}P <p33`勡`勞 H  x`勱-` !`" $  j`勬 `勱h%侢 %pxpxmembpx0px8pxppxpxxh a轛V "0@HPX $h  $  "  (0 08h p x     ( 8H Xh x      "  "  "  @HP&X < L0 &8 ` p " "  N (N8 N N HNX N N hNx N (j8 " * 0 @ H ` p x     ]@ !4 !4 !4'0k( !4 請選擇年份 D提示...A:|hk` !4 請選擇月份 D提示...A:(| k !4請選擇日 D提示...A:H|k]X !4- !4- !4' 6KTFB@  !(4KTF  !(4KTF8  !(4KTF  !(4KTF  !(4KTF  !(4KTF  !(4KTF  !(4 KTFx  !(4 KTF   !(4n@ A@r0o(p A@roo B@ !4 !4]0]H]` !4- !4-1'  !412   !4 % %4 %-01-01'"d !4- !4 % %4 %-01'"k d  " % ' :$p# %' 6交叉學科的相關學科  ( ) !(4 6ex ( ) !(4 6e ( ) !(45k A@r! o Attribute VB_Name = "jxxgxkSubCo de" 怋as0{AD56948C-CC34-4BDD-872A-4D109FEE570A}{AF499837-3568-40F3-B3ChDC99F13 ED06} dGlobal廠pa俢oFalse CreatablPredeclaId豑ru BExpose0Templat@eDerivCustomiz婦 Public@ num1,2 As Inte8ger)- xmlc硜 Object btn_userfrm菴ancel_C-k()  Unload MoEnd "lbx_first_Chang俥Dim n%鉇Bown%second.C豯ea1AnW.ListIndex&Set nD=;.getElementsB恲Tag羫(".丂A").IteXm(n70W$hi|No.C)@dN+s I剆 hing 'If@9Mod 2*1 ThenG5Add (,.坡s(1).Text + ":"@ 0 g4kIf"9n1Wend  Ft蟭僢_Dbl亙傿yVal C乽MSForms.ReturnB oo纋臫Call賽桹kCKU燪 _Initializ艻A=錣= G`etDoc#.郺sync0a Ev@ d bOnP arb寪resolveExtern@係 perv騟`Ete%垼 #`B%agXML(T(his u.b鄿D缷.ue)7 岹L@pkPah9"\ ."MsgBox "加載Э瞥A看砦.", vbCr-cal, "找不到數據源👋🏻,部分a無糞ɑ竦胉﹢ F郋xit 侴@?)P"BsJ@Function 蹐抳e.鮵g崷u @y瘂秠ye) Kz徑)-a, b亄S@鰩淎8abcC]^Me.([ <> "v"\-=衐E$e+對不穡肽≡裰煉粿洞!,E騲爔ma1$0,-* [*I)a7VBA.Trim(Spl4itp( @:")PX鬞btr0)qwflagCa! '交矀駟7的相箓8#cho鄠Pe恟tin爇Su{4.ss1矪b @& "("`a艦┐ C2/q%2/& /+3/_ t%3/.D瘒Q-3H`(H`(H`(HP`(HHa轛VchoosePertinentSubject0T5656de61,choosePertinentSubject2jxxgxkSubCodeSK0U5656de61jxxgxkSubCodeSKchooseYearMonth0V5656de61chooseYearMonthnjfgsWin0W5656de617jfgsWin觖0fun_for_word970b5656de66Lfun_for_word97嬙  IDCardNo_check0Y5656de61dIDCardNo_checkl8zycyWin0Z5656de61zycyWinqP℅$chooseYearMonthDay0[5656de61;$chooseYearMonthDayAch]jxxgxkSubCode0]5656de61jxxgxkSubCode呶| Gr呶xMEPSPSSS<<<< P0{AD56948C-CC34-4BDD-872A-4D109FEE570A}{AF499837-3568-40F3-B3CC-CDC99F13ED06}(bp `刾  `剨`  ,`8)僋X% j  i凗  `剨 @ ``%侢 %J ( j `(Hp`(HP`(H`(H`(H`(HP`(HHa轛VM " 0"8@H P `&p N (8@ " HPX "` h x     ( B H PX`h B px(j 08 "@HX  `x2&& $(&P x& &  ] (]@H A@r oH]] B@!4 !' SubjectA p%%.'  %"    %"%$!d:  %"%$!d  B@k  'oAo` n.p p(r p(t p(v p(x (!T!4 p%t (!z \base.dat p%加載學科常量錯誤. |找不到數據源👨🏻‍🌾,部分數據無法獲得A@:|kkAo]' SubjectA p%% SubjectA p%%%$!d SubjectA p%%%$!d  B@  'i]Xp] !!4 !!4'dp對不起🚴‍♀️,請您選擇至二級代碼! 錯誤A@:|0k( :$p# % H80xPh`_;綟なl/`] 瞎炏塋熱嵧蕱.LC紹韭奩紩;Nbn.5:`旴%傋E(zi4踅?K浾$致A\癚襪I輝M:4p慍謨*FH朎宛j姳,鼲8`?鱤@婖x箄攛@笽矝甮wc|!$_旁E枬懁瀝鸤珹|5?A﹦,聣  歮踻螪憌M蔄?霟\走I拌慉bJ錭顥Q芳G光`P昱釱6儐怉$椮BB榱宦猖H嵆溊Q胯` bText Word祂` VBA麾`Win16羱`Win32`Win64x`Mac巢`VBA6#`VBA7#` Project-甡stdole揱` Normal嘵` Officeu` MSFormsC` MSACAL氤` Scripting娺` MSComctlLib踡` ThisDocument<瀈 _Evaluate賎btnCheckProtect1_ClickK赻btnCheckProtect_Click哐` sqxmxxWin瑣` projectType|鴃value銴` jfgsWina頯otherFeeSource X`MsgBox桼`status+`flag淊` (wd_protect`(checkAll晆`vbOKOnly醪` setpsdWin譃`Show鮜btnEditProtect_Click汒`psdY臽 (unlockDocR.` unLockWin翇`Document_Close7\`baseDataU筦Shapes<`Visible隊`msoTrue `Save捫` Document_Open翂` strDllPath.篳msoFalseF.`GetPathT蒨FullName袨`ChrK~`ShellV譧 rootElement滿`(GetDoc4鋊xmlcode糝`async鹔`validateOnParseO`resolveExternals?錪preserveWhiteSpace>篳Path2` vbCritical+}`XMLK颼ProtectionTypeτ`wdAllowOnlyFormFields!`Height|媊 sqrxxXmlStrm` sqxmxxXmlStre焋 jfgsxxXmlStr` cyzkxxXmlStrO蒨(setProcessControl~焋 projectTitlez`projectTitle_Click`captionx`蘟  *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.5#0#C:\Program Files (x86)\Microsoft Office\Office14\MSWORD.OLB#Microsoft Word 14.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*\CNormal*\CNormal`轛V4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{BA5F9A9C-D91D-4290-B899-FB134CEEACAF}#2.0#0#C:\Users\ADMINI~1\AppData\Local\Temp\Word8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E 忇.`孧 *\G{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0#Z:\DLYCMS~1\OFFICE~1\OFFICE11\MSCAL.OCX#Microsoft Calendar Control 11.0*\G{93230875-238D-4499-95AA-6CCF3E43ECF9}#7.0#0#C:\Users\ADMINI~1.ZGC\AppData\Local\Temp\VBE\MSACAL.exd#Microsoft Calendar Control 11.0.'巇/$*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\Windows\SysWOW64\scrrun.dll#Microsoft Scripting Runtime*\G{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0#C:\Windows\SysWOW64\MSCOMCTL.OCX#Microsoft Windows Common Controls 6.0 (SP6)(*\G{701B2974-C028-44F3-A53C-6F312FAF2CC2}#2.1#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)僜 鴘M a轛V   GrThisDocument0L5656de61)ThisDocument/R`跠unLockWin0M5656de61QunLockWinR$sqrxxWin0N5656de61sqrxxWin傟0,setpsdWin0O5656de61GsetpsdWintH=sqxmxxWin0a5656de661sqxmxxWinE `9.UserfrmChooseSchoolCode0Q5656de61.UserfrmChooseSchoolCodem&x~UserfrmSubCode0R5656de61UserfrmSubCode禨pub_check0`5656de610pub_check,chargerTitle_ClickF嘸 chargerTitleho` sqrxxWin( `memberTitle_Click` memberTitle惔` zycyWin\c`feeTitle_Click抽`feeTitle;`Val葩` (getCellValue`Tables`Count0v`Cell瘔`Range ` PrintTheDoc`btnCheckProtectHeight諓`btnCheckProtectWidth{猔 strWarning'`btnCheckProtectp6`lretE羆vbYesNo漙 vbQuestion室`vbNo%`wdNoProtection`ShadingA `BackgroundPatternColorIndex~腵wdWhite蕏`dlgPrint茙`Dialog焒`Dialogs娛`wdDialogFilePrintL`Erro奰Clear閫` ErrNoPrinter]竊Display` ErrHandle玓`ExecuteY蚡 vbInformation瞡`wdGray25q蘞 FilePrint跧`FilePrintDefault呏` strFullNameAA`i``intLen黐`tmpPWD倌`unLockBtn_Click摁`pwd擾`SetFocus衿`cancelBtn_ClickC萡 pwd_Change 臽(textBoxNoCNFilter7` tmpPostalCode&` tmpTelOfficeJ`tmpTel兇`tmpEmail A` tmpIDCardNo湢`gNumbers` chooseLabel蚹` clearLabel飺`btn_kt_delete_ClickU鬬vbYesa?`applyer㎞`gender烜`birthday茿`IDCardNo鈶`title騸`division鬬dutyeduLevel粵` eduDegree鱜languageN乣address` postalCode垃` telOffice﨩`tel控`email btn_kt_delete斸`Enabled酈`chooseBirthdayBtn8_ClickS胉chooseBirthdayBtn8f`(codeflag悊`(chooseYearBoundf躟 chooseYearMonthDayr綻CommandButton1_Click淞` checkForm賎rootEle敚`cpsEle ` createElement闔`(makeXML_莁CommandButton2_Click豉`IDCardNo_Change,]` IDCardNo_Exit#e`Cancel駱` ReturnBoolean閑`( getCIDBirthday `IDCardNo_KeyPress埒`KeyAscii#` ReturnInteger鍌`postalCode_Change裛 (textBoxFilterJpostalCode_KeyPress玚(OnlyKeyPressNumber+沗 tel_Change燇` tel_KeyPress8[`telOffice_Change!`telOffice_KeyPress埱`UserForm_Initialize5c` (currencySet5List*揱( SplitStr`甡sqrxxXmll+`loadXML濪`(getValueToControl笀`documentElementE宍 (mastInput魓`idMsg9`( CIDCheck靁`(checItem砃`tmpPWD2幨`btncannel_Click抍`(edition_status籤 btnok_Click"`ne`tbxpsd矛`tbxpsd2P`(makeXMLReportDataK`(setpasd扯`OptionButton1_Click瀋` BackColor迌`btnokd沗OptionButton2_Click/玚 tbxpsd_Change鉃`tbxpsd2_Change`IMEMode i` fmIMEModeOffA8`applyDate_Enter戭`CommandButton8冊`CommandButton4_ClickVy` UserfrmChooseSchoolCode︱`CommandButton5_Click繢` projectName&隸subjectRP` schoolCode<>` applyDatej` schoolName2s`researchDirection~g` researchTypeZ玚planFinishDateX4`lastProductModeg鯼CommandButton3_ClickFA`(firstSubjectIndex摚` choosePertinentSubject#臽 UserfrmSubCode檬`CommandButton7_Click0` chooseYearMonth鏵`CommandButton8_ClickYx`planFinishDate_Entert謄CommandButton7傇` qt_Change摙` qtContent羆qt轣`Label97o`qtContent_Change聕`Trim@颼researchDirection_EnterCCommandButton3~訿researchType_Change`schoolName_Enter `CommandButton4訿subject_Change` ListIndex鱍`subject_KeyPress`馺zz1``lw'^`zxbg@癭dzcbw$`zl#``CommandButton6_Click鼬` sqxmxxXml饦` strSubjectO閌getElementsByTagNameY颼Item讂`AddItem ` setCheckBoxB`selectedCaption廘`DateDiff£`num1慮`num2抅`btn_userfrmSubCodeCancel_Click醏btn_userfrmSubCodeOk_Click+`aX` lbx_second亞`abc瑀` vbExclamation吶`lbx_first_Change`md`nownode慍` lbx_first8` ChildNodes5刞 Attributes鬬lbx_first_DblClick/` getuniversityJ` getSubjectB<渀lbx_second_DblClick苐`IsNull` pub_check`(password鷂`str椪` currentForm琡UserFormN`colH`Controls蘇`TypeName`Style舙`fmStyleDropDownListom`ufd_`items`h`captions(`control埐` formItems耜`formItemCaptions[媊tmp胭` (getControl癭parent`ele剦` appendChild攂`sourceG禶 targetFrm F`txt嗃`continercR` controlName鵣TextBox蔘` canDecimal醏 canNegative `SelStart鏩` (invertInputn`(invertInputNum2嚽`sj` resultStr]=`Right `gKeys`pword'`tips(繾 section_index擹`btnEditProtectc`btnCheckProtect1燻`pg` Unprotect?`Protect譮`isUsed `Sections忟`ProtectedForForms巂 FormFields-|`Shaded黗messcC` ( VB5Replace'`Rows` strProTypexf` strBirthdayw鋊m_n穈listEle"鬬 cyzkxxXmlE` SelectionZ甡Content鎙`Start`kind錳`tempR猔 lobjPJInputRy` CreateObject鴬`(exitFun錪 checkMaxLenEG` IsNumeric$*`zeroTip溏`chooseSubject1_Click鉦 jxxgxkSubCodeSK姴`chooseSubject2_Click` jxxgxkSubCode`chooseSubject3_Click驲`subject1穿`subject2旦`subject3訂` Label1_Click惶`submitBtn_Clickz9`chooseSubject1+`chooseSubject2+`strsh5` getSKsubjectAw塦 getSubjectA;渀sYear堖`sMonth嵼` nextControl琙` resultDate7`UserForm_ActivateZs`Move>y`Frame2筦Top5赻 yearBound叺`tmpTszlf狨`tmpZxf燏`tmpSjcjf覺`tmpLwfw痐tmpDyclf溺`tmpYsf)違tmpSbgzf郹tmpGlfH揱tmpXxhyf骱`tmpQt 乣tmpApplyTotalFeef`tmpOtherFeeSource竊fIndex`applyTotalFee_Change擰` applyTotalFee6抈applyTotalFee_KeyPress `otherFeeSource_Change.胉otherFeeSource_KeyPressfw` dyclf_Change砃`dyclf朓` caclTotal鸐`dyclf_KeyPress` glf_Changepi`glf7擿 glf_KeyPress|猔 lwf_Change郹lwff癭 lwf_KeyPress` qt_KeyPress` sbgzf_Change.8`sbgzf諥`sbgzf_KeyPress沗 sjcjf_Change&羆sjcjf怶`sjcjf_KeyPress躛` tszlf_Changewj`tszlf砏`tszlf_KeyPress姑` xxhyf_Change/`xxhyf`xxhyf_KeyPressm裛 ysf_Change`ysf郹 ysf_KeyPress槷` zxf_Change@+`zxf廂` zxf_KeyPressY朻btn_kt_add_Clicko胉totalU`btn_kt_clear_ClickFK` fun_for_word97`strValueK蚡 strDividerm蟕arrArray{nCounter`sHold ` nSplitCounter$轥Asc!u`MyString`ToFind4 ` ReplaceToT `Lc` IDCardNo_check穈Wi宊`SetWi闋` ( CheckCIDC15#O`StrID15厞` ( CheckCIDC18&O`StrID18垔`StrID17噴`AiWi`num`A18,p`vbCrLf`UCase5 `strIdJ``LTrim鬮`tmpIDmemberCode0昁`tmpIDmemberCode1朘`tmpIDmemberCode2桲`tmpIDmemberCode3楰`tmpIDmemberCode4橩`tmpIDmemberCode5欿`tmpIDmemberCode6汯`tmpIDmemberCode7淜`tmpIDmemberCode8滽`memberBirthday0_Enter{7`chooseBirthdayBtn0^`memberBirthday1_Enter媜`chooseBirthdayBtn1_`memberBirthday2_Enter穈chooseBirthdayBtn2``memberBirthday3_Enter,颼chooseBirthdayBtn3a`memberBirthday4_Enter&`chooseBirthdayBtn4b`memberBirthday5_Enter巒`chooseBirthdayBtn5c`memberBirthday6_Enter灕`chooseBirthdayBtn6d`memberBirthday7_Enter/頯chooseBirthdayBtn7e`memberBirthday8_Enter&`memberBirthday0_Change蜫`memberBirthday01a`memberBirthday1_ChangevK`memberBirthday12a`memberBirthday2_ChangeL`memberBirthday23a`memberBirthday3_Change芁`memberBirthday34a`memberBirthday4_ChangenM`memberBirthday45a`memberBirthday5_ChangeN`memberBirthday56a`memberBirthday6_Change綨`memberBirthday67a`memberBirthday7_ChangefO`memberBirthday78a`memberBirthday8_Change岪`memberBirthday89a`chooseBirthdayBtn0_Click臥`chooseBirthdayBtnClick推`chooseBirthdayBtn1_Click `chooseBirthdayBtn2_Click疍`chooseBirthdayBtn3_Click@宍chooseBirthdayBtn4_ClickP腵chooseBirthdayBtn5_Click `chooseBirthdayBtn6_Click睠`chooseBirthdayBtn7_Click聓`btn獄` CommandButtonkindex窨`ids螡`rowIndex6d`checkListValue類` setListValue輅`getListValueToControl6` memberName0I鮜checko穈 memberName毚`memberBirthday棉`memberSpecialtyd豟 memberDivide芵 memberUnit+a` entityNameTag#躟tagNames successRowIds魘` tRowIndex(h` successRowId撓`pmakeXML矗`blankNum昤tipMsg琹`sDayぽ` returnYMD頦` sMonth_Changeb`currente盽 nextMonth` sYear_Change坌`frame3筦Frame1筦 docPassword` docStatusr鬬Documentj觍Click娿` _B_var_Chr\;` _B_var_Mid韕` _B_var_LeftQ醏CommandButton1|訿CommandButton2}訿Label1,`Label79'`Label80C`Label81D`Label82E`Label83F`Label84G`Label85H`Label86I`Label88K`Label89L`Label90h`Label91i`Label92j`Label94l`Label95m`Label96n`Label99q`Label100&`Label101'`Label103)`Label104*`Label107-`Label108.`Label109/`Label110K`Label111L`Label112M`Label113N`ChangeG`KeyPressq鯼 Initialize覰` _B_str_LeftV僠 _B_str_Mid` btn_kt_add}醏 btn_kt_clearβ`Label93k` memberUnit02閌 memberDivide0羆memberSpecialty0?` memberDivide1羆 memberUnit13閌memberSpecialty1?` memberName1J鮜 memberDivide2羆 memberUnit24閌memberSpecialty2?` memberName2K鮜 memberDivide3羆 memberUnit35閌memberSpecialty3?` memberName3L鮜 memberDivide4羆 memberUnit46閌memberSpecialty4?` memberName4M鮜 memberDivide5羆 memberUnit57閌memberSpecialty5?` memberName5N鮜 memberDivide6羆 memberUnit68閌memberSpecialty6 ?` memberName6O鮜 memberDivide7羆 memberUnit79閌memberSpecialty7 ?` memberName7P鮜 memberDivide8羆 memberUnit8:閌memberSpecialty8 ?` memberName8Q鮜Label98p`Label102(` memberTitle0擁` memberTitle1緣` memberTitle3值` memberTitle2盞` memberTitle7詰` memberTitle4椎` memberTitle5氐` memberTitle6俚` memberTitle8鄣` memberCode8|O` memberCode0tO` memberCode1uO` memberCode2vO` memberCode3wO` memberCode4xO` memberCode5yO` memberCode6zO` memberCode7{O`Enter磐`Label105+`Label106,`Label114O`Label115P` _B_var_Right9賎Label3,`Label2,`Label78&`CommandButton5訿CommandButton6佋`Label87J`Activate梶`D "$&) 31 1  7 #G*Q M %;%e  262-08@@HPdir: __SRP_0f __SRP_1$sqxmxxWin,G<,G< a轛V J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`僂Normal僂NCrmaQF  *,\C `mA!Offic刧ODfic俫殏!G{2DF8D04C-5BFA-101B-怋DE5gAAe42坓篻ram Files (x86)\Common \Microsoft Shared\OFFICE14\MSO.DLL#働 11.0 Ob佹 LibrXary'zM凷F@Cs> MSFDs3@俥D452EE1-E08"F1A-8-02608C4D0BB4檈FM20L'B @r&/;"1膬倉 脙00}#0聝# 50﹢ 嬂ABA5F9A9C-D91D-4290-B899-FB134CE EACAF6Users\ADMINI~1\AppData\Local\Temp\Word8.0d醾8.exde=@#.E 忇.`孧 ΥA鋬汳S"L儸AiACAL 纇w 28E27C92E-1264羑C-8A2F-0402240P09C0@M7B%Z:\DLYCMS'@#H11 CA L.OCXCalendar Control 罦5`46t50$932308@75-238@14095AA-6CCF3E43ECpF9}##K1.圸GC1VBE',12 @.'巇/ $AA丼cripti爊g>S@~ rip歩╪g罊tj`乤2420B28罊E718-11C@F-893D@"A0C9054228}#t諜crr纔n.dllH1f Runtime# @ MSQ鄥ctl }> 丒Cym@t`渏Lb繤|翭31FDD16-0C5C@D2-A(9FC6F14D4A1醎1TOM蹸T鞥$忱Ems 6(SP6^)G|G2l@di@b0側d7喟2974-@b8-44F3-A53C-6F312FAF2CC⒉d~僉&/,M~!@僜 鴘M姟傭Gr忡ThisDocument(G`T犺i坰D =cu噘繯t2EHR1硫|跠A,r/R"+RR1un0PkG1uLkW 'n4f2obM狃R$(zsqrxxbqrNxE92?n,?傟亾setpsd阺@乼Bs 彊f'o=t廲tqxm盝s轄x!seujqm0x9E03frmCho oseSc`lC纎deG.@+猠 f0m0mh0#畂2盪lpo頴0$2 ~ !&m& 摯 Sub# 闡* S5b a朳2'_W_ ] 禨_ pub_燾heck9p" 奯ah)ck9Of o仧 證!誂罙sePer皊@K仇癭G5bopu0P r膖Lj讉 馤t2 2P jxxgxkSKGQRj3gPk-寫u纆醱dS鍷K2r 煽  AYearM渉 c`cY aP8闙n h  Ur悊o2ghT⒐烱n緲 2砂jfgs騍2j犝甮 5礢衊228 0觖=fun_forD_w`97G fQn_o_w rI97?@A [=_d決_ 壭=嬙4IDCardN謔=IpC1 耮=V$dNo_check2IDCardNo_@chek|H1#(, l!+ zycyWinHGy測Win 2  u℅u坬"Z({ chooseYearMonthDayG$護醩nYE亂Mnt Dm亂N 2 廭]R廭Ac慯 RjxxgxkSub CodeGH(jxgk燬ub豲6e2廜)'呶'@'rU~~~~~~~~~~~~~~~~~]     ! 1  ! iltersetpasd unlockDoc wd_protectsetProcessControlcheckAllzz1 .ld4L<TD\x4<DLT\dlx Text Box 4 F F eplugger_sinoss getCellValue currencySet葟Yl喯珅缽 mastInputmakeXMLgetValueToControl getControlOnlyKeyPressNumber invertInputinvertInputNum2makeXMLReportDatachecItemGetDocexitFun  asyncvalidateOnParse  resolveExternals $preserveWhiteSpace \base.datLoad <燫}8^蠎penc曪.鲖nx軴base.dat孴3ufN>e(W TN顅U_ ~b N0Rpenc恘 钀Rpenc鄀誰穬梍XMLVBE7.DLL !S :4f蟀歷G=眱 qtContentqt ,Msxml2.DOMDocument.3.0  P N齹纇錱軴 黐魜鍕顣槝剉烻郪颯齹/f噀鯪msxml3.dll孴3u鲖fN N(W TN顅U_   3u鲖fN ! 8 !` XZ FY F) F( F Text Box 22韢/軾j廚砇籠s烙豐2曲?E漟=鋑y澅 H鍇飈aK灧7唶晥蘇曬9^誑烄\ !-6S`  2覌B糊 `B覌B糊 `Label97CommandButton3CommandButton4zxbgdzcbwzl爺?螰蹺浳`Frame1Label1Label98Label82Label83Label85Label86Label88Label89Label90Label91Label92Label94Label95Label96CommandButton8葟漑qJ棪 e缷UserForm%乻N桙Y恡斶 F3DynamicresearchDirection_Enter ##Label3 researchTypeLabel2lastProductModeCommandButton6Label78planFinishDateresearchDirectionCommandButton5Frame2 btn_kt_deleteLabel87CommandButton7applyDate_EnterCommandButton4_ClickCommandButton5_ClickCommandButton3_ClickCommandButton7_ClickCommandButton8_ClickplanFinishDate_Enter qt_ChangeqtContent_ChangeresearchType_ChangeschoolName_Entersubject_Changesubject_KeyPressp#皞嫉犐tbtn_kt_delete_ClickCommandButton6_ClickUserForm_Initialize setCheckBox checkForm  [筽鸔dkYkX] [筽鸔dkY頞9e] (膲R鶺褢y橆v,R梩^鶺褢y橆v,陙y{蟸9峺橆v ,SplitStr VB5Replace 3覌B糊 獡K*   *\CNormalrU~~~~~~~~~~~~~~~~~~~~~~~~~* A# 8"Dゑ}'k 儕a   1iIq!儉a )!&I&&&&)'a'''# (9(i((()Q)))Aa坅 y !Qq!Qi 9YqAi坅 +** ! "]]輘HG綋i蠕 1!  ThisDocument unLockWinsqrxxWin setpsdWin sqxmxxWinUserfrmChooseSchoolCodeUserfrmSubCode pub_checkchoosePertinentSubjectjxxgxkSubCodeSKchooseYearMonthjfgsWinfun_for_word97IDCardNo_checkzycyWinchooseYearMonthDay jxxgxkSubCodeProjectF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBAlw Y ` F;C:\Program Files (x86)\Microsoft Office\Office14\MSWORD.OLBWord a p0FC:\Windows\SysWOW64\stdole2.tlbstdole yL續-鶾藉D轗EC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice Y.E 忇.`孧 C:\Windows\SysWOW64\FM20.DLLpsdMSForms  湚_賽B笝L瞵8C:\Users\ADMINI~1\AppData\Local\Temp\Word8.0\MSForms.exd y 0( B縵=犐B(C:\Windows\SysWOW64\scrrun.dll Scripting y  僜 鴘M  C:\Windows\SysWOW64\MSCOMCTL.OCX MSComctlLib a a  k F]飫)甓K癓 *.寘D8┉$Z碪D雟巰N洓仁樧 覌B糊 `覌B糊 `{l烣WJO projectTitle@2譱甕yOf[,l蟚f[N噀Sf[,癳麜f[N O璬f[,fN啓0臽N噀.sf[,Ye瞼f[,胈tf[,SO瞼褃f[,邁f[,/n硂餝顣槝xvz,齎E栴晿xvz,蒘f[褃/鼅Txvz 鶺@xxvz,擽(uxvz,瀃寶N裇U\loadXML subjectdocumentElement (getElementsByTagNameItemText 蒘f[褃/鼅TxvzA projectType,projectName,schoolCode,applyDate,schoolName,researchDirection,researchType,planFinishDate,lastProductMode,qtContent茝Yl喯珅缽 !  !i pj).蹺浳` ComboBox Style  !h @ !w ` ! #=鸂h8+3q繥?,2qY55Y5C ! ( ! 8status ! IH docStatus docPasswordpsd sqrxxXmlStr sqxmxxXmlStr jfgsxxXmlStr cyzkxxXmlStrbaseDatabtnEditProtect ! qX projectTitle chargerTitle memberTitlefeeTitlebtnCheckProtect projectType ! hsubject projectNameapplyer schoolName schoolCode applyDatebtnCheckProtect1 strFullNamestr !x currentFormufitemscaptionsparentsource targetFrmcontiner controlName !ItxtKeyAscii canDecimal canNegativevaluepwordpisUsedkindTextcaption checkMaxLen 1  1  1  1 a 1 Y  1 ! $9# !(selectedCaptionstrValue strDividerMyStringToFind ReplaceTog(H  @}d@.R 憦濄K窺恄宋體 ,j4lastProductModeX]$o#Frame14? $f=oEPi111  n`粑浲`,G<,G<fO#Frame24q,<CommandButton5eX!*,<CommandButton6eX6*, @btn_kt_delete6eX+*( 4schoolCodeet(2@Label961E+(2Label98  H,x5"媅SO(軴 X[4E@"媅SO(諷 坢4E@"媅SO, R d4  @"媅SO H,x5"媅SO$)&^rf鱏y樑_kX{5"褳SO-鑜xvz{|+R-N剉 瀃寶N裇U\ (W>yO褃f[啒遅 c奲惽忷W@xxvz0擽(uxvz@b穬梍剉鍂茓l徹Sb颯錘瀃絜剉RS靊:N蹚L埨h寶孴膵0O瀃絜:y儁橆v 剉菑 z0鵞篘噀褃f[eg魦 購N{|+R郠NN gaIN00=5"媅SOLH  *}0= g葉b済b__(髞\ 愰bNy)R 憦濄K窺恄宋體8 pXzzSO tXzlSOp2 uXlwSO  v\zxbg$w`dzcbw" Xqtcb( <qtContent &VE(0LLabel97= <F纮 {0坢W刓OproductMode5"媅SO<F纮 oVCompObjapi143  n`粑浲`,G<,G<fcs{0\ON)RproductMode5"媅SO<F纮 E{0)R簨噀productMode5"媅SO@F纮 *{0噀═鈰JTproductMode5"媅SODF纮 {0鈰5uP[鶴HrireproductMode5"媅SO<F纮 E{0鈰vQ諲productMode5"媅SO H,嚕 {7 @"媅SO0)鲖(W噀,gFh-NkX橯g葉b済b__5"褳SO n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦<H   <}0='y橆v鶺,g酧o`R 憦濄K窺恄宋體(28 Label3(2< Label1 ( 4projectName ( 4researchType+(28Label2"`424researchDirection 028 planFinishDateW)1,<CommandButton34 ,<CommandButton44(2<Label78? , 24schoolNameto (28Label86L, 24applyDateeto 1(28Label85(28Label83$4subject E( 4projectTypeo (28Label82`(28Label87;{(28Label90;f (28Label88 (28Label89  (28Label91;(28Label95(28Label92;(28Label94;,< CommandButton741,< CommandButton8'1 ( 槝 T饄&V5"媅SO (xvz筫T蔛鉔x 5"媅SO H,(!/{5"媅SOAH,{5"媅SO( xvz{|+R&V5"媅SO H, '{5"媅SO H,  {5"媅SO( 閎7{@"媅SOoyCompObjpCompObjaVBFrame+x v^br皨錘縊(W頞9e3u鲖h場eO(u0!N@"媅SO = 4665 ClientLeft = 45 ClientTop $ @btnok1 1'( <btncannelI'( 2Label3   }|$R 憦濄K窺 Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} setps( 閎7{@"媅SO (R孾b鰁魰 5"媅SO H, '{5"媅SO( @b(Wf[!h&V5"媅SO H, {5"媅SO( 3u鲖錯g&V5"媅SO( f[褃钑{|&Vq5"媅SOAH,{5"媅SOAH,{5"媅SO( y橆v{|+R&V5"媅SO*諲5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO( 閎{@"媅SO( 閎{@"媅SO n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦 Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} sqxmxxWin Caption = "申請項目信息填寫" ClientHeigh $#Frame1 ( <cancelBtnm]  ClientTop = 435 Microsoft Forms 2.0 FormEmbedded Object9瞦End VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} unLockWin Caption = "解保護" ClientHeight = 1860 ClientLeft = 45 ClientTop = 435 ClientWidth = 3555 StartUpPosition = 1 '所有者中心   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghipoqrtsvuwxzy|{}~foi02 n`粑浲`,G<,G<foUserfrmSubCode,G<,G<f=oxi03 n`粑浲`,G<,G<VBFrame  choosePertinentSubject.,G<,G<fqo'fo@CompObjpCompObjaoxi02 n`粑浲`,G<,G<fop(諷 坢93@"媅SO-z鑜a╜3u剉/f 蒘f[褃/鼅Txvz 剉y橆v 鲖9hncy橆vNf[褃剉sQT貧NO漁!k 愰b鴙sQxvz筫T孨f[褃 S靊t錧{|f[褃 X)5"媅SO$)&^rf鱏y樑_kX{5"褳SO(n zz93@"媅SO<( <submitBtnon( <cancelBtnona$(2Label193unLockWin,G<,G<foxi03 n`粑浲`,G<,G< CompObjpCompObjaVBFrame0setpsdWin,G<,G<t = 6795 ClientLeft = 45 ClientTop = 435 ClientWidth = 9345 StartUpPosition = 1 '所有者中心 TypeInfoVer = 411 End (H  @ }{'R 憦濄K窺恄宋體<kaK鷓綃呇眏鯉(6(J鷓綃呇眏鯉(6(I鷓綃呇眏鯉(6(O$#Frame1 a n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦`I!5"媅SOHH  !}$A 愰b孨b Nf[褃鉔xR 憦濄K窺恄宋體0( @lbx_second (nx 歔@"媅SO(諷 坢@"媅SO0<btn_userfrmSubCodeOk'u4<btn_UserfrmSubCodeCancellu (!2@Label963,%<CommandButton1J  Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} choosePertinentSubject Caption = "請選擇相關學科" ClientHeight = 4335 ClientLeft = 45 ClientTop = 435 ClientWidth = 6465 StartUpPositionoCompObjpCompObjaVBFrame&i02 n`粑浲`,G<,G<f3o0CompObjpCompObj;pi38 n`粑浲`,G<,G<fkoeP恄宋體,<CommandButton1(nx 歔@"媅SO(諷 坢@"媅SO n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦AH,{5"媅SO(t^am5"媅SOAH,E{5"媅SO(gSO{5"媅SO8H  }v 愰bt^gR 憦濄K窺恄宋體$4sMonth ; (20Label1 $4sYear1 (20Label2  ;  ,<CommandButton2 $ #Frame1  CompObj2aVBFrame45jfgsWin,G<滻<f9=folCompObjpCompObj a(諷 坢65@"媅SO0#<btn_userfrmSubCodeOk'I4$<btn_UserfrmSubCodeCancellI  Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} jxxgxkSubCodeSK Caption = "相關學科選擇" ClientHeight = 4515 ClientLeft = 45 ClientTop =恄宋體O$#Frame1 a n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦`V n5"媅SO`m5"媅SO8H  $%}5%b!hN葔R 憦濄K窺恄宋體\( $0lbx_first#( #@lbx_second  (nx 歔葔@"媅SO(諷 坢葔@"媅SO0!<btn_userfrmSubCodeOk4"<btn_UserfrmSubCodeCancel?   Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserfCompObjcpCompObjvaVBFramex$jxxgxkSubCodeSK 滻<滻<rmChooseSchoolCode Caption = "院校選擇" ClientHeight = 4665 ClientLeft = 45 ClientTop = 435 ClientWidth = 5820 StartUpPosition = 1 '所有者中心 TypeInfoVer = 14 End (H  @ }|$R 憦濄K窺恄宋體O$#form31  n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦 (芠x葔#5"媅SOH,* {5"媅SOH,* {5"媅SO( 峇搹N!k&;5"媅SOPF纮{1am菓硚塠hQ衏:y 緥n軴芠xchoosehQ@"媅SOPF纮{0am齙eu塠hQ衏:y N緥n軴芠xchoosehQ@"媅SO(H   }6!R 憦濄K窺恄宋體 (24Label1q$4tbxpsd$ 4tbxpsd2D( 28Label22q, pOptionButton1凧{, pOptionButton2凧{  ,nx 歔2 @"媅SO(諷 坢2q@"媅SOl)V塠hQ衏:y:N>en諲篘v`a醷9e 鷁畫╜緥n3u鲖h堓O芠  NM % !"#$ &(>*+,-./013456789:;<='?@ABCDEFGHIJKLgOPQRSTUXYZ[\]_`abcdefWiyklmnopqrstuvwxhz{|}~bedded ObjectForms.Frame.19瞦H,* {5"媅SO( 銐暺[xon5"媅SO8H  }噀ch銐R 憦濄K窺恄宋體TO 4pwde >(28Label1  (諷 坢暿@"媅SOedded Object9瞦90 StartUpPosition = 1 'VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} zycyWin Caption = "課題組主要成員情況填寫" ClientHeight = 5070 ClientLeft = 45 ClientTop = 435 ClientWidth = 13575 StartUpPosition = 1 '所有者中心 TypeInfoVer = 679 End ]^_`(H  @}}CG$R 憦濄K窺恄宋體<kaK鷓綃呇眏鯉(6(J鷓綃呇眏鯉(6(I鷓oai01 n`粑浲`,G<,G<fPo=dWin Caption = "設置保護密碼" ClientHeight = 3915 ClientLeft = 45 ClientTop = 435 ClientWidth = 5295 StartUpPosition = 1 '所有者中心 TypeInfoVer = 12 End (H  @} R 憦濄K窺恄宋體O( <unLockBtnm (銐 2@"媅SO n`粑浲`Microsoft Forms 2.0 FrameEmVBFrame0sqrxxWin,滻<滻<fo TypeInfoVer = 14 End (H  %@"},R 憦濄K窺恄宋體 $#Frame193E n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦 H, '{5"媅SO( 閎曵{@"媅SO( 閎曵{@"媅SO H,  !'{5"媅SO( 閎曵{@"媅SO H, '{5"媅SO*am5"媅SO(,{N"@"媅SO(,{孨"@"媅SO(,{ N"@"媅SO<H  $ }X) 愰b鴙sQf[褃R 憦濄K窺恄宋體 $4subject1q,<chooseSubject1? ,<chooseSubject2? $4subject2q,<chooseSubject3? $4subject3q ( 28Label903&{("28Label973{{(#28Label983{($28 Label993{  (nx 歔93@"媅SOzycyWin- 滻<滻<fo xi02  n`粑浲`滻<滻<delete2J!/? (2@Label111?  '3( Microsoft Forms 2.0 FormEmbedded Object9瞦lD<=>?@VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} sqrxxWin Caption = "申請人信息填寫" ClientHeight = 5265 ClientLeft = 45 ClientTop = 435 ClientWidth = 9795 StartUpPosition = 1 '所有說}oxi02 n`粑浲`滻<滻<fCompObj2aVBFrame4(chooseYearMonthDay&滻<滻<f9 = 1 '所有者中心 TypeInfoVer = 34 End (H  -@G}_-%R 憦濄K窺恄宋體$#Frame115  n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦 H,D{5"媅SO H,D{5"媅SO H,D{5"媅SO H,D{5"媅SO H,D{5"媅SO H,D{5"媅SO H,D{5"媅SO H,D{5"媅SO H,D{5"媅SO H,D{5"媅SO( fND崣e9D5"媅SO( penc菓茤9D5"媅SO( x頬舉9D5"媅SO$(緥Y-峮孴O(u9M 5"媅SO( \媁O畫9D5"媅SO(═鈰95"媅SO(砇95"媅SO(pS7R95"媅SO(t95"媅SO(vQ諲5"媅SO( T9(uto5"媅SO!: 5"媅SOHH  %<}+*S蟸9崅i梴 (USMONCQ)R 憦濄K窺恄宋體 4zxfOk$4tszlfg  4lwflk$4sjcjfg  4ysfjkE$4dyclfg E  4glflk $ 4sbgzfg  4 qtgzk$ 4xxhyfg (28 Label104a(28 Label105a`(28 Label106a(2@ Label107 (28Label108aL(24Label109(24Label110`(24Label111( 24Label112 (!24Label113L("28Label114](%2,total114oCompObjpCompObjaVBFrame, (軴 X[14D@"媅SO(諷 坢14 @"媅SO$) n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦 H, D{5"媅SO (3u鲖蟸9;`潣5"媅SO H, E{5"媅SO*SO5"媅SO (vQ諲eg恘蟸9 5"媅SO*SO5"媅SOHH  -}+*y橆v;`蟸9USMONCQ R 憦濄K窺恄宋體,'4otherFeeSourceJk((2<Label80, *4applyTotalFeeeJg (+28Label93{()2<Label81S{(-28Label115'{ &^rf鱏y樑_kX{5"褳SO( #<btn_kt_addFe!( $<btn_kt_clear"!$&#Frame215(,2@Label965 !  Microsoft Forms 2.0 FormEmbedded Object9瞦$<btn_UserfrmSubCodeCancellI   Microsoft Forms 2.0 FormEmbedded Object9瞦 = 10 End VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} jxxgxkSubCode Caption = "相關學科選擇" ClientHeight = 4515 ClientLeft = 45 ClientTop = 435 ClientWidth = 5790 StartUpPosition = 1 '所有者中心 TypeInfoVer = 13 End    . !"#$%&()*+,-/0135678:s<>?@ABCDEFGHIJKLMNOQRSTUVWXYZ[\]^_`brdfghijlmnopqtuwyz{|~bedded ObjectForms.Frame.19瞦`f 5"媅SO`g5"媅SOdH  "4 }b$A鲖HQ(W鎉Fh匭 愰bNf[褃 峇(W骃Fh-N 愰b孨f[褃鉔xR 憦濄K窺恄宋體\( "@lbx_first( !@lbx_second (nx 歔65@"媅SOi449  n`粑浲`滻<滻<f o CompObjpVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} jfgsWin Caption = "經費概算填寫" ClientHeight = 5475 ClientLeft = 45 ClientTop = 435 ClientWidth = 6585 StartUpPosition = 1 '所有者中心 TypeInfoVer = 71 End (H  (@ }'R 憦濄K窺恄宋體O$#Frame1  n`粑浲`Microsoft Forms 2.0 FrameEmfo ;CompObjpCompObj aPROJECTwm.hPROJECTtPROJECTlkNCompObjno!;xi04 n`粑浲`滻<滻<fDso ?, 435 ClientWidth = 5790 StartUpPosition = 1 '所有者中心 TypeInfoVer = 13 End  (H  r@}塢"R 憦濄K窺恄宋體O$#frame3 a n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦]^_`\H  r*}fZ槝膥;N亯bXT鶺,g酧o`( NS+T3u鲖篘酧o`)R 憦濄K窺恄宋體Oh覻 TD{u"媅SO H,<{5"媅SO H, {5"媅SO H, {5"媅SO H,D{5"媅SO H, {5"媅SO H,<{5"媅SO H, {5"媅SO H,D{5"媅SO H, {5"媅SO H,<{5"媅SO H, {5"媅SO H,D{5"媅SO H, {5"媅SO H,<{5"媅SO H, {5"媅SO H,D{5"媅SO H, {5"媅SO H,<{5"媅SO H, {5"媅SO H,D{5"媅SO H, {5"媅SO H,<{5"媅SO H, {5"媅SO H,D{5"媅SO H, {5"媅SO H,<{5"媅SO H, {5"媅SO H,D{5"媅SO H, {5"媅SO H,<{5"媅SO H, {5"媅SO H,D{5"媅SO H, {5"媅SO H,<{5"媅SO H, {5"媅SO H,D{5"媅SO h L饄/Lar {u"媅SOhN N {u"媅SO$h錧 \O US MO{u"媅SOhR錧臽礠 {u"媅SO H,  {5"媅SO H,  {5"媅SO H,  {5"媅SO H,  {5"媅SO H,  {5"媅SO H,  {5"媅SO H,  {5"媅SO H,  {5"媅SO H,  {5"媅SO l翄鯪鱏礠{u"媅SO H,{5"媅SO H,{5"媅SO H,{5"媅SO H,{5"媅SO H,{5"媅SO H,{5"媅SO H,{5"媅SO H,{5"媅SO H,{5"媅SOh鶴u錯g{u"媅SO H,  {5"媅SO( 閎g{@"媅SO( 閎g{@"媅SO H,  {5"媅SO( 閎g{@"媅SO H,  {5"媅SO( 閎g{@"媅SO H,  {5"媅SO( 閎g{@"媅SO H,  {5"媅SO( 閎g{@"媅SO( 閎g{@"媅SO H,  {5"媅SO H,  {5"媅SO( 閎g{@"媅SO H,  {5"媅SO( 閎g{@"媅SO H,  {5"媅SOp(28Label93g( 4memberUnit0:", 4memberDivide0孨",4memberSpecialty00"( 4memberName0a", 4 memberDivide1ty0孨( 4 memberUnit1e:,4memberSpecialty10( 4memberName1a, 4memberDivide2ty1孨 ( 4memberUnit2e: ,4 memberSpecialty20 ( 4 memberName2a , 4memberDivide3ty2孨 ( 4memberUnit3e: ,4memberSpecialty30 ( 4memberName3a , 4memberDivide4ty3孨( 4memberUnit4e:,4memberSpecialty40( 4memberName4a, 4memberDivide5ty4孨( 4memberUnit5e:,4memberSpecialty50( 4memberName5a, 4#memberDivide6ty5孨( 4"memberUnit6e:,4!memberSpecialty60( 4memberName6a, 4(memberDivide7ty6孨( 4'memberUnit7e:,4&memberSpecialty70( 4$memberName7a, 4-memberDivide8ty7孨( 4,memberUnit8e:, 4+memberSpecialty80( 4)memberName8a(2<.Label98g (28/Label1000(2@0Label101:(281Label102峃( 4memberTitle0 "( 4memberTitle1 ( 4memberTitle3 ( 4 memberTitle2  ( 4%memberTitle7 ( 4memberTitle4 ( 4memberTitle5 ( 4 memberTitle6 ( 4*memberTitle8 (r2<2Label1032( i43memberCode881( j44memberCode081"( k45memberCode181( l46memberCode281 ( m47memberCode381 ( n48memberCode481( o49memberCode581( p4:memberCode681( q4;memberCode781(28<Label993"0W24=memberBirthday08""0X<>chooseBirthdayBtn0+"0Y<?chooseBirthdayBtn1+0Z24@memberBirthday18"0[<AchooseBirthdayBtn3+ 0\24BmemberBirthday28" 0]<CchooseBirthdayBtn2+ 0^24DmemberBirthday38" 0_<EchooseBirthdayBtn7+0`24FmemberBirthday48"0a<GchooseBirthdayBtn4+0b<HchooseBirthdayBtn5+0c24ImemberBirthday58"0d24JmemberBirthday68"0e<KchooseBirthdayBtn6+0f24LmemberBirthday78"0g<MchooseBirthdayBtn8+0h24NmemberBirthday88" (軴 X[93D@"媅SO(諷 坢93 @"媅SO( <btn_kt_addGk( <btn_kt_clearQk  Microsoft Forms 2.0 FormEmbfSo$*]xi02( n`粑浲`滻<滻<fY.,  k  j):'3O5#$7^.9*+,-/%016ZM(4 [D<=>?@ABCEFGHIJKPaQ8RSTUVWXY&\L]f_`celd2ghklmnopqrstuvwxyz{|}~綃呇眏鯉(6(,4<CommandButton1J(軴 X[93E@"媅SO(諷 坢93E@"媅SO, n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦 H, {5"媅SO AH,"{5"媅SO"AH, {5"媅SO(覻 o')WCompObjUpCompObj&+aaVBFramec* T5"媅SO('` +R5"媅SO(L 饄5"媅SO( 鶴u錯gar5"媅SO( @b(W钀钑ar5"媅SO(L 5"媅SO( gTf[哠ar5"媅SO( gTf[MOar5"媅SO( Y韹韹蛓ar5"媅SO( 惎0W@War5"媅SO(異 5"媅SO(Kb :g5"媅SO( 鶹歔5u輯ar5"媅SO H,@ {5"媅SO H, {5"媅SO H,? {5"媅SO H, {5"媅SOAH,; {5"媅SOAH, {5"媅SO H, {5"媅SO H,? {5"媅SO H, {5"媅SO H,嚕 {5"媅SO H,d? {5"媅SO (E-Mail5"媅SO*am5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SO( 珟齆翄鱏ar5"媅SO H,> {5"媅SO*SO5"媅SO*SO5"媅SO*SO5"媅SOp(`俌3u鲖篘鄀E-Mail0Kb:g鲖kX橯y橆vT鹼篘剉E-Mail0Kb:g 錘縊嶯b霳N╜諷梍蔛鰁剉T鹼095"媅SO*SO5"媅SO<H   G}~@3u鲖篘酧o`R 憦濄K窺恄宋體,`( 4telOffice鱏 $Hgenderp2$4titlerp2E(24Label1(24Label79+(24Label80+(28Label81+`(28Label82(24Label83+ (28Label84 (28Label85 (28Label86+L(28 Label88L(24 Label89+(24 Label90+(28 Label91$4division E( 4postalCode鱏o21$4 applyern  4dutyp2 $4eduLevel ( 4eduDegreee鱏 $4languagep2$4addresse  4telro2(28birthdayp2$4emailday 1(2<Label92y(28Label94y+*(28Label95yJ>(28Label96y' (28 Label97y 9(28!Label99y+*(28"Label100+* (28#Label101I>L(28$Label103+*L(28%Label104+*(28&Label107`$4IDCardNo (28'Label108+*(28(Label109J>(28)Label110I>(2*Label112(28+Label113J>  R d13  @"媅SO$)&^rf鱏y樑_kX{5"褳SO5%? ,5<CommandButton2J9? $#Frame113, @btn_kt_ThisDocumentThisDocumentsqxmxxWinsqxmxxWinpub_checkpub_checkUserfrmSubCodeUserfrmSubCodechooseYearMonthchooseYearMonthUserfrmChooseSchoolCodeUserfrmChooseSchoolCodesetpsdWinsetpsdWinunLockWinunLockWinchoosePertinentSubjectchoosePertinentSubjectjfgsWinjfgsWinfun_for_word97fun_for_word97IDCardNo_checkIDCardNo_checkjxxgxCompObj=pCompObj"LaVBFrameN/jxxgxkSubCode%滻<滻<kSubCodeSKjxxgxkSubCodeSKzycyWinzycyWinsqrxxWinsqrxxWinchooseYearMonthDaychooseYearMonthDayjxxgxkSubCodejxxgxkSubCode35678:J<>@ID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=sqxmxxWin Module=pub_check BaseClass=UserfrmSubCode BaseClass=chooseYearMonth BaseClass=UserfrmChooseSchoolCode BaseClass=setpsdWin BaseClass=unLockWin BaseClass=choosePertinentSubject BaseClass=jfgsWin Module=fun_for_word97 Module=IDCardNo_check BaseClass=jxxgxkSubCodeSK BaseClass=zycyWin BaseClass=sqrxxWin BaseClass=chooseYearMonthDay BaseClass=jxxgxkSubCode HelpFile="" Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="A9AB0553095309560E560E" DPB="F2F05ED5BAF2BAF2450EB9F47C7208DB5D3EBBE4A6D99BDCE1B7E4370B8F2967E4E8DFEC54" GC="3B3997ACE1ADE1ADE1"[Host Extender Info] &H00000001咧行 TypeInfoVer = 971 End (H  @ }k"U R 憦濄K窺恄宋體y,<CommandButton2k(諷 坢11@"媅SO(nx 歔11@"媅SO n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦AH,{5"媅SO(t^SO5"媅SOAH,E{5"媅SO(gSO{5"媅SO(錯SO{5"媅SOAH,{5"媅SO<H   }l 愰bt^g錯R 憦濄K窺恄宋體$4sMonth; (20Label1 $4sYear1(20Label2(20Label3 4sDay Xv ,<CommandButton1kX1 $#Frame1   Microsoft Forms 2.0 FormEmbedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} chooseYearMonthDay Caption = "請選擇年月日" Client     !"#$%&'()*+-/0135678:J<>@ABCEFGHIKMOPQRT_VXZ[\^`bdefgijklmnopqrsuvwxyz{|}~Root Entry FL<n$Data b迊WordDocumentdObjectPool.pY(<L<Height = 1935 ClientLeft = 45 ClientTop = 435 ClientWidth = 4995 StartUpPosition = 1 '所有者中心 TypeInfoVer = 10 End (H  (@ }'R 憦濄K窺恄宋體O$#Frame1  n`粑浲`Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19瞦`f 5"媅SO`g5"媅SOdH  "4 }b$A鲖HQ(W鎉Fh匭 愰bNf[褃 峇(W骃Fh-N 愰b孨f[褃鉔xR 憦濄K窺恄宋體\( "@lbx_first( !@lbx_second (nx 歔@"媅SO(諷 坢@"媅SO0#<btn_userfrmSubCodeOk'I4={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={000209F2-0000-0000-C000-000000000046};Word8.0;&H00000000[Workspace] ThisDocument=0, 0, 0, 0, C sqxmxxWin=0, 0, 0, 0, C, 100, 100, 1135, 593, C pub_check=0, 0, 0, 0, C UserfrmSubCode=0, 0, 0, 0, C, 150, 150, 1185, 643, C chooseYearMonth=0, 0, 0, 0, C, 225, 225, 1260, 718, C UserfrmChooseSchoolCode=0, 0, 0, 0, C, 125, 125, 1160, 618, C setpsdWin=0, 0, 0, 0, C, 75, 75, 1110, 568, C unLockWin=0, 0, 0, 0, C, 25, 25, 1060, 518, C choosePertinentSubject=0, 0, 0, 0, C, 175, 175, 1210, 668, C jfgsWin=0, 0, 0, 0, C, 0, 0, 1035, 493, C fun_for_word97=0, 0, 0, 0, C IDCardNo_check=0, 0, 0, 0, C jxxgxkSubCodeSK=0, 0, 0, 0, C, 200, 200, 1235, 693, C zycyWin=0, 0, 0, 0, C, 25, 25, 1060, 518, C sqrxxWin=0, 0, 0, 0, C, 50, 50, 1085, 543, C chooseYearMonthDay=0, 0, 0, 0, C, 50, 50, 1085, 543, C jxxgxkSubCode=0, 0, 0, 0, C, 75, 75, 1110, 568, C #瀸棸暈-?@覌B糊 `@2譱甕xjm)屍uWLfd湑莓+5_惪4csUj-V?k3鴷蕆m}蚜惻譯鸕謟喚爨 肉梘癘s嶅殝7爯褁w隉σs葓懲R 繵*)|妭j全K馲瞳咪 dX㊣BF貒bn鉮 ( *羺'v蓷3KZ捑爥jz'c*鎿語_=}<9閣恿蒓w~磦淽8娀^~_o?鍃Y媒g縹^匂櫄簏薌}J灢0礊E鞝m祁h鈐=踉剳艘 螢a>s$-, 酧萆犂=Hp Ua/ 鞺O d*:(.媐筎鍍綿U鈔/!9$V[|h棗魊v茲s⊥-i荱秚. 窘幉6曦詎4C妿盾ebs)噽綆羈Mj孊錯跟k誴倭 u躮幉礃,渇奷垏$蛻鰗6GU摛琕f褈豣#兄衎這踧扵TW洠.宿沝)i朄巹vdq9Y岞沕>X鲪彄7倇2%恥╃Hx玟+a塔萬6]>蚮#s蘭*賤皅焣蒯丏H祦ehK稒)棁虭撆?71Ηo秅go齚:f詹e叄爲洱k歱攏2謱菋跆8肉皹D 糃B?81e>nE皰eU}H類dm1iQ6撮瑜支<殞z[[v渱0佇p妾sz4儩F貕礭j褥叆Qv11邧可鈨洂 `虜4逽 3t蕭4空h懂 PK! 褠煻'theme/theme/_rels/themeManager.xml.rels剰M 0匃倃oo雍&輬協勪5 6?$Q祉 ,.嘺緳i粭澤c21h:闀q毩m胳嶡RN壻;d癭値o7g慘(M&$R(.1榬'J摐袏T鶂8V"&A然蠬鱱}狇|$絙{朠除8塯/]As賲(⑵銻#洩L蔥漢倪PK-!檗[Content_Types].xmlPK-!ブх6 0_rels/.relsPK-!kytheme/theme/themeManager.xmlPK-!閘N嵈theme/theme/theme1.xmlPK-! 褠煻' theme/theme/_rels/themeManager.xml.relsPK] >%>%Sg  |  x | $ ? 埨 睦 < u 繃 砹 / k 槁 + !!!!///////////////////////////////////////////////////////////////////////////2! " ^ V<, X*^轥芶 BZ^ 4Tj>HR\f睺糡$UXU孶VXVzV榁猇郪8W\W擶蘔鶺XnX╔豖鎄bY淵諽鋂2ZzZ抁糧蔤鑊 [$[0\H\]燷躚4^n^腶芶 !"#$%&'123456789:;<=>?@ACDEFGHIJKLMNOPQRSTUVWXY[\]_ "#@BC`bc "&IKAC#>@Mhjw 68!W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙W晙!(+2!!晙KKK K KKKKK K K !K $K 'K*K-K0K3K6K9K<K?KBK餤  0e槻0e槻     喠嚵椓@ 帕屏5%狹慫 8c8c     ?1瘞 d0u0盱@Ty2 NP'p<'pA)BCD|E||s " 0e@ × チ  芰 嗔   屄侤ABC DEFGHIJK5%LMNOPQRSTUWYZ[ \]^_ `abN 吪喤5%徟 溑 犈N 排婆5%嚇 芘 嗯N    5%    !"?N@ABC DEFGHIJK5%LMNOPQRSTUWYZ[ \]^_ `ab@餒 0(  餵(  餹  S "#" ? 餹  S "#" ? 餹  S "#" ? 餹  S "#" ? 養 S  ?$ t$t$2t^#t#&LD#AMkw9 % ( * i u w x y z { } ~   7 ; > E H L N T W ] ` f g i m s t v |  ( ) * + 2 } $1356<=?@FHMORUZ\_bgilowy|  #-1"%&()+,./126>GRUV "#3VZ[\`b#&LNWDE#ACMkmw9@`aefkmqrwy}~ w 6 < > F H M N U W ^ ` |  x } 3NOSU[\`bhimoxy}"%&()+,./12UV#&LD#AMkw9"% v7Ba:j蝖1r琠怴濪2ZA歫:纖('>.鼅翤鞦,ko1rGe漈 糲霻        兤        Y竒褃&n1?胟 ,8K 欱aH* 6 = G , \ U Y 襜 O#FH鍰*1H銁16M<抧VW猏琱;!tB!5";"義"F#2$%%(*%紽%鋂%?e&s&怹'Pu'b(f'(&)0<)梄)*(+鍉+ ,!,荰,.>.pC/( 0H0Q1$2A63鏯30 4#4n$55P56-7:?7-8E9R9:竊:Ph:耾:B|:;<a>譲? :@窹AB痓C萾C1D>rD@%E鑆E/EF*F鳿F^G+.H%I羬IpK?=K媓K+uK8=L嶦LaM8N9 O5OPtDPQ(Rf)RS4T蟬TQtU陊U楽VmWNZXGsX嶳Z.rZ [f\G8^_郃_``bbQd奛d8e汿g宺gIOh 8i禿i綶j2kX;kTMk;\kg$l8lldla3mAIm襅mlm n甞n襣n攐n> p辠p#qr&Nrurs'sR3sR_sR?tuv螸v齅w奧xI y羖y{{C#|G|, \<W]p譥'EQ-G=$rt8胠fP:M﹜噋9+(Y.bNh M@ 鮈踂9s \A蝖<4L*Qf7g\#0髖%鳫#$蘗}#^(w3)9UA{奒俧CcW.園巐誟V 昦sf.G Gn, ( vh/<]#21i(^(o"):騡:t +0`s俧_ #4a9_x憓橭#!4$E|s Q(t-匷醟,?<@2$P9A$╱({桹\躨唜wTP甊餭Y|?aD'Mw鉮1K)譜裻|l:/; 瀃 眗/Dv篩vG`-/96eE媀"n.x"'M:QCd僴絫&(VddVddV dd  Project.ThisDocument.PrintTheDocProject.ThisDocument.FilePrint%Project.ThisDocument.FilePrintDefaultPROJECT.THISDOCUMENT.FILEPRINT PROJECT.THISDOCUMENT.PRINTTHEDOC%PROJECT.THISDOCUMENT.FILEPRINTDEFAULT@LNNNN X@X XXXXPUnknown Microsoft G*郃x Times New Roman5Symbol3. *郈x ArialA5  N媅_GB2312N媅;(媅SOSimSunA5  wiSO_GB2312wiSO;= 鷟8褳SOSimHei;5 噀'Yh媅{媅SOA$BCambria Math 1hE月F毷,嚂笥&r()i i 嗕{j!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[個U覼 @@ 2僸哌HP ?鍉+"!xx 2009t^y橆v3u鲖fN(Km諎Hr)F Windows (u7b8