邢唷 > / 1 . B 欹 q` 餜 t bjbjqPqP ? : : ( 8 4
P
R , x
x
"
u & 8 $ ~ h J ! u u
~
8 8
l
鄍j虋彝 | | T " 0 R 0 p 0 0 $ " h X R $ $
Ym_lw愋彄弲S濺lQ噀鯪
Ym濺02 0 1 2 02 4 6 鱏
l徰S愋彄忚悶RlQ匰sQ嶯蹚 Nek燫:_ Y魰絜錧(嵪憠[hQt錧\O剉愬w
T^愋彄廆\訷 0INLN^愋彄廆\ VtQ0 俼\0餝轢^/n* @\
0 0皊\
0愋彄忚悶RlQ匰sQ嶯蹚 Nek燫:_ Y魰絜錧(嵪憠[hQt錧\O剉愬w 0匰(嵮vW[02 0 1 2 01 8 3 鱏 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 $ @ B F f h l D
H | 栌绩湏媶{唗dt[Md[M[E[E[Et hu@ OJ aJ hu@ B*OJ aJ o(ph hu@ OJ aJ o( hu@ B*OJ QJ aJ o(ph
hu@ OJ o(hu@ CJ, OJ PJ o( hu@ 5hu@ EH OJ hu@ EH OJ o(hu@ 5丅*OJ ph &hu@ B*CJP EH KH PJ RHP \乸hbC -hu@ B*CJP EH KH OJ PJ RHU \乷(phbC )hu@ B*CJP EH KH PJ RHU \乷(phbC -hu@ 5丂圔 B*CJj EH KH PJ RHZ o(ph " $ B D F h D
刾WD `刾 凟WD `凟 則WD `則 ` $d a$ $a$ $d箭 &dPbC a$
$劻d UD]劻a$ $d a$ $匌d佞 @& UD]匌a$ $ d @& VD
^ a$ $d @& a$ " r , 2 4 J L N T " $ ( * . 0 4 6 : < H J L P R T V b d f h j l 耋赉账亢蠖后懂獱殸毝拤}拀p}墥 hQ K CJ KH mH nH uj hu@ CJ KH Uhu@ CJ KH o(hu@ CJ KH
hu@ 0J j hu@ 0J Uh,-~ j h,-~ Uhu@ hu@ o(hu@ B*OJ o(ph hu@ B*OJ ph hu@ B*OJ PJ o(ph hu@ 5乷(
hu@ PJ o(U
hu@ OJ o(
hu@ OJ ) & ( * , N " & ( , . 2 4 8 : $ :$d &d N P WDd `:a$
$ :WDd `:a$
$ &d P a$ $勳dD ]勳a$
0
孨% N孨t^]NgASN錯 0 0
0 0
;N槝蛬l徰S 0錧 z 0塠hQ 0愬w
刡wlQ飴@\0/n*侤\ T^(嵮v賨@\ 0INLN^(嵮v賨 w錧茤釼lQ鳶 T貧 恖Q飴0蛻筽4l袕錧 z鷁緥c%c钀0
Ym_lw愋彄弲S濺lQ 2 0 1 2 t^9 g1 7 錯pS裇
P A G E
- P A G E 1 -
: L N P n p r t $a$ 匋 &`#$ l n p r t 蝣 h,-~ hu@
hu@ CJ = 0 &P 0p1怷2P 皞. 捌A!4"胞#惲$% 癝 惄 J @ J ck噀 $1$ a$ CJ KH PJ _HmH nHsH tH $ A@ $ 貫祂=刉[SO F i@ F nf恏 C@ "> ck噀噀,g)蹚 剠d箭 `剠 CJ PJ 8 Y 28 噀ch觺刧 -D M
€ ! " # D E j " ' l 0 € I 0 €I 0 €I 0 €I 0 €I 0 €I 0 €I 0 €I 0 €I 0 €I 0 €I 0 €I 0 € € € € € 0 € € 0 € € 0 € € 0 € € 0 € € 0 € € 0 € € 0 € € 0 € € € € € € 0 € € I 0 0 1I 0 0 I 0 0 1I 0 0 I 0 0 1I 0 0 I 0 0 1I 0 0 I 0 0 1I 0 0 1I 0 0 1怈 0 € € I 0 0 I 0 0 K 0 ' ' ' * l t
: t
r " * ! !晙 8 @ €€€ 饞 0 (
養
S ? T i t l e L i n e D A T E 阔< L
莲< 錂
; *€urn:schemas-microsoft-com:office:smarttags€chsdate € 霢
€17€2012€9€Day€False €IsLunarDate €IsROCDate€Month€Year # C E i l ! " % ' ] l w e f s 3 3 Q K ,-~ u@ E V ? ? V ? ? V ? ? V ? ? V ? ? V ? ? V ? ? V ? ? V ? ? V ? ? V
? ? P r o j e c t . T h i s D o c u m e n t . H J P r o j e c t . T h i s D o c u m e n t . z w x d P r o j e c t . T h i s D o c u m e n t . L C l o s e " P r o j e c t . T h i s D o c u m e n t . S h o w A l l B u t t o n P r o j e c t . T h i s D o c u m e n t . c l e a n H j ! P r o j e c t . T h i s D o c u m e n t . L S a v e N o C l o s e P r o j e c t . T h i s D o c u m e n t . e x i t w o r d P r o j e c t . T h i s D o c u m e n t . q g a o P r o j e c t . T h i s D o c u m e n t . L P r i n t P r o j e c t . T h i s D o c u m e n t . L p r i n t H J P r o j e c t . T h i s D o c u m e n t . Z L C W P R O J E C T . T H I S D O C U M E N T . H J P R O J E C T . T H I S D O C U M E N T . Q G A O P R O J E C T . T H I S D O C U M E N T . Z L C W P R O J E C T . T H I S D O C U M E N T . Z W X D P R O J E C T . T H I S D O C U M E N T . L C L O S E P R O J E C T . T H I S D O C U M E N T . L P R I N T P R O J E C T . T H I S D O C U M E N T . C L E A N H J P R O J E C T . T H I S D O C U M E N T . E X I T W O R D P R O J E C T . T H I S D O C U M E N T . L P R I N T H J ! P R O J E C T . T H I S D O C U M E N T . L S A V E N O C L O S E
" P R O J E C T . T H I S D O C U M E N T . S H O W A L L B U T T O N @ # D |練 # # P P U n k n o w n G 噝 € T i m e s N e w R o m a n 5 € S y m b o l 3& 噝 € A r i a l 7E 筫ck\h媅€{SO ;5 噀\h媅€{ 媅SO ;5 N媅_ G B 2 3 1 2 M ? ? T i m e s N e w R o m a n ; 褳SO S i m H e i ; 媅SO S i m S u n 1 h q* gq* g崐 ' b / b / ! - ! ) , . : ; ? ] } & 6"0000 0 0
00000 =@\]^ ( [ { 0
0 00000;[ 4 ,個 d y 1 2僸 哌 HP ? u@ 2 Ym( NL) H栮栦Q;N鸑褃XT Xo#k#k 鄥燆鵒h珣 +'迟0
< H T
` l t | 浙交(下行) 陈雪凤主任科员 Normal 潘欣欣 2 Microsoft Office Word @ @ 拚鮵斖@ )矈彝@ )矈彝 b / 胀諟.摋 +,0
X ` p x € inrun
! " # $ % ' ( ) * + , - 0 3 4 A 5 6 7 8 9 : ; < = > ? @ D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ € R o o t E n t r y F 郣o虋彝2 @ 1 T a b l e 0 W o r d D o c u m e n t ? S u m m a r y I n f o r m a t i o n ( D o c u m e n t S u m m a r y I n f o r m a t i o n 8 & M a c r o s 鄍j虋彝鄍j虋彝 V B A 鄍j虋彝鄍j虋彝 d i r
! " # $ % & ' ) * + , - . 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o q r s t u x 瓯€ 0* pH d ProjectQ ( @=
l €黁 J<
rstdole>s t d o l eP
h %^ * \G{00020430- C
0046}# 2.0#0#C: \WINDOWS \system3 2\STDOLE@2.TLB# Automati on ` 僂Nor(mal僂N€Cr 坢 a€F €b €*\C
€m !Offi"c刧O f€ i *c俫弨 厒!G{ 2DF8D04C -5BFA-10€1B-BDE5€g訟A€e4€2坓€ gram Fil es\Micro爏oft 6\ MSO9.DLL#
9.0 Ob Libra,ry€C 傢 "v0俛Th isDocume爊tG T c i s D Ec €Ee n k 2 HB1倕n BE,!M"B+BB _ _ S R P _ 0
_ _ S R P _ 1 ( _ _ S R P _ 2 / _ _ S R P _ 3 V S 揔*y *\CNormalrU€ € € € ~ ~ ~ ~ ~ ~l %
弳ｔ鮊囱!朡骝 儕a 1
! 9 Q q ! 9 Y ! I i y
Y i i 婰_?屫x6T|q Project ThisDocument Z L d o c . d o c n e w d o c . d o c X D d o c . d o c F / C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL VBA
I ` F 5 C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB Word
Q p 0 F strToList C:\WINDOWS\system32\STDOLE2.TLB stdole
Q € L续-鶾藉 D轗
1 C:\Program Files\Microsoft Office\Office\MSO9.DLL Office
Y k F 8 2瑤hK櫕O闪e 髌2r鱚諰讽郝gw 4帴c˙K拫~N蒈j
F Document HJ LClose LSaveNoClose exitword qgao LPrint LprintHJ ZLCW newdoc HanDate downloadTemplet
ShowAllButton SaveHJ iniNote HasField Document_Close
Document_Open getRedRange strleft strRight strleftBack strRightBack
replacestr min listTostr NumTocharacter hjSub existCommandBar zwxd cleanHj
0 0 4 D T d t - rU€ € € € ~ ~{
i i i doc1 doc2 adate name SourceStr strRTItem FieldName Doc StartPos colors tmpstr substr fromStr ToStr N1 N2 n3 strlist dividekey n ftflag field* rU€ € € 0 A i a ` ` Q _ W W W _ _ _ _ _ 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
g rU€ € € $ ` $ A ` $ ` $ ` $ ` $ A ` $ ` $ ` 8 ` = = , A ` ,0,
` 00$ ` , ` //, I
` ! 0/( ` #8 ` A a /= #$ ` $ I ` 0 ` q //&0 ` 0000 ` 0000 I ` 0000 ` 0000 ` 0008 ` ) ////0 I ` 9 Q /000 ` q ///, ` 00, ` 0#$ I ` $ ` n T h i s D o c u m e n t
C 5 _ V B A _ P R O J E C T m P R O J E C T p v P R O J E C T w m v ) N h v0M 8 2瑤hK櫕O闪e髌2r鱚諰讽郝gw 4帴c˙K拫~N蒈j x 4帴c˙K拫~N蒈j8 2瑤hK櫕O闪e ME P S" S S"
€ > 0
p
x
€ B
"
N
@ H 4 P , . P X ` . €
(
€ 8
@
H
$ h
,
"
* 8 H P , X 0
( 0 H € P , ` R € ( H h p x € B " P H X
0 8 @ H P X € ` x
: 8 x €
€ € 0 ( ( ( P ` p
€ " $ ( 8 $ ` . ( ( € > ( H € > p € B "
N p x € D 8 € @
H € X € 8 ` € 0 € 6 ( € 0 8 H X € . ` € ( € € € € € , 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" 0 p" " " " € " " #
# 0#
8# X# `# p# # # # # € # # $ € $ 0$ T H$ $ T $ % T (% €% % % % % € % > % & & € < (& B & h& & & & & € & & & ' ' (' , 8' h' € P p' € N ' B (
( N (( x( €( € " ( ( < ( ) ) 8) " X) L €) ) ) , * 0* 8* T H* * * * : * + 0+ € H+ `+ p+ & €+ € R + , € & , € P 8, , , , € < , " , & , - 8- @- € < H- B - € - - - - - - - - . . 0. H. $ X. €. . . . . . . € 8 . B / € (/ 8/
@/ N P/ / / / B / 0 0 € 8 0 8 P0 ( 0 X 0 1 1 1 1 € € (1
01 @1 `1 x1
€1 1 € 1 1 1 1
1 B 1 € @2 H2
`2
p2 €2 2 2 " 2 2
2 3 (3 H3 " P3 x3
€3 3 3 3 " 3 4
4 4 84 X4 `4 €4 4 4 4 4 4 4 5 05
85 H5 h5 5 5 5 5 5 5
5 5 € 6 : 6 X6 x6 € ( 6 6 6 6 6 " 7 07 @7 P7 `7
p7 €7 7
7 7 7 7 7 7 7
8 € 0 8 @8 X8 h8 x8
8 € 0 8 8 8 € 8 8 9 9 09 H9 `9 h9
€9 9 9 9 4 9 € 8 9 4 0: € 8 h: 2 : : € 4 : ;
0; @; `; 4 h; ;
; ; ; ; ; € D ; B @< H< & P< * x< < < < < < = 4 = & H= p= = = = = € 8 = B > > (> @> P> X> `> h> p> € 8 x> " >
> 2 > € 4 ? " 8?
`?
p?
€? ? € 4 ? X ?
< @ `@ h@ p@ €
x@ 園 € " 怈 楡 燖 € $ 癅 谸 € $ 郂 A A 0A HA PA XA " `A
圓 楢 癆 繟 谹 餉 B €
(B 8B PB hB €B 楤 ˙ €
繠 蠦 鐱 鳥 C (C @C €
XC hC €C 燙 癈 菴 鐲 €
鳦 D D 0D HD `D €D €
楧 ― 繢 谼 餌 E (E €
@E PE hE €E 怑 ‥ 繣 € € . 谽 F F 8F HF `F xF 怓 楩 z 窮 8G @G HG PG € XG `G hG € 8 pG B ℅ 癎 . 窯
鐶 鳪 H H € ( H B @H HH XH hH €H 圚 怘 楬 B 燞 ℉ 窰 菻 鐷 餒 鳫 I B I I (I 8I PI XI `I hI B pI xI 怚 營 繧 菼 蠭 豂 " 郔 鐸 J J ( (J PJ hJ pJ B xJ €J 圝 0 燡 0 蠮 K B K K K (K 0K € 8K @K XK
hK xK
€K 燢 ↘ 癒 窴 B 繩 € P 菿 € L (L 8L HL XL hL xL 圠 楲 ↙ 窵 € 萀 豅 鐻 鳯 M M (M 8M HM XM hM € xM 圡 楳 ∕ 窶 € 萂 豈 鐼 鳰 N € N (N 8N €
HN € XN `N hN pN €N 圢 楴 燦 癗 窷 繬 萅 豊 鳱 O O (O 8O ( @O hO xO 極 癘 €
窸 萇 蠴 豋 餙 鳲 P P 0P @P € ( HP pP 圥 燩 癙 蠵 豍 鳳 Q & Q 0Q 8Q XQ xQ €Q 圦 怮 楺 癚 窺 蠶 郠 餛 R € ( R 0R HR `R pR 怰 楻 窻 繰 & 萊 餜 鳵 S 8S @S HS PS XS `S € > hS " ⊿ * 繱 餝 T T 0T @T XT hT €T 怲 ═ 繲 豑 餞 U U (U HU @ `U 燯 P ║ 鳸 V
V V (V B 0V 8V @V PV hV pV xV €V 圴 € ^ 怴 " 餠 鳹 d W
hW N xW 萕 蠾 豔 鳺 D X PX XX pX € 怷
榅 € & ╔ 蠿 郮 € 鳻 Y
Y (Y HY PY `Y € hY " pY 榊 燳 € € F ╕ " 餣 鳼 €
Z
N Z
`Z hZ € € 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 : G inrun 6B < j 6! @' > 6! B G 掩藏痕迹 6! D! F 6( @ 6% D ! HB J > 6( @ k d 6! D! F 6! 8 : G inrun 6B < j 6( @ 6% D ! HB H L! N( P T L! N( R 修改记录 LB@V LB@X L! N( P st_update 主送A Z CT_update 抄送A Z TT_update 标题A Z
KWD_update 主题词A Z 6% D ! HB H @ 定位光标 LB \ > 6( @ k k 6! B 6( B 6! D! F
` inrun 6B ^ k o ; -----------------------------------------------------------
保存关闭 0 --------------------lilei 2012-3-15------------- ' If SaveHJ("Body") = False Then Exit Sub 6! XDBody$ d G | j d Body$ d G | j k x 4 --------------------lilei 2012-3-15 end------------- ' 0 6. & j f( h Lotus $ l B@J &B B o ; ----------------------------------------------------------- 保存 0 --------------------lilei 2012-3-15------------- ' If SaveHJ("Body") = False Then Exit Sub 6! XDBody$ d G | j d Body$ d G | j k 4 --------------------lilei 2012-3-15 end------------- o x ; ----------------------------------------------------------- 退出 6! r , 您真要放弃所做的修改，并退出正文编辑状态吗？ ! $ t v 6. & Lotus $ l B@J j f( h &B B k x d p 6. & j f( h &B@B k 8 o 0 ; ----------------------------------------------------------- P 清稿 6! 8 : G inrun 6B@< j 6( B A 4 , 修改支持Office2007及以后版本的情况 2011-8-15 |! ~ . $ z X
6! 8 : 7 ----------lilei 2012-3-14 add-------------------------- inrun 6B@< 7 ----------lilei 2012-3-14 end-------------------------- k 6B € o p ; ----------------------------------------------------------- 8 由于当前Notes文档不是您所办理的文档，请重新切换Notes文档 提示A@t | k zlcw &% # 1 6! 是否要套打第一页？ 选择$ t ' G | j 6! 8 : inrun 6B < k Title 6! % # 模板中找不到标记 抬头 ，请手工修复 。 A@t | k Line 6! % # 模板中找不到标记 红线 ，请手工修复 。 A@t | H k @ 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( Rk k Line 6% ! H! % ( R p 请输入要打印的份数 ？ 份数 1 $ ' $ X' d 'k H 6B@ d 6B@ k ! N( Line 6% ! H! % ( G ! N( Rj d H & 当前文档还没有整理成文，您是否要打印 ？ 提示$ t v G 6B@ j k | 打印错误
打印机出错 ZLOAA@t d 错误： A@t k h o ` ; ----------------------------------------------------------- 打印痕迹底稿 保存返回 Lotus $ l % ! 保存返回 Lotus $ l % ! 7 打印痕迹前必须保存 ，否则您的修改会丢失，您是否保存数据? $ t K T Body$ d G | j K T | ( n k 6. & 6B H 6! 8 : inrun 6B < k
6 9 @ 9 B 9 q
6! D! F 6% D ! HB H 修改记录 LB@V LB@X ST_update 主送A Z CT_update 抄送A Z TT_update 标题A Z
KWD_update 主题词A Z wjxl 6$ G wjxl_update 文件类型A Z j k € 6B H L% . ] 0 ! ! Z yyyy-mm-dd hh:mm$ ' d ( d ' d ! l G d 删除) ' dj ! l G d 增加) ' dj L! N( d LB |! ~X G B@ j L% . P ` inrun 6B ^ 6B !
G ! A@t j 保存 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---------------- o H ; ----------------------------------------------------------- H 8 由于当前Notes文档不是您所办理的文档，请重新切换Notes文档 提示A@t | k € FWH &% # ' 文件没有编号 ，真的要整理成文吗 ？ $ ZLOA$ t G | j k 整理成文 |( HJBody$ d G | j ' 0 ] 6. ] 1 -----------lilei 2012-3-14 modify---------------- $ ' ) FileName = downloadTemplet() '下载模板 / -----------lilei 2012-3-14 end----------------- G | j A x 5 8 : inrun C < k ' --------lilei 2012-3-14 modify--------- " --------显示修订痕迹-------------- 9 @ 9 B 9 .TrackRevisions = True .ShowRevisions = True .PrintRevisions = True % ---------lilei 2012-3-14 end--------- q % D ! H! N 仿宋_utf-8 9 仿宋_utf-8 9 9 9 P q 0 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 | X o P 6 ------------------------------------------------------ Lotus $ l ! ! 退出K 保存返回K 打印K T ( S ( n x p 6! 8 : G inrun 6B@< j LB@ LB@J ( @ ( B % D ! HB H LB \ $ 去除分节符和最后一个断行符 LB B H LB@ LB ： LB@V LB X % D ! HB H LB \ LB B H LB@ LB LB X LB X LB X LB X % D ! HB H LB \ L! d
LB B H LB@ LB k ! " B@H ! $ LB@V FJNAME ! % FJNAMES &% ' & '( * & *$ & ' , , 正文] , 附件] ( '( 附件 ( $ . ： , ] $ 0 ' , , . G , . $ 2 ' ,j 4 ,' 4d € 4
$ 6 , ' 4 k X k P H FJNAME LB@ LB X 4 LB V LB X k DATE ! % DATE LB@ DATE1 ! % L! DATE1 6% ! % H B@H d X LB k 8 选中落款日期 lwrq &% # ' 8 8 >$ < ' : ! 汉字日期 d 8X $ < ' : ) 汉字日期 k : LB V LB @ D L! ( B LB LB@V k 8 Print ! % Print LB@ L% F ! HB@H L! d' H H ※年 ' J J
G H J $ >$ L X 年 H J $ ' Hj H ※月 ' J J
G H J $ >$ N X 月 H J $ ' Hj H ※日 ' J J
G H J $ >$ P X 日 H J $ ' Hj H H $ ' H H LB V k H f! R( T | 0 (
ZLCW错误 ： || V ( ) A@t | o 6 ------------------------------------------------------ X * 日期转化成汉字日期的函数 。 X$ L X ' Z X$ N X ' \ X$ P X ' ^ ' ` * Z Z * $ ' b ` b $ . ' ` \ $ . ' d ^ $ . ' f ` 年 d 月 f 日 ' < i J ------------------lilei 2012-3-14 修改------------------------------------ H ------------------lilei 增加入参 文件名--------------------------------- 8 由于当前Notes文档不是您所办理的文档，请重新切换Notes文档 提示A@t z € k x 现得到代码库,再得到正文模板 "! j' h "! n "! n \ $ \code.nsf ' l h l % r . p wjlx &% # ' t wjxl &% # ' v isupdoc &% # ' x wjlx=" t
" & wjxl=" v
" & IsUpDoc=" x " ' z z p% ~ . | |! F ! 发文格式模板找不到,请联系管理员 。 A@t z |! F
e J 发文格式模板找到多篇 ，整理成文操作将继续进行 ，请提醒管理员删除多余的模板 。A@t k X |! . € lx_id €% # ' "! n "! n \ $ \zw.nsf ' h % r . % . Body % . ! ' & $ & . Directory % \ ' , L ------------------lilei 2012-3-14 modify------------------------------------ , ' FileName = NotesPath + FILEZLDOC I ------------------lilei 2012-3-14 end------------------------------------ B ' i X 6 ------------------------------------------------------ X * Lotus $ l ! ! F * Lotus $ l % ( o 6 ------------------------------------------------------ ] h + ' * ' _ 0 $ ' $ ' $ ' $ ' G x j *酅 $ $ *+ $ $ ' * ' * H *酅 *+ ' i 2 --------------------------------------------------
关闭并保存 ' d 8 由于当前Notes文档不是您所办理的文档 ，请重新切换Notes文档 提示A@t z X k P &! ( 8 当前的Notes文档不是你所办理的文档 ，请切换当前的Notes文档A@t z k |! 整理成文 6! $ zldoc.doc |! 修订正文 6! $ xddoc.doc 6! $ .$ . 当前WORD文档（ 6! & ）不是你所办理文件 。您打开的文件应该是 . A@t z k k k ] 0 6. ! 1 新文档 , B@ d € B k h 将数据传回到Notes文档中 ! 8 : inrun B@< k ( B zlcw &% # 1 |! 整理成文 ] P ! " ! BHK T BH % " ! $ 号 BH % " ( $ d 8
BH % " ! $$ &( k
STK T ST % " ! $ ST % " ( $ d ST % " ! $$ &( k € TTK T TT % " ! $ TT % " ( $ d ( TT % " ! $$ &( k CTK T CT % " ! $ CT % " ( $ d CT % " ! $$ ' H H$ &( k ` KWD K T KWD % " ! $ KWD % " ( $ d KWD % " ! $' H H$ &( k
FSK T FS % " ! $ FS % " ( $ d p
FS % " ! $$ ' H H$ G HX &( j k (
n
$B
k
得到正文库文档 "! n "! n \ $ \zw.nsf ' "! j % r . * % . Form % # ZW_doc HJBody ! . ZW_doc ( B templetdocid ! B ! ' * ! &( ! . B . d x ! . . ! &( k @ d 8 HJBody ! . B . * -------------lilei 2012-3-14 add---------- XDBody e ! . B 1 , . * -------------lilei 2012-3-14 end----------k ( k ZW_doc ( TT &% ( "! n ( &! ( % % . d % . B B % . k @ |! 整理成文
G 已成文 ( lj 1 ------------lilei 2012-3-14 add------------------ |! 修订正文
G 已修订 ( j 1 ------------lilei 2012-3-14 end------------------ ! \ ! % . B |! 整理成文
7 如果已经正式成文 1 &( $B Microsoft Word |( k |! 修订正文
7 如果已经正式成文 1 &( $B Microsoft Word |( k ' d i > -------------得到Notes对象(8个)------------------------------- h ' Notes.NotesSession$ . Notes.notesuiworkspace$ . ! . " "! j G z j ! . $ $ G z j $! . & & G z j Form &% # RecDocument G z j Directory % \ ' , paredocid % ' ( mdocPath % ' . templetdocid % ' * ' i 2 -------------------------------------------------- ' &! " ! ' z k i 2 --------------保存时不弹出对话框------------------p 0 Lotus $ 6! $ zldoc.doc . ----------lilei 2012-6-4---------------------- 6! $ $ 2 XDBodyA d 6( | x k p . ----------lilei 2012-6-4---------------------- 保存返回 Lotus |% l % ! 保存返回 Lotus |% l % ! 是否要保存到服务器? $ $ t G BodyA d j k ? k ? k ? 6( o p? `? G | j -------lilei 2012-6-4--------- ' 2 -------lilei 2012-6-4--------- l ! Lotus Lotus $ 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 &% # 0 ParentSourceID &% # LinkZW &% # A k 8 k 8 | 8 8 | 8 o 8 2 --------------获得同一颜色的区域------------------ '
6% H ! N! ' 8
' i 7 " ---------------------------------- 4 'J J
4 J $ ' zd x7 ' zk h7 i `7 0
4 'J J
4 J $ ' 0 d 7 ' 0k 7 i 6
4 $ 'J J
4 J $ ' 2d 6 ' 2k 6 i 6 p 4 $ 'J J
4 J $ ' d 86 ' k (6 i 6
' * * $ ' * $ ' ' 5 o 5 '
G ' j
G ' j
G ' j i 4 p
$ " ' z 4 k 4 ] * * $ ' 4 d €4 4 *$ ' 4 k X4 P4 4' i @4 ( I 将一个数字转换成汉字11=十一等等，ftflag为大小写 ，为true则返回大写汉字数字 ]
○ + 一 + 二 + 三 + 四 + 五 + 六 + 七 + 八 + 九 + ]
零 + 壹 + 贰 + 叁 + 肆 + 伍 + 陆 + 柒 + 捌 + 玖 + ] 8 + & 十 + & 百 + & 千 + & ] p + ( 拾 + ( 佰 + ( 仟 + ( ] 万 + * 亿 + * 开始 ] J' , ' * J $ $ ' . d `1 $ ' . k H1 z @1 k 81 ,
, ,
' . ,
' , *酅 0 . *+ * ' * 0 * ? *$ ' 0 * $ *+ 0 * + H0 转换 ' 2 $ * ' 4 * ' 6 6
4 ' 4 6 ' 6 / *$ 1 6$ ( 拾 2 6$ ( ' 2 *$ 0 e * * $ 0 e d (/ 2 *$ $ ' 2 k / d . 2 *$ $ 6$ ( ' 2 k . 6$ ( 4
2 4 $ * ' 2 ' 4k x. p. d h. * ' 4 * ' 6 6
4 ' 4 6 ' 6 - *$ 1 6$ & 十 2 6$ & ' 2 *$ 0 e * * $ 0 e d h- 2 *$ $ ' 2 k @- d 8- 2 *$ $ 6$ & ' 2 k - 6$ & 4
2 4 $ * ' 2 ' 4k , , k , 2' .i , 7 ------------------------------------------------------- 8 3 各个痕迹显示 Notes.NotesUIWorkspace$ . ! ! . & &% . 8 8 G | 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 D G -空-' Dj B$ > 在 @ 将 改为【 D 】 。 ' 4d X* > 在 @ 将 【 B 】改为【 D 】 。 ' 4k * 4 LB@V LB@X ) o ) ' F l F! Lotus ' y ) k €) x) i p) X -----------------------lilei 2012-3-14 add 修订正文------------------------------------- 8 ) H 您确信要对正式文件进行修改吗 ，保存后将生成一份新的痕迹底稿 ，请仔细确认 ！ $ $ t G | j 8 由于当前Notes文档不是您所办理的文档 ，请重新切换Notes文档 提示A@t | 0( k (( FWH &% # ' 文件没有编号 ，真的要修订正文吗？ $ 提示$ t G | j k ' 修订正文 |( Body$ d G | j ] x 6. Directory % \ ' , , ' B@ 修订正文 |( A $B
正式文件修订成功! A@t ' 2 B@B | & & 正式文件修订失败。 A@t | `& o X& @ 清除痕迹 ，群发会签的协办件清除会签之前的修订痕迹，主办件不处理 。 & 8 由于当前Notes文档不是您所办理的文档 ，请重新切换Notes文档 提示A@t | % k % ] 6. A x 5 8 : inrun C < k @% 9 @ 9 B 9 q % 1 &( H Body$ d G | j ' 0 A $B
| $ $ 清除痕迹失败： ( V ) A@t | €$ o x$ p$ Attribut e VB_Nam e = "Thi sDocument"
孊as1Normal.VGlobal!猄paclFalse reatabl Pre decla Id 濼ru
BExpose Temp lateDeriv$Custom iz凜1'版 2.062 ( 2004-11- 21)修改: 按X时保 妫晌暮 笠部珊奂 ４蛴,防止 弹出
'-%
Const FI€LEZLDOC壤ZLdoc.€€艫lENEWn ew5lile i 2012-3 -14 add CC2lEXDXDenDim s As Va€riant
AwdbN uid椢€溛p亇ocC RS廓ngtAuet€,Notes0Path
he`WordF FOAsaA嚵Booleanzwx渄S@:D 'A~修订A|标 疚
A Su b HJ() 'A显示隐
If Act罓胖.Pr@*€onType <> wdNoG Then C坅llMUnp ("inrun")flag@屘 TrackRevisi 桿#Sho~w€乣#p '鹧诓蒯 #
!o Se s.Cou€nt >= 4
齡 膯GQ"
(4).Ran ge.Delet縛呯"
'E€]鬒fE% @ @ @# *n詔.*S *c鄚 #燡.Fo@BolОCol€orIndex@.鄔dRedg.I
乥€Text ("a记录錦c A ParagrapNh hj纖(€"st_upd ", "主送'bODCTH抄匶TI标题
KWD*题词w<52錩#0' 定位光标 $ MoveL eft(1, 1DE?%8E33 M : (:4I! !qgao!清皋錽 !苛n絩f |罜:6u远 ions = T@rue
C@all HJ`' 修改支持 Office20 07及以后 版本的情 况 2011-8-15dIf CInt(str left(App licat .Vers , ". ")) > 11 And Act iveDocum ent.Prote onType <> wdNoA Then-A lilei2 -3-14 ad>d
=飳=Unp> ("inr衭n")'!
5攅n 5E sIf%睂;Accept€AllRevis
Sub
N
=
d
! pLPri 蕛e 裪niN 瞼麱alseHT Msg Box "由 诘鼻
s 牡挡皇悄 炖淼腁，请重@新切换 " , vbOKOnly@z提示"亜P Exit 4€^圖@$@.Get ItemValu e("zlcw")(0)@)"1" Or
妌ame0ILEZLDOC1 retrn€3("是否 要套打第@一页 ？B*Y esNoCanc別l€+选择唡 &vb K2翍@
宼ū Q唖F
HPA B ookmarks.@^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 my Y霮/t#
g.Index wdWh it渚"Dim 釸
As ! d= @}hing鲉 OO1 O嚪D1籩A$<瓅哫.%_藑
2&$, ) G)D *A縸 E牠& Dx(" @K礒 IB! z$
pH Para graphFor mat.BordP(wd Bot鄑om).6-q On Err(or =Aco pyes$InputPo("请 输入要打 印的份数}rb" 餬€hWI剆N@媟ic()^)%@r慹F !1'`Gi鄈0Out3=丮!Curr饢Pa ge, Copipes:= ]3L v_I 6/"胠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
Sel ection.T ypeText ("修改记录")楶ar@agraph 9僀$5AccepF饶 +nend'褍Prot累(wd AllowOnlyAe偊s, True€einrun兣bintOu(@擂:C 8Err .Number > 04MsgBox DescripA?omm andBars( "Lotus")D.C-rol ４ Enabxled€/bT_D8祷剡€/打 印_R隐藏 \显示痕r整理8晌倪底$稿'- li lie 2012 -3-14 add?/修订齱€ K仦9€
R
丂 ZLCW(鉺 OnaS@擥oTo` erlj 燳i|ni@爜~釴耏C "由于鼻s文 挡皇悄€炖淼! ，请重新0切换`纕b OKAp@n提示力旹xit @1紽WH@``.G etItemVa lue("") (0InSt靣( X C("a拭挥 编号 ，真的要O吗緻36`ZLOˋ")@7" 賗汣a€"fY* SaveHJ("繦JBody褊OAs?盜乤gCurdoc乬t慠= 玴dZL %p0eix0modify嬢$FPrNam" download Templet( 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難 "噿M oveLeft(1, 12('(2/ g)B 鄐pace*
Righ t Unit:=PwdCh`莄牆,` Coun0 E|xt€ R贸T餽im(驙6叻s濿 恳
#
4 t恦 W= 昛s.Open(旿 newu(C ,焑nw 沞 i#{u id.refres汊$&Close~ 9蟇m!€#璄~ О堋" &$bA/r{K[J_ d1n,: 2韹ro0rlin0澜 E ach cb I疱叨锥 5恇c渂.剕 Ca "退出 " 簉秬侭硺V噱嗷 朜O Case E`lse
€(c b.Visibl纄 = Fl | End Sele腸t"Nex If Activ eDocumen@t.Prot Pi onType <@> wdNo* Then
4Unp6 ("inru8n")^t K.W holeStor*y D 梩蒬o c2.Track圧ev 蒾ns蓡a Show Call €1.S`s(1).R餫nge€唦L MoveLeft (1, 2, 1 ) '去除 纸诜妥 詈笠桓龆`闲蟹麄] C黲p僫 僎嚨4 Key Unit0:=wd噮'Pans剣 臫€ 耗V
Para`graph)薈2餋< 8铱W€飳=茢@#2 G
6KG嘖€ IfbFor Each for€mfld Inai2. mFiel黡s@
$嘦%繰esultC們 #Bookm arks.Exi sts("FJN AME")€True
%tmpvar .GetI temValue
S腸jNumZ%`0E i To UBoun d(#
€ t hisName$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. 0Hanc Da@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.Embed dedobjec魌sG
o ib a|@sa Envi8rona.`a R("圖irory鄴pTrue脈銳? 續odify颈 籆翈N岑 訞瑂,+ A'4FI€LEZLDOC鉕嵨end/ Call o.E靫t鎍($1 `*
S ub ShowA llButton(dFor i 鄔o Comma ndBars("€Lotus")燚纍trols3E3
(i).V鄆siblQ€ c鳱ex 9< y 鴚&ToLi st(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 Do c.GetIte mValue(" zlcw")(0 ) <> "1" And InS tr(Appli cation.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
EMBEDOB JECT(1454, "餴敜a匯凗"P 4瞍 妐_鶼3& en '如果 已经正式€成文
Doc.ZLCW@ = "1"\C all uid.Save,App lication0.CaprMi crosoft Word孍nd IfvIf I nStr(@, "修订正 ") > 0 凾h 磟wxd\磯}HJ 2Tru€!乬Funcz
'- 得到N otes对象`(8个)
B
% ini ( ) As Booplean儦 €@Fals肧et s GetObj纄ct("" >B.Sess "V)" wV nA-u iworkspa$ceI
dbs. currentd`ataba!@td b.server @ ""CmExit GIA櫫 @ w餺cumC(Is /hing镖€ .@K`@
.@PIte mValue(" Form")(0) "Rec@C6[Path@ sAEnviron6str1("D膇r€hory纇亼@) + "\D萷€aredoci睪fthe貴鑙le m&F
纄mplet
!E`糬h_H asField(仮 Name, /!a/蝏e 萣7 繣ach f 爫磲.:B s#M @.n aOJ!(C 恀D乮燦ext
箞 -保存时 坏龆曰翱*
Pr ivate Sub _Clos e(D~OAsa "zzl€H.` c%āl Si 2012-6-4!',€
= FIlEX餌DOC€A a縼d5"證("XD癇ody%Y5 鵦 = ;B; -'I:
J醘1s1 .Control 酈返回").Visib@!5?1Ena MsgBox(€"是否要 到服务器R? L36酫6r 鳉}j ?+/乂_Openu/On E rror 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`
棉8a 3-14 add u隖~992饏OOZWXD/
?2-
挾 cb.Tag = "LPrint@HJ"
O@Asaved 菷alsePIf Doc.Hasi tem("fir stOpen") ThenJ|RGetI RValDue
\(0)0`" AndT *P arentSou€rceID")/<> "/Lin8kZW ' 揅a ll clean擧j‥ ?If Exit Su@b
edo q:焸
€('-
获得同一 颜色的区 域&Fun ction ge tRedRang e(StartP os, colo rs) As I纍teger€< Add% 0€While A 'e€製m . (d +, 0)€.Font.CA?C @+ 1 end0 蠈B 並E<
蘈OH--
Hstr left(tmp亐$, subGSt€甮C"n丒|In€
C€ > 0尙€ /LJ - 1)E坡鸄a "勍8亾:1餜igh1@ 11 2MidGA1+ 燣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崃mi n(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)OnNumTo character(n3tflag@'将一 鍪肿 怀珊鹤1 1=十一等 等 ，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
Jq 1qF-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 r2 l+ N2( 'End 0攰>€(- 抍弫= 0 n孞Next {For Ho 嗁%G肅7{- i W hile D
> 3K羏E 剰 - 4 Wen^dKK e1胏D驟t乭十U e
K邅UH壳E劭 0€泅1壳k!N$
羉縞=a $*/焎#k€E焎耺焎嘽萬NumT ocharactLer@D
A塅@unctio牊'- 1
Pri vate Sub hj (fie ld As St ring, name) '各 个痕迹显示肙Set ws€GetObj ect("", €"Notes. UIWorksp0ace"D！Docws.cur rentdocu:m . It,em` . Fi鴕stAD
€:hIs hB 0Exita va).value蝧€ (0吕胮1 Sel`@..F ont.Size} 1睒
Dt磎p7$`
i(,A@leftv((\%&€R8igh!
tit
Close (矧6}6:r-愂О躳[ &9>$Q `<'宄6 ，群 发会签的佬旒 p之前0PBs餮不处理敗Ac!QHj2Ak At _:eZ:P3 熷 ::郃:, :3 G 0O,(,, !0qgaoTWi - 6006.Pr@璗y pe <> wd NoProtec tion Then
Cal@l .Unp( "inrun") 楨nd If " .TrackRevis 畇 = False
DShow!Print"vWithU Doc.firs tOpen |"1"If Sav eHJ("Body")N倊 Ex@it SubOAs d€Tru脟`倠iniN 瀱
uid.refres僉(erlj:MsgBo x "清除 奂ＪО埽 " & ErrHor$ "(l=)僟%亇俁
蘟y * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P R O G R A ~ 1 \ C O M M O N ~ 1 \ M I C R O S ~ 1 \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l B a s i c F o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 9 0 5 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 8 . 3 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O F F I C E 1 1 \ M S W O R D . O L B # M i c r o s o f t W o r d 1 1 . 0 O b j e c t L i b r a r y * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ S T D O L E 2 . T L B # O L E A u t o m a t i o n * \ C N o r m a l * \ C N o r m a l ψ黁
* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 3 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O f f i c e \ M S O 9 . D L L # M i c r o s o f t O f f i c e 9 . 0 O b j e c t L i b r a r y
黁 v0 T h i s D o c u m e n t 0 3 5 2 6 7 9 b a 7 T h i s D o c u m e n t M n w4 ^M宺P焃8 ` € $' O name text 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郦` PrintRevisions HasField&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瓶` EndKey5 wdStory&` 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\` existCommandBar J` 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,
ThisDocument T h i s D o c u m e n t
F Microsoft Office Word 文档
M C o m p O b j w m SWordDoc Word.Document.8 9瞦