邢唷>
/1.B欹q` 餜tbjbjqPqP? ::( 84
P
R,x
x
"
u & 8$~hJ! u u
~
8 8
l
鄍j虋彝 ||T"0R0 p0 0 $ " hX R $ $
Ym_lw愋彄弲S濺lQ噀鯪
Ym濺020120246鱏
l徰S愋彄忚悶RlQ匰sQ嶯蹚Nek燫:_ Y魰絜錧(嵪憠[hQt錧\O剉愬w
T^愋彄廆\訷 0INLN^愋彄廆\ VtQ0 俼\0餝轢^/n* @\
00皊\
0愋彄忚悶RlQ匰sQ嶯蹚Nek燫:_ Y魰絜錧(嵪憠[hQt錧\O剉愬w 0匰(嵮vW[020120183鱏 l徰S賬`O霳 鲖觺T錘 N亯Bl Nv^/峽_=劄[0
N0褃f[Tt0W膥莮孴塠抍 Y魰絜錧0T絜錧USMO亯cknxYt}Y篘:g檈0錧zN緥Y0NNNOS\OI{T蛓踳,6R歔%N芠剉絜錧R,褃f[0W膥莮孴c黐絜錧,鷁藌o倉Y剉絜錧閥廭,ZW砆\g輣郪絜錧膥莮
NS_ b剉 Y魰騰顅絜錧孴v嶅]皊a寗v裇 u0
孨0鷁藌ePhQ Y魰絜錧t6R孴軴湒猚絜0nx瀃梺 Y魰迯韣絜錧剉錧 z T絜錧USMO亯觺T錧 z鷁緥瀃E 鷁藌孾刄 Y魰絜錧剉Ty槨[yb0Y孴纇錱I{t6R v^燫'Y塠hQ u昩eQ nx軴 Y魰絜錧ag鯪孴塠hQ軴湒猚絜=劄[0RMO0
N0燫:_ Y魰絜錧皊:W塠hQ纇錱0T錧 z耂鷁USMO亯觺T貧 恖Q飴eh乭孴S愬] z絜錧剺2朚WLX:N蛻筽剉悥抍錱Ny樆lt錘蔛 Sb^椈l輳 I{Ny楲埁R 燫:_ Y魰絜錧塠hQ纇錱 ZP}Y塠hQ纇錱皨U_ 鵞纇錱裇皊剉絜錧塠hQ悥 亯蔛鰁蹚L坱e9e坢d0
0 $@BFf h l D
H | 栌绩湏媶{唗dt[Md[M[E[E[Ethu@OJaJ hu@B*OJaJ o(phhu@OJaJ o( hu@B*OJQJaJ o(ph
hu@OJo(hu@CJ,OJPJo( hu@5hu@EHOJhu@EHOJo(hu@5丅*OJph&hu@B*CJPEHKHPJRHP\乸hbC-hu@B*CJPEHKHOJPJRHU\乷(phbC)hu@B*CJPEHKHPJRHU\乷(phbC-hu@5丂圔B*CJjEH KHPJRHZo(ph "$BDFh D
刾WD`刾凟WD`凟則WD`則`$da$$a$$d箭&dPbCa$
$劻d UD]劻a$$d a$$匌d佞@&UD]匌a$$ d@&VD
^ a$ $d@&a$"r ,24JLNT "$(*.046:<HJLPRTVbdfhjl耋赉账亢蠖后懂獱殸毝拤}拀p}墥hQ KCJ KHmHnHujhu@CJ KHUhu@CJ KHo(hu@CJ KH
hu@0Jjhu@0JUh,-~jh,-~Uhu@ hu@o(hu@B*OJo(phhu@B*OJphhu@B*OJPJo(ph hu@5乷(
hu@PJo(U
hu@OJo(
hu@OJ) &(*,N "&(,.248:$:$d&dNPWDd`:a$
$:WDd`:a$
$&dPa$ $勳dD]勳a$
0
孨%N孨t^]NgASN錯00
00
;N槝蛬l徰S0錧 z0塠hQ0愬w
刡wlQ飴@\0/n*侤\ T^(嵮v賨@\ 0INLN^(嵮v賨 w錧茤釼lQ鳶 T貧 恖Q飴0蛻筽4l袕錧 z鷁緥c%c钀0
Ym_lw愋彄弲S濺lQ 2012t^9g17錯pS裇
PAGE
- PAGE 1-
:LNPnprt$a$匋&`#$lnprt蝣h,-~hu@
hu@CJ = 0&P 0p1怷2P 皞. 捌A!4"胞#惲$%癝 惄J@J ck噀 $1$a$ CJ KHPJ_HmH nHsH tH$A@$ 貫祂=刉[SOFi@F nf恏C@"> ck噀噀,g)蹚剠d箭`剠CJ PJ8Y28 噀ch觺刧-D M
€ !"#DEj"'l0€I0€I0€I0€I0€I0€I0€I0€I0€I0€I0€I0€I0€€€€€0€€0€€0€€0€€0€€0€€0€€0€€0€€€€€€0€€I001I00I001I00I001I00I001I00I001I001I001怈0€€I00I00K0 '''* lt
:t
r "*!!晙8@ €€€饞0(
養
S ?TitleLineDATE阔<�L
莲<�錂
;*€urn:schemas-microsoft-com:office:smarttags€chsdate€ 霢
€17€2012€9€Day€False €IsLunarDate €IsROCDate€Month€Year #CEil!"%']lwefs33Q K,-~u@E V?? V?? V?? V?? V?? V?? V?? V?? V?? V ?? V
?? Project.ThisDocument.HJProject.ThisDocument.zwxdProject.ThisDocument.LClose"Project.ThisDocument.ShowAllButton Project.ThisDocument.cleanHj!Project.ThisDocument.LSaveNoClose Project.ThisDocument.exitwordProject.ThisDocument.qgaoProject.ThisDocument.LPrint Project.ThisDocument.LprintHJProject.ThisDocument.ZLCW PROJECT.THISDOCUMENT.HJPROJECT.THISDOCUMENT.QGAOPROJECT.THISDOCUMENT.ZLCWPROJECT.THISDOCUMENT.ZWXDPROJECT.THISDOCUMENT.LCLOSEPROJECT.THISDOCUMENT.LPRINT PROJECT.THISDOCUMENT.CLEANHJ PROJECT.THISDOCUMENT.EXITWORD PROJECT.THISDOCUMENT.LPRINTHJ !PROJECT.THISDOCUMENT.LSAVENOCLOSE
"PROJECT.THISDOCUMENT.SHOWALLBUTTON@#D|練 ## PPUnknown G噝 €Times New Roman5€Symbol3& 噝 €Arial7E 筫ck\h媅€{SO;5 噀\h媅€{媅SO;5 N媅_GB2312M??Times New Roman;褳SOSimHei;媅SOSimSun 1hq* gq* g崐 'b/b/!-!),.:;?]} & 6"0000 0 0
00000 =@\]^([{ 0
0 00000;[4,個dy 12僸哌HP?u@2Ym( NL)H栮栦Q;N鸑褃XTXo#k#k鄥燆鵒h珣+'迟0
< H T
`lt| 浙交(下行) 陈雪凤主任科员 Normal 潘欣欣 2 Microsoft Office Word@@拚鮵斖@)矈彝@)矈彝b/胀諟.摋+,0
X`px€ inrun
!"#$%'()*+,-034A56789:;<�=>?@DEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€Root Entry F郣o虋彝2@ 1Table0 WordDocument? SummaryInformation( DocumentSummaryInformation8&Macros鄍j虋彝鄍j虋彝VBA鄍j虋彝鄍j虋彝dir
!"#$%&')*+,-.0123456789:;<�=>?@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]^_`abcdefghijklmnoqrstux瓯€0* pHd ProjectQ(@=
l €黁 J<
rstdole>stdoleP
h%^*\G{00020430-C
0046}#2.0#0#C:\WINDOWS\system32\STDOLE@2.TLB# Automati on`僂Nor(mal僂N€Cr坢a€F €b €*\C
€m!Offi"c刧Of€i*c俫弨 厒!G{2DF8D04C-5BFA-10€1B-BDE5€g訟A€e4€2坓€gram Files\Micro爏oft 6\MSO9.DLL#
9.0 Ob Libra,ry€C傢"v0俛ThisDocume爊tG Tc isDEc€Eenk 2 HB1倕n BE,!M"B+BB__SRP_0
__SRP_1(__SRP_2 / __SRP_3VS揔*y *\CNormalrU€€€€~~~~~~l %
弳ｔ鮊囱!朡骝 儕a 1
!9Qq !9Y ! I i y
Yii 婰_?屫x6T|qProject ThisDocument ZLdoc.doc newdoc.doc XDdoc.docF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA
I` F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord
Qp0F strToList C:\WINDOWS\system32\STDOLE2.TLBstdole
Q€L续-鶾藉D轗
1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice
Yk F8 2瑤hK櫕O闪e髌2r鱚諰讽郝gw4帴c˙K拫~N蒈j
FDocumentHJLClose LSaveNoCloseexitwordqgaoLPrintLprintHJZLCWnewdocHanDatedownloadTemplet
ShowAllButtonSaveHJiniNoteHasFieldDocument_Close
Document_Open getRedRangestrleftstrRight strleftBack strRightBack
replacestrmin listTostrNumTocharacterhjSubexistCommandBarzwxdcleanHj
00 4DTdt-rU€€€€~~{
ii idoc1doc2adatename SourceStr strRTItem FieldNameDocStartPoscolorstmpstrsubstrfromStrToStrN1N2n3strlist dividekeynftflagfield*rU€€€ 0 A ia``Q _WWW _ _ __ _ 0 P 0 0 0 0 P 0 0 0 H 0 0 X 0 0 X 0 0 0 h 0 0 p 0 0 0 0 0
0
0 p 0 0 0 p
0 ( 0 8 0 0 8 0
grU€€€ $` $A` $` $` $` $A` $` $` 8` ==,A ` ,0,
` 00$ ` , ` //,I
`! 0/(` #8` Aa /=#$ ` $I` 0` q //&0` 0000 ` 0000I` 0000` 0000` 0008 ` ) ////0I` 9Q /000` q ///,` 00, ` 0#$I ` $ ` nThisDocument
C5_VBA_PROJECTmPROJECTpvPROJECTwmv)Nh v0M8 2瑤hK櫕O闪e髌2r鱚諰讽郝gw4帴c˙K拫~N蒈jx4帴c˙K拫~N蒈j8 2瑤hK櫕O闪eME PS"SS"
€ >0
p
x
€ B
"
N
@ H 4P , . P X ` .€
(
€8
@
H
$h
,
"
*8 HP,X0
( 0H€ P,` R€ ( Hhpx€ B" PHX
08@HPX€ `x
:8x€
€€0(((P` p
€"$(8$`.((€ >(H€ >p€ B"
N px €D 8€@
H€X€ 8`€ 0€ 6(€ 0 8 HX€ .`€ (€ € € € € ,0`€ h€
("@h"€" 0 H
P ` p €x € € <� "
$0
X h p € € *
6
P
` p
(
8
H
X
h x
€
( 8 P X x $ 4!&8! `!p!x!€!! !! !
!!
!" " 0" P"0p""""€ " " #
#0#
8#X#`#p#####€ # #$€ $0$TH$$T$%T(%€%%%%%€%>%& &€ <�(&B & h&&&&&€ &&&''(',8'h'€ Pp'€ N'B (
(N((x(€(€ "( (<�() ) 8)"X)L€))),*0*8*TH*** *:*+0+€ H+ `+p+&€+€ R+,€ &,€ P8,,,,€ <�," ,&, -8-@-€ <�H-B -€--------..0.H.$X. €.......€ 8.B /€ (/8/
@/NP////B/00€ 808P0(0 X0 111 1€ €(1
01 @1`1x1
€11€ 1111
1B1€@2H2
`2
p2 €2 2 2"2 2
2 3(3 H3"P3 x3
€3 33 3"3 4
4 484 X4 `4€4 4 4 4 4 445 05
85 H5h5 5 5 5 555
55€ 6:6 X6x6€ (66 6 6 6 "7 07 @7 P7 `7
p7€7 7
7 7777 7 7
8€ 08@8 X8 h8 x8
8€ 0888€ 889 909H9`9h9
€999949€ 8940:€ 8h:2::€ 4: ;
0;@;`;4h;;
;;;;;€ D;B @<�H<�&P<�*x<�<�<�<�<�<�=4=&H= p== ===€ 8=B > >(> @>P>X> `>h>p>€ 8x>" >
>2>€ 4?"8?
`?
p?
€??€ 4?X?
<� @`@h@p@€
x@園€ " 怈楡燖€ $癅谸€ $郂AA 0A HAPAXA"`A
圓楢癆繟谹 餉B€
(B8BPBhB€B 楤˙€
繠蠦鐱鳥C(C@C€
XChC€C燙癈 菴鐲€
鳦D D0DHD `D€D€
楧―繢谼餌 E(E€
@EPEhE€E怑‥繣€ € .谽F F8FHF`FxF怓楩z窮 8G@GHGPG€XG`GhG€ 8pGB ℅癎.窯
鐶鳪HH€ (HB @HHH XHhH€H圚怘楬B 燞℉ 窰菻鐷餒鳫IB II (I8IPIXI`IhIB pIxI 怚營繧菼蠭豂" 郔鐸JJ((JPJhJpJB xJ€J圝0燡0蠮KB K K K(K0K€8K@K XK
hKxK
€K燢↘癒窴B 繩€ P菿€L(L8LHLXLhLxL圠楲↙窵€萀豅鐻鳯MM(M8MHMXMhM€xM圡楳∕窶€萂豈鐼鳰N€N(N8N€
HN€XN`NhN pN€N 圢楴 燦癗窷繬 萅 豊鳱OO(O8O(@OhO xO極癘€
窸萇蠴豋 餙 鳲 P P0P @P€ (HPpP 圥燩癙蠵豍鳳 Q&Q 0Q 8QXQxQ €Q圦怮楺 癚 窺 蠶郠餛 R€ (R0R HR`RpR怰楻窻 繰&萊 餜 鳵S8S @SHSPSXS`S€ >hS" ⊿*繱餝T T 0T@TXThT€T怲═繲豑餞U U (UHU @`U燯 P║鳸V
V V(VB 0V8V@VPVhVpVxV€V圴€ ^怴" 餠鳹dW
hWNxW萕蠾 豔鳺DXPXXXpX€怷
榅€ &╔蠿郮€ 鳻Y
Y (YHYPY`Y€hY"pY榊燳€ € F╕" 餣鳼€
Z
NZ
`ZhZ€ €pZ
xZ圸€ 怹
榋
╖
竄
繸
萙
衂豘€ 郱餤[[
[0[€8[4@[x[€[€ € € € 怺G版本2.062 (2004-11-21)修改:按X时保存，成文后也可痕迹打印,防止成文弹出框 )-----------------------------------------] ZLdoc.doc(]
newdoc.docP"--------lilei 2012-3-14 add ------] XDdoc.doc"--------lilei 2012-3-14 end ------]x](]P]]x]]]]]駾
]保存修订痕迹标志位P 痕迹显示隐藏 6!8 :Ginrun 6B<j 6!@'> 6!BG掩藏痕迹 6!D!F 6(@ 6%D!HBJ > 6(@kd 6!D!F 6!8 :Ginrun 6B<j 6(@ 6%D!HBH L!N(P T L!N(R修改记录 LB@V LB@X L!N(P st_update主送AZ CT_update抄送AZ TT_update标题AZ
KWD_update主题词AZ 6%D!HBH@定位光标 LB\ > 6(@kk 6!B 6(B 6!D!F
`inrun 6B^ko;-----------------------------------------------------------
保存关闭0--------------------lilei 2012-3-15-------------'If SaveHJ("Body") = False Then Exit Sub 6! XDBody$dG|jdBody$dG|jkx4--------------------lilei 2012-3-15 end-------------'0 6.& j f(hLotus$lB@J &BBo;-----------------------------------------------------------保存0--------------------lilei 2012-3-15-------------'If SaveHJ("Body") = False Then Exit Sub 6! XDBody$dG|jdBody$dG|jk4--------------------lilei 2012-3-15 end-------------ox;-----------------------------------------------------------退出 6!r,您真要放弃所做的修改，并退出正文编辑状态吗 ？!$t v 6.&Lotus$lB@J j f(h &BBkxdp 6.& j f(h &B@Bk8o0;-----------------------------------------------------------P 清稿 6!8 :Ginrun 6B@<j 6(BA4,修改支持Office2007及以后版本的情况 2011-8-15 |!~.$zX
6!8 :7----------lilei 2012-3-14 add--------------------------inrun 6B@<7----------lilei 2012-3-14 end--------------------------k 6B€op;----------------------------------------------------------- 8由于当前Notes文档不是您所办理的文档 ，请重新切换Notes文档 提示A@t|kzlcw &%#1 6! 是否要套打第一页？ 选择$t' G|j 6!8 :inrun 6B<kTitle 6!%#模板中找不到标记 抬头，请手工修复 。A@t|kLine 6!%#模板中找不到标记 红线 ，请手工修复 。A@t|Hk@ Title LB@ L!N!' L! $' L! 6%H. !N(R].Title1 6!% !Title1 6%! Title1 6%! 6%H. !N(Rk(d !Line 6%! Line 6%! 6%H. !N(Rkk Line 6%!H!%(Rp请输入要打印的份数 ？份数1$' $ X'd'k H 6B@d 6B@k !N( Line 6%!H!%( G !N(RjdH&当前文档还没有整理成文 ，您是否要打印 ？ 提示$t vG 6B@jk| 打印错误
打印机出错ZLOAA@td错误 ： A@tkho`;----------------------------------------------------------- 打印痕迹底稿保存返回Lotus$l%!保存返回Lotus$l%!7打印痕迹前必须保存，否则您的修改会丢失，您是否保存数据? $t KTBody$dG|j KT|(n k 6.& 6BH 6!8 :inrun 6B<k
69@9B9q
6!D!F 6%D!HBH修改记录 LB@V LB@X ST_update主送AZ CT_update抄送AZ TT_update标题AZ
KWD_update主题词AZwjxl 6$G wjxl_update文件类型AZjk€ 6BH L%. ]0 ! !Zyyyy-mm-dd hh:mm$ 'd( d 'd !lG d删除) 'dj !lG d增加) 'dj L!N( d LB |!~X G B@j L%.P `inrun 6B^ 6B !
G !A@tj保存Lotus$l%(保存返回Lotus$l%(打印Lotus$l%(
隐藏\显示痕迹Lotus$l%(整理成文Lotus$l%(打印底稿Lotus$l%(7--------------------lilie 2012-3-14 add----------------修订正文Lotus$l%(7--------------------lilie 2012-3-14 end----------------oH ;-----------------------------------------------------------H 8由于当前Notes文档不是您所办理的文档，请重新切换Notes文档 提示A@t|k€FWH &%#' 文件没有编号，真的要整理成文吗 ？$ZLOA$tG|jk整理成文 |(HJBody$dG|j'0] 6.]1-----------lilei 2012-3-14 modify---------------- $')FileName = downloadTemplet() '下载模板/-----------lilei 2012-3-14 end----------------- G|jAx 58 :inrunC<k'--------lilei 2012-3-14 modify---------"--------显示修订痕迹--------------9@9B9.TrackRevisions = True.ShowRevisions = True.PrintRevisions = True%---------lilei 2012-3-14 end---------q %D!H!N 仿宋_utf-89 仿宋_utf-8999Pq0 LB\inrun B^ LB@ LB@inrun B< F LB@ L!d$ F LB@P F LB@\ L(d F LB@\ %. A整理成文 |(A $B
B@B|€整理成文失败。 A@t|XoP6------------------------------------------------------ Lotus$l! !退出K保存返回K打印KT (S (nxp 6!8 :Ginrun 6B@<j LB@ LB@J (@ (B %D!HBH LB\$去除分节符和最后一个断行符 LB BH LB@ LB ： LB@V LBX %D!HBH LB\ LB BH LB@ LB LBX LBX LBX LBX %D!HBH LB\ L!d
LB BH LB@ LB k !" B@H !$ LB@V FJNAME !%FJNAMES &%'&'( * & *$&' , ,正文] ,附件] ( '(附件 ($. ： ,]$0 ' , ,.G ,.$2' ,j 4 ,' 4d€ 4
$6 , ' 4kX kP H FJNAME LB@ LBX 4 LBV LBXk DATE !% DATE LB@DATE1 !% L!DATE1 6%! %HB@HdX LBk8 选中落款日期lwrq &%#'8 8 >$<':!汉字日期d 8X $<':)汉字日期k : LBV LB@ D L!(B LB LB@Vk8 Print !% Print LB@ L%F!HB@H L!d'H H※年'J J
G H J $ >$LX 年 H J $ 'Hj H※月'J J
G H J $ >$NX 月 H J $ 'Hj H※日'J J
G H J $ >$PX 日 H J $ 'Hj H H $'H H LBVkH f!R(T|0(
ZLCW错误： || V( )A@t|o6------------------------------------------------------X*日期转化成汉字日期的函数。 X$LX 'Z X$NX '\ X$PX '^'` * Z Z *$'b ` b$. '` \$.'d ^$.'f `年 d 月 f 日 '<iJ------------------lilei 2012-3-14 修改------------------------------------H------------------lilei 增加入参 文件名--------------------------------- 8由于当前Notes文档不是您所办理的文档 ，请重新切换Notes文档 提示A@tz€kx现得到代码库,再得到正文模板 "!j'h "!n "!n\ $ \code.nsf 'l h l %r.pwjlx &%#'twjxl &%#'visupdoc &%#'xwjlx=" t
" & wjxl=" v
" & IsUpDoc=" x " ' z z p%~.| |!F!发文格式模板找不到,请联系管理员 。A@tz |!F
eJ发文格式模板找到多篇，整理成文操作将继续进行，请提醒管理员删除多余的模板。A@tkX |!.€lx_id €%#' "!n "!n\ $\zw.nsf ' h %r. %.Body %. !'&$&. Directory %\ ',L------------------lilei 2012-3-14 modify------------------------------------ , ' FileName = NotesPath + FILEZLDOCI------------------lilei 2012-3-14 end------------------------------------ B 'iX6------------------------------------------------------X *Lotus$l!!F *Lotus$l%(o6------------------------------------------------------]h +'* '_0 $ ' $' $ ' $' Gxj *酅 $ $ *+ $ $' * '*H *酅 *+ 'i2--------------------------------------------------
关闭并保存'd 8由于当前Notes文档不是您所办理的文档，请重新切换Notes文档 提示A@tzXkP &! (8当前的Notes文档不是你所办理的文档，请切换当前的Notes文档A@tzk |!整理成文 6!$ zldoc.doc |!修订正文 6!$ xddoc.doc 6!$ .$ .当前WORD文档（ 6!&）不是你所办理文件。您打开的文件应该是 .A@tzkkk]0 6. !1新文档 , B@d€ Bkh将数据传回到Notes文档中 !8 :inrun B@<k (Bzlcw &%#1 |!整理成文]P !" !BHKTBH %"!$ 号BH %"($d8
BH %"!$$ &(k
STKTST %"!$ ST %"($d ST %"!$$ &(k€ TTKTTT %"!$ TT %"($d( TT %"!$$ &(k CTKTCT %"!$ CT %"($d CT %"!$$'H H$ &(k` KWDKTKWD %"!$ KWD %"($d KWD %"!$'H H$ &(k
FSKTFS %"!$ FS %"($dp
FS %"!$$'H H$G HX &(jk(
n
$B
k
得到正文库文档 "!n "!n\ $\zw.nsf ' "!j %r. * %.Form %#ZW_doc HJBody !.ZW_doc ( B templetdocid ! B !'* ! &( !. B .dx !. . ! &(k@d8 HJBody !. B .*-------------lilei 2012-3-14 add---------- XDBodye !. B1 , .*-------------lilei 2012-3-14 end----------k(k ZW_doc (TT &% ( "!n ( &! ( % %.d %. B B %.k@ |!整理成文
G已成文 (lj1------------lilei 2012-3-14 add------------------ |!修订正文
G已修订 (j1------------lilei 2012-3-14 end------------------ !\ ! %. B |!整理成文
7如果已经正式成文1 &( $BMicrosoft Word |(k |!修订正文
7如果已经正式成文1 &( $BMicrosoft Word |(k'di>-------------得到Notes对象(8个)-------------------------------h'Notes.NotesSession$. Notes.notesuiworkspace$. !." "!jGzj !.$ $Gzj $!.& &GzjForm &%# RecDocumentGzj Directory %\ ', paredocid %'(mdocPath %'. templetdocid %'*'i 2--------------------------------------------------' &!" ! 'zki2--------------保存时不弹出对话框------------------p 0Lotus$ 6!$ zldoc.doc.----------lilei 2012-6-4---------------------- 6!$ $ 2XDBodyAd 6(|xkp.----------lilei 2012-6-4----------------------保存返回Lotus |%l%!保存返回Lotus |%l%!是否要保存到服务器?$$tGBodyAdjk?k?k? 6(op?`? G|j -------lilei 2012-6-4---------'2 -------lilei 2012-6-4--------- l !LotusLotus$l(|>k>>Lotus l%. ( !%.保存 ( LSaveNoClose ( (11 (
用磁盘图标 LSaveNoClose (--- !%.保存返回 (LClose ( (11 (LClose (--- !%.退出 (exitword ( (11 (ExitWord (--- !%.
隐藏\显示痕迹 (HJ ( (11 (
用磁盘图标HJ (--- !%.打印 (LPrint ( (11 ( 用打印机图标LPrint (--- !%.打印底稿 (LPrintHJ ( (11 (
用脚印图标LPrintHJ (--- !%.整理成文 (ZLCW ( (11 (图标LPrintHJ ((---lilei 2012-3-14 add 修订正文--------- !%.修订正文 (ZWXD ( (11 (图标LPrintHJ ('0 firstOpen &% firstOpen &%#0ParentSourceID &%#LinkZW &%#Ak8k8|88|8o82--------------获得同一颜色的区域------------------'
6%H!N! '8
'i7"---------------------------------- 4 'J J
4 J $'zdx7'zkh7i`70
4 'J J
4 J $'0d7'0k7i6
4 $'J J
4 J $'2d6'2k6i6p 4 $'J J
4 J $'d86'k(6i 6
'* * $ ' * $ ' '5o5 '
G 'j
G 'j
G 'ji4p
$"' z4k4] * *$ '4d€4 4 *$ '4kX4P4 4' i@4(I将一个数字转换成汉字11=十一等等，ftflag为大小写，为true则返回大写汉字数字]
○+一+二+三+四+五+六+七+八+九 +]
零+壹+贰+叁+肆+伍+陆+柒+捌+玖 +]8+&十+&百+&千+&]p+(拾+(佰+(仟+(]万+*亿+*开始] J','* J $$'.d`1$'.kH1z@1k81 ,
, ,
'. ,
', *酅0 . *+ * '*0 * ? *$'0 * $ *+ 0 * +H0转换'2 $ * '4 * '6 6
4 '4 6 '6/ *$1 6$(拾 2 6$( '2 *$0e * * $0ed(/ 2 *$$ '2k/d. 2 *$$ 6$( '2k. 6$( 4
2 4 $* '2'4kx.p.dh. * '4 * '6 6
4 '4 6 '6- *$1 6$&十 2 6$& '2 *$0e * * $0edh- 2 *$$ '2k@-d8- 2 *$$ 6$& '2k- 6$& 4
2 4 $* '2'4k,,k, 2'.i,7-------------------------------------------------------83 各个痕迹显示Notes.NotesUIWorkspace$. !!.& &%.8 8G|j 8!<':$:G|j
L!N( * : *$:' 4 4\$z' > 4\$0' 4 4\$z' @ 4\$0' 4 4\$z' B 4\$0' 4 4'D DG-空-'Dj B$ >在 @ 将 改为【 D 】 。 ' 4dX* >在 @ 将 【 B 】改为【 D 】 。 ' 4k* 4 LB@V LB@X)o)' F l F!Lotus'y)k€)x)ip)X-----------------------lilei 2012-3-14 add 修订正文-------------------------------------8)H您确信要对正式文件进行修改吗，保存后将生成一份新的痕迹底稿，请仔细确认！$$tG|j 8由于当前Notes文档不是您所办理的文档，请重新切换Notes文档 提示A@t|0(k((FWH &%#' 文件没有编号，真的要修订正文吗？$提示$tG|jk'修订正文 |(Body$dG|j]x 6. Directory %\ ', , ' B@修订正文 |(A $B
正式文件修订成功! A@t'2 B@B|&&正式文件修订失败 。 A@t|`&oX&@清除痕迹，群发会签的协办件清除会签之前的修订痕迹，主办件不处理。& 8由于当前Notes文档不是您所办理的文档 ，请重新切换Notes文档 提示A@t|%k%] 6.Ax 58 :inrunC<k@%9@9B9q %1 &(HBody$dG|j'0A $B
|$$清除痕迹失败： ( V)A@t|€$ox$p$Attribute VB_Name = "ThisDocument"
孊as1Normal.VGlobal!猄paclFalse reatabl Pre declaId濼ru
BExpose TemplateDeriv$Custom iz凜1'版2.062 (2004-11-21)修改:按X时保妫晌暮笠部珊奂４蛴,防止 弹出
'-%
Const FI€LEZLDOC壤ZLdoc.€€艫lENEWn ew5lilei 2012-3-14 add CC2lEXDXDenDim s As Va€riant
AwdbN uid椢€溛p亇ocC RS廓ngtAuet€,Notes0Path
he`WordFFOAsaA嚵Booleanzwx渄S@:D 'A~修订A|标 疚
ASub HJ() 'A显示隐
If Act罓胖.Pr@*€onType <> wdNoG Then C坅llMUnp("inrun")flag@屘TrackRevisi桿#Sho~w€乣#p'鹧诓蒯 #
!o Se s.Cou€nt >= 4
齡 膯GQ"
(4).Range.Delet縛呯"
'E€]鬒fE% @ @ @# *n詔.*S*c鄚 #燡.Fo@BolОCol€orIndex@.鄔dRedg.I
乥€Text ("a记录錦c AParagrapNh hj纖(€"st_upd ", "主送'bODCTH抄匶TI标题
KWD*题词w<52錩#0'定位光标 $ MoveLeft(1, 1DE?%8E33M : (:4I! !qgao!清皋錽 !苛n絩f |罜:6u远ions = T@rue
C@all HJ`'修改支持Office2007及以后版本的情况 2011-8-15dIf CInt(strleft(App licat.Vers, ".")) > 11 And ActiveDocument.ProteonType <> wdNoA Then-Alilei2-3-14 ad>d
=飳=Unp> ("inr衭n")'!
5攅n 5EsIf%睂;Accept€AllRevis
Sub
N
=
d
! pLPri蕛e裪niN瞼麱alseHT MsgBox "由 诘鼻
s牡挡皇悄炖淼腁，请重@新切换 ", vbOKOnly@z提示"亜P Exit 4€^圖@$@.GetItemValue("zlcw")(0)@)"1" Or
妌ame0ILEZLDOC1 retrn€3("是否要套打第@一页 ？B*YesNoCanc別l€+选择唡 &vb K2翍@
宼ūQ唖F
HPA Bookmarks.@^sts("T鄆tle"乀~a?模板中也坏奖昙@ 抬头=蕡止だ偞。: j;!Lin嚐@S红线GaibN'Sel#.GoTo Wha`t:=wde(,2 罬:=D(EZ c0olora╣Fo崰楥Red! = get`Range('Start,d % S鄀t myY霮/t#
g.Index wdWh it渚"Dim 釸
As ! d= @}hing鲉 OO1 O嚪D1籩A$<瓅哫.%_藑
2&$, ) G)D *A縸E牠& Dx(" @K礒 IB!z$
pH ParagraphFormat.BordP(wdBot鄑om).6-q On Err(or =Aco pyes$InputPo("请输入要打印的份数}rb"餬€hWI剆N@媟ic()^)%@r慹F !1'`Gi鄈0Out3=丮!Curr饢Page, Copipes:= ]3L v_I6/"胠0/"/"e>r*"_餖匫Is 誐Rd //Bla點k
* 囇揳还没有整理成文，溎1&T圤K&垷zQ擲 nt 缑!'xA:€/05140'Ap错误0
"q机出错 `.16皭ZLOA6~Res€. Ne= 4oqb`s(4).sSt
Selection.TypeText ("修改记录")楶ar@agraph 9僀$5AccepF饶 +nend'褍Prot累(wdAllowOnlyAe偊s, True€einrun兣bintOu(@擂:C 8Err.Number > 04MsgBox DescripA?ommandBars("Lotus")D.C-rol ４Enabxled€/bT_D8祷剡€/打 印_R隐藏\显示痕r整理8晌倪底$稿'-lilie 2012-3-14 add?/修订齱€K仦9€
R
丂 ZLCW(鉺 OnaS@擥oTo` erlj 燳i|ni@爜~釴耏C "由于鼻s文挡皇悄€炖淼!，请重新0切换`纕b OKAp@n提示力旹xit @1紽WH@``.GetItemVa lue("") (0InSt靣( X C("a拭挥编号 ，真的要O吗緻36`ZLOˋ")@7" 賗汣a€"fY*SaveHJ("繦JBody褊OAs?盜乤gCurdoc乬t慠= 玴dZL %p0eix0modify嬢$FPrNam"downloadTemplet(FILEZLDOZCc')s'下载模板蟼w91--B X""唓gao
"With #P.tbP伱Bv餴wdNoW0Bb.Unp鬳"*d H,
AU袳乁@.Track%峴囙'%Show磕╜pmE'O[)
.MP悞tIf
Y 1 `2祍(2).繰ange.岝 .+FarEast9仿宋_G B2312&H.n-" 枑6&xBol難 "噿MoveLeft(1, 12('(2/g)B 鄐pace*
Right Unit:=PwdCh`莄牆,` Coun0 E|xt€R贸T餽im(驙6叻s濿 恳
#
4 t恦 W= 昛s.Open(旿 newu(C ,焑nw 沞 i#{uid.refres汊$&Close~ 9蟇m!€#璄~О堋" &$bA/r{K[J_d1n,: 2韹ro0rlin0澜 Each cb I疱叨锥 5恇c渂.剕Ca "退出" 簉秬侭硺V噱嗷朜O Case E`lse
€(cb.Visibl纄 = Fl|End Sele腸t"NexIf ActiveDocumen@t.ProtPionType <@> wdNo* Then
4Unp6 ("inru8n")^tK.WholeStor*y D梩蒬oc2.Track圧ev蒾ns蓡a Show Call €1.S`s(1).R餫nge€唦LMoveLeft(1, 2, 1) '去除纸诜妥詈笠桓龆`闲蟹麄] C黲p僫 僎嚨4Key Unit0:=wd噮'Pans剣 臫€耗V
Para`graph)薈2餋< 8铱W€飳=茢@#2 G
6KG嘖€ IfbFor Each for€mfld Inai2.mFiel黡s@
$嘦%繰esultC們 #Bookmarks.Exists("FJN AME")€True
%tmpvar .GetItemValue
S腸jNumZ%`0E i To UBoun d(#
€ thisName$s(ia`I nStr(f, @"正文]O唕€'附件o¨
f+, 1n" " + Toch纞 cter(, jFA)"爡s€trRight鳡 .`偩I@
鷏牔B€氮
€
(s !*""9f .md
N %+ Chr(13 銉`ca芔€莌Go郍WhaG"箒匵, n G:=eX逇 paT麽"FPeP O61B6DAT/6P ooeRE=a1`$= = cFbz乭RStart,}啯禕("$.)蘃蟢" €x(5羱 (0'选中聙淇钊掌%plwrqAG"x)(0p. 0HancDa@te(Now@嚭负字.C祽)
?#e%T%@n.Ho 1
逭业蕉嗥沓晌牟僮鹘绦 小Z提醒c删除娥嘤嗟釶& W咵b5 ?First羆*umentCT郃9Id"(頓lx萠idH:zwZ*]鵮Zzw,Z Z銽/Abaoc醾byun m€筱 RT羅 醓""("BodyB" tmpv`= C.Embeddedobjec魌sG
o ib a|@sa Envi8rona.`aR("圖irory鄴pTrue脈銳? 續odify颈籆翈N岑 訞瑂,+ A'4FI€LEZLDOC鉕嵨end/ Call o.E靫t鎍($1 `*
Sub ShowAllButton(dFor i 鄔o CommandBars("€Lotus")燚纍trols3E3
(i).V鄆siblQ€ c鳱ex 9< y 鴚&ToList(SourceStrt
Dim @+l$ReI篚RE0)PV
0`Righ1U橪Do燫N10侷oTrim(E`), " u7q2'qn3S Mpmin(N wN2, n3D€Z 襖8 SPreB}6iP bir
Left$
, ~M鈢 L蘣nM)A
i爜1cLoop Wh0 $O
3 #T ?6_' )SavxeHJ眾cU''关闭并保 驙"無⒌祇 秪焴豽` `u.Unip爏alID @<> par cc渋d卢伂的騜溅a瑢6 +G- e ApplicaQ.Capq "u" A)€臠Ca琅ve.馻)zl0熀.0" `np修订q策"lxd n纓.Full駆 theWord補芭
!WORD饷"8 & "2莿q选Ｄ打开袂件余Ω檬茿鹁6t8%0P t葂cD0\Cur縫Q45睅= `.t妧秆峙 駔'新q'9嘬鍃:=噺+ €FIlENEW唭?Aah8'荽蓉到2中 唕袑馮ypea 鄔dNoPV7$Unp ("i皀run舃 €丷ev{ons℉ If Doc.GetItemValue("zlcw")(0) <> "1" And InStr(Application.Cap, "整理成文") = 0 Then
Dim 秔str ADs 奿ng+0No3[@KH╝si怋(vQ)<!S 5Rich癶裈0O①餏irs蛸亚恗0蚼ov枨!.T!ctJ a 縟H 怵q>!鮜Type! 已"鋝66&u(soa婈修订Q~o.黊Dat{(?.儖!Embed
EMBEDOBJECT(1454, "餴敜a匯凗"P4瞍 妐_鶼3&en '如果已经正式€成文
Doc.ZLCW@ = "1"\Call uid.Save,Application0.CaprMicrosoft Word孍nd IfvIf I nStr(@, "修订正") > 0 凾h 磟wxd\磯}HJ2Tru€!乬Funcz
'- 得到Notes对象`(8个)
B
% ini () As Booplean儦 €@Fals肧et s GetObj纄ct("">B.Sess"V)" wV nA-uiworkspa$ceI
dbs.currentd`ataba!@tdb.server @ ""CmExit GIA櫫 @ w餺cumC(Is /hing镖€ .@K`@
.@PItemValue("Form")(0)"Rec@C6[Path@ sAEnviron6str1("D膇r€hory纇亼@) + "\D萷€aredoci睪fthe貴鑙le m&F
纄mplet
!E`糬h_HasField(仮Name, /!a/蝏e 萣7 繣ach f 爫磲.:B s#M@.n aOJ!(C 恀D乮燦ext
箞-保存时坏龆曰翱*
Private Sub _Clos e(D~OAsa "zzl€H.`c%ālSi 2012-6-4!',€
= FIlEX餌DOC€A a縼d5"證("XD癇ody%Y5 鵦 = ;B;-'I:
J醘1s1.Control 酈返回").Visib@!5?1EnaMsgBox(€"是否要到服务器R? L36酫6r 鳉}j ?+/乂_Openu/On Error GoT黲 癠#
wL1~ ?,b '=~ c/CVJc瀊!J'8鳬
cb旾{9. '#!, ?0覫Q駔cbar1€QH.AdBd, 1,,B3dGR*93#麜-21)'dr$On1"on"L:NoOStyq3 '11p
F岻AP3 '用磁盘图谋牿Tag/矟# 9 Πq :6椇 _ _ .V 27 膝
&O
r1fCO
酕
退出恆:t盃d1019P#'t
5睦5
o (o 隐藏\显示簶奂/ !HJ
阆
279o `"4 7
d
)打,印O
A
L@{nt菑
521+浠?+ " 4 底稿O 驡 = o c `6鸾庞/ % _
?!_R整理Q霴 A 鸯oA6176`
棉8a3-14 add u隖~992饏OOZWXD/
?2-
挾cb.Tag = "LPrint@HJ"
O@Asaved菷alsePIf Doc.Hasitem("firstOpen") ThenJ|RGetIRValDue
\(0)0`" AndT *ParentSou€rceID")/<> "/Lin8kZW ' 揅all clean擧j‥?If Exit Su@b
edoq:焸
€('-
获得同一颜色的区 域&Function getRedRange(StartPos, colors) As I纍teger€< Add%0€While A'e€製m. (d +, 0)€.Font.CA?C @+ 1 end0蠈B 並E<
蘈OH--
Hstrleft(tmp亐$, subGSt€甮C"n丒|In€
C€ > 0尙€/LJ - 1)E坡鸄a "勍8亾:1餜igh1@ 112MidGA1+ 燣en(s侼)U4_BWd Back/.AW3Rev 4 3!
4C 4镡 @+=@t w馧F
|6$6_ 碨ub replatce@7(C G5, fromLTo?
凣胢& ) ;爈1iVS1$ap$, i :S2"'!\F)€i罍1?(b虂= 葾+ C + 6W鉁AzS崃min(N1, N2, n3D"€砓`tN1 b cN$▉2a郚2 <="Or#攧蘊2n3@!n3
t憀ipstTo1 0, dividek ey VIsE鄊pty(tf驪6 rs a 釙wDim p偙]QcFor =a3o€ UBoundP @ %-] 骲
p凢籠D+轼+ it P Next)OnNumTocharacter(n3tflag@'将一鍪肿怀珊鹤11=十一等 等，f为大小写 ，为true则蟹祷0胏 1N1(1悧9/in4sP銟○lq氁2敹3三R4四5蜫6六7)七8八e9九 2澾 8立阏3p壹 贰
2( 7驮 陆 鲡 lD(D Dd(1r 十c 癴S 千5Dz2 @C E识襦wanq Q溚蚰亿 '开始)M(綟3;d>>n縺>`#1湞: 6N2虭p${91櫭 /N B
Jq1qF-Q玖 / Q:*P
A啿Re$Preser鄓e M(XJ#Щ"U抭C#nVd((M)20t0.5G[pB- cCT'馧PW2卍 y! O A # ~ '慤W硬ASw~sp 郩> Pueu┮闫- 4聠焵
"1责2(矨"/b+?P娑€ews)
ElseIf M(i) = "0" Then 宨€UBoun0d(M)L +< 1+hlst r2l+ N2( 'End 0攰>€(-抍弫= 0 n孞Next {For Ho 嗁%G肅7{- i W hile D
> 3K羏E剰 - 4 Wen^dKKe1胏D驟t乭十U e
K邅UH壳E劭 0€泅1壳k!N$
羉縞=a$*/焎#k€E焎耺焎嘽萬NumTocharactLer@D
A塅@unctio牊'- 1
Private Sub hj(field As String, name) '各个痕迹显示肙Set ws€GetObject("", €"Notes.UIWorksp0ace"D！Docws.currentdocu:m. It,em`. Fi鴕stAD
€:hIs hB 0Exita va).value蝧€ (0吕胮1 Sel`@..Font.Size} 1睒
Dt磎p7$`
i(,A@leftv((\%&€R8igh!
tit
Close (矧6}6:r-愂О躳[ &9>$Q `<'宄6 ，群发会签的佬旒p之前0PBs餮不处理敗Ac!QHj2Ak At _:eZ:P3 熷 ::郃:, :3G0O,(,, !0qgaoTWi - 6006.Pr@璗y pe <> wdNoProtection Then
Cal@l .Unp("inrun") 楨nd If ".TrackRevis畇 = False
DShow!Print"vWithUDoc.firs tOpen|"1"If SaveHJ("Body")N倊 Ex@it SubOAsd€Tru脟`倠iniN瀱
uid.refres僉(erlj:MsgBox "清除奂ＪО埽" & ErrHor$"(l=)僟%亇俁
蘟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:\Program Files\Microsoft Office\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\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library
黁v0ThisDocument0352679ba7ThisDocumentMn w4^M宺P焃8`€$'Onametext Word祂` VBA麾`Win16羱`Win32`Mac巢`VBA6#` Project-甡stdole揱` Normal哓` Officeu` ThisDocument<瀈 €_evalsuate賎 FILEZLDOCG@`
FIlENEWDOC摿` FIlEXDDOC=颼sj`ws朹`db隲`uidま`Doc槃` paredocidM ` templetdocid` NotesPath ` theWordFile卓`OAsaved zwxdSaved/`HJ嘳`ActiveDocument覾`ProtectionTypeτ`wdNoProtection` Unprotect?`flag淊`TrackRevisions熍`
ShowRevisions`Sections忟`Count0v`Range `Delete竫` SelectionZ甡FontU`Bold凒`
ColorIndex鱼`wdRed潞`TypeText醍`
TypeParagraph `hjSub瀒`MoveLeftv揱Protect譮`wdAllowOnlyFormFields!`LClose?`SaveHJ`<` ActiveWindow+` WindowState|頯wdWindowStateMinimize4a` CommandBars
` LSaveNoClosej揱exitword*)`ReadOnly4<`MsgBox桼`vbOK%`qgao.b`strleft 鋊 Application*`Version∨`AcceptAllRevisionse癭LPrint)`iniNoteg廯vbOKOnly醪` GetItemValue'擿retrnGE`
vbYesNoCancel鑡`vbCancel'頯 Bookmarks?n`Exists僝`What酑`wdGoToBookmark`colorsHJ`Color2F`RedEnd 坄 getRedRangea漙Start`myRange-`wdWhite蕏`RRange蟕ParagraphFormat`BordersC"`wdBorderBottom`AX`copyes4`InputBox
` IsNumeric$*`copyeg\`vbYesa?`PrintOut.琡wdPrintCurrentPage1觍Copies?`wdBlack:黗
vbOKCancelx?`Erro奰LprintHJ稷`endall祃`Controls蘇`Visible队`Enabled郦`PrintRevisionsHasField&0`rev蝋 NextRevision$卄Author鼜`Size铥` InsertAfterq5`Accept* `Number-` Description `ZLCWHp`erljnZ`FWHR恅Captionx`Curdocz `Documentj觍ZLdocy鎌FileNamej胉downloadTemplets#` NameFarEastx踐
TypeBackspacea檂 MoveRight惕`Unit仧` wdCharacter徤`Extend?恅wdExtend譫`Trim@颼 Documents`newdoc+`refresh`doc1_僠doc2`僠 errorline9`cb芢`Flase祊`
WholeStory渗`Copy瓶`EndKey5wdStory&`Paste`formfld= `
FormFields-|`Resultur`tmpvar翎`fjNum+`i``thisName$,`NumTocharacterp璥strRightt朻 strleftBack)`tmpstrㄔ`ChrK~`lwrq囏`Hancwrq虐`HanDateT`Now%篳HomeKey窙` Alignment`wdAlignParagraphRight0`
Paragraphs鵩`tempstr歈`ne`Year6n`Month`Day`View蠭`TableGridlinesZl`Erli奰adate鑙`syear堖`smonth嵼`sdayぽ`hanyear€9`tmpn囌`hanmonthv廯HanDay` strserver@"`server崆`dmk_path鵣FilePath琌`dmk_db蔪 getdatabase筐`wjlx.P`wjxl轖`Isupdoc'`selstr`dc靄`Search瘧`dmk_doceJ`GetFirstDocument!` templetId(€`zw_path}$`zw_db-`zw_doc&耟getdocumentbyunid`RTItem?` GetFirstItemT韅Embeddedobjects `of`GetEnvironmentstring誉` ExtractFile`
ShowAllButton痬` strToList` SourceStr鰮`tmplist焢`tmpRight;砢N1L^`N2M^`n3N^`Md`min娉`Right
` strRTItem挌` UniversalID8`LCase:閌FullName袨`Path2`SaveAsf;`Save捫`field3`ST(_`TTM_`CT豛`KWD 玚FSID$`CreateDocumentH`Form`SetEnvironmentVar灞`linkzw "` zw_docnew^` MakeResponse跉`isxdwd#`ParentDB猫` parentDocID\`Hasitem `CreateRichTextItemy鈆Remove媳`XDType.`Embed拽` EMBEDOBJECT籪`zwxd龚` GetObjectz胉currentdatabase.`currentdocument` FieldName`Document_Close7\`existCommandBarJ`Savedd蒨
Document_Open翂`edopen+嘸cbar1`Add鱮`OnAction劆`Style舙`FaceId蔵`Tag&豟cleanHj
媊StartPosG腵substr緘`InStrRev膱` strRightBack=`
replacestrI媊fromStrq轥ToStr `S1_`S2_` listTostr痐strlistd鸴 dividekey覇`IsEmpty
鵣ftflago砢D[`D2踈`wan哜`tmp胭`tmp1j誤tempR猔str2G5`wanflagN'`truews?`Item讂`var汊`values `strname隯`strtime'`strold/`strnew)`cmd鰚` firstOpen-`T ID="{4CEE779E-BAC4-4284-AFC3-8080E59B2AC6}"
Document=ThisDocument/&H00000000
Name="Project"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="868495119D112715271527152715"
DPB="0C0E1FA7232C242C242C"
GC="9290812506260626F9"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=22, 22, 822, 470,
ThisDocumentThisDocument
FMicrosoft Office Word 文档
MCompObjwmSWordDocWord.Document.89瞦