Warning: mkdir(): No space left on device in /www/wwwroot/www.huidaye.com/func.php on line 252

Warning: file_put_contents(./cachefile_yuan/3dsd.net/cache/8d/4d32c/574e7.html): failed to open stream: No such file or directory in /www/wwwroot/www.huidaye.com/func.php on line 240
邢唷> $!"#欹7 鳵bjbjUU ;8 # ]q8D%,飥8(晙.脌還6鯥5$'h5 |qs65l` X(]6,Q     弝鷁w淨N淨Qg匰sQ嶯_U\╟P2020t^  g淨NN禰 孴 淨N褃€b :y僎g ;m≧剉愬w T緥:S^0s^mo鼅T瀃寶:S淨N淨Qg@\ w淨褃b0弝鷁淨梘'Yf[ 匰^\ gsQUSMO cgq淨N淨Qg钀濺lQ匰 0aNQg/ctQ褃€b/e慸L埁R瀃絜筫Hh 0 gsQ亯Bl 2019t^6gbw/T≧哊褃€b㏑汻aNQgN/ctQCSNL埁R€{饄 CSN L埁R 膥莮hQwCS T淨NN禰蹚CSQgeQN7b _U\褃€b═鈰0€b/gc黐孴鵚瓔I{ g N'Yyb淨N 擭癳 癳b済0癳€b/g孴癳!j_梍0R╟^擽(u 宮皊鶴N'YybO纘淨NN禰孴褃€b_啒媁:y僎g :N╟≧bw皊鉔淨N裇U\孴aNQg/ctQ衏汷:_ g汻剉褃€b/e慸0 :N蹚Nek O╟薔(W╟≧ N淨 貧(嵪懷SU\厤妽-NZP鶴亃鶴!.s剉淨N褃€b篘XT孴褃€b_啒媁:y僎g (WhQ>yO% 悵O`椦y€b0/ctQaNQg剉o倉Yl鬡 蟸xvz 砆歔(WhQw_U\╟P2020t^ g淨NN禰 孴 淨N褃€b:y僎g ;m≧0皊1\ gsQ婲y愬w俌 N N0凈V孴 T潣 N g淨NN禰 1.╟P凈V(W CSN L埁R╟蹚錧\O-Nh埌s亃鶴 褃€b.^vb猚絜 g汻 &^≧淨l瀀6e魜蘙bHe>fW剟v淨NN禰0淨€b篘XT孴淨N蟸%;NSO€b/gr^I{淨N褃€b篘XT0 2.╟P T潣2020t^100 T g淨NN禰 cgq1:1.5剉詋婳╟P150 TP 惡N T潣RM懥塂桍N1 0 孨 淨N褃€b:y僎g 1.╟P凈V(W_U\ CSN L埁R-N飝乬N'Y-NN淨Nb!h0淨N褃xb朄b0淨€b╟^USMO鵞;N黐N桞l€b/g 膥莮蛓{Q'Y7b0禰璣淨:W孴T\O>y_U\€b/g汷楖[ 'Y汻_U\淨N 擭癳 ╟^擽(u 漁`椦y€b瀀6e魜蘙bHe>fW剟v鷁6RQg0 2.╟P T潣2020t^100*N 淨N褃€b:y僎g cgq1:1.5剉詋婳╟P150*NP 怮g T潣RM懥塂桍N1 0 孨0╟P僡g鯪 N g淨NN禰 1.?e籰 }(嵡弆x0t骮酧鮛ZW歔 駇eQf[`N/峽_`N褟s^癳鰁鉔-N齎yrr>yO;NIN`骮 ZW砆=劄[ZQ剉飴縹0筫垟0?eV{ 罷L堬zck 鄀輳誰痳j孴ZQ獈?e獈YR皨U_ 鄀蛻'Y#嶜N婲Ee *g珗ReQ1Y酧gbL埡N TUS0 2.錧\ON閪亃鶴0N齹汻:_ 刄嶯銐砆顣槝 g:_萷剉婲N胈孴O}Ta 8^t^駇eQuN縹_U\ g :N;N亯淨罷 gHe汷賬0淨N貧(嵪懷SU\0淨l瀀6eI{\O鶴哊亃鶴!.s0 3.錧\O\O螛Nb瀃01r梊leN ;N≧ gT{|癳媁淨N蟸%;NSO孴\淨7b 梍0RS_0W淨lO0淨N淨Qg钀钑蔛>yOTLu剉颯 wQY耡淨N01r淨Qg01r淨l剉o倉Y緗^y螛寣0 4. g筫_Y7h0'}邖鰁鉔裇U\ekO 齹Y觺T陙珟NNyr晫TYt^瀃鯈蟸寶 袕(u酧o`S0zf齹S0^:WSI{Kb祂 蔛鰁衏汷縊wc貧He剉淨€bc黐孴u蟸% g0籗t^錘eg 飝乬駇eQaNQg.^vb 瀃絜 NQgNV{  NNNV{ I{猚絜 yr+R/f蔔t^玼臽g魰菓諷縹 N縹 N鴙觺T g筫_ :N肙蹚%f€u孴 Y錧 Y衏汷€b/g軴湒0 孨 淨N褃€b:y僎g 1.ZWc~r傃SU\t鮛 淨N;N黐byrr偋NN膲!j儚'Y 錬 gNyb褃€b:y7b孴癳媁淨N蟸%;NSO&^4Y篘 鷁 g褃€b+T蠎儚貧0悘\&^≧齹汻儚:_剉淨N褃€b:y凓W0W:y冺V:S (W縎遅匭褃€b:y儗T颯c韣裇U\:y&^≧\O(u儚'Y 2.N'Y-NN淨Nb!h0淨N褃xb朄b0縎錘 N淨€b╟^USMO鷁藌gf[xT\OsQ鹼 錬 g2 T錘 N淨NN禰#崁b/g═鈰孴c黐 蟢t^b2y*N 錘 N淨N 擭癳 b済聣id0€b/g鵚瓔孴╟^I{;m≧ 3.(W淨Qg鶺B\膥莮鷁緥0貧 }(崪Ql鵚瓔0淨Qg酧o`S鷁緥0淨Qg5uFU0褃nf錘蔛鹹螛f譕I{錧\Op(WhQ縎MRR Qg筟Qg寣kSutem aN螛噀f 籰t gHe0 N0╟P z廭 N ╟P兒N 悓T╟P僎gR+RkX橯 0弝鷁w2020t^ g淨NN禰 ╟P3uh 0D桍N2 孴 0弝鷁w2020t^ 淨N褃€b:y僎g ╟P3uh 0D桍N3 v^D桒vsQ翄fPg檈 1u@b(WUSMO0@b(WaNG暫Nl?e淾╟P儱b惪S淨N淨Qg钀钑0 孨 縎淨N淨Qg钀钑鵞╟P兒N 慀vsQD崣e蹚L8h錱 8h錱T礻庳右烫哪哪汉汉酣拻拻拻拻拻拻èè拻拻拻拻拻拻拻拻拻挩è+CJ OJPJ^J_HaJ o(mH sH nHtH#CJ OJPJ^J_HaJ o(nHtHCJ OJPJaJ o(CJ,OJPJo( 5丱Jo( jUCJOJPJaJo(j UVo(&jUCJmHsHnHtHB*ph9   & 4 8 @ B D F J L 6 8 L N R Z \ b d h j |  & 眄眄眄眄碜鬃哩撟碜鬃鬃鬃鬃醉眄碜~鬃碜鬃鬃鬃鬃鬃鬃)5丆J OJPJ\乛J_HaJ o(nHtH)5丆J OJPJ\乛J_HaJ o(nHtH15丆J OJPJ\乛J_HaJ o(mH sH nHtH+CJ OJPJ^J_HaJ o(mH sH nHtH+CJ OJPJ^J_HaJ o(mH sH nHtH#CJ OJPJ^J_HaJ o(nHtH1& ( H Z x z € ( , 8 : L P ` h `j|~殚鬃榱棗梾卶棗梾厳棗厖厖厖厖棗棗厖厖厖厖厖&CJ OJPJ\乛J_HaJ o(nHtH#CJ OJPJ^J_HaJ o(nHtH)5丆J OJPJ\乛J_HaJ o(nHtH)5丆J OJPJ\乛J_HaJ o(nHtH+CJ OJPJ^J_HaJ o(mH sH nHtH#CJ OJPJ^J_HaJ o(nHtH+CJ OJPJ^J_HaJ o(mH sH nHtH, .*8@BDLNZ`f ",.眄眄眄眄眄眄眄钥眄眄╉頁眄眄眄韰眄韰眄眄眄眄眄眄眄眄CJ OJ\乤J o(B*ph+CJ OJPJ^J_HaJ o(mH sH nHtH+CJ OJPJ^J_HaJ o(mH sH nHtH)5丆J OJPJ\乛J_HaJ o(nHtH15丆J OJPJ\乛J_HaJ o(mH sH nHtH#CJ OJPJ^J_HaJ o(nHtH4.t\bn~ 6BVZ\^`bjlp|€4bdrt眄眄眄眄眄眄眄眄哒眄眄眄哒眄眄眄眄碚照照眄眄眄眄眄眄眄眄眄眄眄眄眄眄眄眄眄眄眄CJ OJPJaJ o(CJ OJ\乤J o(B*ph#CJ OJPJ^J_HaJ o(nHtHN   46XZ\"樽鬃鬃鬃鬃鬃鬃鬃鬃鬃鬃潭稙啚抖||nd\dOJ\乤J o(CJ OJ\乤J o(CJ OJ\乤J o(B*phCJ OJPJaJ o(/@堹CJ OJPJ^J_HaJ o(mH sH nHtH/@堹CJ OJPJ^J_HaJ o(mH sH nHtH+CJ OJPJ^J_HaJ o(mH sH nHtHCJ OJQJPJaJ #CJ OJPJ^J_HaJ o(nHtH+CJ OJPJ^J_HaJ o(mH sH nHtH$"&,RTX^>TVXZ\^`bdfhjlnprtvxz|~€蹒貂蹒貂蹒貂貂珲貂貂蹉蒗爿葺葺葺葺蒈谮闼诳滑$0JCJOJQJaJmHsHnHtHjU0JCJOJQJaJ0JCJOJQJaJjU0JCJOJQJaJ0Jo(0JCJOJQJaJo(jUo(mHsHnHtHo( @堹OJo(OJo(CJ OJ\乤J o(B*phCJ OJPJaJ o(/痄噢蒌汤瘻嬩儌葺qq輔^軺R葺Po(aJjUuaJ CJPOJPJRHWaJPo(B*ph\ @垖CJTOJPJaJTo(B*ph0JCJaJo( jU0JCJOJQJaJo($0JCJOJQJaJmHsHnHtH jU0JCJOJQJaJo(0JCJOJQJaJo( jU0JCJOJQJaJo(o(0Jo(0JCJOJQJaJo(jU0JCJOJQJaJ :Xln" 4 8 N ( $a$剙WD`剙d箭$a$d箭 $a$d箭G$ $a$dG$ $a$dG$ F1 刲UD"]刲8$d棹 x *8"Z4Z $a$剙WD`剙d箭剙`剙d箭$a$d箭$a$剙^剙`d箭^剙WD`剙d箭d箭 剙WD`剙d箭Z"Tz $a$剙WD`剙d酎 $a$剙WD`剙dX $a$剙WDX`剙d箭 $a$凘WD`凘d箭 凘WD`凘d箭 剆WDT`剆d箭 $a$剈`剈d箭 $a$剙WD`剙d箭 剙WD`剙d箭$a$^剙WD`剙d箭 >VXZ\^`bdfhjlnprtvzd旋d旋G$ $a$d箭G$d箭G$d箭$a$剙WD`剙d箭4$$a$匁]匁^`d旋G$ $a$剙WD`剙d箭z $a$凘UDd]凘8$$a$$a$ 9r 勷&`#$+D./0$:D 9r 刪]刪刪`刪 9r 勷&`#$+D./0$:D63P皞. 捌A!胞"癚#惲$悐%0癝班 01怌2PgDd 甬  饁€€A4€€€?跱跱 981893391602832369463.png#" ?€b餰窧A0BA0u沝[-d[-ADn9塒NG  IHDRDq楻颕DATx陧澦n0?艼S]月A佳嫞Zr赜d(~鏈?Tp蟉7胂懅噠\眸W鴠厍缜cN[zl笋偳縏扅x瀋谩-巃iM殌&`"膐>1莳i)紝*郗鎙拻 苏M@pWu8v儨筎墥盺霹!埜霤Y*夏<蝀Z煝6M2A._pU翗谪梸;5  "滛5M纍U橌/摽D%簁脵q}捦 ^暼. 餗@癷團/O1AKS秵"崺~駡 35M缼贍l滑贾閂晆[#糎Q€€€?€跱跱 DocMarkLine f* 皎B  餷>€€€?€跱跱 DocMarkLine<*<鹗  餳€5%€€€?€ SignDateTextS" 養 S  ?  7# l埝$2t #Rl+:Y"?,€ LastWordsDocWord TemplateNameWordType\|!41029DDD6151DEAA48258019002CC103,test3\癳鷁 Microsoft Word 噀ch.docx|癳鷁 Microsoft Word 噀ch.docx!C259080E23DAFBF04825838D00204C83,Km諎噀鱏1\|!C3181199EAC0D8A14825838B002C7FAC,8^O畫獈亯\唭?e濺.doc|唭?e濺.doc!21BB7E68D008DB6148258019002ED8C7,0W翑鷁緥c%c钀O畫獈亯\|!79FE55718FB65F6348258359002DB707,\|!13FD957C7A695C9D48258384000972A5,\fN~{筫_.doc|fN~{筫_.doc!C4AB674DCB3F9871482582E8002B0201,\|!F2629EBA765AD2684825838B002CF8A4,\|!7873F3A3ECCEE9994825838D001FA02A,\|!E57A8CACF15A29774825838D001FCD3A,弝轢^蜽^0W翑 gP#嶜NlQ鳶O畫獈亯\|!94F6AC0785B426B948258359002DB70C,lQ鳶錧OO畫獈亯\|!C76AA8880337046B48258359002DB70B,lQ鳶€b/g訷XTOO畫獈亯\|!C0DBEAA94DDC771748258359002DB70E,lQ鳶踒h錧\O啒黐\膥O畫獈亯\|!590E337595DE715F48258359002DB73A,lQ鳶;`蟸t濺lQOO畫獈亯\|!5C4CEF4CB2BA840848258359002DB70D,qQR椻V弝轢^蜽^0W翑 gP#嶜NlQ鳶訷XTOO畫獈亯\|!63B3870B4B2DDE4148258359002DB709,龝誯\龝誯.doc|龝誯.doc!45DCBEA5026E0ACA482581C50033C940,龝誯\淨N匰噀鯪 - oR,g.doc|淨N匰噀鯪 - oR,g.doc!45DCBEA5026E0ACA482581C50033C940,龝誯濺齉\龝誯濺齉1027.wps|龝誯濺齉1027.wps!C9D8BD6B65C0F3FD482581C6003770EE,龝誯濺齉\龝誯濺齉1114.wps|龝誯濺齉1114.wps!C9D8BD6B65C0F3FD482581C6003770EE,龝FU8^濺\龝FU8^濺.wps|龝FU8^濺.wps!6C38FED3DCD2DEFD482582FA002AF3F2,龝FU齉\龝FU齉.wps|龝FU齉.wps!D36892295CA11DF3482582FA002B14E6,f O5u\f O5u.doc|f O5u.doc!F90F685B3F9B72D248258019002C9A31,匭钀臽礠惀b\|!A08C7D096F97774748258019002EEB22,WS?e濺\ NL垏e .doc| NL垏e .doc!CADA5C0D1DDB11974825801B000990A6,WS?e濺\-N NL垏e .doc|-N NL垏e .doc!CADA5C0D1DDB11974825801B000990A6,WS?e濺\lQ鳶 NL垏eWPS.doc|lQ鳶 NL垏eWPS.doc!CADA5C0D1DDB11974825801B000990A6,WS?e濺\昳鶺pS鄗pdfTv^遅 .doc|昳鶺pS鄗pdfTv^遅 .doc!CADA5C0D1DDB11974825801B000990A6,WS?e濺Y\龝鳶 NL垏e.wps|龝鳶 NL垏e.wps!109F378F1A00BB4748258019002E10D4,WS?e濺ZQ\ZQ膥噀鯪.doc|ZQ膥噀鯪.doc!3B2FD8390EDA43CA48258019002E040E,WS?e濺齉\齉噀鯪.doc|齉噀鯪.doc!46FF57F9DC0A114748258019002E1AB3,WS?e濺:gZQ\WS?e濺:gZQ.doc|WS?e濺:gZQ.doc!64A4ACFA549EEF0748258019002EE517,WS?e濺篘\@\噀 NL垏e .doc|@\噀 NL垏e .doc!3E27473D5F0E6A5148258019002E0A31,WS?e濺篘\@\噀.doc|@\噀.doc!3E27473D5F0E6A5148258019002E0A31,WS?e濺鼅\^噀 NL垏e .doc|^噀 NL垏e .doc!34D0559AAAB1340548258019002ECDD7,WS?e濺鼅\^噀-N NL垏e .doc|^噀-N NL垏e .doc!34D0559AAAB1340548258019002ECDD7,WS?eY\|!66A2F52998B6254248258019002D1018,WS?eZQ\WS?eZQ.doc|WS?eZQ.doc!F231A3F095812C2948258019002EDEF9,WS?e齉\齉.doc|ZQ膥噀鯪.doc!4B3337B725B8C64A48258019002D15FF,WS?e齉\Y齉.doc|Y齉.doc!4B3337B725B8C64A48258019002D15FF,WS?e篘\^噀 NL垏e .doc|^噀 NL垏e .doc!DB31E1F8F74B535248258019002CF506,WS?e篘\^噀-N NL垏e .doc|^噀-N NL垏e .doc!DB31E1F8F74B535248258019002CF506,WS?e鼅\^噀 NL垏e .doc|^噀 NL垏e .doc!BCFF8A360171168C48258019002CA9C7,WS?e鼅\^噀-N NL垏e .doc|^噀-N NL垏e .doc!BCFF8A360171168C48258019002CA9C7,昳0W翑2鱏縹\|!502FCD6419FFC96F48258359002DB71F,昳0W翑2鱏縹齉\|!62B9EB49ED10B05148258359002DB736,昳0W翑塠\|!B604937B2F67A4BD48258359002DB716,昳0W翑塠齉\|!C27EB0F588243A6C48258359002DB72D,昳0W翑濺\|!0F2B1310EE321A7248258359002DB714,昳0W翑濺齉\;`lQ鳶齉.doc|;`lQ鳶齉.doc!1D4B9CF569EBFA9248258359002DB728,昳0W翑"峔|!8CF6C7FE4CDED87A48258359002DB715,昳0W翑"嶟Q\|!86650D9BDD8090CD48258359002DB72B,昳0W翑ZQ\|!0C8F8603736994B348258359002DB721,昳0W翑ZQ齉\|!74E23D7FFD4C878648258359002DB738,昳0W翑錧\|!B65AAC73C826352F48258359002DB719,昳0W翑錧齉\|!70FC5803014A3AF248258359002DB730,昳0W翑錧O\|!2FC4556AC107E54248258359002DB713,昳0W翑錧O齉\|!EC62E31D6C92AA9F48258359002DB727,昳0W翑T\|!C1AD5A582986CAA248258359002DB71A,昳0W翑T齉\|!ACFE5EA7020EC61C48258359002DB731,昳0W翑:g\|!87DE89B78B6A7EC348258359002DB71B,昳0W翑:g齉\|!F4BBDEC6A72DE33348258359002DB732,昳0W翑\|!F0659ABF99A08F7248258359002DB718,昳0W翑齉\|!C4D1C8C7569AAA6948258359002DB72F,昳0W翑獈\|!A516A964E335FDE948258359002DB712,昳0W翑獈齉\|!FA6E8D972A34603F48258359002DB726,昳0W翑裿\|!98D94AB664257FCA48258359002DB705,昳0W翑裿齉\|!84A280881F18B58F48258359002DB729,昳0W翑鷁c\|!2A481B64303F2D2648258359002DB702,昳0W翑O\|!43D5704ADF6B3DB848258359002DB720,昳0W翑O齉\|!71BA5589143FB69148258359002DB737,昳0W翑MR\|!1F4191A1798102F148258359002DB71C,昳0W翑MR齉\|!4683C5D56F60545C48258359002DB733,昳0W翑篘\|!DE790D8C46AFCD7048258359002DB706,昳0W翑篘HT\|!6524A33698D8D43848258359002DB739,昳0W翑篘r^\|!77AE809660F60D8E48258359002DB722,昳0W翑篘齉\|!A3677F9C33DB8BFA48258359002DB72A,昳0W翑篘砇\|!87CC217384260CED48258359002DB723,昳0W翑釼\|!CEC3B89FC0570CE948258359002DB711,昳0W翑訷\|!4D75B1D2E1473BA748258359002DB70F,昳0W翑酧繈\|!A5FBF755BF8FCAF848258359002DB724,昳0W翑酧繈JT\|!3E5431D18A2FA8D648258359002DB725,昳0W翑剺\|!9FD668C5E506A7CB48258359002DB717,昳0W翑剺齉\|!EA95AE15EA960FB048258359002DB72E,昳0W翑袕\|!B7D30071D0D7F37948258359002DB71E,昳0W翑袕HT\|!D57678F5081BD05E48258359002DB710,昳0W翑袕齉\|!8FDCFA8B64299EB548258359002DB735,昳0W翑D峔|!159D586DA5114BA648258359002DB71D,昳0W翑D嶟Q\|!618186A67B17FB0148258359002DB734,昳0W翑;`\|!01CB275072560B9E48258359002DB704,昳0W翑;`齉\|!2F3A63EED974395A48258359002DB72C,昳O\昳鶺ck噀!jg.doc|昳鶺ck噀!jg.doc!96611FBACEFAF1CB482582940024123C,昳O\ NL垏e .doc| NL垏e .doc!96611FBACEFAF1CB482582940024123C,昳O\貧-弝蒷lQ鳶 NL垏e.doc|貧-弝蒷lQ鳶 NL垏e.doc!96611FBACEFAF1CB482582940024123C,昳O\lQ鳶 NL垏eWPS.doc|lQ鳶 NL垏eWPS.doc!96611FBACEFAF1CB482582940024123C,昳O\龝鳶 NL垏e.wps|龝鳶 NL垏e.wps!96611FBACEFAF1CB482582940024123C,顁?e濺\顁?e濺s^L垏e.doc|顁?e濺s^L垏e.doc!F600BCAAF2CF47F44825837F0010DD8F,顁?e濺\顁?e(鲖:yJT).doc|顁?e(鲖:yJT).doc!F600BCAAF2CF47F44825837F0010DD8F,癳昩\癳昩s^ NL垏e.wps|癳昩s^ NL垏e.wps!6604C8687BF585BD48258384000983AA,癳昩\癳昩 NL垏e.wps|癳昩 NL垏e.wps!6604C8687BF585BD48258384000983AA,-NqQ弝轢^蜽^0W翑 gP#嶜NlQ鳶獈媉訷XTOO畫獈亯\|!B07465E8C798831D48258359002DB70A,-NqQ弝轢^蜽^0W翑 gP#嶜NlQ鳶訷XTOO畫獈亯\|!A2CB0C27C9034D6C48258359002DB708,N槝獈亯\|!4C81BAEC95576FB348258019002ED2FB,\裇噀魦f1.doc|裇噀魦f.doc!79BC105B18C72A77482582CD00325304~http://oa.rongji.com.cn:7078/eGov/dispatch.nsf€ @   #Unknown-V"??V??V&??V??V!??V%??V(??V '??V $??V +??V ,??V ??V??V)??V??V*??V/??V??V#??V0??V ??V??V??V ??V??V??V??V ??V ??V7??V ??V! ??V"??V#1??V$2??V%3??V&4??V'5??V(6??V)??V*??V+??V,??V/V0  DraftDraft€>E>E>E>E>E0( _eQ噀鄗_eQ噀鄗 RJeGov._eQ噀鄗((钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟倓倓魄破瞧倓倓钟种又钟倓倓魄破瞧倓倓钟种又钟倓倓魄破瞧倓倓钟种又钟倓倓倓倓钟种又钟倓倓倓倓倓倓倓倓倓倓倓钟种又钟倓倓倓倓钟种又钟倓倓钟种又钟倓倓钟种又钟倓倓钟种又钟倓钟种又钟种又钟种又倓钟钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟钟种又钟种又钟种又钟种又钟种又钟种又钟种又钟謕( (@刡Custom Popup 17 (@4YCustom Popup 18j: 詮轛濺lQ鹼邁((肿种字000肿种字肿种字肿种字肿种字肿种字肿种字0渆肿种字00渆渆渆肿种字肿种字sus0肿种字0渆渆蝒e1e1渆渆肿种字Z]Z0肿諦AB00渆e1蝒e1e1e1e1e1渆肿諾]Ze100渆e1蝒肿种字0e1e1e1e1渆Z]Z剢e10渆蝒e1肿种字肿种字0e1e1e1渆susce10渆e1蝒肿种字肿种字肿种字肿种字肿謘us挡礳e1渆e1蝒蝒蝒蝒蝒蝒蝒蝒蝒蝒肿謘us挡ece1e1e1e1e1螝螝蝒肿治0剢劀e1e1蝒肿种字肿种字0c蝒肿种字0剢劀e1蝒蝒肿种字0螝c蝒肿种字肿治00剢勂闷蝒蝒00蝒c蝒肿种字肿种字0蝒歝魉ノe蝒螝螝蝒肿种字肿种字肿种字蝒蝒e1e1e1e1螝蝒肿种字e1肿种字肿种字肿种字蝒蝒蝒蝒蝒蝒肿种字肿治e肿种字肿种字肿种字肿种字肿种字肿治e蝒蝒蝒肿謕(ApproveApprovei>hi>hi>hi>hi>h0 (@刡Custom Popup 17 (@4YCustom Popup 18( 錱 w誹鶑錱 w誹鶑 RJeGov.錱 w誹鶑樿(€€€€€€€€€€€览览D@@D@D@D@D10033p(餑繜__忂儫?( 悥蠀誹鶑悥蠀誹鶑 RJeGov.悥蠀誹鶑樿(€€€€€€€€€€€€览览p(醴 象魁?喵鮛j: 詮轛濺lQ鹼邁((肿种字000肿种字肿种字肿种字肿种字肿种字肿种字0渆肿种字00渆渆渆肿种字肿种字sus0肿种字0渆渆蝒e1e1渆渆肿种字Z]Z0肿諦AB00渆e1蝒e1e1e1e1e1渆肿諾]Ze100渆e1蝒肿种字0e1e1e1e1渆Z]Z剢e10渆蝒e1肿种字肿种字0e1e1e1渆susce10渆e1蝒肿种字肿种字肿种字肿种字肿謘us挡礳e1渆e1蝒蝒蝒蝒蝒蝒蝒蝒蝒蝒肿謘us挡ece1e1e1e1e1螝螝蝒肿治0剢劀e1e1蝒肿种字肿种字0c蝒肿种字0剢劀e1蝒蝒肿种字0螝c蝒肿种字肿治00剢勂闷蝒蝒00蝒c蝒肿种字肿种字0蝒歝魉ノe蝒螝螝蝒肿种字肿种字肿种字蝒蝒e1e1e1e1螝蝒肿种字e1肿种字肿种字肿种字蝒蝒蝒蝒蝒蝒肿种字肿治e肿种字肿种字肿种字肿种字肿种字肿治e蝒蝒蝒肿謕(+Custom Popup 17 Custom Popup 170(瀀燫NL刡悶X燫NL RJeGov.刡悶X燫NL惥(螿\NL刡愊Q\NL RJeGov.刡愊Q\NL惥Custom Popup 18 Custom Popup 180(>f:y4Y>f:y4Y RJeGov.>f:y4Y惥(悥蠀4Y悥蠀4Y RJeGov.悥蠀4Y惥ViewViewA"A"A"A"A"0 (@4YCustom Popup 18( 錱 w誹鶑錱 w誹鶑 RJeGov.錱 w誹鶑樿(€€€€€€€€€€€览览D@@D@D@D@D10033p(餑繜__忂儫?( 悥蠀誹鶑悥蠀誹鶑 RJeGov.悥蠀誹鶑樿(€€€€€€€€€€€€览览p(醴 象魁?喵鮛j: 詮轛濺lQ鹼邁((肿种字000肿种字肿种字肿种字肿种字肿种字肿种字0渆肿种字00渆渆渆肿种字肿种字sus0肿种字0渆渆蝒e1e1渆渆肿种字Z]Z0肿諦AB00渆e1蝒e1e1e1e1e1渆肿諾]Ze100渆e1蝒肿种字0e1e1e1e1渆Z]Z剢e10渆蝒e1肿种字肿种字0e1e1e1渆susce10渆e1蝒肿种字肿种字肿种字肿种字肿謘us挡礳e1渆e1蝒蝒蝒蝒蝒蝒蝒蝒蝒蝒肿謘us挡ece1e1e1e1e1螝螝蝒肿治0剢劀e1e1蝒肿种字肿种字0c蝒肿种字0剢劀e1蝒蝒肿种字0螝c蝒肿种字肿治00剢勂闷蝒蝒00蝒c蝒肿种字肿种字0蝒歝魉ノe蝒螝螝蝒肿种字肿种字肿种字蝒蝒e1e1e1e1螝蝒肿种字e1肿种字肿种字肿种字蝒蝒蝒蝒蝒蝒肿种字肿治e肿种字肿种字肿种字肿种字肿种字肿治e蝒蝒蝒肿謕(Custom Popup 19 Custom Popup 190TemplateTemplatemh;*h;*h;*h;*h;*0( 鬴bc!jgSelect TemplateThisDocument.SelectTemplateCustom Popup 24919272 Custom Popup 249192720 (hQ剺抍hQ剺抍ThisDocument.hQ剺抍惥( 剺抍Hr抍Hr剺葔ThisDocument.抍Hr剺葔惏(Hrb棐cHrHrb棐cHrThisDocument.Hrb棐cHr惥(hQ覊RbchQ覊RbcThisDocument.hQ覊Rbc惥(peW[l廕S覊peW[l廕S覊ThisDocument.peW[l廕S覊惥(W[蚹l廕S覊W[蚹l廕S覊ThisDocument.W[蚹l廕S覊惥( nd杬zf:ypS>f:ypSThisDocument.>f:ypS惥(悥蠀pS悥蠀pSThisDocument.悥蠀pS惥Custom Popup 24924529 Custom Popup 24924529 0 (hQ剺抍hQ剺抍ThisDocument.hQ剺抍惥( 剺抍Hr抍Hr剺葔ThisDocument.抍Hr剺葔惏(Hrb棐cHrHrb棐cHrThisDocument.Hrb棐cHr惥(hQ覊RbchQ覊RbcThisDocument.hQ覊Rbc惥(peW[l廕S覊peW[l廕S覊ThisDocument.peW[l廕S覊惥(W[蚹l廕S覊W[蚹l廕S覊ThisDocument.W[蚹l廕S覊惥( nd杬zf:ypS>f:ypSThisDocument.>f:ypS惥(悥蠀pS悥蠀pSThisDocument.悥蠀pS惥8ck噀.ThisDocument.InsertQRImgck噀.ThisDocument.InsertQRCodeck噀.RJeGov._eQ噀鄗ck噀.RJeGov.錱 w誹鶑ck噀.ThisDocument.UnlinkAllFieldsck噀.ThisDocument.ToolsOptions ck噀.ThisDocument.ToolsOptionsView$ck噀.ThisDocument.ToolsOptionsUserInfock噀.ThisDocument.DeleteObjectsck噀.ThisDocument.SaveObjects%ck噀.ThisDocument.ToolsOptionsRevisionsck噀.ThisDocument.ToolsRevisions(ck噀.ThisDocument.ToolsRevisionMarksAccept(ck噀.ThisDocument.ToolsRevisionMarksReject(ck噀.ThisDocument.ToolsRevisionMarksToggle$ck噀.ThisDocument.ToolsReviewRevisions"ck噀.ThisDocument.ToggleFieldDisplayck噀.ThisDocument.UpdateFieldsck噀.ThisDocument.Rejectck噀.ThisDocument.ToolsMacrock噀.ThisDocument.FileSaveck噀.ThisDocument.FileSaveFormalck噀.ThisDocument.SelectTemplateck噀.ThisDocument.ChangeTemplateck噀.RJeGov.悥蠀誹鶑 ck噀.RJeGov.鄀誹鶑ck噀.RJeGov.SetRevisionsOptionck噀.RJeGov.詮轛OA鹼邁ck噀.RJeGov.悥蠀4Yck噀.RJeGov.>f:y4Yck噀.RJeGov.刡悶X燫NLck噀.RJeGov.刡愊Q\NLck噀.RJeGov.ProtectDocumentck噀.RJeGov.UnProtectDocumentck噀.RJeGov.GetItsNameck噀.RJeGov.SetItsNameck噀.ThisDocument.CenterTitleck噀.ThisDocument.hideCopySend%ck噀.ThisDocument.AcceptAllChangesInDoc%ck噀.ThisDocument.AcceptAllChangesShown%ck噀.ThisDocument.AcceptChangesSelected%ck噀.ThisDocument.RejectAllChangesInDoc%ck噀.ThisDocument.RejectAllChangesShown%ck噀.ThisDocument.RejectChangesSelected"ck噀.ThisDocument.LocateContentInput- ck噀.RJEGOV.鄀誹鶑ck噀.RJEGOV._eQ噀鄗ck噀.RJEGOV.>f:y4Yck噀.RJEGOV.錱 w誹鶑ck噀.RJEGOV.悥蠀誹鶑ck噀.RJEGOV.悥蠀4Yck噀.RJEGOV.刡愊Q\NL ck噀.RJEGOV.刡悶X燫NL ck噀.RJEGOV.詮轛OA鹼邁 ck噀.RJEGOV.GETITSNAME ck噀.RJEGOV.SETITSNAME ck噀.THISDOCUMENT.REJECTck噀.THISDOCUMENT.FILESAVEck噀.RJEGOV.PROTECTDOCUMENTck噀.THISDOCUMENT.TOOLSMACROck噀.RJEGOV.UNPROTECTDOCUMENTck噀.THISDOCUMENT.CENTERTITLE/ck噀.THISDOCUMENT.INSERTQRIMGck噀.THISDOCUMENT.SAVEOBJECTSck噀.RJEGOV.SETREVISIONSOPTIONck噀.THISDOCUMENT.HIDECOPYSEND0ck噀.THISDOCUMENT.INSERTQRCODEck噀.THISDOCUMENT.TOOLSOPTIONSck噀.THISDOCUMENT.UPDATEFIELDSck噀.THISDOCUMENT.DELETEOBJECTSck噀.THISDOCUMENT.CHANGETEMPLATEck噀.THISDOCUMENT.FILESAVEFORMALck噀.THISDOCUMENT.SELECTTEMPLATEck噀.THISDOCUMENT.TOOLSREVISIONSck噀.THISDOCUMENT.UNLINKALLFIELDS ck噀.THISDOCUMENT.TOOLSOPTIONSVIEW"ck噀.THISDOCUMENT.LOCATECONTENTINPUT "ck噀.THISDOCUMENT.TOGGLEFIELDDISPLAY!$ck噀.THISDOCUMENT.TOOLSOPTIONSUSERINFO"$ck噀.THISDOCUMENT.TOOLSREVIEWREVISIONS#%ck噀.THISDOCUMENT.ACCEPTALLCHANGESINDOC$%ck噀.THISDOCUMENT.ACCEPTALLCHANGESSHOWN%%ck噀.THISDOCUMENT.ACCEPTCHANGESSELECTED&%ck噀.THISDOCUMENT.REJECTALLCHANGESINDOC'%ck噀.THISDOCUMENT.REJECTALLCHANGESSHOWN(%ck噀.THISDOCUMENT.REJECTCHANGESSELECTED)%ck噀.THISDOCUMENT.TOOLSOPTIONSREVISIONS*(ck噀.THISDOCUMENT.TOOLSREVISIONMARKSACCEPT+(ck噀.THISDOCUMENT.TOOLSREVISIONMARKSREJECT,(ck噀.THISDOCUMENT.TOOLSREVISIONMARKSTOGGLE@bodybodyEndQRCode6  6  G噝 €Times New Roman;€Wingdings;F 筫ckN媅€{SO褳SO;6 N媅_GB2312AF 筫ck\h媅€{SO甠o徟栄A €鷟8wiSOwiSO_GB2312;褳SOSimHei; wiSO_GB2312;媅SOSimSun!0姩ha\w囃儕3倞U!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[iC亐21哌?f1n2d l 澈U"  CopyFileAxME(<<< < +|@ i儈`i儉€i儌H攔Lh0h.h刕h刡h刦h刲h剢h剤h* +  i儕`剬`劆+` i儗`凘+0i儮i儰`劍+pi儮i儰`劍+`i儶(i儸`劗+Bi儮i儰`劍+d8 i儮Xi儰`劍 H i儼i儰€ 劜@(`劥`劧`劍  + i兒0i兗Pi兙`劍+HI兝 `劼`勀`勂`凚+)兾€%i儬+x  )兾0 8 €%i儬X I兙  )兾 €%i儬x €€ H€ € €$€(8€ `€"€€(€$€*€(€H€"h€ B €T(€€ B  €" " &( Phpx€€ B €€ B € (HP€ B X€`hpx € B €€ B € @H€ € (PB x€€€€ "0@PXh€€ B € D08@€ B H€P€X€`€hp2f P` h x€      € B  ( 0 H €P X € B ` h p   €  € B      €  € € € € € € €  x]$t_1下载的模板的前缀] 1下载模板的目标文件名和路径] 1下载模板的URL地址] 1文档使用的新的文件字] 1文档可能使用的新的模板名称] 1文档使用的原来的文件字] 01文档使用的原来的word模板名称] H1原上下行文标志] `1 上下行文标志] x1自动更改模板信息标志] \$' \$'  !$ 'k  \rjoawork.bakA@   \rjoawork.bak\ yyyymmddhhnnss$ $|'ix h vB@X]€     $~ A@k \*.*   $~'@ @ \ @$  \ @A@k ~'@€ v!€'i`]  $'    $ 'ki0]  $'     $ 'ki]H_ '   '  iX`]  '    $ 'Bki]x  '     $ 'dki"将一个字符串按分隔符分成几个字符串]]H`x从第一个字母开始找'_8   ' Gxj 酅     $  +   '  ' 酅  $  + 'Hip]p  '  b   $       $ ` '    ' 'i]]]]0 B   B$ ' $' G 'j.对半角空格作特殊处理  :  /  [  @  {  `   'd $ ' KT%0 'KT% 'KT%u0 'KT%u 'n  'k 'iH>F  %<'z>i>F   B@"'zh>`iXx >F  B@'z(> iAttribute VB_Name = "Common" Option Explicit Declare FuncpCopyFile Lib "kernel32" Alias=乺Left(€ , "8\")Righ6If Lena) > 32 Then !C Mid$E, 33 End IfC@'rOt鄅erDaB&rjoa繞k.bak€榿 G&`~%朼 C\" _ & Forma爐(Now ymmddhhnn@ss") &E), False@E6!捚7n838O@眗ror Re膕u@礜ex`册餎rr. =!h?=0` , vbectory +SystemBHidde攏)A",5Mk/ I3s= € #"\*.*"O CWha葍<> "7€4BD`癟ime "C!/) < `3 - 4!KilcAI闳end#8€$(!0Number 0@€铅j幂郞0MainIsSe>pbB兿c!=intPo锣IntegerC= I鈔 Rev' 鈤 `! 9@e R9- 1Tqo/@1&Bo筷o0僶sooooy p臜齤+誏Q茟z?f疗CheckO 8tchl1幾ln鰃DxoRD /(+ 1B Ma@ `Loop 3:> 0 nS# ---ro- 昺-q-瞣籃+,4 $)麗 47€)) Or _搥P 9164123 96 2邐繫膒倗&羦罞崆 ElseMA纄pHex$6HR@3Select Ca|seEn 1@€莡"%0"n & 23踯u^ 4] 零K'J€KIfdNe|xtD脃€4& xG@etItem u`e(col!tCLol8 , 鎮Nxame繫 凮 n ErrwGo€v@handle: `C .ar肁 $DExit钄}6楽b B鄌olea€M皲Add醙B虏iTru刯馩礑el5A5et.Re餸ovee)>5∥e澈购xME(<<< < `勦`勨`勪x 勵%  ( ~h     @` en € "`$/` $ ,&`$` H .x% 0B2%    8` >`凘范围@`€€ "€ 8HX.h,€F(8H Xx€ "  € " ( 08@HPX `hpx€ "€€ € " (€ "0 8H€ € JP€ 0€ J" (€ "0€ &X€€ * € " (08 @H*P€ € "€ € (€  €@€H€ Php x€0H PX`h€ "px€€€€ € $€ € $€ 0HP X`h (  0 8 @ € € (H &p €    &     "   0 € "8 @  H X € € :` € "   € " € >  0 P X € ` € h € x €  €  € € €  xh ]@Xp二维 V!!' V!!' V!!' V!InsertFileStart5PB@" $B@ V! InsertFileEnd5PB@"]InsertFileStart7P!R InsertFileEnd7P!7.  !(  !(  !(InsertFileStart7PB@ InsertFileEnd7PB@q`oXA@ 5A@k(9995A@kqo 5A@k9995A@kqo€(SetRevisionsOption 999q8o0h  9 9 9 9 9 9  9  9qo B@B中? oC///////////////////////////////////////////////////////////////////' * 以下是红头相关的操作C///////////////////////////////////////////////////////////////////$tSubjectText是“文件标题”框原稿DocMarkLine是“文号”下面的红线eT]( 5A@kX  SubjectText7!!!(e8  DocMarkLine7(&U5A@kqo@ 5A@k  SubjectText7!!!(ileTyp  DocMarkLine7( 5A@kHq@o8€(KeywordText是“主题词”框!KeywordLine是“主题词”下面的线条CopySendText是“抄送”框]]33333$@$&'$  5A@kx KeywordText7.0 !( $ ((公 KeywordLine7. !( $ (( CopySendText7. !( $ (( !* $ (*5A@kqo€]0]H加入如果抄送为最小的时候不缩小]` CopySendText %.. .G|j .!* G|j''''''''''''''''''''''''''''''33333$@$&'$ 5A@k KeywordText7. !( $ (( KeywordLine7. !( $ (( CopySendText7. !( $ (( !* $ (*5A@kq"当抄送文本框为空的时候则对齐两横线 CopySendText %!* ]€ CopySendLine %.0 0 0!( KeywordLine %((kko 4 B@2o B@6o3===================================================  V!:%<!A@to0`]请输入对象的名字: 公文对象命名 请取个名字$'@ @ @ V!:%<(ko Sub test()MsgBox Application.VersionEnd SubHAttribute VB_Name = "RJeGov" Option Explicit Sub 引胛恼()  ODrro@r Resu凬 exV2With ActiveD4oc6n08Dim oldIndent As Single, s纓rFontg, int!Size-In鄑egerOK@= Selevon.ParagraphFormat.FirstL鴌new / 9~.: P[.Bookmarks.Add Ra`nge:=O, :="InsertFileSptartlDialogs(wd).Sho"w8Endm n^5agq5nS鴗ep5c蝧7= MillimetersToPop杝(10.35牟a袧wP#0u\ o6"X籵0.Topps- ?B  oo= 鱫噍tR Heigh鰐 += OJ*)**减涉亠* $$$As'加入绻1)为最小的时候不寺睝跣 Dim tshap纄 As S@Set`= ThisDocument.恠("CopySendT ext")jIfhIs Nothingzen E€xit Sub N.Height < 1''LnStep = -MillimetersToPoints(10.35ithk噃亞_.Rea郿OnlyG UnProtect厖End I6f無€F問Ke0ywor )o.蘐o乑- 俠#餖ine吂1#戄襬卥= +,Q丼羒CB腃'当抄送文本框为空的时候则对齐两横线D € 牞蜑罙伵l簩 wD芷蚷垇 D  0扖D弮姢WB醼 L1(dO爑rror Re騭@~ N|  wdAllowafFormFields, Tru萫 !.hcjUnp#p* '&=- #GetItsName丒MsgBox€<"l }ionCxRange.Item(1).繠L A罤sTemptr牎)= Input ("请输入对象的名字:", "公文!a命名请p取个(畠 <> ""寲Se|? 敘5仒6' '6test#'d#Applic鬭t#V喱 @&+ L+澈摖xME(S<S<S<S<0{6043C43F-CBF5-4CD1-8C8A-98EF38E8064E}{3C72579F-D5E0-42D5-9E4C-4EB82B449FCF}`凚“抄`凞 `凢 ,!&i凗 91E0 A&i兙 J#@刏 `刓`凚 b d V@刏 `刓`刦`凚 j `刲 `刵 v` x€%侢 % H`p€ €€ €&€"0€X€ Bpx€€ "  € "T@P` p€€  € € € & (H`h p x  € "€ " (€ "0€8 Xhx      08@H Xhp€ "x€€ €€ 2 ( RH D €2PX€ "` hx€ "€€ x]@ EnumWord代理的返回字符串]@ 文件字配置信息字符串]@0 数据库urlH B'&mx 'B B~$d'F B~$B,$H'DA@Jm  *H如果是打开word时提示的自动更改word模板的的确认,则列表中只显示新的文件字 ^ LB@N ^ PB@N L!R L(TkxA@V|hk` PB@X]H`x LB@X Z D Z\$B'\ ^!d \ ^!d  B L!R B L%` \yk B L!R \ LB@N \ PB@NkPkH@ L!R L(TkoA@Vo P!d L(dA@Vo]Ph€ hB@X Z D Z\$B'\ Z\$d|$B'f \ L!d B h!R B h%` fyk B h!R f hB@Nkk h!R h(Tko>x] 所有文件字配置信息] 选择的用户 L!d\ h!d'n l D l n '找到选中的文件字和模板信息 l|$d!$B'b !p\ r b'0g,下载的模板文件名以t_打头加上模板原来的文件名 B~$d/0/ l!$d/$FILE/ b'.k A@r|> 系统错误: v!x v!€ v!tA@t|o  A@ro€`MsgBox TextBox1.TextA@JoH@;Attribute VB_Name = "frmSelect" " €Bas€0{6043C43F-CBF5-4CD1-8C8A-98EF38E8064E}{3C72579F-D5E0-42D5-9E4C-4EB82B449FCF} dGlob刟l婼paco False 奀r@eatablP€redeclaDId訲ru BE`xpose0TemplateDerivCus tomiz婦 €Option 1licit P€#€' str!As S縩g 'EnumWord代理姆祷刈址HvaV@ariant募字配謄眯畔 €8Url 7€'数€据库url'ub* Property Get& *)()G I€X6 EndLByVLal丗€ue)緾 F6=AR@Right( , "~"GN=eode(€5Lef  € , Fillq乨Lis纏N5DtS(ub I (If AutoChangeFlag Then '绻谴蚩獁纚时提镜淖远牧模板的的确认,则列表中只显示p新的|傽乥cbo).AddItem NewDoc1Box1 `e Cou馌L> 0Bg i營ndex€30G%If!$Typ唀xit (#i#Cle arcDim s: e,!GG, iIntegeN For Each InA鉡  K 侻BG9"\EF€(Text#"" 腛r Str!Td, ) ,i!A+ To o3- 1')(i)丳OE1 w9N@+i >=se$:€i#5\i琜 BW'蠢楗_C扩ke伀_4K%$If!C% $斿o}h!o5i5鑜stA.h51+5從k)Str5r7鉤*8癧|87z)1 v65 "600$v6 /Q316€sISq6`r6_ ?u3 A1)3_廗93 qSub冣亪tcmdOK 0扥€攔r0ZGo P菶rrudl鄿a !,opt!*憫€vp所有粦3Ase/慳'选择赖挠没S'桵8& `_ & 9e 蟙a04InP,( 餶el鱛R找到选渲械~和1佱濗A1悀オ艋@4p#2"€11!11v畂wnpD翊This袃ument`.Path0TEMPLATE_FILENAME€_PREFIX}'下载膓 A名以t_打头加葿螿原来 摸鸞 Y 潈y 饾 /0/"p ~$ < '.U€nload M&-R;S+&(:#Msg皛 "系统来砦螅横P€.Descri美& Number€ Sourc@@r|emdCa餹cel1X /5韋哶摠臺'd a+? e!娽O蛹d H 澈7€tbChooseColorA8GetOpenFileNameA`$GetSaveFileNameAxMEL PS<S<S<<<<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}x `勡`勣`勦`勨`勪`勬`勮`勱!`勳`勵`勷 `勻 `勽`匂`匄h`匉€`匋$~`匎A@``'`勡`勣`勦``'`匂`匎 ``+ P( ) H€0%+$ )€空格 %+@L( )€ % 凞P% 凢p %h凥h凧h凩h凬h凱h凴(匂 %h凾 V€ i冝`刋 Zi冝 \xXi冝 "i冝i僞 `刞`刣`刋€h@%@x@%€€ €€€€ €(€0€8€@€H€P€X€`€h€p€x€€€€€€€€€ €€€€€€€€€€€€ H€ H€ H€  € € €(08@HPX`hpx€      €€ €€ € €(€0€8€@€H€P€X€`€ " h€px  € € "  € "  (€ " 0€ €8@` hx$€ € € 08@X `€ x^^0^H^`^x^^^^^^^ ^8^P^h^€^^^^pH^^(^@^X^p^^^^pP '''''  '"@'$€'&'('*','.'0 '2@'4€'6'8':'<'>'@ 'Bbx]@8]@X] x] ] ] ] ] ] ] (@] D D(  D(€ H D( D$ 'X XColor = CC.rgbResult@ko A@o A@ox] N椠 b$\'` F F9 9 P| b$ b b9 R9 `9 `9 T9 J9 9 L9q]( ^ F$'Xd F$'Xk X F! b b'd d F! d $ 'Ndx F!'Nk`dX'NkHo@80Attribute VB_Name = "FileDialog"D 凚as0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobal蘏pac扚alse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz EOption 0lic€it P€"€& Type OPENFILEN@AME lStructSize As LonghwndOwner Instan€晭lps磘r誸0i *anMax GK&nInde'E 4@;駟 Tity6CK%Init括DiBMMFla gs3A;eOffsetInteger莍Extxens亐.D糴f@ %[D@ 5fnHook廞奴枞KEndHOOSEC餙LOR/燖rgbResul%aColor汸-40l##s .#DC Func1"yCho@A Lib "comdlg32.dl爈" (p#cA;+)厐 GeptOpebG7P A@lias ",A羆lpOFN 蓨 n ` Save?!p)€瀠b Enum 9dCo"晅sN_READONLY`&H1OVERWRITEPRPOMPT2H(IDEJ4gNOCHANGEDI R8GSHOW怘ELP10Q@盉LE bKB2NTEMPLAT欵4DL8NOVALID10hALLOWMULTIS0ELECD)EXTENSIOND↖FFNc4iPATHMUST餎XIS€扃⊥匪`C€)k-0 鑃HAW@ NOBRETURN"NOT鳨STA":NETWORKB蠻TTOS2P*蠰ONGQsS褖EXP繪ET#CELINK21BA,9TCC!7JT=8P~镏0RD砅P32硵辢裾efaTc;X_<{昽,;Auu Sub Show (B爕Val .)(Dim lngR#taCC.間= 繪en(CCT==3wf= ?b08\gIfaThen#駱'"P& If qpA!A\硿飔 Q _w__瘤, Tru 哺系( , 锚1Sbln*Bo鄌lean€ Ns&= 6&dv(658, vbNullCha俽With 23? (o 嘸 H= Re`ce(0 0, "鋦"z &X (憏2 2芍I€磻@%-& 病9h= 6}揃= 鱴C(;sprぇVE##-頸 d,;P4焨#k47紗8El演1 ) 73;Q c St鷕.x` !覓馡f宼$s- 1+\- U}"畜q? .b<渨澈岛xME( $ S"SS"<8<<< 诜`凘 Old`凚" &`凞 欠褚 \€   z i儐 € i儓€  @ i儕`  i凗  d If 剬 p% 剶 错误%  )儗 ( €%i儕H i凗  `劄5€`劆 If  `凚`凘rdTy H   ,( i儬 (i兙 i凗 Dr  h i儬 Ti兙(,  66i凗  `劺!p H 剬x%`劄!`劆 n 勈%`勌 h   ( h €%b€ b€b€ (b€&xb€*`刯 `刲 剅 p( 刪@% 勵`0 % 剘€h$%8 PPx   f hXP@x 0( € pp0P  H (@ (Phx( (P (( hL宊 /€€ €€€€ €(€0€8€@€ H€h€ "p€ €   € 8€ (Px€ € @(X€46€ € € B€ € Xp€ € (€ € € $€ 60€ h€ x€€<€ "   (&8 ` p€ .€€ € € .€ "€ @X`€ €,  0 6H €         €  > ` h € "p x € €             €  € " € €  0 H  X h  p  €      € " €           € " € €( @ H P X ` x          € " €      € " € € 8 @ H P X p          € "       € " 8@€ "HPX`h€€ "€ "€ "€ "JX€ "`€h~p *(X`€ "hpx€ &€€ € €  € T>H €   \P&Xb€fp€€€ Lhp x€  &€(€ "€  € (@Xp€ € €  € €  Vp |x€  L X` h€ x€€(€ "€ € F€ 0€ PTp € &&@:h$€(08€ "@€ .H€ x€€€ €€€€  0@H€ € P`€ € .x€$$ @Ph €€€ 4€0Hh € €€&&(@Xpx€€€ € 6€ (€0 H hx €€€ € 4€( 0 8 P h "p  €  €  *  € !€!! !(!&H! p!! !!!!€!!€!€ !"€ " "€ € (" @" P"€ € `"€"€ € ""€ € """"€"|" x# # #####€#x#X$ h$ x$ $$$$€ $$€ "$€ "$€ &$€ %(%0%H%X%€ " `%€ 8h%€ %€ %€ 0%€ &B &h&&&&"&"&'" 'H'P'€ B X'`'h'€p'x' ''€'' '' '(((€ B (€ (0(H(h(€( "((((€ "(€ ((€ €)€)€ )€  )() @)`)€  h)€ x)€ "€))))))*$0*X*x*** **+ 8+€ 4X++€ "+++++,"8,`,x,,,,,,-€ € H0-x-€ B €----€---€ " ----€-..€ B .(.€  0.@.H.€P.X.€ € 4x.. . ..€ € .€ f/€ Th/ / / / / 0€  0 0  0 6@0 .x0 20 0 1 & 1 H1€  `1 €1 1 1 1 2€ H 2h2€ p2€ x2€ €2€2222€ "22€2€222€ 63€ .@3€ 6p3€ T3€ 4€ 4204 h4€444€444€ "44€ €4€4€ 44€ € 0585 H5X5x5 €5555€555"6€ ,6€6€6€6(6€ 7*(7X7p7777€ 7 7 7788€ 8€08(88 `8 p8€8"8€8,8€  8889€ 9 (9€ €89€@9 H9h9p9 9 999€ 9€ € .5"666€ " 6(606€ "86@6H6€ "P6X6`6€ "h6p6x6€ "€666€ € € € € € € € € € € € € € 9x]]]](](]P]P]x]x所有文件字配置信息]>F 0. 2 %@'  4//$B' 6' 8'" :'$ <'&', D!4'(  D(42 SaveObjects '**********************印章控件处理!If gWordType <> "createword" ThenA@F End IfA@H (J L!N(P L!N(R L!N(T ZXBody VB@A\ 指示输入位置 & & %`|$B'^L本次传入的文件字 &|$d'bH本次传入的模板xDocWord %h!j'fH原有使用的文件字 TemplateName %h!j'lH原有使用的模板> If OldDocWord = "" And OldTemplateName = "" Then '如果原有使用的模板和文件字为空,说明第一次起草,要记录这些信息到文档中< Call RecordTemplateInfo(NewDocWord, NewTemplateName) ElseIf OldDocWord <> NewDocWord And OldDocWord <> "" Then '如果原有文件字和新文件字不相等,那么要提示用户是否改变文件字对应的模板Q If VBA.LCase(gWordType) = "viewword" Then Exit Sub '如果是查看正文则跳过 If MsgBox("系统监测到您在发文中把文件字从“" & OldDocWord & "”改为了“" & NewDocWord & "”,是否要修改新文件字对应的模板格式?", vbYesNo + vbQuestion + vbDefaultButton2, "榕基办公自动化系统") = vbNo Then" AutoChangeFlag = False Exit Sub End If AutoChangeFlag = True/ Call SelectTemplate '弹出选择框 End IfA@n|x>p !p r文档打开错误: v!x z榕基办公自动化系统A@tk|o>F D(|A~  5€( $5€B@5€( 5€(' If gWordType = "draftword" Then .Fields.Unlink End If( If gWordType = "createword" Then UnlinkAllFields End Ifq Mail Merge$(Draft$(Approve$(View$(Template$(0更换模板工具栏  draftwordKTDraft$(Template$( approvewordK createwordK approvedraftKTAApprove$(Template$(viewwordKTAView$(n D(||> !p r无法合并数据源: v!x z榕基办公自动化系统A@tkoP>F$ ! (JdP',A@k8 ( D(4  D(k|>o]] D!4' $!'   D(4A@ L!N9P 9qhk`oX]@ $!'  L!N9P 9qkoX]] D54'5'5' $!' $ 94 9 9kPqHo@]8 $!' A@koP]] 5'5'5' $!' $ 9 9 9kXqPoH$A@d( V!!B@ko0$A@d V!!B@kop$A@d ! (kxop$A@dP $B@k8o0A@o0A@op*在当前的宏安全设置情况下,无法使用此功能! zMicrosoft WordA@to](“宏”选项只能用于开发人员进行系统完善。  请输入密码:(提示:宏的工程口令)请输入管理员密码$'  hacker;rjegov $B@d 口令错误! zMicrosoft WordA@tko>A@ !J  createwordG|j]H所有合并域内容$' B@  draftwordK approvewordK createwordK approvedraftKsealwordKT"是否要将最新的更改保存到OA系统中?   $t  "A@!2002.10.25 PJT]`x_@'  " % ' $无法上传Word正文到服务器,是否重试?  Microsoft Word$t' d  approvedraft8保存原稿 SaveDraft&UNID=  &FileType= & &FileName=  % %' sealworde8盖章SaveWordFormal&UNID=  &FileType= & &FileName=  % %'d保存正文SaveWord&UNID=  &FileType= & &FileName=  % &WordType=  $ %'k ok    是否重试?  Microsoft Word$t' k k    createword ,GA@jkH n@ |8 >0 v!x z榕基办公自动化系统A@to  A@ B@View$(Draft$(Approve$(Template$(>p 清稿标志 WordType %h(j B@]_ '  " % ' &无法上传Word正式文到服务器,是否重试?  Microsoft Word$t' d SaveWordFormal&UNID=  &FileType= & &FileName=  % &WordType=  %' ok    是否重试?  Microsoft Word$t' kk  |€>x v!x z榕基办公自动化系统A@toH提供换模板功能:模板选择@gAllDocWord = "" 'ThisDocument.Variables.Item("LastWords").ValueOn Error GoTo Errhandle:If gAllDocWord = "" ThenEnumWord&Seq=  %'*K$读取文件字配置及其对应的Word模板配置 LastWords * !hB"End If * $(&/ 赋值给表单 ( $B@(显示模板替换对话框'*(取消自动提示更改文件字标记 .$, 0$,H没有选择或者取消|PkH . 0 B2E 下载模板文件A4替换模板|> v!x z榕基办公自动化系统A@t|o@(提供换模板功能:模板替换(表头表尾替换) 2003-07-24>p]€*要替换的模板文档]*当前文档]*正文内容代表的范围]]] .: 0$ ~*如果新模板不存在,则退出|k 1.关闭痕迹A~ 关闭痕迹纪录(2.把模板文档的正文以前的内容拷贝到剪贴板]( 0 F%.68 打开新文档H  6 N7J!VB@L7J!V!.<Body7P!!R <( <B@H7J!VB@T7J!V!d'Dkhq`VFHPXFX@'D.3.用剪贴板中的内容替换当前文档的正文以前的内容VZ : N7J!VB@L7J!V!.<7J!V!R <(RBody7PB@H7J!V!R <( <B@HqH\FZ8\F\(^F"出错则忽略掉,开始换表尾. D若模板的表头为空则删除表头 :%J!VB@`d 不为空则粘表头 :%J!VB@bkd€^xdF/=============表尾=============================="4.拷贝模板的正文以后的内容到剪贴板d'D 6fBodyEnd7P!.< N7J!VB@h7J!V! <( <B@H7J!VB@T7J!V!d'Dk@jFq0f(l l'D.5.用剪贴板中的内容替换当前文档的正文以后的内容j : N7J!VB@h7J!V!.<nFBodyEnd7P!! <(Rp`nXpPpHrFAttachmentStart7P!!R <(trtFt <B@HvF$ 出错则忽略掉 D若模板的表尾为空则删除表尾 :%J!VB@`d 不为空则粘表尾 :%J!VB@bk@q8x0v(x x6.重新合并数据源A@FProcessCopySendA@H7.关闭新模板文档 6(J 6B@B8.定位光标到正文开始A@\9.保存新的文件字和模板信息 ^ bAz10.清空上一次的更换信息'.'0||8对不起,模板配置有问题,无法替换模板,请联系系统管理员! $~ v!x v!€ z榕基办公自动化系统A@t 6 6(J 6B@BkP'.'0|8> 出错则还原4对不起,替换模板时发生错误,系统将继续采用原有模板! $~ v!x v!€ z榕基办公自动化系统A@t :B@ 6 6(J 6B@Bk`'.'0|Ho@@ 把光标移动到正文输入区的开始 用于起草时指示输入正文内容的提示 2003-07-24Body %PB@H VB@o€ 2记录文档使用的文件字信息和模板信息到word文档变量中DowWord:文件字名称TemplateName:模板名称*word文档中的变量名称和本函数的变量名称对应 2003-7-25DocWord %h@如果已经存在变量对象则修改其值 DocWord %h(jd@ 否则增加变量DocWord  !hB"k8 TemplateName %h  TemplateName %h(jd TemplateName  !hB"ko  ]€ 5   $'X] 5  !!!   $'qi ]h € !$ ,'  MERGEFIELD  $ '   & = !'k8k0i(  合并所有域 !B@] ] !!@'@ B @ B %!!!B@ (Jo€ p ServerURL %hB@DbURL %hB@Cookies %hB@ DataServer %hB@ DataDbName %hB@ExecuteAgentPath %hB@ gUserName %hB@gUNID %hB@ gWordType %hB@ gWordBody %hB@ gWordSource %hB@ gFileType %hB@gOldUser %hB@ gAllDocWord %hB@- ThisDocument.Variables("WordType").DeleteohH ServerURL !ADbURL !ACookies !A DataServer !A DataDbName !AExecuteAgentPath !A gUserName AgUNID A gWordType A gWordBody "A gWordSource $A gFileType &AgOldUser (A gAllDocWord *ABCall SetVariablesSetting("gExistBodyBookMark", gExistBodyBookMark)o€ >F  %h!j'zP>H 'i8( >F   %h(j|>   !hB"o > 'd]WordType$'.清稿文件才能盖章,清稿标志WordType="createword"  createword'z(k  Dim lngHWND As Long_ lngHWND = GetSetting("RJeGov.RJWord", "Window", GetVariablesSetting("gUNID", "HWND"), 0)M If ThisDocument.ActiveWindow.Caption = GetWindowCaption(lngHWND) Then gUserName$' 'zd' (J RJeGov.RJWord$. ServerURL$ (EobjFtp.ServerURLDbURL$ (= objFtp.DbURLCookies$ (AobjFtp.Cookies DataServer$ ( DataDbName$ (ExecuteAgentPath$ (gUNID$' gWordType$'  gWordBody$'" gWordSource$'$ gFileType$'&gOldUser$'( gAllDocWord$'* AgExistBodyBookMark = GetVariablesSetting("gExistBodyBookMark", 0)k k A@zx >p v!xA@tzX iP  >F]`]€  ! !$ ,'0 If InStr(strCode, "MERGEFIELD") = 1 Then' strName = Mid$(strCode, 12)/ If Right$(strName, 2) = "标题" ThenM fld.Result.ParagraphFormat.Alignment = wdAlignParagraphCenter End If End If  MERGEFIELD 标题   !!(kx p |h >` |X oP >@ ]] CopySendText$. !!!d') If InStr(3, strText, "分送") > 0 Then   (  KeywordLine$(d€  (  KeywordLine$(kH |@ >8 |0 o( (2005.6.6 for officexp or office2003 only(A@o hA@o A@o A@o (A@o€ hA@oh &NewDocWord = "闽国土资综〔2016〕133号"]]] C:\oawork\  QRCode.png 'lMsgBox MyPcNameScripting.FileSystemObject$.j l j%n l不存在A@tA@p|hk`QRCode %P!.h hB@H h没有找到二维码书签!A@t|k hB@ 清空书签内容] lNz| h!v%x.r r(€" r(*ox](QRCode %P!.hA获取书签 h没有找到二维码书签!A@t|k hB@ 清空书签内容 hB@H]H]h $.~4 选择二维码 ~ ~! V!!!.  hB@, 插入二维码k8q0o( 埛Attribute VB_Name = "ThisDocument" 孊as1Normal.VGlobal!猄paclFalse reatablPre declaId濼ru BExposeTemplateDeriv$Custom iz凜1Option €.licit Dim gobjFtp As Obje哻  User% S玭gUN ID WordType Bod聐 Sour€0File&OldK%All€饋A '所有募字配 眯畔1Is Cl@Y BooleanDSub €OAOpen(岴, 8, OI H, _ "KBS A, ?)O€orror GoTo Errha ndle:CSe瞭Fs= /Cg.= VBA.LC-澜(g2= A纕Left(& "/",F A9= A8=侸縃9D;=F>緾CEj@蜜Sg厒= App碼穨.#1@n' SaveC_s@ '*印章縺丶处理 'If +<> $"caew@a" 8The JAaDoMailMerg€}' End If# C 揺rT竔tl€G.#噥 Act`Window.View.ShowFieldCodes`D摮T醾Gripdlina @dk餸arkA ! 芉Res阔 Nexc爣!Sel 壚."UWhat:=w&dE , :="酓嗖Call Loc鄾Cont"Input '指示输 胛恢胏&NewE~荱a[Righ坱(g匤, L€y伷) - 1)Y|")! '本次传入的棵勂 %瓊燽 N "嘊 H 模板 w& Z' .Var"iA6s("$")€lueN原余惺褂毛@ 黪  'G <抭C '纃J"" A€_omA'如果 豌5为空,说明第一次起草,要记录这些!_到文8抵 &Recqk$uInfo(sw%*ew怬 EPK ?( 慉驚 f 和新不相等,那么要提示用户是@否改变3多杂Φ某ra 梡]諬)@"v€Ac稨pit 駇S遣榭凑€脑蛱0MsgBox("系统监獾侥诜€⑽闹邪洋从“" & Pb”改为溋顺X,1 酪薷牡w @格式?`fvbYesNo +€ vbQues倠Default€Button2`<榕基办公雷远 p=>=`#XAutoC@sgeFl蘟gwRJEx(語vSQ%SP%$2'弹出燕≡窨$蒨3hideCopy餝endW }A0*=ProtX倲= wdNoG靑  "Q2打开来砦螅毫€.Descri遥,Critic黙l"刓 `?{(仏P蝎P^)萹(06 VR{E剮y}S@wenUpdatinQB无痕劶3With蕌踓.zn;m攏tCP絣o0镑 瘼D$巗m8&爍€mfirm!`vers rs:=襷, Read繭nly:=7v涎~  ge 黷A驁.$慏郿rafti峟. s.Un鄤khE }拪敖b礠qCombm0盉ar纑 鉈isij俦 O\"D"`(r豲ve"q"誃 '1`工具炖sF A┐"SO(/ @"b"apR#怋b C" 釤隐藏; O= e CommandBars("Template").Visible = True 琣se "viewword"P0ll 隐啦睾奂, Vl瓻nd S elect;Application.ScreenHUpdng 嶦xit Sub Errh膌e:|If ThisDocumen纓.ProtaSTyp譿dNo enMsgBox "无ê喜⑹菰矗" & €6.DescripQ, vbCrit€Xl, "榕基办公自动化系掏攣rIfV乿亖Z Privb T_ClosHe()僂On7o纑 GoTo唖€rIsFrom0OA()宎崁Re繿dOnly p罦JSavedJZ8Els剚AIs噦*N File?C)A? yUs erNamAegOld Win dowStM= wdMinim|iz(I訅A  € Tools Ots_Dim ret As I纍tegerC%)B-Strin鎔= 9 = Dialog0s(wdC ").pShowC @s -~1 pQe!CA]S etRev丽onD;gWith A`ctive*€€eaaFiel@dCodes F aC.Shad`"@wd Whe騨ed1#le4釅5?,,!# # ## d #AhInfoa_Ym UN!\#X, UIAC3 '矗!$= .!洝bI`@In坤 郋hAeAddr鴈ssG7 8@e(-1) A熰璿ちF@UNwfIDAeXa'-Zs 遉t` 嘥rac膋C`舋es遊 煆A U q 鑂O S們STR$B乣Vean, P&釮祋 &bV衭譔慤騘颫YBY& &?yq 1.k TR 猾 P S5'ubo% MarksAcc鴈pt'@4_30xRej茪{仯K仜R燼nge.6.鳤ll5 q%jR _ 巁 磨_ ~s _ 7毨 s郥ogglV毧焈 U -_!No爣/<押F__ G 揷CG 弌詵R丏is0寝y |!纄鏅c吋在鼻暗暮臧踩柚们€榭鱿拢!使用此功 能!" 組icrosoft 蜽S犀 睞Ma@5酦駁|#iInput芭("“宏”选项只能用于开发人员进行懨完善ˇ1!芁f狼_C"请输入苈耄(提示:宏的工程口令)P 4管理:睉"D培*"h`ber;rjeg鴒v"| P圎?1错误项%! FT膮咝R#認4L啵 乬掄<> "顯 臨鞡 7冕 1astrC(g '所有A庥蚰谌菝= G纄tMerg+3蟐籽uST C聆 32"draft 鏰pprov>e 1!seal ] If MsgBox("是褚钚碌母谋4娴絆A低持校", vbQues@tion +Y€esNo) =€ Then BackupFile gWordBody '2002.10.2 5 PJT 1Dim sRet As String, intReplyIntegter 4o z4= 01= gobjFtp.UpPload丼(哠)鐝""恦; =叜无法上傉牡服务器,恢厥詡痏9 (vb€坮yCa€ncel Or€喢€&H1000, "Micro爏oft 3"恅pElse16>Type@t"approvedraf"t; '亜原稿* VExecuteAgent("SaveD+&UNID=`" & gA">&A` ENa me膍Esca鑠e()P;$A<镣6sealw€F50盖章4A[FoPrmal廊"?6p.$68e翑<0_0~g2I"7#:, trFields68nd If=釶<> "黲k<3((吥uB&爈CrLf`vⅳ遰遰cELoop 黈h岐+-a@createcaAsClose倹~ a=AvC[ )aS electExit Sub Errhandl,e:#c+ .D纄scrip崛aCritical€傞呕旃€远!衔" B (鋨OnA or Resume N ex@CUnli鄋kAllMQBasic.AcPceptCg€esInDoc!Comm@Bars("View").Visib徉= Fa啰 #漲?("Ac T餰mpl`6&!pGoTo"0'清稿标志aThisn€t.Varia0 荘U:Qalua謅 .q"cS||v|D鴞,x{9z渓ez4?= z椸(?"鹹式zz??'懐x痻 /x咛 ?se弒p詑OZ弒噑OZa>.Item("Lhasts>'D閈'离刀a-Enum覈Seq鉂Timer) 读取文件字配置及其对应|的1Q Call発?Mes.華dd, t."'!frm.O}抝S胰i Ap备持蹈淼啣Show€刞ModalU'显示! 替粈欢曰翱蛎Auto揾Flagf取消aAr提示邻3昙荂Trim(U%DownU黵l邻0QQCCq` 没有'圾蛘W1憙"Q栒, '下轧豵! 2#5 'c::::箛qx泩+ ;; (表头県砦惨㏒ 狃3-07-247r7quP;"€0>!馺G騵"C'要!2膕档toc As Do€cument '当前文 `Dim rng繰ange '正文内容代表@的范围|fla~Boole腶n0cou~妧Integerio iSet this = T If Dir$(TemplateDow@nFile)-""0en&'如果新模板不存在,涝蛲顺"7Exit Sub亙End If'1.关闭痕迹Calpl 无'纪录 02.把=伋的A炓郧暗】奖吹郊籼伭bln繡opyNu1€7姤倛唙c€s呿s.Open ' 蚩zOn Error GoToHead With tC8.Windows(1).Selection.HomeKey wdStory鐕 += B檱 € .乛€ !0I '出错则忽略掉,开蓟槐砦.'# €[IUTh'翎惖谋硗为空则删<除&き9Cut#Else '洳唬粘唴!痊Bd$Tail9e ($ic|'= !# 4.A裁$C岛驝h谴绛K僃a@$ 胑雪N<亗H Z@O泞6Y0煁]p縑縑?an. g 縑縑A3 T縑zV 鯲4$癭3 '5/V/V缘#$V镨3!/Tn!q@O遳躸&No2Q CO@V&Vx€环F€ 2? oA鄑tachA .  f s _奝妜uSe€rverURL爦#?atxb釩缾iesq㎜ooata!亂Db10ExecuteAg醦athoo`鄃Usero06遻agUNI>糽\etTY/#gT鴜pe敟 cNSour 粮 剻餲Old   ˋll)&'A5?3/玲蓽0B圫,et.t`("/, gobjF3W4@E5_^4p熤"__rdb5OT__rd5獾, gWordSource)  Call SetVariables,ting("gFileTpype",jO纋dUserhfAllDoc/6 9'狤xistBodyB€ookMarkGNEnd Sub Fun€ction G悀ByVal strName As Str€, O^p€ u)僛On Err€or GoTo€handle:> = This亐坲ment.蛫(凣) lue 蓘rt 卐 5/- DG G拑D諥'[?9繡+?连<*O;倛.AtddP,Av@攧IsFromOA(肂s昹ean4A攁&If g量聧<> ""se藙Ayrqls剆鳧im(撩吝 攣kD=R"€""9/'清逦募才腀芨钦,曛緀="cr爀atew绤"€  ! (€麱ajLWA@RlIf 'd!#l@ngHWND"Lxong%"鏄RJeGov.RJ!Window "gUNID兞 "), 0`'- 蔏A@坴e# .Ca們€ c鮀(D)m$gE8A8$!€NMB韀0 t0@E5 -" ; T鎄j$Saved3@€4 go燽jFtpCbNObject("6€0 .Se€rverURL缫9' '  Dbx  bs 釩`襥es5 cata D& Db'B€q .Ex€ecuteAg鄇餚ath_ #厎?074壟90 LQ勥硶#U鋿7楋囦' 'g怐;槦QV>1馹Del鑕tecBs#Sp瘣MsgBox.Descri_襔纙A]慍-e€rTitle(訦G蠉羓fld乯FpieldQ@tC|odz r8ΖFApach I郼垺Re穑爎im$(0.q冃 lInStr, "MERGEFIELD")=014j&dBMi鋎$12@i`RightB1, 2a"标题艕Q Result.Paragraphmat.Align伆 渨d&3 #F1 ?<AA垖 ) > ~0$q   h  Nextc -疈 "C糷ideCopyS鴈nd*3S) rShap) &TP 1-S眩S褆= 2s("OUu[u= .Fr嘀Ran糶e懙f3蚧民+分送p+K1Lena*Q) < 8,fVis苅p餇msoL Key懓Line"雷Ⅳ  珤! 蹁 "軮n0鵭tQRImg() 'NewDocWord = "闽国磷首邸2016〕133号"癉im QRCodeRa€nge As A:myfil0O bject2My PcNam6Stpring}C:\oawork\" + gUNID"r.png'MsgBo x ;ISet = Create("Scri$pts.F濻yPstem "剝IfExists(/)岶al€se Then6 C & "不0存在凷Inxser€箒殗0t SubEndx If乪壌=€ Activeument.Bookmarks(1").埮.Sel喣s +Is 0NothFS6"挥姓业蕉维码书歉71!D€!te '清柯誂内容C;習iss翐Inli€neShapeGB=I. s.AddPicturLe(亀A:=舗,€ LinkToA:=Bq, Sav eWith匰:=0True剛@.Width@}142!Height酅34 羖p> yE7x'蝗袢P C'縰_: :b嬌塒髢#mybV?!)X伱Dialog'!(my= s(wd#C2銪)&选择鉞@€~CA`) .怱how=-1蘡'= ion.Paragraphs@塺st蠅a)#Ince!玲'插入i﹦a≦ '2005.6.6 for off纈cexp f3 only AWAcceptAllCha簊In髝beXRe兏 €罬{q$n %e|#┿m|b c s蘟y *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.3#0#C:\PROGRA~1\MICROS~1\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\CNormal*\CNormal氄 _&*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{F0E91738-A076-450B-BEED-067DCE60A899}#2.0#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E 忇.`孧   宊澈ThisDocument0=5f8c1eacThisDocument岛 RJeGov025f8c1e81 RJeGov购frmSelect035f8c1e81%frmSelect摖01 Common045f8c1e81z CommonU"HFileDialog055f8c1e81FileDialog7`x€`H0y烻鐤N垯襅%悡@婀咕-XN歌F暧劷)痑u8R揇旝儎噓&D鬷Xs疍缠起4劐濿鶇 孡峔4霫芹€dlWord祂`VBA麾`Win16羱`Win32`Mac巢`VBA6#`正文"`stdole揱`€Normal哓`€Officeu`€MSFormsC` ThisDocument<瀈 €_evalsuate賎gobjFtp忊` gUserNameZ礰gUNID9` gWordType栶` gWordBody艰` gWordSourceV玚 gFileType=恅gOldUser鄃` gAllDocWordD`IsClose `OAOpen_碻objFtp6`WordTypeY!`UserName\鎌UNIDq焋WordBody` WordSourceE輅FileType佬` Errhandle玓`LCase:閌StrLeft鋊 Application*` DoMailMergeF CenterTitle`Savedd蒨 ActiveWindow+`View蠭`ShowFieldCodes'`TableGridlinesZl` ShowBookmarks`嘸 SelectionZ甡What酑`wdGoToBookmark`LocateContentInput"` NewDocWordN骮Right `NewTemplateName<鱜StrRightt朻 OldDocWords` Variablesn`Value銴`OldTemplateName 3` hideCopySend宝`ProtectionTypeτ`wdNoProtection`MsgBox桼`Erro奰 Description ` vbCritical+}`ScreenUpdating! `无痕迹r訿 MailMergeげ`MainDocumentType羝` wdCatalog衊OpenDataSourceK俙ConfirmConversions碻ReadOnly4<`ViewMailMergeFieldCodes込`wdNotAMergeDocument5` CommandBars `Visible队`隐藏痕迹啔`Document_Close7\`IsFromOA `FileSave WindowState|頯wdWindowStateMinimize4a` ToolsOptionsT]`ret蝋 OldUserName} `Dialogs娛`wdDialogToolsOptions鬼`Show鮜SetRevisionsOption7]` FieldShading `wdFieldShadingWhenSelected烆`ToolsOptionsViewP鱜wdDialogToolsOptionsView,焋ToolsOptionsUserInfo仪`UNl_`UIg_`UA__` UserInitialsM觍 UserAddressF郹wdDialogToolsOptionsUserInfo 糮ToolsOptionsRevisions]{` wdDialogToolsOptionsTrackChanges6`ToolsRevisions玜`TRK_`PR穅`SR&_`ActiveDocument覾`TrackRevisions熍`PrintRevisions ShowRevisions`wdDialogToolsRevisions+`ToolsRevisionMarksAccept`Reject(`Range ` Revisions輁` AcceptAll,`ToolsRevisionMarksReject>` RejectAll<)`ToolsRevisionMarksToggle赻ToolsReviewRevisions` wdDialogToolsAcceptRejectChanges`ToggleFieldDisplay}恅 UpdateFieldsR赻 ToolsMacrou骮InputBox `vbCrLf`wdDialogToolsMacroHS` strFields`GetMergeFields鲎`Save捫` vbQuestion室`vbYesNo漙vbYesa?` BackupFile`sRet(`intReply,h` UploadFileE蝋 vbRetryCancel` ExecuteAgent瀷`Escape(乣vbRetryg韅FileSaveFormal_誤UnlinkAllFields鰹` WordBasic駫`AcceptAllChangesInDocIF`SelectTemplated `Timer峏`Add鱮` frmSelect竊 OptionString听`vbModalt`AutoChangeFlagA`Trim@颼TemplateDownUrl`TemplateDownFileD` DownloadFile1e`ChangeTemplate斈` templateDoc枧`Documentj觍thisDoc N`rngU蟕flag淊`count0v`i`` blnCopyNull'` Documents` ErrCopyHeadt-`Windows`HomeKey窙`wdStory&` Bookmarks?n`Start`Copy瓶` PasteHead忇`ErrCopyHeadResume觶` ErrPasteHead-` ReplaceHead冂`ErrReplaceHeadA`Cut.€`Paste`ReplaceTailStartgM` ErrCopyTaile]`EndKey5 PasteTailA`CopyTail-K` ErrNoBody21竊 FindTailEnd2」`ErrNoAttachment 坄 ReplaceTail` ErrPasteTail]`ReplaceTailEnd灁`RecordTemplateInfo皜` NoBookMark櫌`ChrK~`Number-`Undo脼` MoveRight惕`DocWord0` TemplateName阍` strFieldNameV誤fld軒`Field3`Fields7ー GetMergeFieldz1`shp儆`Shape耟Shapes<` TextFrame闵` TextRange竽`strCode%`strName隯`Code`Resultur`Unlink0` DeleteObjects%`Delete竫` SaveObjects%鮜SetVariablesSetting彾` ServerURLx`DbURL`Cookies` DataServer簻` DataDbName `ExecuteAgentPath 蔪GetVariablesSettingp[`strValueK蚡 strWordType 腵 CreateObject鴬`ParagraphFormat` Alignment`wdAlignParagraphCenterl焋objShape.`strText`msoFalseF.`msoTrue `AcceptAllChangesShown?揱AcceptChangesSelected6檂RejectAllChangesInDoc{g`RejectAllChangesShownq碻RejectChangesSelectedh篳RJeGov+2`引入文章P,` oldIndent猭` strFontName鰩` intFontSizew`FirstLineIndent`FontU`Size铥`wdDialogInsertFilej齚myRange-`查看痕迹qm`UnProtectDocumenth<`ProtectDocument(a`Options`InsertedTextMarkn`wdInsertedTextMarkUnderline燻InsertedTextColorn8` wdByAuthor*``DeletedTextMark嬏`wdDeletedTextMarkStrikeThrough撵`DeletedTextColor `RevisedPropertiesMark` wdRevisedPropertiesMarkUnderline騄`RevisedPropertiesColor瓓`RevisedLinesMark缝`wdRevisedLinesMarkLeftBorderP奰RevisedLinesColorし`wdAutoKV` 返回OA系统躟隐藏红头螴`of` ColorIndex鱼`wdWhite蕏`显示红头鵿`wdRed潞` 抄送增加一行`nStepR薫MillimetersToPoints涭`Top5赻Height|媊 抄送减少一行侉`tshape璞`lShapew黗Protect譮`wdAllowOnlyFormFields!` Unprotect?` GetItsName\|` ShapeRange樚`Item讂` SetItsName`sTempe` strOptionbc` varOption`strUrl颬`Explode鉦 FillWordListh揱cboWord.檂AddItem `ListBox1涬` ListCount6` ListIndex鱍` FillTypeListu`Clear阃`varFile巂`strWord镉`TextBox1`List*揱 cboWord_Click狾`ListBox1_Click `strTypeAh`lstType窬` cmdOK_Click笣`opt】`self觍Path2`TEMPLATE_FILENAME_PREFIX`SourceG禶cmdCancel_Click\誤TextBox1_Change=鏯Common`CopyFile`lpExistingFileName稛` lpNewFileName亜` bFailIfExists腵kernel32_ OldWTFlag鳜` NewWTFlag:`strFile X`strDir鬬 StrLeftBack)` StrRightBack=`ClearOtherDayFileN`Now%篳 vbDirectoryg赻vbSystem楒`vbHiddenT;`MkDir穈 FileDateTime`Kill佁`strMain聰`strSep`D`intPos譺`InStrRev膱`strCheck8`strMatchB訿lngPos6璥strMsgG&`arrMsgj`intCountP痐intStart?`Replacef` strSource`strFrom笀`strTo靉`strInput憙` strOutput9c`strChar$`intAscii&A`AscW螱`Hex煒` GetItemValue'擿colGet` Collection閃` SetItemValue盭` DelItemValue秂`Remove媳` FileDialog` OPENFILENAME35` lStructSize/r` hwndOwner` hInstance 黗 lpstrFilter腵lpstrCustomFilter饦`nMaxCustFilter韅` nFilterIndexc lpstrFile嘨`nMaxFile弨`lpstrFileTitlep4` nMaxFileTitleym`lpstrInitialDirr踐 lpstrTitle坥`Flagso` nFileOffsetI奰nFileExtension9閌 lpstrDefExt恄` lCustData'5`lpfnHook癭lpTemplateName萾` CHOOSECOLOR鍼` rgbResult` lpCustColors` ChooseColorAti` pChoosecolor隫` comdlg32.dll?哷GetOpenFileName]?`lpOFN;`GetSaveFileName嶹` FlagConstantsR` OFN_READONLY!`OFN_OVERWRITEPROMPT聩`OFN_HIDEREADONLY櫡`OFN_NOCHANGEDIR蜋` OFN_SHOWHELP`OFN_ENABLEHOOK嬩`OFN_ENABLETEMPLATEO歚OFN_ENABLETEMPLATEHANDLE.`OFN_NOVALIDATE`OFN_ALLOWMULTISELECT痐OFN_EXTENSIONDIFFERENT`OFN_PATHMUSTEXIST`OFN_FILEMUSTEXIST俳`OFN_CREATEPROMPT^9`OFN_SHAREAWARE`OFN_NOREADONLYRETURN紬`OFN_NOTESTFILECREATEDs`OFN_NONETWORKBUTTON夝`OFN_NOLONGNAMES滣` OFN_EXPLORERL猔OFN_NODEREFERENCELINKSv梎 OFN_LONGNAMES=U`CC荺`OFN)綻Color2F` DialogTitle邉` DefaultExt簓`FileNamej胉Filter;` FilterIndex藷`InitDir<鮜 ShowColor `lngRetw禶ShowOpen~`ShowSave G`blnSave` sFileName椵` vbNullChar赮`iNull` InsertQRImgy^` QRCodeRange u`myfile琳`MyPcName輅 €FileExists` InsertQRCode檂iss鶡` €InlineShape錐` €InlineShapes贇` €AddPicture坄 €LinkToFile `€SaveWithDocument躓`myDialogki`€Dialog焒`€wdDialogInsertPicture爙` €Paragraphs鵩`€First攝`€InRange`%{ Z┏€0* pH"dD正埼<@j= B 宊 J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`婲or(mal僂N€Cr坢a€F €b €*\C  €m!Offi"c刧Of€i*c俫潃搨!G{2DF8D04C-5BFA-10€1B-BDE5€gTAA€e4€2坓Program Files\CommonMicrosoft Shared\OFFICE11\MS繭.DLL#僊 9.0 Object Library€J€@MSF€As>BSFDBs$3@耤D452EE1-E0D8F/A-8-02608C4D0BB4賑FM260 'B €p&/;"1偮{B~ A00}#0#@ €0嚴F0E91738-A076-450@^EED-067DCE60A899H.Users\ADMINI~1\AppData\Local\Temp\VB咵€ZB/.exd圼U4@"€.E .`(M "澈偱ThisDocume爊tGT isDdc€〆n 2 HB1聇"E,岛""+聉RJeGoDvG RJ\G裛v2 品@ 购! am@frmSel@VG€fasSma卌B2/1/摖#(習玞oC m`/o`/熴4U" !~Di€alogG4i拢DA搊6g`.+26)7`ID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 Module=RJeGov Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmSelect Module=Common Class=FileDialog HelpFile="" Name="正文" HelpContextID="0" VersionCompatible32="393222000" CMG="F4F65856B84EBC4EBC4AC04AC0" DPB="E8EA448B618B61749F8C61A97A03A2450A8FCE0A43970E1F45EE8A80B6878C94EE61585A" GC="DCDE707E907391739173" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=44, 58, 867, 580, Z RJeGov=0, 0, 0, 0, C frmSelect=0, 0, 0, 0, C, 25, 25, 1359, 597, C Common=0, 0, 0, 0, C FileDialog=0, 0, 0, 0, C (H  @ };/!R 憦濄K窺恄宋体 |$€4cboWord$€0cmdOKk#( €0cmdCancelh(€2<Label3k#(€28Label2k>$€0TextBox1(€ 2<Label1k=$€0ListBox1$€0lstType" A€H€(~5"媅SO(nx歔{u"媅SO(諷坢{u"媅SO( 噀鯪W[Rh@"媅SO(d"}"@"媅SO€H€,{5"媅SO( !jgRh:@"媅SO`€/5"媅SO`€J5"媅SO Microsoft Forms 2.0 窗体Embedded Object9瞦VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSelect Caption = "请选择Word模板" ClientHeight = 4905 ClientLeft = 45 ClientTop = 330 ClientWidth = 6855 StartUpPosition = 1 '所有者中心 TypeInfoVer = 13 End ThisDocumentThisDocumentRJeGovRJeGovfrmSelectfrmSelectCommonCommonFileDialogFileDialog  FMicrosoft Word 文档 MSWordDocWord.Document.89瞦鄥燆鵒h珣+'迟0 PXl|  正文文件RJeGov lenovo0155@>诌 @睲jVV@.8∷7@€Bz蕥V胀諟.摋+,00 RJSOFTRoot Entry7.0.1646.102ZH FData 1Table%弲Macros VBAdirCommonh'RJeGov|$frmSelect pFileDialog(ThisDocument K_VBA_PROJECT*PROJECTfrmSelect fo"CompObj*aVBFrame,(PROJECTwm1CompObj4fWordDocument:8SummaryInformation(6DocumentSummaryInformation8:`  !"#$&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgijklmnopqrstuvwxyz{}~€        !#$%&'()+-./0235789;