��ࡱ�>�� ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� �R�(ebjbj$$F�F|F|f,�������vvvvv�������8��~D�l6���"����n<N /��5�5�5�5�5�5$9��;��5-vV�"�VV�5vv���&6�*�*�*V. v�v�J-��*V/�*�*�*�����КŇz������'�*6-<60l6�*V<�(�V<�*V<v�*�n��*� ��nnn�5�5l)*nnnl6VVVV��������������������������������������������������������������������V<nnnnnnnnn, <: Ym_lw"�?e�S�e�NYm"�L�02014010�S  Ym_lw"�?e�SsQ�NpS�SYm_lw:gsQ�]\O�NXT �]�e9��{tĉ�[�v��w T^0�S�^0:S �"�?e@\��[�l N�S � �w�~TUSMO� :N/�{_=��[ 0ZQ?e:gsQ�SL����~�S�[jm9�ag�O 0�-N�S02013013�S � �ۏNek�R:_:gsQ�]\O�NXT�]�e9��{t ��~N�Tĉ��]�e9�_/eh�Q �9hnc 0"�?e�sQ�NpS�S-N.Y�T�V�[:gsQ�]�e9��{t�R�l�v��w 0�"�L�020130531�S ��|^y �b�S6R�[�N 0Ym_lw:gsQ�]\O�NXT�]�e9��{tĉ�[ 00�~w?e�^ Ta ��spS�S�~`O�N �����w/�{_gbL�0gbL�-N gUO� ����S�eTb�N�S f0 Ym_lw"�?e�S 2014t^3g4�e �dk�NlQ_�S^ � Ym_lw:gsQ�]\O�NXT�]�e9��{tĉ�[ ,{N�z ;` R ,{Nag :N�N�R:_�Tĉ�hQw:gsQ�]\O�NXT�V�Q�]�e9��{t ��O���Q�]�NXT�]\O�Tu;m��� ��cۏ�SL����~�S�[jm9� ��[�UlQ�R;m�R�{t6R�^ ��Onc 0ZQ?e:gsQ�SL����~�S�[jm9�ag�O 0�-N�S02013013�S ��T 0"�?e�sQ�NpS�S-N.Y�T�V�[:gsQ�]�e9��{t�R�l�v��w 0�"�L�020130531�S � �6R�[,gĉ�[0 ,{�Nag ,gĉ�[�(u�NhQwT�~:gsQ �S�bZQ?e:gsQ0�N'Y:gsQ0?eOS:gsQ0�[$R:gsQ0�h�[:gsQ0�Nl�VSO0l;NZQ>m�T�]FUT� ��N�S�SgqlQ�RXT�l�{t�v�NNUSMO��N N�{�yTUSMO �0 ,{ Nag �]�e9�/fc�]\O�NXT4N�e0R8^{�0W�+T^��:S � N T ��NY0W:SlQ�R�Q�]@b�Su�v�W^���N�9�0OO�[9�0Oߘe��R9��TlQBg9�0 �]�e9��[L��Qnc�b�N�[��Sr^�v�~T�v�R�l0 ,{�Vag TUSMO�^S_�^�zePhQlQ�R�]�e�[yb6R�^ ��Q�]�_{� cĉ�[�b�~yb�Q ��N%N�c6R�Q�]�Npe�T)Ype �%NyO�SU\0ir�N�S�m9�4ls^�S�R�`�Q��e�te0 ,{�N�z �W^���N�9� ,{mQag �W^���N�9�/fc�]\O�NXT�VlQ0R8^{�0W�NY0W:S�Q�]@b�Su�v�W^���N�9�(u0 ,{Nag �Q�]�NXT�^S_(Wĉ�[I{�~�Q ��bXNPW�N��]wQ0�Q�]�NXTXNPW�N��]wQ�vI{�~�� Nh�� �N��]wQ �~0+Rkpf��+Tؚ��0�Rf�0hQRo�-^Rf� �n�9�� NS�b�e8n9� �ޘ:gvQ�N�N��]wQ� NS�b�Q�y\}lf� �w�~�S�vS_L��~�NXTo�-^�o��^0o�gS � �ؚ��/�Rf�FU�R�^ �hQRo�-^Rf�NI{o��^NI{1�4YI{1��Qnc�b�ckoR�S��S�vS_L��~�NXTo�-^�o��^0o�gS � �ؚ��/�Rf�NI{�^ �hQRo�-^Rf�NI{o��^�NI{1��~Nm1��Qnc�b�vQYO�NXTlx-^�lx�^0lxgS � �ؚ��/�Rf��NI{�^0hQRo�-^Rf��NI{o��^ NI{1��~Nm1��Qnc�b� w�~�S�vS_L��~�NXT�Q�] ��V�]\O��� ���L�N�N�SXNPW TI{�~�N��]wQ0 *g cĉ�[I{�~XNPW�N��]wQ�v ���/e�R1u*N�N�t0 ,{kQag 0R�Q�]�v�v0W gY�y�N��]wQ�S ��b�e ��Q�]�NXT(W Nq_�TlQ�R0nx�O�[hQ�vMR�c N ��^S_ �XN�v�[�~Nm�Owc�v�N��]wQ0 ,{]Nag XNPWޘ:g�v �l*��SU\�Wё0�q�lD��R9��S�N�Qnc�b�0 ,{ASag XNPWޘ:g0kpf�0n�9�0�[f�I{�N��]wQ�v ��k�N!k�S�N-�pN�N�aY�Oi�N�N0@b(WUSMO�~N-�pN�N�aY�Oi��v � N�Q͑ Y-�pN0 ,{ N�z OO�[9� ,{ASNag OO�[9�/fc�]\O�NXT�VlQ�Q�]g��eQOO�[���S�bm��^0�b�_@b � N T ��Su�v?b�y9�(u0 ,{AS�Nag �]\O�NXT0RwY�Q�] �gbL�"�?e�lQ^�vR0W:S0R�~+ROO�[9�P���h�Q���D�h�1 ���]\O�NXT(Ww�Q�Q�] �gbL�"�?e�lQ^�vYm_lOO�[9�P���h�Q0 ,{AS Nag w�~�S�vS_L��~�NXTOOnf�WY�� �oRY�~�S�N N�NXTOOUS��bh�Q�� ��S�^0:S �aN�G�0W�S� �:gsQ�b�Nck�y���[L��R�NXTOOh�Q��0 N���NXT�SN�NOON�� �vQ�N�NXT�^$N�NOON*Nh�Q�� �US�N�Q�]b7u0sY�Q�]�NXT:NUSpe�v �vQUSpe�NXT�SN�NOON*Nh�Q��0 ,{AS�Vag �Q�]�NXT�^S_(WL��R�~+R�[�^�v�Q�]�v�v0WOO�[9�P���h�Q�Q � ��b�[hQ0�~Nm0�Owc�v�[��OO�[0 ,{�V�z Oߘe��R9� ,{AS�Nag Oߘe��R9�/fc�[�]\O�NXT(W�VlQ�Q�]g���~�N�vOߘe�P9�(u0 ,{ASmQag �Q�]�NXT�^S_�L�(u�0�Y1u�c�_USMOOS�R�[�c(u��v ��^1u�Q�]�NXT�L�/e�NOߘ9�0 ,{ASNag �]\O�NXT�Q�]Oߘe��R9� c�Q�]�6q��e�S �)Ype���{0wY�Q�] �gbL�"�?e�lQ^�vR0W:SOߘe��R9�h�Q �Sr^O(u���D�h�1 �0w�Q�Q�] ��Q�n��Shy(W"�?e�lQ^�vYm_lOߘe��R9�h�Q�Qnc�[�b���e�n��Shy�v � c�k�N�k)Y30CQOߘe��R9�h�Q �Sr^O(u0 ,{�N�z lQBg9� ,{ASkQag lQBg9�/fc�]\O�NXT�VlQ�Q�]g���Su�v^�Q�N�9�(u�TSbpS0 YpS0 Ow0�[�I{9�(u0 ,{AS]Nag �]\O�NXT�Q�]lQBg9� c�Q�]�6q��e�S �)Ype���{0wY�Q�] � c�k�N�k)Y80CQe��Rh�Q �Sr^O(u0w�Q�Q�] ��Q^�Q�N�I{lQBg9��Shy(W�k�N�k)Y60CQP����Qnc�[�b���elQBg9��Shy�v � c�k�N�k)Y30CQe��Rh�Q �Sr^O(u0 ,{�NASag �Q�]�NXT1u�c�_USMObvQ�NUSMOOS�R�c�O�N��]wQ�v ��^1u�Q�]�NXT�L�/e�N�N�9�(u0 ,{mQ�z �b��{t ,{�NASNag �Q�]�NXT�^S_%NN�RUSMO�~N_/e9�(u�v ��_ԏO��0�W��0W�p�v�]�e9�1u@b(WUSMO cgqĉ�[�b� �,.024Z\prt���������Ǽ�����|l_l_P>_#h�`�h�z�CJ OJPJQJaJ o(h�z�CJ OJPJQJaJ o(h�z�CJ OJPJaJ o(h�%*hw�CJ OJPJaJ o(h�h�'CJ,OJPJo(h��CJ,OJPJo(h�z�CJ,OJPJo(h�'CJ,OJPJo(!jhpX�hw�CJ,OJPJUhPhw�CJ PJhd3XCJ PJo(hZJhE�CJ OJPJo(hpX�hw�@��aJH,hpX�hw�@��B*CJHOJPJaJHo(ph�04\rt� �����yyqfX �pd��WD�`�pgdE� $d��a$gdE�d��gdE� $d��G$a$gdE�gdQLv$a$Skd$$If�l�0��L"&�� t��6��������������4�4� la� $$G$Ifa$gd�6 $$G$Ifa$gd�6 �  * � � � � �      " $ & ( * , . 0 H J ���������幪嚍�sc�c�cV�KhE�CJOJPJo(hw�CJ OJPJaJ o(h�%*hw�CJ OJPJaJ o(h1[�CJ OJPJaJ o(h�rMCJ OJPJaJ o(hE�CJ OJPJaJ o(h�%*h� tCJ OJPJaJ o(h�%*hmwCJ OJPJaJ hQLvCJ OJPJaJ o(h/ h�z�CJ OJPJaJ o(h�z�CJ OJPJQJaJ o(h�z�CJ OJPJaJ o(hU\CJ OJPJaJ o(    0 J n p � � Z � �����������������pd��G$H$WD�`�pgdE� d��G$H$gdE� ��d��G$H$gdE� $d��G$H$a$gdE� $d��a$gdQLvd��gdE�$�� d��VD�^�� a$gd(2� ��d��gd(2� �pd��WD�`�pgdE�J L n p ~ � � � � � � � �  , . F H � � � � � � ��������������~l~_����K&h�z�B*CJ OJPJQJaJ o(phh�4lCJ OJPJaJ o(#h�`�h�4lCJ OJPJQJaJ o(h�4lCJ OJPJQJaJ o(#hQ�h�z�CJ OJPJQJaJ o(h�z�CJ OJPJQJaJ o("h�}Eh�z�5�CJ OJQJaJ o("h_^'h�z�5�CJ OJQJaJ o(#h�y�h�z�CJ OJPJQJaJ o(#hE�h�z�CJ,OJPJQJaJ,o(h�z�CJOJPJ� � � � � � * : < D V Z b h v � � � � �      $ 0 4 B Z � �  $0��������������������龯�������������y�g�#h�5�h�z�CJ OJPJQJaJ o(#h�@ah�z�CJ OJPJQJaJ o(#h�4�h�z�CJ OJPJQJaJ o(#hQ�h�z�CJ OJPJQJaJ o(h�z�CJ OJPJQJaJ o(,h�tJh�z�B*CJ OJPJQJaJ o(ph&h�z�B*CJ OJPJQJaJ o(ph,hQ�h�z�B*CJ OJPJQJaJ o(ph(0<FP��������������� (0246:FHP����ʳʳ��r`�N�N�N�N�N�N�N�N�N#hQ�h�z�CJ OJPJQJaJ o("h�}Eh�z�5�CJ OJQJaJ o("h_^'h�z�5�CJ OJQJaJ o(/hQ�h�z�5�B*CJ OJPJQJaJ o(ph�,h�tJh�z�B*CJ OJPJQJaJ o(ph,h�'�h�z�B*CJ OJPJQJaJ o(ph&h�z�B*CJ OJPJQJaJ o(phh�z�CJ OJPJQJaJ o(#h�5�h�z�CJ OJPJQJaJ o(���(������������������$d��$��� &`#$/��G$H$Ifa$gdE��0d��$��� &`#$/��G$H$IfWD�`�0gdE�$d��$��� &`#$/��G$H$Ifa$gdZJ d��G$H$gdE� $d��G$H$a$gdE��rd��G$H$WD�`�rgdE� PVbd������$*Pdf�����������8@T�����̾������s�s�����s�s���sb� hq8h�z�B*OJQJo(ph h�b�h�z�B*OJQJo(phh�z�OJQJo(h�b�h�z�OJQJo(h�b�h�z�5�OJQJo(h�b�h�z�5�OJQJh�z�5�OJQJo(h�b�hZJ5�OJQJo(#h�08h�z�CJ OJPJQJaJ o(#hQ�h�z�CJ OJPJQJaJ o(h�z�CJ OJPJQJaJ o(�kdU$$If�l��d�r��� $�� d �,���S�� t� 6`��� ���0�������!����������������������������4�4� l �/� �a�p�2����������*fnv������d��$��� &`#$/��G$H$IfgdE�$d��$��� &`#$/��G$H$Ifa$gdE���)�kdv$$If�l��r��� $�� �d �,���S�� t� 6`��� ���0�������!����������������������������4�4� la�p�2���������������������d��$��� &`#$/��G$H$IfgdE�$d��$��� &`#$/��G$H$Ifa$gdE���)�kdm$$If�l��r��� $�� �d �,���S�� t� 6`��� ���0�������!����������������������������4�4� la�p�2������������8@HR�����d��$��� &`#$/��G$H$IfgdE�$d��$��� &`#$/��G$H$Ifa$gdE�RTV)�pd��G$H$WD�`�pgdE��kdd$$If�l��r��� $�� �d �,���S�� t� 6`��� ���0�������!����������������������������4�4� la�p�2����������Td�������:>JLXZ^fhnv����������,.6:<>BJLh����������ñ�ââ�բâââââââââÐ~���������������"h�}Eh�z�5�CJ OJQJaJ o("hQ�h�z�5�CJ OJQJaJ o(h�z�CJ OJPJQJaJ o(#hV,4h�z�CJ OJPJQJaJ o(#hQ�h�z�CJ OJPJQJaJ o(,hQ�h�z�B*CJ OJPJQJaJ o(ph&h�z�B*CJ OJPJQJaJ o(ph1V��L�.�02����RPRb��   �������������������������d��G$H$`��gdE� $d��G$H$a$gdE� d��G$H$gdE��pd��G$H$WD�`�pgdE���������.08<>@Rb����0268:>�����������������鰙���x������aO"hQ�h�z�5�CJ OJQJaJ o(,h�jh�z�B*CJ OJPJQJaJ o(ph#hTh�z�CJ OJPJQJaJ o(h:C�CJ OJPJQJaJ o(,hMf|h�z�B*CJ OJPJQJaJ o(phh�z�CJ OJPJQJaJ o(*h�z�B*CJ OJPJQJ^JaJ o(ph&h�z�B*CJ OJPJQJaJ o(ph,hQ�h�z�B*CJ OJPJQJaJ o(ph�������������������$(6HPRTXZj~����������NPZ`bjlprz~������׬������������������������������������ך���������h�z�5�CJ OJQJaJ o("hQ�h�z�5�CJ OJQJaJ o(,h�'�h�z�B*CJ OJPJQJaJ o(ph&h�z�B*CJ OJPJQJaJ o(ph,hQ�h�z�B*CJ OJPJQJaJ o(ph"h�}Eh�z�5�CJ OJQJaJ o(6������������$Zb������   (*.��������������������������լ���t�b#hQ�h�z�CJ OJPJQJaJ o(,h2#h�z�B*CJ OJPJQJaJ o(ph"h�}Eh�z�5�CJ OJQJaJ o(h�z�5�CJ OJQJaJ o("h�Lah�z�5�CJ OJQJaJ o(,hq+�h�z�B*CJ OJPJQJaJ o(ph&h�z�B*CJ OJPJQJaJ o(ph,hQ�h�z�B*CJ OJPJQJaJ o(ph" �N�v�x�(*@P�P:Q�QRPRlS�ST�������������������� $d��1$a$gdE�$�pd��1$WD�`�pa$gdE���d��G$H$`��gdE� $d��G$H$a$gdE��pd��G$H$WD�`�pgdE����������������� 0248NX��02@DHdt������������������������ܜ܅����n�n�n�n�n�,h��h�z�B*CJ OJPJQJaJ o(ph,h�3h�z�B*CJ OJPJQJaJ o(ph,h�.�h�z�B*CJ OJPJQJaJ o(ph#hQ�h�z�CJ OJPJQJaJ o(,hQ�h�z�B*CJ OJPJQJaJ o(ph&h�z�B*CJ OJPJQJaJ o(phh�z�CJ OJPJQJaJ o(*���<@JLx�����������$&*.2>@��ɷ��ɷɷɖɖɖɷɷɷɷɷɇu�c"h�}Eh�z�5�CJ OJQJaJ o("hQ�h�z�5�CJ OJQJaJ o(h�z�5�CJ OJQJaJ o(#h�tJh�z�CJ OJPJQJaJ o(h3pCJ OJPJQJaJ o(#h�skh�z�CJ OJPJQJaJ o(h�z�CJ OJPJQJaJ o(&h�z�B*CJ OJPJQJaJ o(ph&h3pB*CJ OJPJQJaJ o(ph@BHJNVbfv���������PPPPP6Pm{�Y0W�]\O�NXT�y_>m{�0W�Q�]�vgbL�,gĉ�[ �(W>m{�0W�]\Og�� N�_�b��Q�]Oߘe��R9��TlQBg9�0 ,{ NASNag g NR�`�Q�v�NXT N���N�S�Q�] gsQe��R� �N ��]�N�SO��0�W��Oߘ�� ��N ��r^�_RM��]\O�� � N �(W8^{�0W�S�RT�y4N�e�RlQ�[0c%c�0���[\�~I{:g�g�]\O�� ��V ��]�N�S����e�4�0ΑY%m4�0 Nwm%m4��TvQ�N\ON%m4��0 ,{kQ�z �vcw�#� ,{ NAS�Nag TUSMO�^9hnc,gĉ�[6R�[�[�e�~RI{�Q�c6R�^ ��R:_�[,gUSMO�]\O�NXT�]�e;m�R�T�~9��b��v�{t ��[,gUSMO�]�e;m�R�#���vsQ���[0"��R�NXTI{�^�[�]�e9��b�ۏL��[8h�bsQ �nx�Ohynceg�nT�l ��Q�[w�[�[te0Tĉ0�[*g�~yb�Q�d��Q�]0 N cĉ�[_/e�T�b��]�e9��v�NXT�^ۏL�%N��Yt0 N�~���{USMO��:_S�[@b^\���{USMO�v�vcw�h�g ��S�s��S�eYt0 ,{ NAS Nag T�~"�?e��O T gsQ���[�]�e9��{t�TO(u�`�QۏL��vcw�h�g0;N���Q�[S�b� �N �USMO/f&T�^�z�Q�c6R�^ ��]�e;m�R/f&T cĉ�[e\L��[ybKb�~� ��N ��]�e9�_/e��V�T_/eh�Q/f&T&{Tĉ�[� � N ��]�e9��b�/f&T&{Tĉ�[� ��V �/f&TT N�~USMO0ONbvQ�NUSMOl��Z�]�e9�� ��N ��]�e9��{t�TO(u�vvQ�N�`�Q0 ,{ NAS�Vag �Q�]�NXT N�_T�c�_USMO�c�Qck8^lQ�R;m�R�NY�v��Bl � N�_(W�Q�]g���c�Sݏ�Sĉ�[(ulQ>k/e�N�v�[��08nȉ�T^��]\O����v�S‰ � N�_�c�Sk@bRL�:NKNN�v �1uT�~"�?e��O T gsQ��#��N9eck ��m�SݏĉD�ё�v ��N�N���V �v^Ɖ�`�Q�N�N��b0�[�v�c#��N�N�T�vsQ�#��N ��b��vQ@b(WUSMO cĉ�[�~�NL�?eYR0�m�Zݏ�l�v ��y�N�S�l:gsQYt0 ,{]N�z D�R ,{ NASmQag "�?ee��R�v^��SgqlQ�RXT�l�{t�NNUSMO0>yO�VSOI{T{|:g�g�Sgq,gĉ�[gbL�0 ,{ NASNag ,gĉ�[�2014t^4g1�ew��eL�0Ym_lw"�?e�S 0sQ�NpS�S0Ym_lww�~L�?e:gsQ�]\O�NXT�]�e9�_/eĉ�[ 0�v��w 0�Ym"�?eW[02007057�S)0 0sQ�Nw�~L�?e:gsQ�]\O�NXT�]�e9�_/eĉ�[�ve�EQ��w 0�Ym"�L�02011064�S) T�e�^bk0T0WKNMR6R���v�]�e9��{tĉ�[N,gĉ�[ NN�v T�e�^bk0 ,{ NASkQag ,gĉ�[1uw"�?e�S�#��ʑ0 D�h�1 R0W:S0R�~+R�]�eOO�[9��TOߘe��R9�P���h�Qh� USMO�CQ w�NOO�[9�Oߘe��R9� ��N �)Y �w�~�S�vS_L��~ �NXT�nf�WY�� �ckoR�S��S�vS_L��~�NXT�US��bh�Q�� �vQ�N�NXT�US��bh�Q�� �S�N800500350100)Y%m800450320100�lS800450310100q\�800480310100�Q���S800460320100���[800480330100 'Yޏ800490340100 T�g800450310100ў��_l800450310100 Nwm800500350100_lς800490340100Ym_l800490340100�[�_800460310100�y�^800480330100 �S�800490340100_l�800470320100q\N800480330100R��\800490340100�lWS800480330100VnS800480320100VnWS800450330100^N800490340100 �m3W800500350100^�800470330100wmWS800500350100͑�^800480330100�V�]8004703201005��]800470320100�NWS800480330100�υ800500350120U��800460320100u��800470330100R�wm800500350120�[Y800470330100�e�u800480340120 D�h�2 Ym_lw:gsQ�]\O�NXT�Q�]�[ybUS��S�xjm)ʬuW��Lfd���ݮ�+5_��4cs��j��-V��?k3���rm}�����g��z���� ��g��s�嚋7���xw����sȈ��R� �W*)|��jȫK��Xͫ��� dX��IBF؇bn�h (� �*��'vɗ3KZ����jz'c*����_=}��<9����ݻw~���]�8��^~��_o�?����xY���ýg�~^�������G}J��0��E�m��h��=���Ԅ��� �Ξa�>s�$�-, �O�ɠ���=Hp� Ua/� �UO d*:�(�.�f�T�����U��/!�9$V[|h���rv����s��-i�U�t. �����6��ڪ�4C����ebs)����bMj�B�e��k�p��� u�m����,�f�d��$͑�{6GU���Vf�~�b��#�V���b�@�q�TTW��.�ޛd)��i�@��vdq�9Y���^��X�����7�{2�%�u��H�x��+a���f6]>�f#s�m�*���q�q��DH��ehK����)���@��?71����o�ggo��`:fղ�e������k�p£�2֌Nj��8��ǰ�D �CB�?8���1e��>�nE��eU}�H�]��dm1iQ6��褣�֧<��z[[v�|�0��p�sz�4��F؉�]�j�����Qv�1�1ߖ��⃛�� ��`̔4��S 3t��4��h��� ��PK! ѐ��'theme/theme/_rels/themeManager.xml.rels��M �0���wooӺ�&݈Э���5 6?$Q�� �,.�a��i����c2�1h�:�q��m��@RN��;d�`��o7�g�K(M&$R(.1�r'J��ЊT���8��V�"��AȻ�H�u}��|�$�b{��P����8�g/]�QAsم(����#��L�[������PK-!����[Content_Types].xmlPK-!�֧��6 0_rels/.relsPK-!ky���theme/theme/themeManager.xmlPK-!�lN����theme/theme/theme1.xmlPK-! ѐ��'� theme/theme/_rels/themeManager.xml.relsPK]� ������ +++.�J � 0PT�����@dQ�T0VxZx[j]F`�bLde(e!"#%&'35689?Xmuw �����RV T�Y�\ ]$]<]^]�]�]�]�]�]^2^T^|^�^�^�^�^ _$_F_p_�_�_�_�_``:```x`�`�`�`�` a.aTala�a�a�a�a�abDb\btb�b�b�b cc"cdc�cLd"e(e $47:;<=>@ABCDEFGHIJKLMNOPQRSTUVWYZ[\]^_`abcdefghijklnopqrstvx"%.!�!�����@� @���������H ��0�( � ������( � ��bB � c �$D�����o�"�?���B �S ���� ?��k"kt@�� wenjiantoufwzhfilenamezsbmfwdwcsmb yinfadanwei :*8� 8R -d���y�]��;*�urn:schemas-microsoft-com:office:smarttags�chsdate� 0�N �2014�3�4�Day�False �IsLunarDate �IsROCDate�Month�Year -.8:STijm�� &6>?DGI������"#,146EFop����  Y[^_ejmo������������  !"2367:;?ALMYZjknorswy}~����������������%*-/HMPR������������������ ����������()-/?@BChj�����������������13IKVW[]������������ & ' R S � < V W \ ^ � � � � � � � �   D F K M f g l n  � � � � � � � � � � � � � �   & , . E O x � � � � � � � � � � � �     # % D F b d g h l m q #HNkq����������$).0PVlr����������:<?@BCHJnorvz~�����������   78<=?@CDIKORYZ\]bcvw�������������),>@RTfhz|������������ 02FHZ\np��������������"$68KMO]^ceiknquvwx|���������������������������������')*58Aefhiklnoqrt|����� ������gk������� � W X � � [_bf������fhiklnoqr��333333333ss33s33 ���� 3Ak~��8D�Oe�efhiklnoqr����� PP&&����II����__��##$$__aaeffhiiklnoqr�����VR�R^�'P4a.�zc8 �D N (��VW@�U\� ��r��K#&S#� %!2&�%*?|,�V1�35Q5�6�<7�B7�a78nN8+9->�p@�,D�'F�OF�7G�%JZJ�GL�rMtVd3X,!Z5K]�^�^bK`n\``a=cy5f:df�8h�fhnci�4l�p3pf`pq;bq�+r� tQLvmw�CxI2yb#z�?z�|Mf|^P}�-S���zb��H��S�Ab�-�Xj���0N�Zv�P�^\����~�e$��{�PB� [��-� e�:��$�:v�c.����p�-d���,�pX��N�:C�cy��G��S�-W�� ��%�(2��E�E�;q�b/�iy��p��q�w��N��c��E��Z��|�� �PS��,��Q��]�;���j�T��z��(�1[��5�{�u{�>8�b:��E��]�v �][��Z��� ,��R�S��Y��Z�-h�fh��  BookNames CurUserName DeleteMarcesDocNamehahaNewInfoOldInfo SplitToolTitleStr TrackMarkyear1_2;filetype1_2;fwzhR'Y�False$08E5BD7B44E5897B48257C90000BC5C1.doc10002014010&;&Ym"�L�&;&Ym"�L�02014010 False 1� V��F�F�V��F�F�V��F�F�V��F�F�V��F�F�V��F�F�V��F�F�V��F�F�V��F�F�V ��F�F��� Project.NewTitleModule.NewTitleProject.ToolModule.HideMark)Project.ToolModule.Register_Event_HandlerProject.ToolModule.ShowMark Project.ThisDocument.ShowToolBarProject.WriteMark.WriteBookmarkProject.SplitModule.SplitDoc)Project.SplitModule.InstBokMarkBeginTable)Project.SplitModule.InstBokMarkLastColumn*Project.SplitModule.InstBokMarkTotalAcount PROJECT.TOOLMODULE.HIDEMARKPROJECT.TOOLMODULE.SHOWMARKPROJECT.SPLITMODULE.SPLITDOCPROJECT.NEWTITLEMODULE.NEWTITLEPROJECT.WRITEMARK.WRITEBOOKMARK PROJECT.THISDOCUMENT.SHOWTOOLBAR)PROJECT.SPLITMODULE.INSTBOKMARKBEGINTABLE)PROJECT.SPLITMODULE.INSTBOKMARKLASTCOLUMN)PROJECT.TOOLMODULE.REGISTER_EVENT_HANDLER *PROJECT.SPLITMODULE.INSTBOKMARKTOTALACOUNT@�""""(� ����P��Unknown������������ G��* ��Times New Roman5��Symbol3.� �* ��ArialME�� �eck\h�[�{SO�[SO-�eck��'YW[&{Ɩ;5�� �N�[_GB2312;���[SOSimSun;��ўSOSimHei7.�����@ �Calibri;.� �* ��Helvetica35�� ���|�8�N�[�[SOA����$B�Cambria Math 1 ���h�Z#Gf�%gf�%g15 &15 &!-!),.:;?]}����    & 6"0000 0 0 00000��� � �����=�@�\�]�^���([{�  0 0 00000��;�[�����42����2\\ud�3�q���HX��?������������������������2! xx� ���0 Ğ�efH�$�?��������Oh��+'��0������  0< \ h t ������4 ������Normal���ͺ�4Microsoft Office Word@��G@�luz�@���<�@�luz� 15����՜.��+,��0� X`t|�� ����� ���񺼰�& \   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy����{|}~���������������������������������������������������������������������������������������������������������������������������������������������������C���Root Entry�������� �F��LJz��GData ������������z�$1Table���������V<WordDocument����F�SummaryInformation(�������������DocumentSummaryInformation8���������Macros\��z�КŇz�VBA����\��z�����z�ThisDocument �����WriteMark������������B NewTitleModule�����"FfrmTools ����6�  !"#$%&'()*+,-./012345����789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWX����Z[\]^_`abcdefghijklmnopqrstuvwxyz{|}~��������� 7��U���������������������������x��ME����������������������������������������������������������������������������������������������������������������������������������������������������� P��������������������������������;�`�^�������� ��`�`�������� ��`�b�������� ��x`�d�������� �� ��`�f�������� ����`�h����������`�j����������`�l���������������������������������������������������������������������������������������������������������<� ����"����� �(�0�8�@� �����H� P�`� p������� �� �� � � �8�X�`� ��$�� ������� �����"�� �������&(�P�X�h�����! ��������� ������(�@�`�h�p�x������� ������� ����������]�@]�X]�p]��]��]��]��]���n0� H.bctiona� b!p.dn� BookNames "%B!t'r�NewInfo "%B!t'v, r�;$x'^$* v�&;&$x'`A@ ^�'z6� `�'| d!8'hSc z |�iona� ~�� z� (. ~$^ H!p%���4A@�� ~$^$d!f.f� f!d'j2 j� $�A��; ȥ�����з� j� A��;ȥ���ո�B j� $�A��=ȥ��TAB%BA@� ~$^�jinjicd� ~$`� ���$� ~+`k��� ~$`'l l� A��5ȥ���ո� l j$R� f!� f!�� fB�k��0 ~$`$R fB� ~$^ f dB�k��� ~$^�fwzh��fwzh H%pB@H� ����_GB2312 �!�(k���k������k����nxA@�|��ho��`����X����Y�Attribute VB_Name = "WriteMark" � Sub D BookmT() Dim b&array As Variant:ansewder@pp8VsArange3CountInteger�sel@ecttexS��ngtmD On Error GoTo e�handle� Set aa= ActiveDopcume���d=��.��sn��Bs�This .��bles("����s") lu�=�A��slist��NewInfo��ށL�= Split( $, ";~"z� �rE � &$;&� p1�%UB�@dd(F�p2�W��� s�t=šs�.BCP�%If ��Then�JF�oj@0 �pp>1P� ��pGk.E x�Xs�0(j))��True �� Hid��� ������7�.���d= � .T@� Call delstr(G, C hr(13 'ȥ���������� � " "�)�"� �ո�; Q9! � TAB�� ShowM?��7�DY�@�@"j�injicd" Trim5hK)_# �WSt�art ��Y�{l�BO�Cu�І �'� I�(rtA`fter(�,6)�h�M F ��.Ad��} 2,}x:Vfhwzh�U m�P(�").Su��3ion.Font.�����_�GB2312 � ߹���N�O5h{:� y>�]t Sub���� DB@Fo���������������L������7��\�����������������^������ea 7��Q�����������������������������x��ME������������� ��������������������������������������������������������������������������������������������������������������������������������(S"����S����S"����<������(1Normal.ThisDocument����� &�����������������@��������0�i�(�������� �������00@�*�������� ��0#@�,�������� ��8`�.�������� ��do`�2����������E V�������������������������'�i�(�������� �������>(@�*�������� ��k @�,�������� ������`�.�������� ��.`�2����������� Z������������������������������������������������������%����������������������������������������������������������������������������������������������\"� � ����� "�0�8�@� �����$H� p� �� �������� �� �������"� �����"(�P�X�`�h�x� �������������� ����� ����� ����� �����&������ �� �(�0�8� �����@� ����"� H� ����� "P�x����� �����$�� �� �� ���� �� 0� �����@�"H� �����"p� ���� �������� ��������������� �����&��  �(� ����� �����0"�8�@�P� ����� ��������`��***********�����Ĵ��ݺ����E7.]�`]�x]����Scripting.Dictionary$0.,on� (.,��]�D� zv}�W� ,!4'*ծ%�� 6�� ,!8� ��u�� 6$*'27H 2 2$,A@:�k��� 6��͹Z�)�A@<� CurUserName "%B >(@������� TrackMark "%B�0��������'.d����'.� DB@F��k���������úۼ��������� H��9J�9L�9Nq��@A@P�TitleStr "%B$R� ���A@Tk��� ���úۼ����� H� .9J .9L .9Nq���o������***********�����Ĵ��ݺ����]� ]�8]�P��Scripting.Dictionary$0.,� (.,]�Dh ,!4'*� 6�� ,!8� � 6$*'2 2 2$,A@:� 6��A@<� CurUserName "%B >(@� TrackMark "%B�0��'.d��X�'.k��H� XB@FA@P H� .9J .9L .9Nq���TitleStr "%B$R� �A@Tk���o������ DB@Fo��������������Attribute VB_Name = "ThisDocument" �Bas�1Normal.VGlobal!�SpaclFalse �CreatablPre declaId�Tru BExposeTemplateDeriv$Customliz�C�1P Sub InitWord(ByRef oObj As ect)@ '*�����Ĵ��ݺ���� @ Dim aoDic�Trac kmark%Bo olean%Se\t ��v��e3("Scripting.�!tion�ary"�>�L�.Pstr ,S�n0g a'�*.Keys For� i 0 ToB.Count -` 1 �=0 a(i�Ad�dVar �,� (@�Next i�.Regist er_Ev@�_H@andler�|p plica�,.UXserĚ��.@i�`s("CurE ��7 If � BQM@Q")�3"0"-@ e�Q�0 GY= =�E��C~EfrmT�es.Show 0 End If{�����úۼ�����LWith �Act����GR.�!�Revis�ms@*��"�.��nt!��*�%A Wr�ite����d��OLen(TrimB(�Qitle�E"@))) > �Bh��(NewT!� K ��Ob!_�#O O�$g�ccSuba��ws`Pt?x�x/x�4��xE�i#f�ya�c�t�z�^A�#{��� o�{�,|A�|��`� )}��}A%~aw�5!A��! � � ��rk��g4f��� �l�! ���SJ��� pa#��cA^d�.��C ��Xe�G����A�9��?�AA5B���9��9Pub�`Ruñ VBar(f/W WrAeStr) - 1)f!d� End If�! arrays = Split(TitleStr, ";")� rows = UBound(arrays)� If rows < 1 Then%B� Exit Sub� End If�� Dim books As Variant� Dim bookname As String� Dim flag As Integer� Dim rang1 As range� Dim cellcontent As String� '�����úۼ������ With ActiveDocument� .TrackRevisions = False� .PrintRevisions = False� .ShowRevisions = True� End With� flag = 0�<If ActiveDocument.Bookmarks.Exists("wenjiantou") = True Then� flag = 1� bookname = "wenjiantou"�End If�If flag = 0 Then� Exit Sub�End If�flag = 0�)ActiveDocument.Bookmarks(bookname).Select� iCount = 1�9 For Each ocell In Selection.Tables(1).range.Cells�0 cellcontent = Trim(ocell.range.Text)� 'ȥ�����з�����������57�S(���������������������������x��ME�������������������������������������������������������������������������������������������������������������������������������������������(<��f<��< ��<����������p T����������������������������������`���������� ��`������������`������������x`�d�������� ������`���������������`������������ As �����������m ro%`�������������`������������NewI`������������ Thi`������������"Tit`�����������9 �������������������������������������������������������������������������������������������������ߙ��6� � � 0� P� $p� >�� @�� *� :H� �� (�� �� �� � � (� 0� P� p� �� $�� �� �� &� &@� $h� �� �� B�� � &� @� P� h� x� �� 0�� �� @�� 6 � X� :x� ��� `� x� 6�� ��� h� <�� @�� �  � 8� &@� h� �� �� �� �� ��  � ( � $@ � h � B� � � � � � 0� � : � �X � &� � 2 � 8@ � 8x � 0� � � � 2 � 88 � 8p � 0� � � � 0� � 8( � 8` � 0� � � � 4� � 8 � 8X� 0�� �� 8�� 8� 8P� 0�� �� 6�� 8� 8H� 0�� �� P�� N � .p� �� �� :�� 8� 0H� x� $�� H�� 0� L0� P�� 8�� � <(� (h� (�� P�� � ( � NH� ,�� >�� 0� &8� `� &x� $�� .�� *�� ,(� 0X� �� �� @�� <�� &(� P� p� "�� .�� *�� ,� H� `� p� �� *�� �� ����"��� ������� ������ 8�X�p����� �� ������ ������������ �����"�@�X�`��� ����� ������������� ���� ��� N�h� p��� @���� ����� �� ���� �� � 0� ����� @�P�X� ����� ����� `� p������������� (��� ������(�2H��� �������� �� �������� �� �����  � (�8�@�H� P� X�h�p�x� �� �������� �� �� �� ���� ����� �  �  �  � � ( �8 �H �X �,p �� � � � � � � � !� !� !�(!�@!� P!� `!� �!� �!��!��!��!��!� "�!��!�"� �����"� "� @"� `"� p"��"� �"��"��"��"��"��"��"��"� �"��"� ��������#�Sub NewTitle()����� '�����ļ�ͷ��� Dim arrays As Variant� Dim rows As Integer� On Error GoTo errorhandleNewI�7 TitleStr = ThisDocument.Variables("TitleStr").Valuex�9 Trackmark = ThisDocument.Variables("TrackMark").Value�$ If Right(TitleStr, 1) = ";" Then H!�4 TitleStr = Left(TitleStr, Len(Titl�4 Do While InStr(cellcontent, Chr(13)) > 0�� cellcontent = Left$(cellcontent, InStr(cellcontent, Chr(13)) - 1) + Right$(cellcontent, Len(cellcontent) - InStr(cellcontent, Chr(13)) - 1)� Loop� 'ȥ���ո��0 Do While InStr(cellcontent, " ") > 0�� cellcontent = Left$(cellcontent, InStr(cellcontent, " ") - 1) + Right$(cellcontent, Len(cellcontent) - InStr(cellcontent, " "))� Loop�5 If cellcontent <> arrays(iCount - 1) Then�: ocell.range.InsertAfter arrays(iCount - 1)� flag = 1� End If�� iCount = iCount + 1� Next ocell��If flag = 1 Then�'ȡ�������̵������ Dim MaxL As Integer� Dim MinL As Integer� Dim l As Integer� MaxL = 8� MinL = Len(arrays(1)) + 1� For l = 0 To rows�; If Len(arrays(l)) > MaxL Then MaxL = Len(arrays(l))� Next��* ActiveDocument.Bookmarks(bookname).Select�4 Selection.Delete Unit:=wdCharacter, Count:=1�� ActiveDocument.Tables.Add range:=Selection.range, NumRows:=rows, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior� With Selection.Tables(1)�+ With .Borders(wdBorderLeft)�2 .LineStyle = wdLineStyleSingle�1 .LineWidth = wdLineWidth050pt�) .Color = wdColorWhite� End With�, With .Borders(wdBorderRight)�2 .LineStyle = wdLineStyleSingle�1 .LineWidth = wdLineWidth050pt�) .Color = wdColorWhite� End With�* With .Borders(wdBorderTop)�2 .LineStyle = wdLineStyleSingle�1 .LineWidth = wdLineWidth050pt�) .Color = wdColorWhite� End With�- With .Borders(wdBorderBottom)�2 .LineStyle = wdLineStyleSingle�1 .LineWidth = wdLineWidth050pt�) .Color = wdColorWhite� End With�1 With .Borders(wdBorderHorizontal)�2 .LineStyle = wdLineStyleSingle�1 .LineWidth = wdLineWidth050pt�) .Color = wdColorWhite� End With�/ With .Borders(wdBorderVertical)�2 .LineStyle = wdLineStyleSingle�1 .LineWidth = wdLineWidth050pt�) .Color = wdColorWhite� End With�J .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone�H .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone�' .Borders.Shadow = False� End With� With Options�3 .DefaultBorderLineStyle = wdLineStyleSingle�2 .DefaultBorderLineWidth = wdLineWidth050pt�* .DefaultBorderColor = wdColorWhite� End With� Selection.SelectColumn�B Selection.Columns.PreferredWidthType = wdPreferredWidthPercent�* Selection.Columns.PreferredWidth = 100�E Selection.Columns(1).PreferredWidthType = wdPreferredWidthPercent�J Selection.Columns(1).PreferredWidth = CInt(100 * MaxL / (MaxL + MinL))�2 Selection.MoveLeft Unit:=wdCharacter, Count:=1� If rows > 1 Then�6 Selection.MoveRight Unit:=wdCell, Count:=1�" Selection.SelectColumn�! Selection.Cells.Merge�I Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter� End If�" Selection.Tables(1).Select�H Selection.ParagraphFormat.Alignment = wdAlignParagraphDistribute�& With ActiveDocument.Bookmarks�8 .Add range:=Selection.range, Name:=bookname�* .DefaultSorting = wdSortByName� .ShowHidden = False� End With� Dim FontSize As Integer� FontSize = 320 \ MaxL�' Selection.Font.Size = FontSize�# Selection.Font.Bold = True�% Selection.Font.Name = "����"�* Selection.Font.Color = wdColorRed�� iCount = 1�9 For Each ocell In Selection.Tables(1).range.Cells�6 ocell.range.InsertAfter arrays(iCount - 1)� iCount = iCount + 1� Next ocell� '���úۼ������ With ActiveDocument�' .TrackRevisions = Trackmark�# .PrintRevisions = False�& .ShowRevisions = Trackmark� End With�End If� Exit Sub� errorhandle:�$ MsgBox ("��ͷ�༭����:" + Error)�End Sub�� �����ļ�ͷ]�@]�X]�p�n��TitleStr "%B!t'�� TrackMark "%B!t'. ��$��;� � �� $�'�k��h ��;$x'� ��'� �� �|�$�ļ�ͷ�������ֺ�k��]��]��]��]��]��� wenjiantou H!p%���� wenjiantou'�d���|�$���IJ������ļ�ͷ��ǩk��x�'��'� � H%pB@H�'�� ��� �%�!f!�� �!f!d$R'�� ȥ�����з� �� $��� b � �� $��� $ � � � �� $�� � $ � '������ȥ���ո� �� �� b � �� �� $ � � � �� � $ � '����  ��� �'�d�� ��; � '�k��� �� '�� ��� � ���'�k��� ����ȡ�������̵�����]�]� ]�8�'��$�� '�� ��� �� �$� � �G �$�'�j��� � H%pB@H �����8 �B@� �!f�f ������ ��� H!�B@�� �%�� �7�� �9� �9� �9�q��8 �7�� �9� �9� �9�q�� �7�� �9� �9� �9�q��� �7�� �9� �9� �9�q��� �7�� �9� �9� �9�q��x �7�� �9� �9� �9�q��H � �7�(� � �7�(��5�(�q�� �� �9� �9� �9�q��� �B@� � �!�(��d �!�(� �� �%�(��d � � � X� �%�(� �����8 �B@� �� � ����8 �B@� �B@� �!�B@  �!�(k���� �%�B@H  �!(  H!p� �!f�f ��C@� 9�9q��h]�P�@ �'  �!�(� Selection.Font.Bold = True�����С���μ��� �!�(  �!�(��'�� ��� �%�!f!�� �� $� �!fB@� �� '�� ���k��x� ���úۼ����� H� .9J�9L .9Nq��8|��0�n(� ��ͷ�༭����: � A@o�����������ҵAttribute VB_Name = "NewTitleModule" 'SHub T()@ '��������ͷ"Dim arrays As VariaDnt6row2I@nteger2 On Error� GoTo e �handle �Str�ThisDocument.`bles("I"")lu9r�ackmark: �M��If R ight(�-, 1)�#";" Txhen�^����LDef�Len�) -� End If��= Sp
  • B5� ��e�u$�InW �w �+Â�}h a}= �0LoopL" ��̸���" �M�= nt, � ���z���;�@[�3�<>��(DR�l�;�IInsertA�fter0�)De? ^�FiL&d+ �*N�Y�d�@'vƳ'ȡ���������̵������@��0MaxL!�o�Min4l�= 8�$ b!?n�(1�2�� A>l�?0 pxe�tQ @ 1.�g(l6��� ������H�ysH 'A1wFD J��Unit:=wdCha��_0@?K:=Y�A3J.Add BJ:=w, Num2R�:=��Columns:=2, DefaultrBehaviorQWord9�Z�� �k�bs@(� �pdrde@rs(wdBperA:�3.LineStypP= wzd�S`z���JWidPuE�050�p��>p�_���W�t9v��2a � � � ��� �� �� �p�B� h� G.� � �� 6�aTop� 3� � ��� e��\� i� 0� �� � Bottom�� c� � �� � �M� � 1� �� � Horiz��al�?�??F�??�M??1?�?1�VPrice�&J/8/8��F�SDiagonalDown)#� � Non�L ���Up�DX�� �.Shadow�u-� \ �Opt�ͨT.h�a�_�`�Q_�ɶeWidth05�0pt ' .DefaultBorderColor = wdA$White�E�nd WithvSelectio�n.fumn@8,s.Pref erred�Ty pei Percen�D@100qq(1)Bt�#�;CInt(> * MaxL / (�+ MinL))JMoveLeft Unit:=�haracter, Coun � 1��If rows > 1 �The�� ���+Righ,ell��)C mOC��s.Merg��Vertical�Alignm�pI/9�B�C@er3:�IfG(Tapbles�_� P@QgraphFo�rmat.�B�Distribu'F�3�� A@�veDocu�..Bo�okmarks� .Add ra`nge:=G*,P Nam�b�n'@���SoJng3�G�By� ShowHiddena Fals�_P� Dim FontSize As �eg�Z�= 3�20 \BW)'! .B =�8Bol�dTru�� ��"����"� c�R�Red��if )f�? Eac�h oc�N��d'I�"5.�Z A;�.�HIns�YAf�s �arrays(d�- 1e{�A��+ � Nextc'���ú�ۼ������'pQ�!.T��kR�evis@�s� ��U-Print)��H .!M� �MA�u Exit Sub��orhandle:�MsgBox ("��ͷ�༭����:" + Eprror�)A �  �&wTitl e(`!'�����ļ�ͷ  !]�2�\Var|iaA�E� `O`ldStra�i$ng� On# G�oTo (���=��is愂��"E").Valo�`��35h4!:M���K@��(% ,`O��";"D� � �%G�A�Len�)> �+U��= �Split��$!"= UB�jd(���j<�j11u! �y'���������ֺ�ci ��Us��N�V=�QflagqvP�{�!>1��>gaCc�T�k�#�2"`/b#b.�sts("wenj�(ou"�)��P�� = �=#EB^U�� `'���ijs���ǩDp��9��S�= ����0P�`X� � ( )D��&O�N��W�_�Wl>l`ua1Y�5ri�m(o1�XT�S�&�'ȥ����0�з��ADo� ��le0_@(`�hr(13))���1h�q3$��In���4 L�9�l!7�Q7� C�a� Loop���Xո�'�l4+,h " p'>5t�nt,_�?��?_S�� � @5�(��2 ����2�4�+ AR+ � )F?!�,��{��{ � uX <>����61 � ��,'ȡ�����������@������% ��B��l��L��.N��l���= 8W�B= !�]�)�-��=��=l�#0 r߱`���l�6r�����Q��_�H�H��'�FD�t�e/���A�.cJ�G��b�umR0�:=!���s:=2 , ��rBehaPviorq�W��9�Z� ➯RH3� R ��!�s(wd��K��.LineSty�P����Single  .LineWidth = w�d4050pt�`ColorTWhit �End 0With x" .Borders(wd Right)f�Style�� ��Top�a��@Bottom�1 ?�9�Horizopntal�2�2��V�ertic?2��d2��{DiagonalDown)c��zNonL��Up�b�.Shadow �FalsH /�'��Options�.De�fault#���?��� �OSehlec�.#�umnG�#s.Preferred1�Typ���Peprcen(���/1�00�(1)_�_O �CInt(@ * MaxL / (�+ M0inL)�GMoveLeft Unit:=wdCharacter@, Coun`1GIf rows > 1 The�,�8� "�� ell_1 �# 8kC s�.Merglj�#��EAlignm�_ � ��C�efr7&If�gT�ables�3?n.P�graphFormat.��&DistrXibu�GR9A�,v`eDocua P>o kmarkm:Add range:=G , Nam�`bookn�� ���6So�WngR�ByA�Sho�wHidden`��El�Dim F�iSize As �(eg��= 3�20 \r*W ��.b=v' �Bold� Tru(!<� 0"����С���μ����"�n.��@(i�Red �i�1��1 Ea�ch oc0&�h {�#�.*�.R.��Ins�qAf`8 arrays(q- 1|��+� 8 Next���-'���ú����������' �O.T�AkRev�is1c��)�Q qNintI\#�jo~wO�-C a�xit Sub �Zorhandle:�MsgBox ("��ͷ�༭����:" + Error`�� ������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SP����S����S����S�������0{E9B6E096-4C03-4CF5-9547-1E3C35760AF4}{7C0EBF30-EBD2-40E8-A57E-B509866E7987}����� @����������������������������� ������������������������������  ������������������������������ $����������������������������� &��������������������@���������i�(����������`�i�*���������������������������������%����������������������� %���������������������������������������������������������������������������������������������� ����� ����� ����"���� ����"�� �(� ����"�0�8�@� ����"�H� �����P� ����"� X�`�8h��� ����������A@�o��h�@A@�o��P��A@"o��8��o��(��'(��Բ��𣬴˹��������ܹر� ,�������������ϢA@o��X����P������Attribute VB_Name = "frmTools"  �Bas|0{E9B6E096-4C03F5-9547-1E3C35760AF4}{7C0EBF30-EBD2-40E8-A57E-B509866E7987}� dGlobal�SpacoFalse �CreatablPred�eclaId�Tru BExpo se0TemplateDeriv�Custom�iz�D �P Sub NonMarkCB_Click() Hide� End�Sho:wb� plit 3SDoc�UserForm� QueryCl�O(Cancel As In�teger, pModeH� ĩ�б�dzɹ� ,� WORD ������ϢA@ookmk���o������Ƿ�ȷ��ĩ�б�� 6� WORD ������Ϣ$'4* 4 8�efauA@B� ĩ�б�dzɹ� ,� WORD ������ϢA@n = k��o���X��Ƿ�ȷ������ļ� 6� WORD ������Ϣ$'4 4 8�ize A@"�4 MsgBox "����ļ��ɹ�", vbOKOnly, "WORD ������Ϣ����     U����& !"#$%'()*+,-./0123456789:;<=>?@AB����WEFGHIRKLMNOPQDST����VXZY[]\^����_������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������"# k��`o��X����P����8�Attribute VB_Name = "frmSplit"  �Bas|0{98904F54-BDB5-4A90-AF8B-1B634873B384}{8A19F158-A38F-4E94-(828FD21@49232} dG lobal�SpacoFalse �CreatablPredec$laId�Tru BExpose0Templa�teDeriv�Customiz1�D P Sub cbHideMark_Cl�ick() � End� � Show ��TopLeft4Dim ret As Integer �= MsgBox("�Ƿ�ȷ�����б��", vbOKCancel, "WORD ���� ��Ϣ"�.IfB=� Then InstBok�,Begi�nTE�� "��ɹ��Onl&yNC8If[:Ri�gh�:�5ĩ��5�5LastCol|umD<�5��56d�Bot��Gp�5kEkTotalAco�unt�5ĩ� ��X�5d≝�����ļ�_PTP� �Doc '!R�3� ���3���������� 7��\���������������������������x��ME�������������������������������������������������������������������������������������������������������������������������������������������(<��J<��< ��<����������` �H��������B@�% <`����������������������������� :���������������������������i�L������������i�N�������� ������� +PX����������������  �������i�L���������������`�R�������� �� ������������������������������� ������������������������������� ������������������������������I�Z�������� ��8�I���������� �������������� ����������������������������������������������������������������������������������������������.�"�� �8� ����"� @� H� `�p��������B� �� ���� ����� ������� �(�0�8�@�H� P"�h� p� ���� �"��� �� ���� ����� (�� � "� 0�8�<P���������]�� ���������� � !> H/b��o��@�`� ��Ӹ��ֱ��� L$P����� N L "%B(td��p L N "!BB@�k��Po��H����жϱ����Ƿ����]�@ TB@V� L "%B!t'R T!X���'Pd����'Pk�����i���� ��ʾ�ۼ������X� "(L� "(No��h� �ڲغۼ�������� "(L� "(No�� �"��Դ�ַ�����ȥ������ָ����һ���ַ�� flag �ַ��source Դ�ַ����� Z ��� b Z Z ��� $ � Z Z Z �� $ � 'Z���ho��`����X������Attribute VB_Name = "ToolModule" Dim X As New EventClass| '������� Public Sub Register_b_Handler()  d Set X.app�Wor d.App9ation End C QAddV�ar(str��S�ng, ne�wValue�"iantg'��@�Ӹ����I0f Ex�C) The�7�HThi@sDocum�o.�"bles�6) �0=�5�Rlse�fu�.X �V�Q�nIf����qFunc��Sku)B�ea['�ж�n�Ƿ���2ڃ�aa�ant��err.Clear On E�rror�su�6x�@ =�B @ �Q�Number@o0�P�W�Tru�GE�H�FaBy�A�$GoTo 0�E�B '�����ۼ�����ʃShowMa rkŔJaPrin@tRevis@�s$Nz� �'�ڄ��RHideg�<��F���?�����ַ�����ȥ������ָ��������A flag �sourc�e E �Ldel@�2(�, � "rDo While I�n M� >�2Aa� = Left$&�- 1) + Righ(Lebn�) -� Loop(d���0������7�Y�����������������������������x��ME��������������������������� ��������������������������������������������������������������������������������������������������������������PS����S ����S�����<��<��`<��<��<������>N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}����� %*�c�������������������������� \��������������������p�������� �)�^�����������x%i�(�������� �������ring���������������������%����0�������������0������������������������������������������������������������������� � � $("� P� X�x� ������$������ ������� ����� ���������������¼��Ķ������] ������¼��ڴ򿪵��ĵ��ر�֮ǰ�����0��ĵ��ر�ǰ�ĸ��ֲ����b ^B@d��p|��h�b` TX �5825 �X �5825���|��0k��(o�� ���������Attribute VB_Name = "EventClassModule"  �Bas�0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |Global�SpacAIFalse dC�reatablPredeclaId�CExposeTemplateDeriv�Customiz E'�����¼��Ķ������ Public With�s app As Wor d.App�atXion u.��VarHelpIDe-1 '��/�ڴ򿪵��ĵ��ر�֮ǰ����6Z^ Sub -_Docum��BeforeCl|(ByVal � B, Cancel� Boo`lean)�E���ĸ��ֲ@��� On Error GoTo err8don@k��.S�avDExit�#  : If@ CStr(@)�6"5825" OrC��TheGA�Bnd Ibf�# E@�=  AI��0*� pH�d�ProjectQ(@=� l ��stdoleP h%^*\G{00020�430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Aut�omation`�ENormal�EN�CrmaQ�F � �* \C �� ���� 2003-4-8 �� ���ͻ� ¼�� �¶��������ο� 88479329 12549346�����]���Q����Ҫ����ǩtotalAcount ,λ�ڡ��ϼơ��У�����Ҫ��beginTable��λ�����еġ��С��ء�]���'����Ҫ����ǩlastColumn ��λ�����һ�С�]��]��]��]��]�]�(]�@]�X]�x]��]��� On Error GoTo errorhandle � �!�(l� totalAcount H!p%����T�� lastColumn H!p%��e�T�� BeginTable H!p%��e�T�k��x l�j� BeginTable� �B@� � �%����"������ǩ����λ�ô��������·��ã�A@|��d���� �%�!�'� ����"������ǩ����λ�ô��������·��ã�A@|���k���k��� l�j� totalAcount� �B@� ��� �B@� � �%��� �B@�� �%�!�'�d���"ĩ����ǩ����λ�ô��������·��ã�A@|���k��� l�j� lastColumn� �B@� � �%���� �%�B@H � �%�'�d��H�"ĩ����ǩ����λ�ô��������·��ã�A@|��k��$h'� � H!�!8���뽫��������������棡A@|���k���������� � H%�%�!f!��������� � H%�%�!f!�� �� H%f!d���*�ڶ����׸���Ԫ������Ϊ�գ������뵥λ���ƣ�A@|���k���� �$�.�]��]��]��DocName "%B!t'� �$R��� �޷�ȡ�����ĵ���������ϵ����Ա��A@|��@k��8�TempPath "%B!t'� �$R��� �޷�ȡ�ñ���·��������ϵ����Ա��A@|���k��� �� ��.doc�� $�'�������ļ��Ĵ��·�� �A@��//add by kk test�7Selection.GoTo What:=����������������    ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������wdGoToBookmark, Name:="BeginTable"�>MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber))�Exit Sub�//end��������ڲ�ָ�����λ���ĵ�.� //ȷ����λ��]� l�j� BeginTable� �B@� � �%�X'��//��ʼ�����еĿ���]�0�'� � ���� ��� ��� � H%�%�!f!��� ��� ��� � H%�%�!f!�� �� H%f.� �!d�$��  �!d�$��  �!d$R�� �!d$R �(dk��� �� '����� HB@d�)/////////////////////////////////////////�'� � � ��� ��� ��� � H%�%�!f!��� ��� ��� � H%�%�!f!�� �� H%f.� �!d'� �!d'��MsgBox currentDanWeiName �B@� �B@z� ~!�.� �� � ��.doc��C@�q��h �B@� HB@d]�H��� ������� J7��H���������������������������x��ME�������������������������������������������������������������������������������������������������������������������������������������������(<��`<f< ��<����������H+h@��������������������������� "�����������������������������*�`������������`������������B@r`����������������`������������|�`������������C`������������ ��`������������!�`������������B@B`������������ ����������pdtot% �����������2003% ���������������%`������������`������������`������������`������������`������������`������������`������������`������������`������������`������������ �h�������������������������&�I���������� ���I���������� ��(�I���������� ��H�I���������� ������� ���������������������������$�I���������� ����I���������� ����I���������� ����I���������� ��(�le�I���������� ��������ĵ�`�(����������(`�*����������B@� �,����������8%`�0�����������v ���������������������������C�I���������� ���B@�I���������� ��0�!�I���������� ��P�����I���������� ��p� aI���������� ����> �I���������� ��������¶� �8���������1254%`�:����������Q��`�<����������t ,�`�>�������������b`�@����������ġ��`�B����������'�� �D��������` ���%`�F����������� :����������������������������� � >���������������������������� � B��������������������������������������������������������������������������������������������������������������������������������������� ����B��$� 0� @� H�P�X�x��� ������ ���� � � � 8�H� ����"�P� X� `� D�� ��`��60�h�p�x����������������� �� ������� �����$���" �H�"P�x��� �����$����,������ �,0�`�h�p�&x����� ������,�0�8�$@�h�������,������ ����� ���" �H�P� ������X�4��� �(� ����� ����� �����8�@�H�P�p�*����������*�0�8�&@� h� ����� �� ����� �� >�� D�� ����� 0 � @ � ����� "P � ����� x �� �$� �� � ����� � �� �� � �~ � �����R� � � � � � � ����� � 00 �` �h �~x � � �  �  � 8 � H �X �h �p �� � � � � � ������ �� �� �� �� � ������ � ������ �� � � � �����*� � �����0� �� �0�8��H� ������ �� ����� � ����� @� P� ����� h� ����� x� ����� �����&�� $�� ������� ������������(� ����� ����� "0� �����X� `��������������� ���������~�� h�x� ������������ 0�*@� p� ��� � � �����(� �����@� P�`� ����� ����� ����� �����h�x��� ���� ��� ����� :H��������� ����� ���������� ����� ����� "�8�H�P�~`� ���� �����H��@��P� ���� � �� ���� ������� ������� ���� ��������� �0�8�X� p��� ��� ����� 8�H�`������� ��������� ����������� � � ����� (0�X�`�"h������� ����"� �� �� *�� �� � � � 8�H� LX�&���� ������� ��� � �(�0�8�@�H�P�X�`�h�p����� �����(t�� H� `� p� ���� ����"� ��,�� �������$��� ������(� 8� ~@� �� (�� ��� ������0� @�X� `����� ��� ( � (8 � ` �p � ����� x � �� � (!� &8!�`!� �����h!"� p!�x!��!��!��!��!��!��!��!� ������!�$�!��!� ����� ����� �����"� ������"� �"��"� ����� ����� ����� �"� �"��"��"� �����#� ����� #� (#� 8#� ����� ����� �����H#� P#�p#� �#� ��#� ($� 8$�H$��X$� �$� %� ����� \%� ����� nh%� �%� ����� �%� (&� 0&� ����� ,@&�p&� ����� �����x&��&� ������&� ����"��&� �&� "�&� �&� �&� �&�$'�0'�8'�@'�H'"�P'� X'� "`'� �'� �'� �'�$�'��'��'��'�(� ����"�(� (� "(� @(� `(� h(�&x(��(��(��(��(� ����� ����� ����� ����� ���������(� l�j� BeginTable� �B@��� H!p��ĵ� 9�9q��( �����8 �B@� p����8 �B@n�� t�� x�v �B@r� �B@zNnoSet'�]�`�'��'� ��� �� '��! � � � �� ��� � H%�%�!f!��� � � �� ��� � H%�%�!f!�� �� H%f.� �!d'� �� ��$�� � ��$��  ��noSet� �'��6 ��λ�������set'�k��� �� '��!� � � �� ��� � H%�%�!f!��� � � �� ��� � H%�%�!f!�� �� H%f.� �!d'���� ��set� � � '�k��� � � � � �A� HB@d�''''''''''''�ϴ� HB@B�'''''''''''''''''''ɾ�� �� ��&�����ӵ�λ���ĵ��� � � � � � � �A�k��k���noSet'��'��'� � � '�������½����������ĵ� һ����λ]�x �����������.doc'�]���'�� ~!�.� �� ���C@�q��@ �$�B@��'� � � ��� ��� ��� � H%�%�!f!��� ��� ��� � H%�%�!f!�� �� H%f.� �!d'��'� ��� �� '��! � � � �� ��� � H%�%�!f!��� � � �� ��� � H%�%�!f!�� �� H%f.� �!d'� �� ��$�� � �� '��!� � � �� ��� � H%�%�!f!��� � � �� ��� � H%�%�!f!�� �� H%f.� �!d'����� � � � �A� �$�B@� �B@�k��� � � '� � �� ��l �B@�����ҳ�� �� '���''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) '��ǰ��ҳ�ţ����ںţ��4''''''''''''''''''''''''' ����ɾ����ǰ��ҳ��Ĵ��� � �!�!�(� �����8 �B@� �!� �B@� � �!�!�(�k�� �$�B@����� ��½����������ĵ� ������λ �$�B@��'� � � ��� ��� ��� � H%�%�!f!��� ��� ��� � H%�%�!f!�� �� H%f.� �!d'��'� ��$��  ��$��  �$R�� �� '��! � � � �� ��� � H%�%�!f!��� � � �� ��� � H%�%�!f!�� �� H%f.� �!d'� ��� �� '��!� � � �� ��� � H%�%�!f!��� � � �� ��� � H%�%�!f!�� �� H%f.� �!d'����H � � � �A� �$�B@� �B@�k�� ��� �� '�d��� � � '�k��� � � �� � ��l �B@�� ���ҳ�� �� '��z'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) '��ǰ��ҳ�ţ����ںţ�� 2''''''''''''''''''''''''' ����ɾ����ǰ��ҳ��Ĵ��� � �!�!�(� �����8 �B@� �!� �B@� � �!�!�(�k��H �$�B@����0 �$�B@� �$�B@� �$~B@d�''''''''''''''''''''''�ϴ� �B@B�!'''''''''''''''''''''''''''''ɾ��|����T�����ִ��󣬲����ҵ���ǩ��A@�nh|��`o��X��� tablePageNum�# ���� 2003-6-7 �� �칫���շ�Ա ¼��� �B@� �B@z ��� ~B@� �B@�� �!�(��FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNum l�j� yinfadanwei� �B@� p�� �B@� �!�B@� �!���9d�5�(d�9 9�9��9�9�9 �9 �9�9q��� t�� x�v �B@r �����8 �B@� � � �� �A�� !+� ��ʱ����.doc�� ������������� ��"��$��& HB@� �������Ƶ��ڴ��� �B@� �B@z �B@Bo��h�h]�H�ɾ��ǰ�浥λ����newDocRowCount]�` l�j� BeginTable� �B@� � �%�X'* �� '( (� �]�x����� *�� � H%�%�!f!������ *�� � H%�%�!f!�� �� H%f., ,B@H p�� (� �8 x�v �B@. �!�B@�k���]��� ɾ�����浥λ���� �� � � � � '0d��� � � � � '0k��x 0� ��!�� � �� *�� � H%�%�!f!���� � �� *�� � H%�%�!f!�� �� H%f., ,B@H p�� 0� �8 x�v �B@. �!�B@�k��� �� ��% ���кϼƽ��!�� � �� ��� � H%�%�!f!���� � �� ��� � H%�%�!f!�� �� H%f.� �B@H� =SUM(ABOVE)�4��6 �B@2k���o�����]��]��]��]�]�]�0]�H�':]�h l�j� BeginTable� �B@� � �%�X'F : � ��! � � : �� F�� � H%�%�!f!��� � : �� F�� � H%�%�!f!�� �� H%f.D D!d'> D!d$R'@ �B@� �B@z� ~!�.8 8� � @�.doc��C@�q��� �B@� HB@d�'<�start to del the rows >�� <� '<�#� � : < �� F�� � H%�%�!f!��� � : < �� F�� � H%�%�!f!�� �� H%f.D D!d'B B�� <� '<�#� � : < �� F�� � H%�%�!f!��� � : < �� F�� � H%�%�!f!�� �� H%f.D D!d'B����� V''''''''''''''''''''''''''''''''' MsgBox "��ǰ���ӵ�λ����" & newSubDocRowCount & "��"� g' Call delRows(rowsCount, currentRowNum + subDocCurrentRowNum, newSubDocRowCount, tabsNum, columnCount) � � : < � �A� HB@d� !'''''''''''''''''''''''''''''�ϴ� HB@B� %'''''''''''''''''''''''''''''ɾ������k��� < : ':���po��h���� InstBokMarkBeginTable Macro� ���� 2003-6-4 �� qy ¼��� H!p� �!f�f� BeginTable�C@� 9�9q���o������� InstBokMarkBeginTable Macro� ���� 2003-6-4 �� qy ¼��� H!p� �!f�f� LastColumn�C@� 9�9q��o������ InstBokMarkBeginTable Macro� ���� 2003-6-4 �� qy ¼��� H!p� �!f�f� TotalAcount�C@� 9�9q��Ho��@����8����6�Attribute VB_Name = "SplitModule" Function getTableNo() As Integer !SeleL.GoTo What:=wdBoo�kmark, �:="Begin�`<With ABveDoc@ument.9sc*.DefaultSortin�g�wd By` +ShowHidden'Fals�e End �;�cMoveLef t UnieCharacter,� Coun� 2��Up�Line1HomeKey�Story,� Extend��C�Copy� Set tmpdoc�r��s.Add��� �T.Sa�vetFiw@��h�����.@h K�JPast�T�o��C���'L �s.�T + �H Clon� ţ��Publ�ic Sub ��A@>() '� appPtotext MacroA���� 2003-4-8 �� ���ͻ� ¼�� �����������ο� 88479329 12�549346�3Dim rows-�NLo�� '����Ҫ����ǩ@alAc�� ,λ�ڡ��ϼơ��(У� b�£�����еġ��С��ء��column� �l�aC ����һ����GpreDa�nWeiA��S ��ng� urr@o��RowFirs�tCellCo���ntQ n0_ a*�c��Numa �*�new <�� �ptabs��A a�ttach�� �C"�Gmain�r�ang1�d]a �N`�A�' On Error ��eAhandl��c]Window.View.Typa�wdPrintA"� If��.Existsd("�O")`n� �Thenc�~E#�E �? ("�L "�? C��?���If�����b�ЉЀ��Informa��h(wd!�I#�UM�sgBox "x�����λ�ô���� �����a���I�xit���%#3�Nj= �Ams(1).�NIndex�Not (� 1)l>�o �hi ��i� ]�)*S h�ollapse@Arc��p�MRSta�rt#OOleA�True��sҋ��cՍF.�U�ĩТ`� _\_� ������9��0�g�'C��iG�*;4BOfR�Te�cj�Zber�z��/���4 �R�A���a=J�" �b3'�����4S?��������� ���ڡw��߿>cB�E(l�f(R:=/ lesR($ ).A)(A:�=2����:=@B2�.2, _���?��?w?nge�. - T�}�e"�`�e%�ڶ�P0׸���Ԫ������Ϊ��AQ���뵀�λ�������Pt page nЁ=�Aalog�sZDi��xR}�t0eics�%�� �Q{this���m��mmon���temppat���s S��)=PFA�.Vari�"�D")@lu$��'`Trim((�J""�J��޷��������ĵ���q��ϵ�����Ա_U� !�rv � � T��P�� ��� �� &� ����·�~�� �S1)���p� C�o= !ٹ,`�!�(1, , 2"��) A*�/'�����ļ��`Ĵ�� T! +��P-F��O@�DiAgP� ut'//add by k�k�sCh'WR_o��g��'�C��(�%�St�Sr)�- '� �σR'�������ڲ��ָ��8λh����ĵ�.  @'//ȷ����λ���Dim col_start As IntegerpSelection.GoTo What:=wdBookmark, Name:="BeginTable"�v�= CT(L�InformaX(wdSyOfRangeColumnNumber))G����������еĿ���urr@entRow �c= 1$While (� <= rowsCount�8� Set rI1 = A��veDocum%4. e([:=� �s(tabs�b).Cell(�M:=9, s� �)*.*, _c�U�CEndM2� - 1;�If �((Left(?�.Text,� @A�" " Or 2) ") A�nd Trim��Then��6��M � A+If�)�n= +ExendB �gSave���/#� �@u�+�2B�<�����S�?�Av�(�\�DanWei���'MsgBoxE>G���Whole Story CopEt main�z� �zs.AdGpWithbB.aG�F�C�Com(mon�&� &� ".doc��a$�� lPastRU�A�A�1�String�= "�no�L �M�/��š�ɺ �= �0# new�!��c���Not���;"��}��(� ex.�f�ǟ�0��Y + ��i��@:��"4��!G��n`�@4\k�.dJ�(%91�]�_ob�, �^�c�@�/�d�c( -))~ oc�7,�{�<�$'�a�������� �a�set�3�q��g�l=�$�%����r�,�G����������,n0{?�?� �@�_-/bN�OO����?[-��"�"��c ~W�~�!'J$��u�b3N#�R-�Q3�#q 1!Call @delMul1�s�(֤,Ea�:�,G�T�pb���5�Oa�b�' �ϴ� � �$�Clos�����ɾ��2����S�> 0S '������sS7�ǡ�� �createNew=s(�<�4}>, �f��T�y�J�k��a�#9u7"vq� �@*�t��1/B�!� �,�'�½���������� pһ��!5�~totalAtta|ch�-m���؉�"�"���d Pag~eq ��E �g��a��= @ ��7� B��6�o�� �攰nd �(this��).�3�&u�#�0��)�q>� �[�5 �[�[+O�C��t��)1�ZZZȴw:=currentRowNum, Column�ol_start).range.End - 10) �DanWeiName = N1.TextFnewDo�c�Count@0 2If Not (�"")� Then)kG + 1,Set�oActive��um��(S�:= Table@s(tabs�)�.Cell(]��8 + >�4, ~_�Mf�a>�փ�xA�First�nCxont���I�mA While ((n@s�AP �iOr (Left� , 2�)" ")����p=�UZu �?v?vAJe.v�(�??x�̦��kyendEr!Call attachTemplate(r�ows�w, �u�A� ),ac"�b`=�^Wind�(to0talA� @r).�"p@ 'Sele@von.Paste�!YIf�c*L�mt�`��# <@��m�GInsertBreak Type:=w,dS��N dPag��'����ҳ���`'�'J�', �c� g Dialogps(wd#��Wtistics) '��ǰ��ҳ�ţ��������!-�������ɾ������Ĵ��C��?�=ePane.View.Seek`!�)ekC���Footer �'�1D Dte Unit�0Char�ac`e`�:=*�G�I�6�� (p5n�um.�s(�_`�FMain�)�RU�`# f^his � ^W�o�'�½�������� ��ĵ���������λ#_ ; t�2$c��d< �&{t1$RB��5�sXu�s�s�B��s�T ��Orzz����s��owRMp�(w�o~Io r�w�A! �Trim�) �<> ��Ot+������1�ae��R���1M���24Ot�.���nt�s���^Os���4� ��OE�`�__��8��8rP\:�����(3��� 5��������ǟ��_X�����ŀ�� ���� 6Zɯ�iv��ti����w���#0���G$�=�<`@Els�O8���S� � � ϔe �L@���> 0)�o�5zo�o���' �����.� Qߍ���m@T��c�������h 0���_�_�A�?�'_�_���Q��� er Selection.DHte Unit:=wdCharacter, PCounL1�TypeText (pagenumR.s)VA�veWindow.Pane.Vi�ew.Seek = wd MainDocumentCEnd If  Gs(this'Name")Uate"en>d z2otalAttach?. , �K%�Sa v>'�ϴ�C�F �Clos �  ɾ���Exit Sub@ err:)MsgBox "���ִ���������ҵ���ǩ��"orhandl�eXB � a�?TemplA�T(rows�, curr�eRowNum, new@D@�olumn�'tableP� �7 ���� 2003-6-7 �� �칫���շ�Ա ¼��@ 4�Whole StoryMCop��e.Add E���NewBlank��Pas��fC�erti�calPerc�?Scrolled ��3�,+GoTo� Wha��wd�A?,@ich�"��N��, ��:=KH��Bookmark"yinf�adanweixG���tKey�L,in���>F�^.ClearForm�>ingcWit�h � � .�}= "��.Re9�Ece�v� wabra&TruB^A � .Wrap�� �Contin�C1 FalceMa�tchCaseu�bGWo��By�� = � Wild*c�s� S`�ds�Lik�All�?��n!,C*�,Ho me�6�^, Ex~t �H#��#Call delM(ult�vs_{ow�D{1��{a0� �d�k.!�As File�\"��ʱ����.doc"�,"c::= _c� wd�% , L@ockComAJs$:="8, �usw1`::="� ~To�Re�r!�I ;�o(rit��s�Re�adOnly � ded Embe�d!�F�Q� ��NativePi�cturee�A�sData� �%�AOCELet��d"'������Ƶ���ڴ����E?�� c3D�d́O�^� [�~�^e�^�Ks2`c^!�Dim pre@&I � Int@eger 'Ql���浥λ�����d���0_start1?�#��U�W�RBepginTAitKx= C@ (�Inf"Q��(���OfR`angeC�b�er)c�� E=�r� - 2GIf���> 0) Th�en�r�2��S�Set �N=D8�(S :N=�9�Ћab�)@.Cell(P:L=2Q��{:=g)�.�.�,�511o�$O!OwO1 1�Eq)- 1�CP�A�+�Move�Down�nV�%���T/��A��' ��w� �Q*n�}/`����/'A �/ >�� `�x�ZI�h��%�ʘ��4s EZs1� <= ��- +� ���� t ?-�?+�?+r��?+le�$�$�0 [O,t�%O,R @�� O,O,�2_ү3�3��_-�2_-�_-_-���6o-���"7��o-���?*oc�-��7* '���к�ϼƽ��7�Q�1 +�R�Ic��??&�sX�JV��JE �t�t.OQFQ���m�Q1��wIns ��ula t�=SUM(�ABOVE)��3g���ٷ�#��}@� cre����6(cRo��wsCount, currentRowNum, �tabs@ro� olumn�CommonName) Dim subDoc �As um� 6C �PInteg�er'newSF�k%iMFirstCellCo Pnt4String�DanWe�i�Nex��-�Rang1�'re�<�T�� = 0���col_s`tart2 �Selection.GoTo Wh@at:=wdBookmark, �c:="BeginTable"��,�*= C�*(�&�InformaA�(wdS�Of0 eC�y�)ber)CwB CWhi�le (7< �o��� ��Set���K= A@7ve��.�N(�#:=��6�s(�).|(��d:=�� +�J�,� 6 [)�.�, _�)�*End� �՗  - 1o�[A�0Ρ=�BR.T@��/Jf�= T�rimn�g1HWholeStory��Cop��>`_E=s.Ad�dgWith�!�#.Save���F`P#_�� &dd?H& ".do�cCc �� !0�'��Pastz��R��� �da'' ��f�'� to del the a�GIf Notoo�C"") Th= ?� �� O\1�\W^�\llOm���L�^�#O��U�]�q =?!t.� � ��� A .�*t2?!� �/#�!�Wen�U�' MsgBox "��ǰ���ӵ��λ����"�U3�!�U��tU� C�all�L�s(٤���{�,�(�������k MulQ:_�e��%ï���_ ݌��a��ϴ���Clos�h#�����������7IIf��'�?.m`|o O@c�(  � ` InstBo,kM����( ' '�ѭ Macro����� 2003-6-4 �� qy ����ư�Q��Iu�.s#1�� K:=WߵԵq .Defa�&Sort���p���By��ShowHidd�en0FalU�wS�v\L���M_r�k7__0a �*�_ _q�[� @�__r_#_�"T�otalAc�����"�" �t.�ߏڋ� �t�"�"?�"0���41_VBA_PROJECT������������J� dir�������������MfrmSplit����z��)Çz�f������������� Ansewerslist/�`Split�)`p1�^`p2�^`ja`Exists�]`HideMark�:`delstr��`ChrK~`ShowMark��`Replacef`Start�`Cut.�` InsertAfterq5`Add�r` SelectionZ�`FontU`NewTitleModuleg�`arraysH*`rows�U`OldStr'�`TitleStr��`Right `booknamea�`flag��`rang1� ` cellcontent��`iCountl`ocellK�`Tables�`Cells�`MaxL�.`MinLX`lc`Delete�x`Unit��` wdCharacter��`NumRows��` NumColumns}�`DefaultTableBehavior��`wdWord9TableBehavior��`BordersC"` wdBorderLeft �` LineStyle�w`wdLineStyleSingle�` LineWidth/U`wdLineWidth050pt� `Color2F` wdColorWhite�` wdBorderRight��` wdBorderTopm�`wdBorderBottom�`wdBorderHorizontal��`wdBorderVertical:�`wdBorderDiagonalDown^`wdLineStyleNone��`wdBorderDiagonalUp�j`Shadow��`Options��`DefaultBorderLineStyle��`DefaultBorderLineWidtho�`DefaultBorderColor��` SelectColumnR�`Columnsp9`PreferredWidthType��`wdPreferredWidthPercent�/`PreferredWidth�'`MoveLeftv�` MoveRight��`wdCell �`Mergeq_`VerticalAlignmentʡ`wdCellAlignVerticalCenter�f`ParagraphFormat�` Alignment�I`wdAlignParagraphDistribute@m`DefaultSortingz�` wdSortByName\�` ShowHiddenqs`FontSize��`Size��` wdColorRedo(`MsgBox�R`NonMarkCB_Click>`ShowMarkCb_Click?�` SplitCB_Click��`SplitDoca]`UserForm_Click��`UserForm_QueryClose�`Cancel�` CloseMode؟`vbOKOnly��`cbHideMark_Click�`cbShowMark_Click9�`cbTopLeft_Click5`ret�` vbOKCancelx?`vbOK�%`InstBokMarkBeginTable��`cbTopRight_Clickڳ`InstBokMarkLastColumnc�`cdBottom_Click�t`InstBokMarkTotalAcountF�` cdSplit_Click`` ToolModule@?`Xo`EventClassModule�`strName�Z`newValue�`ExistVar�.`aa{\`erro�`Clear��`Number�-`sourceG�`App_DocumentBeforeClose�S`Doc��`Documentj�`errdone�R`Save��` SplitModule�u` getTableNoM`What�C`wdGoToBookmark�J`MoveUp�`wdLine��`HomeKey��`wdStory�&`Extend?�`wdExtend�d`Copyƿ`tmpdoc��` Documents�`SaveAsf;`FileNamej�`Paste�` rowsCount��` columnCount$` preDanWeiName_�`currentDanWeiNamemJ`currentRowFirstCellContentB�`nextRowFirstCellContent >` currentRowNum\�`newDocRowCount?c`tabsNumh�` attachDoc'F`mainDoc�+`SubDocRowsCount�,` ActiveWindow�+`View�I` wdPrintView(�` Information��` wdWithInTable�T`RowIndex6d`Collapseu` Direction�&`wdCollapseStart�|` selectCellU�`wdStartOfRangeColumnNumber�7`Cell��`Row��`Column�i`pagenum�`Dialogs��`wdDialogDocumentStatistics�i` thisDocNameT�` CommonName��`temppath��`ChangeFileOpenDirectory=` col_start�` currentRowSm` WholeStory��`mark1:I`MainDocRowCountw�`MainDocRowsCount�2` delMultRows]�`createNewSubDoc�g`totalAttachDoc��`currentPageNum@`Windows�d`Activate�|`attachTemplate��` InsertBreakѺ`wdSectionBreakNextPagex�` ActivePane_�`SeekView$�`wdSeekCurrentPageFooter�O�a�� ��*\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.5#0#C:\Program Files\Microsoft Office\Office14\MSWORD.OLB#Microsoft Word 14.0 Object Library�*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\CNormal*\CNormal����MSFDBHs3@�cD452EE1-E�08F�/A-8-02608C4 D0BB4�cFMl20 'B �p�&/�;"1���{B~� �00}#0��#� �0A^@E3405C98-2D34-4F9D-8440-4089F3C816FI.DOCUME~1\hp�\LOCALS�Temp\VBEÀXB-.exd�YU2@ ��.E ���.`�M ������7���ThisDocumenPtG�T�isDbcuQ��en�� 2E� �HB1���g "��,��Q""+�a^Write�MarkG� Wrie�M erk�62�/�� -�U!b%ARNewTitleModuPleG! Nlw�TB��M�#d�#maY�2���R5/$S(��frmToolsG��$m o �l 7i2ro�� �m#�\�3(� %$� Spli�`F'Sp�A5&�b)g/�3+�1� � �3������2+25��pEL�\k1aEv@gC0lass��EVv�E�fC`"a�2s��Wo@�u�e@Xqn2��}o�`�m7Y��1' %�2��7�'�2�����<��o JoY�H�(H  @��}~R� ������K�Q���_������$��8cdSplit�,�bR�e�N��u��"�[SO,o������CompObj���������aVBFrame�������������frmTools�����)Çz�КŇz���L�h����u��"�[SO(+gRh��q�u��"�[SO,+gL�h����u��"�[SO(� �8cbTopLefth��(� �4cbTopRight���$��8cdBottom ���� ����Microsoft Forms 2.0 FormEmbedded Object�9�qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSplit Caption = "WORD������" ClientHeight = 450 ClientLeft = 11040 ClientTop = 1425 ClientWidth = 3990 TypeInfoVer = 17 End (H  @�� }� �R� ������K�Q���_����\�(� �8ShowMarkCB?z,>f:y�S?z��u��"�[SO,f��������������o�����pCompObj��������aVBFrame�������������>f:yn?z��u��"�[SO(� �8NonMarkCBB?z� ���� ����Microsoft Forms 2.0 FormEmbedded Object�9�qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTools Caption = "WORD������" ClientHeight = 420 ClientLeft = 11040 ClientTop = 1440 ClientWidth = 1965 TypeInfoVer = 12 End ThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsToolModuleToolModuleWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModuleID="{D34897D9-153B-4772-839F-71055CCC6C22}" Document=ThisDocument/&H00000000 Module=NewTitleModule BaseClass=frmSplit BaseClPROJECTwm������������ "PROJECT�������������CompObj������������n������������ass=frmTools Module=ToolModule Module=WriteMark Class=EventClassModule Module=SplitModule Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="090BB4CCB8CCB8CCB8CCB8" DPB="6664DB7C6584C385C385C3" GC="C3C17E23DA24DA2425" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C NewTitleModule=0, 0, 0, 0, C frmSplit=0, 0, 0, 0, C, 44, 58, 1222, 522, C frmTools=0, 0, 0, 0, C, 22, 29, 1200, 493, C ToolModule=0, 0, 0, 0, C WriteMark=0, 0, 0, 0, C EventClassModule=0, 0, 0, 0, C SplitModule=0, 0, 0, 0, C �� ���� �FMicrosoft Word 97-2003 �ĵ� MSWordDocWord.Document.8�9�q