��ࡱ�>�� qt����p}�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������q` �R�Z-bjbjqPqP�J::_E�������$�� �4�4�4P�45��]��5�5@"6"6:6�7&�7�7 #UWz\z\z\z\z\z\$�^hQa��\!�8e7"�7�8�8�\"6:6+�\�<��<��<��8B"6:6WS��<��8#U�<��<�6�N�cP"6�5 �#y'�:��4�9B�O�P��\0]�O��a:;B�a8cP�acP(�7�7�<��7 �7��7�7�7�\�\|<��7�7�7]�8�8�8�8���$�.�����.*d�@����� D��N2� ؚ�~O��^D�
*CJ OJPJQJo(h�1CJ,OJPJQJo(h�1CJ OJPJQJo(h�1CJ OJPJo(" ,.V�. | � � � � . 0 B D N P z | ~ 46�������������������������I`�I$a$$� d��`� a$� d��`� $d��a$d���,X-��6@TVZ\��� 8 P ^ ` f h r � ������������������� d��$If$a$��WD�`���X`�X��WDX`����WD�`��� � � � � � � F===== d��$If�kd$$If�l�ֈ���& ��wt#HJ�����0��������#����������������������������4� la�� � � � � � �:..� $d��$Ifa$�kd�$$If�l4�ֈ���& 9�t#HJ����0��������#����������������������������4� la�f4 d��$If� 4 ��[RR�R d��$If�kd�$$If�l4����\��'9nt#`�` 5 �0��������#��������������������4� la�f4 $d��$Ifa$4 6 R T g^^ d��$If�kd�$$If�l4����\��'9nt# 5 �0��������#��������������������4� la�f4T V Z \ ` b ����� $d��$Ifa$okdv$$If�l4��0���t#7��0��������#������������4� la�f4Z \ b d t v � � (�(�(�(�(�( ) )$)&)@)B)�)�)`*n*�*�*�*�*�*�*�*+ +++�+�+,,4,T,\,x,z,�,�,�,�,�,�,�,�������������Ƽ�����������������������Ʊ���������jh�1Uh�1CJ OJPJh�1OJPJo(h�1CJ OJPJh�1CJ OJPJo(h�1CJ OJPJo(h�1CJOJPJh�1CJOJPJo(h�1CJ,OJPJ\�o(Uh�1CJ OJPJo(h�1CJOJPJo(h�1CJOJPJ1b d r t ��� $d��$Ifa$nkd$$If�l��K�0��nt#���!�0��������#������������4� la�t v � � � � � � � � � � � � � � ��������������� $d��$Ifa$nkd�$$If�l��� �0��nt#���!�0��������#������������4� la�� � (((((�(lcccccc d��$If�kdF$$If�l��\��nlt#��g�0��������#��������������������4� la�^"�?e0�N�N��a�� �lQ�z � t^ g �eD��N7: 2007t^�^Y���SIl�0;S�S�e �MQՋ�[8hh� �Y T'`+R�s�N�NNN�sNN�b/gL��R�SX��N�e�� �cP�NN �b/gL��RMQՋt1u� USMOa��� t^ g �e�lQ�z �^��S0@\0;`lQ�S ��N�N��a��� t^ g �e�lQ�z � D��N8: 2007t^�^���{:g�^(u���RMQՋ�[8hh� �Y T'`+R�s�N�NNN�sNN�b/gL��R �SX��N�e�� �cP�NN �b/gL��RMQՋt1u� USMOa��� t^ g �e�lQ�z �^��S0@\0;`lQ�S ��N�N��a��� t^ g �e�lQ�z � ;N��͋�O�� D�
)@)��c���������kdp$$If�l��\��"��t"�m ���0���������������������������4� la� dp�$If@)B)N)P)R)T)V)X)Z)�)��������� dp�$IfYkd.$$If�l����t"�"�0���������������4� la� �)�)�)�)�)�)�)�)�)`*��������� dp�$IfYkd�$$If�l����t"�"�0���������������4� la� `*b*d*n*�*�*�*�*�*�*�*���������� $dp�$Ifa$$a$Ykd& $$If�l����t"�"�0���������������4� la� �*�*�*�*�*�*F==/= $dp�$1$Ifa$ dp�$If�kd� $$If�l�ֈ�������!��z�<�0�����������������������������������4� la��*�*�*�*�*�*�*+++++���c��������kd� $$If�l��\��"���!�m �<�0���������������������������4� la� dp�$If+ ++++++ +"+$+�+���������� dp�$IfYkdJ$$If�l�����!,"�0���������������4� la� �+�+�+�+�+�+�+�+�+�+,,���������� dp�$If[kd�$$If�l��� ����!,"�0���������������4� la� ,,.,0,2,4,6,8,:,<,>,@,B,D,F,H,J,L,���������������� $��VD�^��a$ �^[kdF $$If�l��, ����!,"�0���������������4� la�L,N,P,R,T,z,�,�,�,�,�,�,�,�,�,�,�,�,�,---��������������������� �h�h]�h`�h����&`#$ �^$$d&dN��P��$ $��VD�^��a$�,�,�,�,�,�,�,�,�,�,�,�,�,-------- -,-.-0-4-8-:-F-H-J-L-R-V-X-Z-���������������˶�����������˶�����h�1CJ OJPJo(h_�0JCJmHnHuhUO0JCJjhUO0JCJUhUO0JCJo(hUO hUO0JjhUO0JUjh�1Uh�1#-0-2-4-R-T-V-X-Z-�������� �^�8����&`#$WD`�8 �h�h]�h`�h����&`#$A 0&P 0pu���1�Z2P/R ��. ��A!�l"��#��$�4%��S�� ��>&P 0pu���1�Z2P/R ��. ��A!�l"��#��$�4%��S�� ���$$If�!vh5�H5�J5��5��5��5��#vH#vJ#v�#v�#v�#v�:V�l�0��������#�5�H5�J5��5��5��5��4��$$If�!vh5�H5�J5�5��5��5��#vH#vJ#v#v�#v�#v�:V�l4�0��������#�5�H5�J5�5��5��5��4�f4�$$If�!vh5��5� 5�55� #v�#v #v5#v :V�l4���0��������#�+�+�5��5� 5�55� 4�f4�$$If�!vh5��5� 5�55� #v�#v #v5#v :V�l4���0��������#�+�+�5� 5�55� 4�f4�$$If�!vh5�75��#v7#v�:V�l4�0��������#�5�75��4�f4�$$If�!vh5��5�!#v�#v!:V�l�K�0��������#�,�5��5�!4��$$If�!vh5��5�!#v�#v!:V�l�� �0��������#�,�5��5�!4��$$If�!vh5��5��5�g5�#v�#v�#vg#v:V�l�0��������#�5��5��5�g5�4��$$If�!vh5��##v�#:V�l4�0��������#�5��#4�f4�$$If�!vh5�5��5��5�z5��5��#v#v�#v�#vz#v�#v�:V�l�0��������5�5��5��5�z5��5��4��$$If�!vh5��5�m 5��5��#v�#vm #v�#v�:V�l�0��������5��5�m 5��5��4�z$$If�!vh5��"#v�":V�l�0��������5��"4�z$$If�!vh5��"#v�":V�l�0��������5��"4�z$$If�!vh5��"#v�":V�l�0��������5��"4��$$If�!vh5�5��5��5�z5��5�<#v#v�#v�#vz#v�#v<:V�l�0��������5�5��5��5�z5��5�<4��$$If�!vh5��5�m 5��5�<#v�#vm #v�#v<:V�l�0��������5��5�m 5��5�<4�z$$If�!vh5�,"#v,":V�l�0��������5�,"4�~$$If�!vh5�,"#v,":V�l�� �0��������5�,"4�~$$If�!vh5�,"#v,":V�l�, �0��������5�,"4���N@��N ck�e$1$a$$CJKHPJ_HaJmH nHsH tH$A@���$ ؞���k=�W[SOFi@���F nf�h�
?���������� (/0349FGLMRSZ[\ag{��������������������������������@AFG^cdghnop}~�����������������������������()*/BGHKLRST\bcdinopvwxyz{|}������������������ !"5^v�����"<�"H�"H�"H�"H�"H�"H�"H�"H�"H�"H�"H�"H�"H�"H��"<��"<��"<��"<��"<��"�T�"<��"<��"<��"<��"<��"<��"��"<��"<��"<��"<��"<��"<��"<�p�|r�|��|�|��|%�|�|p�|r�|;�|�|��|�|�|��|��|:�|]�|. �|G]�|. �|�Y_�|��|�|�|�|�|. �|��|. �|���|� �|� �|� �|� �|� �|� �|��|0�|0�|0�|0�|0�|0�|��#�|#�|#�|#�|#�|#�|���"<�"��"<�F0�0��0��0�0�0�0��0�� 0�� 0�0�0�0�`�"0�"0�"0�"0�"0�"0�"0�"0��"0�"0�"0�"0�"0�"0�"0�"0��"0�"0�"0�"0�"0�"0�"0�"0���"<��"<��"<�F0�0��0��0�0�d0�0��0��0�� 0�� 0�0�0�d0�`�T!0�T!0�T!0�T!0�T!0�T!0�T!0�P!T!0�T!0�T!0�T!0�T!0�T!0�T!0�T!0�T!0���"T!0�T!0�T!0�T!0�T!0�T!0�T!0�T!0�T!0���"�"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"<��"BQ�"<����"j ��"j+I������!"'(=>?���������� (/0349FGLMRSZ[\ag{����������������������������������@AFG^cdghnop}~�����������������������������()*/BGHKLRST\bcdinopvwxyz{|}������������������ !"5^_abdgjtuv�����������0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0������������0����0����0����0����������������0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0���� 0���� 0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0����0�����0����0����0����0����0����0����0�����0����0����0����0����0����0����0����0����0�����0����0����0����0����0����0����0����0����0�����0����0����0����0����0����0����0����0����0�����0����0����0����0����0����0�� �0�� �0�� �0�� �0����0����0����0����0�� �0���0�� �0�� �0����0����0����0���0���0���0���0�� �0����0����0����0���0���0���0���0���0���0�� �0����0����0����0���0���0���0���0���0���0�� �0����0����0����0����0����0����������������������������������������������������0����0����0����0����0���@0����@0����@0����@0����@0����@0����@0����@0����@0���@0����@0����@0����@0����@0�������@0����@0�������|X FG[\������������@Aop������()STop|}��_behk�K�0K�0 �I�0 K�0 `SI�0 K�0 �SI�0 K�0�VI�0 K�0�VI�0 K�0TZI�0 K�0�ZI�0 K�0�ZI�0 K�0�UI�0 K�0VI�0 K�0TVI�0 K�0 �VI�0 K�0!"�\I�0 K�0#$�\I�0 K�0%&]I�0 K�0'(H]I�0 K�0)*�cI�0 K�0+,�cI�0 K�0d�BI�0 I�0K�00��I�00�I�00�I�00�I�00�����|X (((((3DDDGZ �,Z-#6� � � 4 T b t � �(�()@)�)`*�*�*+�+,,L,-Z- !"$X- "(/5<�>G!�!����!�!�������������8�@��������������( � ��HB � C�D�����B �S���� ?���4(#4t��jinjicdzhutici&�4����N���Q�[�;*�urn:schemas-microsoft-com:office:smarttags�chsdate� 8�� �12�2007�6�Day�False�IsLunarDate �IsROCDate�Month�Year����������..��%%��**]]^^__aabbdeghjksx�����������������..��%%��**]]^^__aabbdeghjksx�����������������..��%%��**]]^^__aabbdeghjkvx�������_�!�������������I�&�Ԧ���G�����������F,U�G�+���������}�Y�Ҵ���������$\$������������M%]�� I����������i�`��q����������&pj��9��Oz������������r}}�����@�0��@^�@`�0�o(0����\���^��`�\�)��\�\��\^�\`�\�.�� �\�� ^� `�\�.��� �\��� ^�� `�\�)��H �\��H ^�H `�\�.��� �\��� ^�� `�\�.����\���^��`�\�)��4�\��4^�4`�\�.�������^��`���o(0�h����h^�h`���o(.��H�\��H^�H`�\�)����\���^��`�\�.����\���^��`�\�.��4�\��4^�4`�\�)��� �\��� ^�� `�\�.��|�\��|^�|`�\�.�� �\�� ^� `�\�)����\���^��`�\�.���0���^��`�0�o(0��i�\��i^�i`�\�)�� �\�� ^� `�\�.����\���^��`�\�.��U �\��U ^�U `�\�)����\���^��`�\�.��� �\��� ^�� `�\�.��A�\��A^�A`�\�)����\���^��`�\�.���O���^��`�O�o(0��x�\��x^�x`�\�)���\��^�`�\�.����\���^��`�\�.��d �\��d ^�d `�\�)�� �\�� ^� `�\�.��� �\��� ^�� `�\�.��P�\��P^�P`�\�)����\���^��`�\�.���O���^��`�O�o(0��h�\��h^�h`�\�)�� �\�� ^� `�\�.����\���^��`�\�.��T �\��T ^�T `�\�)����\���^��`�\�.��� �\��� ^�� `�\�.��@�\��@^�@`�\�)����\���^��`�\�.��0��^�`�0�o(0��x�\��x^�x`�\�)���\��^�`�\�.����\���^��`�\�.��d �\��d ^�d `�\�)�� �\�� ^� `�\�.��� �\��� ^�� `�\�.��P�\��P^�P`�\�)����\���^��`�\�.���0���^��`�0�o(0��d�\��d^�d`�\�)���\��^�`�\�.����\���^��`�\�.��P �\��P ^�P `�\�)����\���^��`�\�.��� �\��� ^�� `�\�.��<�\��<^�<`�\�)����\���^��`�\�.���z���^��`�z�o(0�h����h^�h`���o(��H�\��H^�H`�\�)����\���^��`�\�.����\���^��`�\�.��4�\��4^�4`�\�)��� �\��� ^�� `�\�.��|�\��|^�|`�\�.�� �\�� ^� `�\�)����\���^��`�\�.���\���^��`�\�o(0I�&r}}!��Oz��G�i�`�F,U�&pjM%]}�Y$\�������������������������������������������������|�� 0ɘ� �i� ��1UOWn_�(/0349FGLMRSZ[\g{����������������������@A^cdghnop}�������()/BGHKLRSTbdnop|}��_adgj������������������������ BookNamesR�CurUserNameHR� DeleteMarcesTR�DocNamedR�haha�R�NewInfo�R�OldInfo�R� SplitTool�R�TitleStr�R� TrackMark$S�year1_2;filetype1_2 _�_NSFalse$916041866AE161FC4825739B0006328A.doc10002007083&;&Ym"�OW[ FalseYm_lw"�?e�S;�e�N;Ym_lw�N�N�S1�V��ƞ�JV��ƞ�JV��ƞ�JV��ƞ�JV ��ƞ�JV��ƞ�JV��ƞ�JV��ƞ�JV��ƞ�JV ��ƞ�JV ��ƞ�J��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.InstBokMarkTotalAcountProject.ThisDocument.ChangeViewPROJECT.TOOLMODULE.HIDEMARKPROJECT.TOOLMODULE.SHOWMARKPROJECT.SPLITMODULE.SPLITDOCPROJECT.NEWTITLEMODULE.NEWTITLEPROJECT.THISDOCUMENT.CHANGEVIEWPROJECT.WRITEMARK.WRITEBOOKMARK PROJECT.THISDOCUMENT.SHOWTOOLBAR)PROJECT.SPLITMODULE.INSTBOKMARKBEGINTABLE)PROJECT.SPLITMODULE.INSTBOKMARKLASTCOLUMN )PROJECT.TOOLMODULE.REGISTER_EVENT_HANDLER *PROJECT.SPLITMODULE.INSTBOKMARKTOTALACOUNT@�l�y��PP(��Unknown������������G��z ��Times New Roman5��Symbol3&��z ��Arial;5�� �N�[_GB2312;���[SOSimSun=��Rz��{h�[�eck�SO;��ўSOSimHei;"�Helvetica 1���h�R�&�R�&��rf�� �� !-!),.:;?]}���� & 6"0000 00 00000��� � �����=�@�\�]�^���([{� 0 0 00000��;�[�����l�����d]]˪��3�q�HX(��?����������������������Wn2��0 Ğ�ef _�_NS8 �������Oh��+'��0������ 0< \h t ������4 ������Normal��־��2Microsoft Office Word@F�#@x��f��@Bg�:�@Bg�:�������՜.��+,��0� X`t|������� ���� ]� !"#$%����'()*+,-����/0123456789:;<�=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_����abcdefg����ijklmno��������rs|�vwxyz{�������Root Entry�������� �F� �'�:�u@MData ������������&1Table��������.bWordDocument�����JSummaryInformation(������������`DocumentSummaryInformation8��������hMacros# ��&�:��#y'�:�VBA����! ��&�:��Ua'�:�ThisDocument ����~(__SRP_2���������__SRP_3�����WriteMark������������ ' ���� ���� !"#$%&'()*+,-./01234����6789:;<�=>?@ABCDEFGHIJKLMNOPQRSTUVW����YZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�rU��� 0 1Y �4�a�����������������������������������������[�W�0 �� 0 ��@ 0 �� 0 ��� @ument ����� @rU��� ��������@$`�����������(A`������������;(�`������������;$�`�����������n������ X���������7��U���������������������������x��ME������������������������������������������������������������������������������������������������������������������������������������������������������J��������������������������������)�`�`�������� ������`�b�������� ������`�d�������� ��x`�f�������� ��`�h�������� ��`�j����������`�l�������������������������������������������������������������������������������������������������������������*� ����"����� �(�0�8�@� H�X� h������� �� �� �� ��0�P�X� x�������! �������� �(�0�8�@�H� �����P� ��������`�]�@]�X]�p]��]��]��]���n8� L.d��(� d!p.f� BookNames %D!t'r�NewInfo %D!t'v r�;$x'` v�&;&$x'b `�'z b�'| f!:'j� z |�� ~�� z� ~$` L!p%���A@�� ~$`$f!h.h h!d'lA@� ~$b$T l$T� h!� h!�� hB�k�� ~$b$T hB� ~$` h fB�k���k������k����n�A@�|���o������������n�Attribute VB_Name = "WriteMark" � Sub D BookmT() Dim b&array As Variant:ansewder@pp8VsArange3CountInteger�sel@ecttexS �ngOn Error GoTo ehandleSet a�R= Activ�eDocumer���U=�.�sn�s��Thi s .��bles�("��s")lu�=A�slist�NewIn
g)�� � Start c��End�" �Call�Cu$��#�� If�A I�hrtAfte|r(��Q� c�T.�Ad�\@&,cy]sN�;e�:!S�<�Wt �����D�`]�x]������L������7��\����������������������������xNewTitleModule������EfrmTools ����5�frmSplit������������X" SplitModule�������������rg�������������������������������������������������������������������������������������������������������������������� �����������������������.��\j7��Q�������������<���K+��FQ`E�5��ɴ����w7�=E�d8|<}�6�� ��]L��0r�:az������������x�� ��]L��0r�:azK+��FQ`E�5��ɴ���ME�����������������������������������������������������������������������������������������������������������������������������������������������(S"����S����S"����6"������(1Normal.ThisDocument ����� @`������������ ���������� (`������������ ������//�i�*�������� �������@�,�������� ��@�.�������� ��`�0����������`�4���������� X�`������������ @�����''6�i�*�������� �������@�,�������� ��%D@�.�������� ��Trac`�0����������0`�4����������@ \����`������������ ���������]����������(����������%�����@�����������������x�������������� %������������������������� %����H��������������������������������������P@������������������������0�H$*\Rffff*0<�48da1413�����4��b"� �� �8�@�P�X"� `� ����� "h������� �����$�� �� �� ��� �0� H� �����X�"`� �����"�������������� ����� ������ � ����� �����&(�P�X� `�x��������� ������� ����"� �� ����� "�������� �����$�� � (� 8�H� h�x� �� �������"�� �����"�� ��� ���(� �����0�8�@�H�P� �����&X� ���� ����� ������"� ������ ����� ���������� !! "� & !$!(ld��@ & !(lk��(o�� �@�***********�����Ĵ��ݺ����]��]��]����Scripting.Dictionary$2..� *..]�D� .!6',� 8�� .!:� � 8$,'4 4 4$.A@<� 8��A@>�CurUserName %D @(B� TrackMark %D�0��'0d��@�'0� FB@Hk�� A@J������úۼ����� L��9N�9P�9Rq����TitleStr %D$T� �A@Vk���� ���úۼ����� L� 09N 09P 09Rq��`o��X��***********�����Ĵ��ݺ����]�`]�x]����Scripting.Dictionary$2..� *..]�D� .!6',� 8�� .!:� � 8$,'4 4 4$.A@<� 8��A@>�CurUserName %D @(B� TrackMark %D�0��'0d����'0k���� ZB@HA@J L� 09N 09P 09Rq����TitleStr %D$T� �A@Vk��po��h��� FB@Ho��H����@�����Attribute VB_Name = "ThisDocument" �Bas�1Normal.VGlobal!�SpaclFalse �CreatablPre declaId�Tru BExposeTemplateDeriv$Custom iz�C�1Sub ChangeView() If Act#Window.�.SplitSpecial�OwdPaneNone Th|en�v��T yp|rintq�' E�4�npd If���W , P�r�v ^InitWord(ByRef oOb j As ecBtg '*�����Ĵ��ݺ���� @ Dim a�oDicCTrac kmark�Boolea9 S�et A �@�te�("Scripting.�tio�nary"@ A&�Cstr S��`ng a�A.Keys For i�0 ToB.Count �- 1 �`= a(i�A@ddVar �, � (@�Next i Register_Ev��_Handl�er@np�vca�,`.User�ɼ.@iA�s("Cu�rE �7��� BQM@Q�")�3"0"��0� GY= D̓���!EfrmT�es.�Show 0Æ���Write@lBo�='�����ú�ۼ�����#(pWith�\��G+.A�Revis9s�@��.�Ont����E`X�A�'Len(TrimB(�(itle@E"�))) > �B"na�NewT!G '��v�2�!� ���f��Suba�Qws���w�x�w� dx�Eai#fjyac�Htza^A��z�� ��nj{��{A|�`�� �|�t}A�}a�;�~!Ax! �� �ƿ����g4&��߫� �j�! @��տF��|A1��1t��!/2� H�@O ��+A�2�wA��@�A��[9�?�AA5B��9��9Pub8lic2ua=�UBa>r�aW�xAeStr) - 1)� End If�! arrays = Split(TitleStr, ";")� rows = UBound(arrays)� If rows < 1 Then� 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)� 'ȥ�����з����������p57�S(���������������������������x��ME�������������������������������������������������������������������������������������������������������������������������������������������(<��h<��< ��<����������pV����������������������������������`���������� ��`������������`������������x`�f�������� ������`���������������`������������ As �����������m ro%`�������������`������������`������������ 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"�`"� h"��"��"��"��"��"��"��"� �"��"� ���������"�Sub NewTitle()����� '�����ļ�ͷ��� Dim arrays As Variant� Dim rows As Integer��� On Error GoTo errorhandle�7 TitleStr = ThisDocument.Variables("TitleStr").Value�9 Trackmark = ThisDocument.Variables("TrackMark").Value�$ If Right(TitleStr, 1) = ";" Then�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 %D!t'�� TrackMark %D!t'0 ��$��;� � �� $�'�k��h ��;$x'� ��'� �� �|�$�ļ�ͷ�������ֺ�k��]��]��]��]��]��� wenjiantou L!p%���� wenjiantou'�d���|�$���IJ������ļ�ͷ��ǩk��x�'��'� � L%pB@H�'�� ��� �%�!h!�� �!h!d$T'�� ȥ�����з� �� $��� b � �� $��� $ � � � �� $�� � $ �'������ȥ���ո� �� �� b � �� �� $ � � � �� � $ �'���� ��� �'�d�� ��; �'�k��� ��'�� ��� � ���'�k��� ����ȡ�������̵�����]�]� ]�8�'��$��'�� ��� �� �$� � �G �$�'�j��� � L%pB@H �����: �B@� �!h�h ������ ��� L!�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� �%�(� �����: �B@� �� � �����: �B@� �B@� �!�B@� �!�(�k���� �%�B@H �!( L!p� �!h�h ��C@� 9�9 q��h]�P�@ �' �!(� �!(����� �!( �!(��'�� ��� �%�!h!�� �� $� �!hB@� ��'�� ���k���� ���úۼ����� L� 09N�9P 09Rq��X|��P�nH� ��ͷ�༭����: �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 �+Â�}ha}= �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 peiPercen�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 0Withx" .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`eDocuaP>o kmarkm:Add range:=G , Nam�`bookn�� ���6So�WngR�ByA�Sho�wHidden`��El�Dim F�iSize As �(eg��= 3�20 \r*W ��.b=n.rBold� Tru!�� 0"���<�"���'��Re�d �i1P1` Each ovc�% ��"B./b)�a-R.�InsqAf�7 ar rays(- N1�~��+ 8 N8ext��-'���úۼ��8����/'HO.T��@kRevis�b?��(�Q PMin�tI�"jowO0-C a�xit Sub @Zor�handle:�MsgBox ("��ͷ�������:" �+ Error`�� ��ME�����������������������������������������������������������������������������������������������������������������������������������������������(S<����S<����S<����S<�������0{8005B488-EEBA-4CB5-9E43-75C0D3977ED6}{BCB56D9F-902A-4EE0-8493-5251CF5EBBEA}����� @����������������������������� ������������������������������ ������������������������������ "����������������������������� $��������������������@���������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{8005B488-EEBA-4CB5-9E43-75C0D3977@ED6}{B.6�D9F-902JEE0-8493-5251CF5@EBBEA} dG lobal�SpacoFalse �CreatablPredec$laId�Tru BExpose0Templa�teDeriv�Customizi�D �P Sub NonMarkCB_Click() Hide� En�d�Showb� plitE 3SDoc�U�serForm� QueryCl�O(Cancel As Inte ger, Mo�deH
X����������������������������� B���������������������������������������������������%����������������������� %�����������������������X����������������������������������������������������������������������+� ����"���� ����"�� �(� ����"�0�8�4@� x���,������ ����"���4�� � �,(�X� �����`� ����"�h�4p� ����,������ ����"��4� @�P� :X��� ������������A@�o��h�@A@�o��P��]����Ƿ�ȷ�����б�� 4� WORD ������Ϣ$'2 2 6�xA@8� ���б�dzɹ� *� WORD ������ϢA@k��8o��0����Ƿ�ȷ��ĩ�б�� 4� WORD ������Ϣ$'2x 2 6�A@<� ĩ�б�dzɹ� *� WORD ������ϢA@k���o������Ƿ�ȷ��ĩ�б�� 4� WORD ������Ϣ$'2 2 6�A@@� ĩ�б�dzɹ� *� WORD ������ϢA@k��o���X��Ƿ�ȷ������ļ� 4� WORD ������Ϣ$'2 2 6�A@ �4 MsgBox "����ļ��ɹ�", vbOKOnly, "WORD ������Ϣ"k��`o��X����P����9�Attribute VB_Name = "�������������������������������������������������������������������������������������������������������������������������������������������frmSplit" �Bas|0{272B5FD8-CC7E-46AD-A7D3-72350F47A8C7}{C3B79EC8-6B59-4B78-92F3-3B958CB`26}� dGlobal�SpacoFalse �CreatablPred�eclaId�Tru BExpo se0TemplateDeriv�Custom�iz�D P Sub cbHideMark_Click() � � End�� Show�TopLeft4Dim ret As Int@eger �= MsgBox("�Ƿ�ȷ�����б��", vbOKCancel, "WORD �������Ϣ"�.IfB=� Th en In stBok�,BepginTE�� B"��ɹ��O�nlyNC8If[:0Righ�:�5ĩ��5�5LastC�olumD<�5��5�6dBot��Gp�5kEkTotalA count�5ĩo� ��X�5d≝�����ļ�_PTP� Doc '?!R�3� ���3���0������7�Y�����������������������������x��ME����������������������������� ������������������������������������������������������������������������������������������������������������PS<����S<����S<����<��<��z<��<����� \!�.Z Z������.doc�`C@^q�� �B@b LB@d L!�!:�'F LB@Bi����@�� appendtotext Macro�> ���� 2003-4-8 �� ���ͻ� ¼�� �¶��������ο� 88479329 12549346�]���Q����Ҫ����ǩtotalAcount ,λ�ڡ��ϼơ��У�����Ҫ��beginTable��λ�����еġ��С��ء�]���'����Ҫ����ǩlastColumn ��λ�����һ�С�]��]��]��]��]�]�(]�@]�X]�x]��]��� On Error GoTo errorhandle & !(l�totalAcount L!p%������� lastColumn L!p%��e���� BeginTable L!p%��e���k��x J�H� BeginTable� �B@� � �%����"������ǩ����λ�ô��������·��ã�A@|��d���� �%�!�'f f���"������ǩ����λ�ô��������·��ã�A@|���k���k��� J�H�totalAcount� �B@� ��� �B@� � �%��� �B@�� �%�!�'fd���"ĩ����ǩ����λ�ô��������·��ã�A@|���k��� J�H� lastColumn� �B@� � �%���� �%�B@H � �%�'hd��H�"ĩ����ǩ����λ�ô��������·��ã�A@|��k��$F'v v L!�!:���뽫��������������棡A@|���k���������� v L%�%�!h!��������� v L%�%�!h!�� �� L%h!d���*�ڶ�������Ԫ������Ϊ�գ������뵥λ���ƣ�A@|���k���� �$�.�]��]��]��DocName %D!t'� �$T��� ��ȡ�����ĵ���������ϵ����Ա��A@|��@k��8�TempPath %D!t'� �$T��� ��ȡ�ñ���·��������ϵ����Ա��A@|���k��� �� ��.doc�� $�'�������ļ��Ĵ��·�� �A@��//add by kk test�7Selection.GoTo What:=wdGoToBookmark, Name:="BeginTable"�>MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber))�Exit Sub�//end��������ڲ�ָ�����λ���ĵ�.� //ȷ����λ��]� J�H� BeginTable� �B@� � �%�X'��//��ʼ�����еĿ���]�0�'� � f��� ��� ��� v L%�%�!h!��� ��� ��� v L%�%�!h!�� �� L%h.� �!d�$�� �!d�$�� �!d$T�� �!d$T �(dk��� ��'����� LB@d�)/////////////////////////////////////////�'r r f ��� r�� ��� v L%�%�!h!��� r�� ��� v L%�%�!h!�� �� L%h.� �!d'n �!d'l�MsgBox currentDanWeiName �B@� �B@X� \!�.| |� � l�.doc�`C@^q��h �B@b LB@d]�H��� ������� J7��H���������������������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������(<��z<��h< ��<����������H+F@��������������������������� �����������������������������*�`�f��������������`�h����������B@P`�j��������������`�l����������Z�`�n����������`�p����������`�r����������`�t����������`�v���������� �x��������p% �|���������% �����������%`�~����������`������������`������������`������������`������������`������������`������������`������������`������������`�������������h�������������������������&�I�f�������� ���I�r�������� ��(�I�t�������� ��H�I�h�������� ����������������������������������$�I�f�������� ����I�r�������� ����I�t�������� ����I�v�������� ��(�I�h�������� �������`�����������`����������� ����������%`� �������������������������������������C�I�~�������� ���I�r�������� ��0�I�v�������� ��P�I�f�������� ��p�I�h�������� ����I���������� ������� ����������%`�����������`�����������`�����������`�����������`����������� � ��������`%`�"����������8������������������������������<���������������������������� �@��������������������������������������������������������������������������������������������������������������������������������������� ����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(��(��(��(��(� ����� ����� ����� ����� ���������(� J�H� BeginTable� �B@� L!p� 9�9 q��( �����: �B@� N����: �B@L������ R�� V�T �B@P�� �B@X2noSet'�]�`�'��'t n�� t�'t�! � r t�� ��� v L%�%�!h!��� r t�� ��� v L%�%�!h!�� �� L%h.� �!d'p p� p�$�� � p�$�� ��noSet� t'��6 ��λ�������set'�k��� t�'t�!� r t�� ��� v L%�%�!h!��� r t�� ��� v L%�%�!h!�� �� L%h.� �!d'p��� ��set� t � '~k��� f r t v hA� LB@d�''''''''''''�ϴ� LB@B�'''''''''''''''''''ɾ�� ~� ��&�����ӵ�λ���ĵ��� ~ r � v f h �A�k��k���noSet'��'��'~ t r'r������½����������ĵ� һ����λ]�x �����������.doc'�]���'�� \!�.x x� ��`C@^q��@ �$�B@��'r r f ��� r�� ��� v L%�%�!h!��� r�� ��� v L%�%�!h!�� �� L%h.� �!d'l�'t l�� t�'t�! � r t�� ��� v L%�%�!h!��� r t�� ��� v L%�%�!h!�� �� L%h.� �!d'p p� p�$�� � t�'t�!� r t�� ��� v L%�%�!h!��� r t�� ��� v L%�%�!h!�� �� L%h.� �!d'p���� f r t hA� �$�B@� �B@bk��� r t'r r f� ��l �B@�����ҳ�� ��'���''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) '��ǰ��ҳ�ţ����ںţ��4''''''''''''''''''''''''' ����ɾ����ǰ��ҳ��Ĵ��� � !$!(� �����: �B@� �!� �B@� � !$!(�k�� �$�B@����� ��½����������ĵ� ������λ �$�B@��'r r f ��� r�� ��� v L%�%�!h!��� r�� ��� v L%�%�!h!�� �� L%h.� �!d'l�'t l�$�� p�$�� l$T�� t�'t�! � r t�� ��� v L%�%�!h!��� r t�� ��� v L%�%�!h!�� �� L%h.� �!d'p p�� t�'t�!� r t�� ��� v L%�%�!h!��� r t�� ��� v L%�%�!h!�� �� L%h.� �!d'p���H f r t hA� �$�B@� �B@bk�� t�� r�'rd��� r t'rk��� r f t� � ��l �B@�� ���ҳ�� ��'��z'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) '��ǰ��ҳ�ţ����ںţ��2''''''''''''''''''''''''' ����ɾ����ǰ��ҳ��Ĵ��� � !$!(� �����: �B@� �!� �B@� � !$!(�k��H �$�B@����0 �$�B@� �$�B@� �$\B@d�''''''''''''''''''''''�ϴ� B@B�!'''''''''''''''''''''''''''''ɾ��|����������ִ������ҵ���ǩ��A@�nh|��`o��X��� tablePageNum�# ���� 2003-6-7 �� �칫���շ�Ա ¼��� �B@� �B@X ��� \B@� �B@b� !$(��FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNum J�H�yinfadanwei� �B@� N�� �B@� �!�B@� �!���9d�5�(d�9� �9��9��9��9��9��9��9��9�q��� R�� V�T �B@P �����: �B@� f r t� hA�� !+� ��ʱ����.doc�` ���������������������������� LB@^�������Ƶ��ڴ��� �B@� �B@X B@Bo��h�h]�H�ɾ��ǰ�浥λ����newDocRowCount]�` J�H� BeginTable� �B@� � �%�X' r� ' � �]�x����� �� v L%�%�!h!������ �� v L%�%�!h!�� �� L%h. B@H N�� � �: V�T �B@ �!�B@�k���]��� ɾ�����浥λ���� t� � f r t ' d��� f r t �' k��x � ��!�� t�� �� v L%�%�!h!���� t�� �� v L%�%�!h!�� �� L%h. B@H N�� � �: V�T �B@ �!�B@�k��� t� ��% ���кϼƽ��!�� t�� h�� v L%�%�!h!���� t�� h�� v L%�%�!h!�� �� L%h.� �B@H�=SUM(ABOVE)��� �B@k���o�����]��]��]��]�]�]�0]�H�']�h J�H� BeginTable� �B@� � �%�X'" ~ ��! � r �� "�� v L%�%�!h!��� r �� "�� v L%�%�!h!�� �� L%h. !d' !d$T' �B@� �B@X� \!�. � � �.doc�`C@^q��� �B@b LB@d�'�start to del the rows �� �'�#� r �� "�� v L%�%�!h!��� r �� "�� v L%�%�!h!�� �� L%h. !d' �� �'�#� r �� "�� v L%�%�!h!��� r �� "�� v L%�%�!h!�� �� L%h. !d'�����V''''''''''''''''''''''''''''''''' MsgBox "��ǰ���ӵ�λ����" & newSubDocRowCount & "��"�g' Call delRows(rowsCount, currentRowNum + subDocCurrentRowNum, newSubDocRowCount, tabsNum, columnCount) f r v hA� LB@d� !'''''''''''''''''''''''''''''�ϴ� LB@B� %'''''''''''''''''''''''''''''ɾ������k��� '���po��h���� InstBokMarkBeginTable Macro� ���� 2003-6-4 �� qy ¼��� L!p� �!h�h� BeginTable�C@� 9�9 q���o������� InstBokMarkBeginTable Macro� ���� 2003-6-4 �� qy ¼��� L!p� �!h�h� LastColumn�C@� 9�9 q��o������ InstBokMarkBeginTable Macro� ���� 2003-6-4 �� qy ¼��� L!p� �!h�h�TotalAcount�C@� 9�9 q��Ho��@����8����6�Attribute VB_Name = "SplitModule" Function getTableNo() As Integer !SeleL.GoTo What:=wdBoo�kmark, �:="Begin�`<With ABveDoc@ument.9sc*.DefaultSortin�g�wdBy` +ShowHidden'Fals�e End �;�cMoveLef t UnieCharacter,� Coun� 2��Up�Line1HomeKey�Story,� Extend��C�Copy�Set tmpdoc�r��s.Add��� �T.Sa�vetFiw@��h�����.@hK�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��Aa�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�#q1!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�mAWhile ((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���41EventClassModule"��������������ToolModule�����< _VBA_PROJECT�������������� dir�������������M��<������@N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}����� %*�e�������������������������� &��������������������p�������� �)�(�����������%i�&������������������������������������%����0�������������0������������������������������������������������������������������� � � $("� P� X�x� ������$������ ������� ����� ���������������¼��Ķ������] ������¼��ڴ��ĵ��ر�֮ǰ�����0��ĵ��ر�ǰ�ĸ��ֲ����* (B@d|��h�*` �X �5825 �X �5825�|��0k��(o�� ���������Attribute VB_Name = "EventClassModule" �Bas�0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |Global�SpacAIFalse dC�reatablPredeclaId�CExposeTemplateDeriv�CustomizE'�����¼��Ķ������ 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@�= A�������$ 7����������������������������x��ME�������������������������������������������������������������������������������������������������������������������������������������������(<��$<��< ��<����������� �.��������%>`�����������������������������<���������������������������i�0������������i�2�������� �������+4X���������������� �������i�0���������������`�6�������� ����������������������������������������������������������������������� �� ����������������������������������������������������������������������������������������������&�"�� �8� ����"� @� H� `�p��������B� �� ���� ����� ������� �(�0�8�@�H� P"�h� p� ���� �"��� �� ���� ���������]�� ���������� � !@ ./d���ڴ�o��@�`� ��Ӹ��ֱ����� 0$4��ֲ� 2 0 %D(td��p 0 2 !DB@�k��Po��H����жϱ����Ƿ����]�@ �B@8� 0 %D!t'6 �!:���'4d����'4k�����i���� ��ʾ�ۼ������X� (P� (Ro��h� �ڲغۼ�������� (P� (Ro�� ���������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�� I��0*� pH�d�ProjectQ(@=� l ��H J< rstdole>stdoleP f%\*\G{00020�430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Autom�ation^�D@Normal�DNA�Brma�E � �*\C v��HA�!Offic�fOA�`fic�f����!G{2DF8D04C-5BFA-101B-�BDE5�fAA�d4�2�f��gram Files\Microsoft 6\MSO@9.DLL# @9.0 Ob� �Library�CE��MSF>s>�MS"F�>s3@�_D452EE1 -E08FA,A-8-02text��`errorhandle�_` Bookmarks?n` Bookmarknamesk�`Value�K` Ansewerslist/�`Split�)`p1�^`p2�^`ja`Exists�]`HideMark�:`ShowMark��`Start�`Cut.�`InsertAfterq5`Add�r`NewTitleModuleg�`arraysH*`rows�U`OldStr'�`TitleStr��`Right `booknamea�`flag��`rang1� `cellcontent��`iCountl`ocellK�` SelectionZ�`Tables�`Cells�`ChrK~`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��`FontU`Size��`Bold��` 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``SplitModule�u` getTableNoM`What�C`wdGoToBookmark�J`MoveUp�`wdLine��`HomeKey��`wdStory�&`Extend?�`wdExtend�d`Copyƿ`tmpdoc��` Documents�`SaveAsf;`FileNamej�`Paste�`Save��` rowsCount��`columnCount$` preDanWeiName�������� ���� ����������������������������!"#$����&'()*+,-./01��������4����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������_�`currentDanWeiNamemJ`currentRowFirstCellContentB�`nextRowFirstCellContent>` currentRowNum\�`newDocRowCount?c`tabsNumh�` attachDoc'F`Documentj�`mainDoc�+`SubDocRowsCount�,`erro�`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�`SeekView$�`wdSeekCurrentPageFooter�O`TypeText��`pages��`wdSeekMainDocument��` DocumentType��`wdNewBlankDocumenta�`VerticalPercentScrolledz�`EndKey5�`Findn�`ClearFormatting�)`Replacement�`For����� �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ay� ��*\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:\WINNT\System32\stdole2.tlb#OLE Automation*\CNormal*\CNormalv��H *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library�*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{C52C3F71-500A-499F-A1F4-98814DEE0E65}#2.0#0#C:\DOCUME~1\ADMINI~1.ZHA\LOCALS~1\Temp\Word8.0\MSForms.exd#Microsoft Forms 2.0 Object Library�.E ���.`�M� ���������H������������������������������������������������7�ThisDocument0<�48da1413��ThisDocument���Q��WriteMark0248da1413��^WriteMark���U���NewTitleModule0348da1413���NewTitleModule��S(0v5��frmTools0448da1413��GfrmTools���\H���frmSplit0548da1413��[frmSplit��+�`� ��SplitModule0648da1413��DSplitModule���HxJ�� EventClassModule0748da1413��% EventClassModule��Y�����ToolModule0848da1413��,ToolModule���&�������������������������������������������������������`������������������������������������������������x��������������������������������������������������������0���������������������������������������������������������������������������������������������������������������������������������������������������������H����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������+�$E�E��2n/-�������[x�KH��� tB����p� t��J����L�����K)7�k%g@���wj�4�����HH�=D�O��P��p����G�\/��A��p��QL����߄ Uڴ�F�� o�����Ρ6�h��J�����`�`��������8���QWord�k`VBA��`Win16�~`Win32`Mac��`VBA6�#`Project-�`stdole�``��Normal��`��Officeu`��MSFormsC` ThisDocument<�` ��_Evaluate�` ChangeViewP�` ActiveWindow�+`View�I` SplitSpecial�` wdPaneNone= ` ActivePane_�`wdPrintView(�`InitWordb�`oObj�`aX`oDic�` Trackmark�` CreateObject��`str��`Keysq�`i``Count0v`AddVar��`Register_Event_Handler�`Application�*`UserName\�` Variablesn`frmTools��`Show�` WriteBookmark�`ActiveDocument�\`TrackRevisions��`PrintRevisions�` ShowRevisions�u`Trim@�`NewTitle��` InitWordsplit��`frmSplit��`ShowToolBarV4` WriteMark�d` bookarrayf�` ansewerarray6.`app�t`books��`range� ` booksCount'�` selectward��`WrapWy`wdFindContinueBP` MatchCase��`MatchWholeWord�X` MatchByte�s`MatchWildcards��`MatchSoundsLike�0`MatchAllWordForms��` FileFormat��`wdFormatDocument��` LockComments'�`Password��`AddToRecentFiles�V` WritePasswordOW`ReadOnlyRecommended�`EmbedTrueTypeFontsUS`SaveNativePictureFormat��` SaveFormsDatac�`SaveAsAOCELetter��`preRowI�`` col_start1 o`rang2� `MoveDown̝`nextRowI�` InsertFormula�F`FormulaqY` NumberFormat�R`subDoc�,`subDocCurrentRowNum��`newSubDocRowCount`` subDocCurrentRowFirstCellContent;�`subDocCurrentDanWeiName*+`subDocNextRowFirstCellContentpl`subDocRang1]�` col_start2 o`EventClassModule�`App_DocumentBeforeClose�S`Doc��`errdone�R` ToolModule@?`Xo`strName�Z`newValue�`ExistVar�.`aa{\`Clear��`Number�-`���-[������_����������������������������������������������������������������������������������������%G �������������E�608�C4D0BB4�_@DOWS\sE`F�M20 'B �l�&�/;"1�~�wBz ~00}#0~#� ��50� � ��AC52C3F71-500A-499F-A1F4-9881A@bE0E65�6DOCUME~1\ADMINI~1.ZHA\LOCALS@Temp\Word8.0�\�V.exdHe>�#��.E ���.`�M(����"�7�B�ThisDocume ntG� T"h��sD�mc�u��en����2�` H��1�w"E�,��Q""+ ��bWriteMarkGQ�Wrt`MA@irk�2�/���-�U!b%!XNewTitleModul(eG! Nw�TBa�M�#d�#a6�^�2��v5)/$S(��frmToolsGV�$m o lls�#i2ro�S�m#�\�3(� �%$�Spli`F�'Sp �ibEi7)g/�?-+��1��4��K3�2�� �e��oJ/2�H+2! EvhClasscE�Ev�F�gCe #a`3s�q2�e�K�k���'tY��' �%He���G���+25�/'& ����K*y���� *\CNormalrU����~~~~~~~~h ����lp�B��\�\J� �������a Q ������ 1 ����������������������� __SRP_0 �����\__SRP_1�������������frmSplit"�Ua'�:���j'�:�f��������������������������������)������������Q������������q���������������������������������������������������������� ���3���H��Ӽ�f3�yProject ThisDocument WriteMarkNewTitleModulefrmToolsfrmSplitSplitModuleEventClassModule ToolModule��F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ���� )�` �F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord �����!�p0�FC:\WINNT\System32\stdole2.tlbstdole ����1y�L��-�[���D�R 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice ��������.E ���.`�M�C:\WINDOWS\system32\FM20.DLLMSForms ��a�q?,� P�I����M�e:C:\DOCUME~1\ADMINI~1.ZHA\LOCALS~1\Temp\Word8.0\MSForms.exd ���a�k �FK+��FQ`E�5��ɴ����w7�=E�d8|<}�6�� ��]L��0r�:az �FDocument ChangeViewInitWord InitWordsplitShowToolBar @RrU����~} ������������ ���������������������������� ��oObjm(H @��}~R�������K�Q���_������$��8cdSplit�,�bR�e�N��u��"�[SO,��L�h����u��"�[SO(+gRo�����CompObj�������� aVBFrame������������frmTools����������j'�:���q'�:�h��q�u��"�[SO,+gL�h����u��"�[SO(� �8cbTopLefth��(� �4cbTopRight���$��8cdBottom ���� ����Microsoft Forms 2.0 ����Embedded 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:yn?z��u��"�[SOf�������������o����pCompObj��������aVBFrame�������������(� �8NonMarkCBB?z� ���� ����Microsoft Forms 2.0 ����Embedded 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 PROJECTwm������������ "PROJECT������������%-PROJECTlk ����2CompObj������������3mThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModuleToolModuleToolModuleID="{20316CF5-1B07-499F-B036-A72B106456FC}" Document=ThisDocument/&H00000000 Module=NewTitleModule BaseClass=frmSplit BaseClass=frmTools Module=WriteMark Class=EventClassModule Module=SplitModule Module=ToolModule Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="6D6FDF4C21BD25BD25BD25BD25" DPB="DAD868E7D4E8D4E8D4" GC="4745F59A0F6A7D6B7D6B82" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={000209F2-0000-0000-C000-000000000046};Word8.0;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C NewTitleModule=0, 0, 0, 0, C frmSplit=0, 0, 0, 0, C, 44, 58, 880, 526, C frmTools=0, 0, 0, 0, C, 22, 29, 858, 497, C WriteMark=0, 0, 0, 0, C EventClassModule=0, 0, 0, 0, C SplitModule=0, 0, 0, 0, C ToolModule=0, 0, 0, 0, C @ҋB��� �`��� ���� �FMicrosoft Office Word �ĵ� MSWordDocWord.Document.8�9�q