��ࡱ�>�� cf����b|�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������` �R�;bjbj��FN����S+�������*!!!8N!d�!4*�>��!�!""""�#nB$<~$ �6W�=�=�=�=�=�=$k@h�B�>9-&�#"�#-&-&>""�=>�1�1�1-&�""�4��1-&�6�1�1�1"�! �fۄ��!�-��1Q4TS>0�>�1gC�/�gC�1�1gC�1��$0�$"�1�$ %!�$�$�$>>U1X�$�$�$�>-&-&-&-&**d��� **��***����  Ym_lw"�?e�S�e�N Ym"�L�02014029�S  Ym_lw"�?e�SsQ�NpS�SYm_lwY�[�c�_ �~9��{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 � �ۏNekZP}Y�c�_Y�[�]\O �ĉ�Y�[�c�_�~9��{t �9hnc 0"�?e�sQ�NpS�S-N.Y�T�V�[:gsQY�[�c�_�~9��{t�R�l�v��w 0�"�L�020130533�S ��|^y �yr6R�[ 0Ym_lwY�[�c�_�~9��{tĉ�[ 0 ��spS�S�~`O�N �����w/�{_gbL�0gbL�-N gUO� ����S�eTb�N�S f0 Ym_lw"�?e�S 2014t^5g15�e Ym_lwY�[�c�_�~9��{tĉ�[ ,{N�z ;`R ,{Nag :N�NۏNekĉ�Y�[�c�_�]\O ��R:_Y�[�c�_�~9��{t �:_S���{�vcw ��cؚD�ёO(uHe�v ��O��Y�[�c�_�]\Oz�)R_U\ �9hnc 0ZQ?e:gsQ�SL����~�S�[jm9�ag�O 0�-N�S02013013�S ��S 0"�?e�sQ�NpS�S-N.Y�T�V�[:gsQY�[�c�_�~9��{t�R�l�v��w 0�"�L�020130533�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 �_U\�VY0�XYeg�[�c�_�]\O0 ,{ Nag TUSMOY�[�c�_�]\O�^S_ZWc g�RY�N0�S}Y�[I{0�R�[���O�v�SR0 ,{�Vag ����Y�[eg���^S_ cgq gsQY�N�{tĉ�[ �%Nm0l��Z9�(u0 ,{ N�z _/e��V�Sh�Q ,{Nag Y�[�c�_�~9�_/e��V;N��S�b�OO�[9�0�e8^Oߘ9�0�[��9�0�N�9�0`�N�RUSMO�Q萄v�[���T�b�_@b � N Nؚch܃���TR�4l �\g�~bY�Ojm9�0�VE�O��0'Y�W�mY;m�RI{ ��c!PǑ(u�Q�O0R�O06�OI{Y�y�[��b__0 ��N �Y�[�[��9��+TR�4l0n��e �h�Q�w�~�S�vS_L��~�NXT�Qb�>N�R�v�[�� ��k�N�k!k400CQ��S�~�S�vS_L��~�NXT�Qb�>N�R�v�[�� ��k�N�k!k300CQ��S�^0:S �;N�����[�Qb�>N�R�v�[�� ��k�N�k!k260CQ0�Q�0R�O06�OR+R:N�k�N�k!k150CQ0100CQ060CQ0 � N �-N.YUSMO�����vY�[�V�~(WYm_lg�� ��[���[�c N��Ǐ1!k�w̑�����vY�[�V�~(WYm_lg�� ��[�� N�_��Ǐ2!k �vQ-NS+Tt�^0�S�^0:S ���� �1u^0�S�^0:S ��c�_USMO�[�c�v�[��1!k0 ,{ASNag �N�9� c�N N�R�lgbL�� �N �Y�[(uf��^S_9hnc�[E��`�Q�[�c �d�\pe͑��Y�[XNPW\�f�Y �vQ�NY�[�SƉ�NpeY\�[�c\�f�0-N�]b'Y�]0(W&{T@FJXZ`d��������jlrv����06^d|��������ϲ�����v�j�j�v�j�j�j�j�v�j�j�v�v�hhceCJ OJPJaJ hhceCJ OJPJ^JaJ hhce5�CJ \�aJ hhce5�CJ OJQJ\�^JaJ #hhce5�CJ OJQJ\�^JaJ o(h?`hhce5�CJ \�aJ h" �CJ OJPJ^JaJ o(hhceCJ OJPJ^JaJ o(#h�p*hhceCJ OJPJ^JaJ o(h�mFCJ OJPJ^JaJ o()�>@Z���l����rr*N�R���t,-�-������������������������� $d��a$gd�U�d��gd�U� �pd��WD�`�pgd�U�|���������� pr����,2TZ^dhlpr������"$(*26LN��PR��PR~���������,r,t,�,�,--|-�-�-�-�-���������������������������������������������������������׷�����������Uh" �CJ OJPJ^JaJ o(h\<CJ OJPJ^JaJ o(hhceCJ OJPJaJ hhceCJ OJPJ^JaJ o(hhceCJ OJPJ^JaJ H�N ��[Y`�yO TAm0N�[f[� �nx g�_��`�yO�vcw0 ,{�NAS�Nag Y�N0"�?e0�[��I{�蕔^S_�R:_�[Y�[�c�_�{t�T�~9�O(u�`�Q�v�vcw�h�g0TUSMO�^�Y�[�c�OS�b�c�_��R0�~9����{0_/e�b��Q��I{(W�Q�v�vsQD��e �;N�RM�T�c�S�h�g �v^��w=��[�h�ga��0 ,{�NASmQag ݏ�S,gĉ�[ � g NRL�:NKNN�v � cgq 0"�?eݏ�lL�:NYZYRag�O 00 0ZQ?e:gsQ�SL����~�S�[jm9�ag�O 0I{ gsQĉ�[ �#��Nte9e ����VD�ё �v^��vz gsQ�NXT#��N� �N ��d��cؚ�c�_�~9�_/eh�Q�v� ��N �*g�~yb�Qb�cCg����0�c�_Y�[�v� � N ��c�_Ǐ z-NX[(W�� _jm9�0bY�OL�:N�v� ��V �ݏĉib'YY�[�c�_�~9�_/e��V �b�b�N�c�_�esQ�v9�(u�v� ��N �Z��bY�[�c�_�~+R0�Npe0)Ype �WY�S�c�_�~9��v� �mQ �O(uZ�GP�Shy�b��c�_9�(u�v� �N �vQ�Nݏ�S,gĉ�[�vL�:N0 ,{N�z D�R ,{�NASNag "�?ee��R�v^��SgqlQ�RXT�l�{t�NNUSMO0>yO�VSOI{T{|:g�g�vY�[�c�_�~9��{t�Sgq,gĉ�[gbL�0 ,{�NASkQag (WYm_l>N�R�VE�O���m�S�vY�[�c�_9�(u�{t cgq(WNS>N�R�VE�O���v gsQĉ�[gbL�0 ,{�NAS]Nag ,gĉ�[1uw"�?e�S�#��ʑ0 ,{ NASag ,gĉ�[�2014t^6g1�ew��[�e0w"�?e�S 0l��S"�?e�sQ�N�c�_Y�[9�(u_/eh�Q�T�{t�R�l�vĉ�[�v��w 0�Ym"�Y01998047�S � T�e�^bk0 �b��"�?e�0 Ym_lw"�?e�S�RlQ�[ 2014t^5g16�epS�S     PAGE    PAGE 1  �-�-�-J.L.T.X.�.�.�.�.�.�.�.�.t/v/~/�/�/�/0 0 00 0"0@0B0D0F0P0R0Z0^0B1D1F1L1P1b1d1l1p1�1�1�1�1Z2\2d2h2�2����ͳ������ͳ��ͳͳͳͳͳͳͳ��ͳ�������ͳ��ͳ��ͳ�hhce5�CJ \�aJ hhce5�CJ OJQJ\�^JaJ #hhce5�CJ OJQJ\�^JaJ o(hhceCJ OJPJ^JaJ hhceCJ OJPJaJ hhceCJ OJPJ^JaJ o(hy=�hhceCJ OJPJaJ 'hy=�hhceCJ OJPJQJ^JaJ o(4�-L.�.�.�.v/R0D1F1d1�1\2�2J3&4d45z5|5�56�6h7�7����������������������� �rd��WD�`�rgd�U�$�rd��WD�`�ra$gd�U� $d��a$gd�U� �pd��WD�`�pgd�U��2�2�2�2�2�2H3J3�3�3$4&4,4.40444<4>4b4d4j4l4n4r4z4|455 5 55555x5z5|5����������≗z���≗z���≗z��h"hHA�hhce5�CJ OJPJ\�aJ h5I�CJ OJPJ^JaJ o(hhceCJ OJPJ^JaJ hhceCJ OJPJ^JaJ o(hhceCJ OJPJaJ o(h�Z�hhceCJ OJPJaJ h\/oCJ OJPJ^JaJ o( h�Z�hhceCJ OJPJ^JaJ #h�Z�hhceCJ OJPJ^JaJ o(hhceCJ OJPJaJ $|5�5�5�5�5�5�566 66�6�6�6�6f7h7z7~7�7�7�7�7�7�7�7�7"8$8X8Z8|8~8�8�8�8�8�8�8�8�8�8�8����´¨´¨´™Š´´¨Š¨¨¨¨����´x�#h�O�hhceCJ OJPJ^JaJ o(h5I�CJ OJPJ^JaJ o(hhce5�CJ OJPJ\�aJ hhceCJ OJPJaJ hhceCJ OJPJ^JaJ hhceCJ OJPJ^JaJ o(hhce5�CJ \�aJ hhce5�CJ OJQJ\�^JaJ #hhce5�CJ OJQJ\�^JaJ o(*�7�7�7$8Z8~8�8�8�89t9�98:::N:�:�:�:�:������������������ �^d��G$gd�U�$$d&d(dN��P��R��gde$� �pdp�WD�`�pgd\< �pd��WD�`�pgd\< $d��a$gd�U� �pd��WD�`�pgd�U��8�8�899"9&9r9t9~9�9�9�9�9�9�9�9�9�9�9�9�9�9�9::::::: :��˿˱˿˱˿��˟����p�p�ap�Pp hSh`h\<CJ OJPJ^JaJ h�" CJ OJPJ^JaJ o(h\<CJ OJPJ^JaJ o(h�N�CJ OJPJ^JaJ o( hSh`hhceCJ OJPJ^JaJ #hSh`hhceCJ OJPJ^JaJ o(hhceCJ OJPJ^JaJ hhceCJ OJPJaJ hhceCJ OJPJ^JaJ o(!hhceCJ OJPJQJ^JaJ o('hQ�hhceCJ OJPJQJ^JaJ o( :":$:&:(:6:8:::D:J:n:�:�:�:�:�:�:�:�:�:�:�:����ѭ����v�gWJ�=�=�h\<CJOJPJaJo(hf`pCJOJPJaJo(hAb�h�%�CJOJPJaJo(hAb�hw�CJOJPJaJhI2yCJOJPJaJo(h�'FCJOJPJaJo(h��CJOJPJaJo(hAb�hw�CJOJPJaJo(#h\<h\<CJ OJPJ^JaJ o(#hSh`hhceCJ OJPJ^JaJ o(h\<CJ OJPJ^JaJ o(hhceCJ OJPJ^JaJ o( hSh`h\<CJ OJPJ^JaJ �:�:�:�:�:�:�:�:�:�:�:�:�:�:�:�:�:�:�:�:�:�:�:;;;���������������˿��������h�50JCJmHnHuh�i�0JCJjh�i�0JCJUh�i�0JCJo( h�i�0Jjh�i�0JUh�i�hWjhWUh^\�CJ OJPJo(�:�:�:�:�:�:�:�:�:�:�:�:�:�:;;;���������������� �^d��G$gd�U�������V&`#$WDd`�gdS� �h�h]�h`�h����&`#$ &dP��gd1[�D&P 0pu���1�Z2P/R :pj���. ��A!�4"��#�2$��%��S�4 ��c$$If�!vh5��5�� #v�#v� :V �l t��6�5��5�� 9���J@��J ck�e $1$a$ CJKH_HaJmH nHsH tH$A@���$ ؞���k=�W[SOFi@���F nf�h�AKNPQT�������*-/2468:TUl���������(*tu������������68cd��������" # ' ) U W Z \ e f j l � � � � � �         % & * , � � � � � � � � � � � � * + / 1 g h l n q q � � �      / 2 6 :  � � � � � � � � � � � �   ^ _ d f � � � � � � � � � (+;=JLOQSTY[�����������  EEKKNNRSSUUVVXY[\^_ainx}���������  NN[[����jl��II(-��������q q � � ��  EEKKNNRSSUUVVXY[\^_ainx}�333s33330;�������   NN[[����II������q q � � ��  EEKKNNRSSUUVVXY[\^_lnx{}�SSUUVVXY[\^_}�"U�u���^�'P\<4a.c8 �D N �" (W@���rW�h�#&S#� %!2&�%*?|,�)-�).�V1�55Q5�6�<7�B7�a7nN8�k8+9�p@lC�,DURDvE�'F�mF�7G�GL�uL�rM�IPtV�QWd3X�^�^�p_�a`ahcey5f:dfnci\/o�pf`p;bq[3s� tE#umwI2yb#z�?z�|^P}�|��S��������F��H��S�Ab��i��G�0N�Zv�^\��~�e$��{�PB���-� e�5I�c.����p�-d�,��U��N�cy��G�Qj�Q��e��S�.�H(�-W�����%�(2����M��N�;q�b/�iy��p�w��N�� ��S��E��|��u���� ��!�w��i��Q��]�;�j�T?�o��(�1[��s�ey�u{�>8�b:��E��]�gz�][��Z�" ��R�S��Y��Z� ����R����  BookNames  CurUserNameL3 DeleteMarcesT DocNamed haha`hNewInfo� OldInfo(7 SplitTool� TitleStr  TrackMark year1_2;filetype1_2;fwzhWF�False&AA2E6C9DF9BB3B5F48257CD600070317_1.doc10002014029&;&Ym"�L�&;&Ym"�L�02014029 False Ym_lw"�?e�S;�e�N1� V��FNFNV��FNFNV��FNFNV��FNFNV ��FNFNV��FNFNV��FNFNV��FNFNV��FNFNV ��FNFNV ��FNFN�� 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.ChangeView PROJECT.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@�77�0774�PP PP,��Unknown������������G��z ��Times New Roman5��Symbol3&� �z ��Arial;��ўSOSimHeiAE���eck\h�[�{SO�eck�YSO;5�� �N�[_GB2312;���[SOSimSun;"� Helvetica 1���h'$&g'$&g˛%'I I !-!),.:;?]}����    & 6"0000 0 0 00000��� � �����=�@�\�]�^���([{�  0 0 00000��;�[�����42����dLL%�[�2�q���HX��?������������������������2��0 Ğ�efWF��������Oh��+'��0������$ 4@ ` l x ������4 ������ Normal.dot�޾�2Microsoft Office Word@@�|1s�@*sn��@*sn��I ����՜.��+,��0� X`t|�� ����� ���񺼰�L�   !"#$%&'����)*+,-./����123456789:;<=>?@ABCDEFGHIJKLMNOPQ����STUVWXY����[\]^_`a��������deryhijklmnopqswtuvx�z�{}����~�Root Entry�������� �F`y���g@dData ������������(1Table��������0gCWordDocument����FNSummaryInformation(������������RDocumentSummaryInformation8��������ZMacros(�fۄ���fۄ��VBA���������fۄ���fۄ��dir������������W__SRP_0 ����� __SRP_1������������F�__SRP_2 ����M� ���� !"#$%&'()*+,-./0123456789:;<=>?@ABCDE����GHIJKL����NOP����RSTUVWXYZ[����]^_`abcdefghi����klmn����pqrstuvw����yz{|����~�S��0*� pH�d�ProjectQ(@=� l ��3U1 J< rstdole>stdoleP h%^*\G{00020�430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Aut�omation`�ENormal�EN�CrmaQ�F � �* \C �t3U�!Offic�gOf�ic�g����!G{2DF8D04C-5BFA-101@B-BDE5�gAjA�e4�2�g��gram Files\CommonMicrosoft Shared\OFFICE12\MSO.DLL#��M 9.0 Ob� Li`brary@%�BxMSF�As>��MSFDBHs3@�cD452EE1-E�08F�/A-8-02608C4 D0BB4�cINDOWS�cFM260 'B �p�&/�;"1���{B~ A�00}#0�#�� ��50�f� AE3405C98-2D34-4F9D-8440-4089F3C816F�6DOCUME~1\hp�\LOCALS�Temp\VBE��`�5.exd�a�:@ ��.E ���.`�M ����7���ThisDocumenPtG�T@�isD@jcuQ��en@�� 2E� ` H�1��w4"��,��Q""+��bWrite�MarkG� Wrie�M@irk�&2�/� /�U!b%aVNewTitleModuPleG! N pw�TB��M�#d�#ma"]�2��NR6�S(��frmToolsG��$m o �l 7i2ro�� o�\�3(� %$� Spli�`F'Sp �A5&ob)g/%@��C+��1 �B 4��K3�2��`�e��osL�"�H+2 ! EvhClas�sE�Ev�F�g�C #a`3s�Xo ��u�eYq2b�}�of �'Y��'@=~Hes�G�'+25��!����K*y���� *\CNormalrU����~~~~~~~~~~~~~~~~~~C ���s] L�b>�!o� �������a 1 ����Q �� ����������������������������������������������a � ���� 1 a � � ��)������������I����������������������a ����������a �����p����9Qq���i��� ���۲�"N�����Ɇ�� ThisDocument WriteMarkNewTitleModulefrmToolsfrmSplit ToolModuleEventClassModule SplitModuleProject��F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ����� �` �F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord ������p0�FC:\Windows\system32\stdole2.tlbstdole ����1y�L��-�[���D�R?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice ��������.E ���.`�M �C:\WINDOWS\system32\FM20.DLLMSForms  1y��\@�4-�O�@@���� ,C:\DOCUME~1\hp\LOCALS~1\Temp\VBE\MSForms.exd � y�k �Fapp�ۯ�dO�|� �P��z��Z�F�?=���> ���YI����Ք\ �FDocumentInitWord InitWordsplit ShowToolBar @1\(��TrE��~$��[4g��`E�0�mE'ʩ��{���6@�} m�4JP�J���G�����OL� �>j{EG� ���=�ȏ�[qJ�� e��UserFormᬘ3���B�3�7��u� F3Dynamic a ��������� ��{l���F�WJO ShowMarkCB!�-��6��S�` � I ��������y NonMarkCBNonMarkCB_ClickShowMarkCb_Click SplitCB_ClickUserForm_ClickUserForm_QueryClose H���q�~gL������_�gL x�E��my!�R ChangeViewģ��1b �F� �F` �FRegister_Event_HandlerAddVarExistVarShowMarkHideMark +=����h�8+3q��W$��sG�{˶f$-:*=����h�8+3q�[�f�@�2�X*�Q� ���@�ް�D���ohC���Y��������������x��ME������������������������������������������������������������������������������������������"����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������PSP����S����S����S����<��<��<��<�������0{65070F73-0C47-45D3-9773-238B0369C387}{F5979A85-4F57-407E-B00D-38145D2E30C2}���� "@`���������������������� $�`���������������������� &�`��������������������� �`�(����������H 0`��������������������� � 4X`���������������������� 8����`����������������������������������������%����������������������� %������@X�����������������������@X�����������������������@X������������������������������������%��L�����������������������%�����������@X�����������������������@X�����������������������@X����������������������@X����������������H������@X����������������x������@X����������������������������������X������������������������������������������������������� ��3U1���+� ����"���� ����"�� �(� ����"�0�8�4@� x���,������ ����"���4�� � �,(�X� �����`� ����"�h�4p� ����,������ ����"��4� @�P� :X��� ������������A@vo��h�@A@|o��P��]����Ƿ�ȷ�����б�� *� WORD ������Ϣ$'( ( ,�xA@.� ���б�dzɹ� � WORD ������ϢA@PMk��8o��0����Ƿ�ȷ��ĩ�б�� *� WORD ������Ϣ$'(� ( ,��A@2� ĩ�б�dzɹ� � WORD ������ϢA@�k���o������Ƿ�ȷ��ĩ�б�� *� WORD ������Ϣ$'(� ( ,��A@6� ĩ�б�dzɹ� � WORD ������ϢA@�k��o���X��Ƿ�ȷ������ļ� *� WORD ������Ϣ$'( ( ,�A@�4 MsgBox "����ļ��ɹ�", vbOKOnly, "WORD ������Ϣ"!k��`o��X����P����7�Attribute VB_Name = "frmSplit"  �Bas|0{65070F73-0C47-45D3-97238B0369C387}{F5979�A85-4F5J07E-B00D-381d2E30C2} dGlobal�SpacAoFalse �C�reatablPredecla�Id�Tru B�Expose0Template Deriv�Cu@stomiz�D P Sub cbHideMark_Clic k() � HEnd� S8how �To pLeft4Dim ret As Integer �= MsgBox("�Ƿ�ȷ�����б��", vbOKCancel, "WORD ������HϢ"�.IfB=� Then  InstBok�,BeginT'E�� "��Ʉ���OnlyN C8If[:Righc�:�5ĩ��5�5LastColumD<�5��56dBo>t��Gp�5kEkTotalAcoun�t�5ĩ� ��X�5d≝����8ļ�_PTP� Do�c '!R�3� ���3 ��u�� 7��\������������D���[4g��`E�0�mE'ʩ��{���6@�} m�4JP�J���G�����OL� �>j{EG� ���=�������������x� frmTools�������������x WriteMark�����JToolModule�������������+ SplitModule������i�>j{EG� ���=��[4g��`E�0�mE'ʩ��ME���������������������������������������������������������������������������������������������������������������������������������������������PSP����S����S����S����6"����� ����<��<�������0{C87BC584-ACFB-4036-A97D-0D6D10F2344A}{E84AE950-E2AD-47FC-82BC-B884D94F4C08}� @`���������|�k���������� �`������������|�J���������� �`������������ ��������� � `������������ ���������� ����`������������ @������i�����������`��i�����������������������������������%����������������������� %��������������@���������(��������������%��8��������X��������������%�������������������@����@��������������@����h��������������@�������������������@��������������@��������������@��������������@��������������@����v�������h������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������x�����������������������������������������������0H������������������������`�3U1$*\Rffff*2955338e07$*\Rffff*2>55338e08�����4�8�<��� ����� ����� ����"���� ����"� � �(� ����"� 0�8�@� ����"� H� �����P� ����"�  X�`�8h��� ����������A@vo��h�@A@|o��P��A@o��8��o��(��'��Բ��𣬴˹��������ܹر� �������������ϢA@o��X����P������Attribute VB_Name = "frmTools"  �Bas|0{C87BC584-ACFB-4036-A97D-0D6D10F2344A}{E84AE950-E2AD-47FC-82BC-B884D94F4C08} dGlobaBl�SpacoFalse �Cre atablPr@edeclaI"d�Tru BEx0pose0TemplateDeriv�Cust�omiz�D �P Sub NonMarkCB_Click(�) Hide� ` End�S�howb� Pplit 3SDoc�UserForm� QueryCl�O(Cancel As Integer,� ModeH< D = �bMsgBox "�Բ��𣬴˹����������ر�", vbOKOnly, "�������Ϣ��M�\������ 7�!��������(����#� 7��U���������������������������x��ME����������������������������������������������������������������������������������������������������������������������������������������������<4��<8��<��<��< ��<��<��<��<��< ��<$��<(��<,��<0��<<��<������xh D����`������������8�@����������;;�`�R����l��� ������`�T@\��� �� ��`�V����L��� ��x`�X����<��� �� ��`�Z����,��� ����`�\����*�����`�^����$�����`�`���� ����������P������0��������������%�������������������������������������������������������������������������������������������������������������������������������������������������������`�lvzx|~p0��� �� @�� ��� �� @������ �� ������� �� (�(������ ����� ��@������ �� XX���� ��@@���� ��@p���� ������ ��@������ �� @��t��� �� ��d�� �� �pXb��� �� ((P��� �� @��@��� �� ((����3�����(3X�����H<����� ��������8��� �� ����(��������������������������������������������������������������������������������p�3U1���<� ����"����� �(�0�8�@� �����H� P�`� Ep�E��3��3�� �� �� � � �P8�X�1`� ��$"�� ������� �����""�� ������ �&Q(�P�X�h�$�� ��! ����5��+��� ����� �E(�-@�`�h� p�x������� ������� ����������]�@]�X]�p]��]��]��]��]���b0� <.Vctiona� V!d.Xt� BookNames %6!h'f�NewInfo %6!h'j  f�;$l'R$ j�&;&$l'TA@ R�'n*� T�'p X!,'\� n p��� r�� n�� r$R <!d%t��A@v� r$R$X!Z.Z� Z!d'^� ^� $zAx�; ȥ�����з�� ^� Ax�;ȥ���ո� ^� $zAx�=ȥ��TAB�A@| r$R�jinjicd� r$T� ���$~ r+Tk��� r$T'` `� Ax�5ȥ���ո� ` ^$F�# Z!� Z!��) ZB�-k��0 r$T$F ZB�7 r$R Z XB�k��� r$R�fwzh��fwzh <%dB@H� ����_GB2312 �!�(Sk���k������k����bxA@||��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����      !"#$%&'()*+����-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a����cdefghijklm����opqr����tuv����x����z{|}�������������������������x��ME�������������������������������������������������������������������������������������������������������������������������������������������P�"��>> ���������L�����"����L����<��<�������%����% 0``��������Pt�k����������� .�`������������ ��������i�@�������������i�B�������� ����������+DX`������������  ���� �i�@���������������`�F�������� �� |�`������������ ����������� v����`��������8|�k����������!���<������@�������������X��������`������ �:���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������< ThisDome@�� x��� �� rue @������t��� �� ��� �����������������������������������������������������������������������������������������������������������������������������������������������������������������������Atib���� �������������������������������������������(���������������������������� �3U1$*\Rffff*2?55338e08$*\Rffff*2>55338e08*\R1*#17b*\R1*#c1$*\Rffff*2;55338e08*\R1*#c6���&�"��& �8� ����"�  @� H� `�p��������B�  �� ���� ����� ������� �(�0�8�@�H� P"� h� p� ���� �"��� �� ���� ���������]��� �������� � !2 </V==o��@�`� ��Ӹ��ֱ��� @$D� B @ %6(hd��p @ B !6B@�Fk��Po��H����жϱ����Ƿ����s]�@ HB@Jct � @ %6!h'F H!L���'Dd����'Dk�����i���� ��ʾ�ۼ������X� (@ � (B�o��h� �ڲغۼ�����p�� ��� (@� (B��o�� ���������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�� t��R l ` 7�Y�������������D���W$��sG�{˶f$-:*=����h�8+3q�[�� 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(��(��(��(��(� ����� ����� ����� ����� ���������(� `�^� BeginTable� �B@��� <!d��ĵ� 9�9q��( �����, �B@�� d����, �B@b� h�� l�j �B@f� �B@n�� r!�.p p������.doc�vC@tq�� �B@x� <B@X� <!�!,� '\ <B@B�i����@�� appendtotext Macro��> ���� 2003-4-8 �� ���ͻ� ¼�� �¶��������ο� 88479329 12549346��]���Q����Ҫ����ǩtotalAcount ,λ�ڡ��ϼơ��У�����Ҫ��beginTable��λ�����еġ��С��ء�]���'����Ҫ����ǩlastColumn ��λ�����һ�С�]��]��]��]��]�]�(]�@]�X]�x]��]��� On Error GoTo errorhandle � �!�(l� totalAcount <!d%t��5�H�� lastColumn <!d%t�eA�H�� BeginTable <!d%t�eM�H�k��x `�^� BeginTable� �B@�[ � �%���a�"������ǩ����λ�ô��������·��ã�A@m|��d���� �%�!�'z z���"������ǩ����λ�ô��������·��ã�A@�|���k���k��� `�^� totalAcount� �B@� ��� �B@���[� � �%����]� �B@�`�]�� �%�!�'z�d���"ĩ����ǩ����λ�ô��������·��ã�A@�_�|���k��� `�^� lastColumn� �B@� � �%���� �%�B@H � �%�'|d��H�"ĩ����ǩ����λ�ô��������·��ã�A@!|��k��$\'�) � <!�!,���뽫��������������棡A@9|���k���������� � <%�%�!Z!��������� � <%�%�!Z!�� �� <%Z!d���*�ڶ����׸���Ԫ������Ϊ�գ������뵥λ���ƣ�A@m|���k���� �$�.�]��]��]��DocName %6!h'� �$F���� �޷�ȡ�����ĵ���������ϵ����Ա��A@�|��@k��8�TempPath %6!h'� �$F���� �޷�ȡ�ñ���·��������ϵ����Ա��A@ |���k��� �� ��.doc�� $�'�������ļ��Ĵ��·�� �A@��//add by kk test�7Selection.GoTo What:=wdGoToBookmark, Name:="BeginTable"�>MsgBox CInt(Selection.Information(wdStartOfRangeColumnNumber)) �Exit Sub�//endnL =��������ڲ�ָ�����λ���ĵ�.For l � //ȷ����λ��; ]� `�^� BeginTable� �B@�en(a � �%�X'� �//��ʼ�����еĿ���]�0�'� � z�me�� ��� ��� � <%�%�!Z!��� ��� ��� � <%�%�!Z!�� �� <%Z.�on �!d�$��  �!d�$��  �!d$F�� �!d$F �(dabk��� �� '� ���� <B@Xs(wdBo�)/////////////////////////////////////////�'� � z �le�� ��� ��� � <%�%�!Z!��� ��� ��� � <%�%�!Z!�� �� <%Z.�En �!d'�, �!d'� Wi�MsgBox currentDanWeiName �B@� �B@n.LineS� r!�.�ty �� � ��.doc�vC@teWq��h �B@x050pt <B@X ]�H�noSet'�ol]�`�'��'� ��� �� '� �! � � � �� ��� � <%�%�!Z!��� � � �� ��� � <%�%�!Z!�� �� <%Z.�050pt �!d'� �� ��$�� � ��$��  ��noSet� �'��6 ��λ�������set'� k��� �� '� w�!� � � �� ��� � <%�%�!Z!��� � � �� ��� � <%�%�!Z!�� �� <%Z.� En �!d'�1 ��� ��set�s(wdBo � � '�)k��� z � � � |A�le = w <B@XSingle�''''''''''''�ϴ� <B@Bth = w�'''''''''''''''''''ɾ�� �� ��&�����ӵ�λ���ĵ��� � � � � z | �A�3k��k���noSet'��'��'� � � '�������½����������ĵ� һ����λ]�x �����������.doc'�]���'�� r!�.� �� ��vC@tq��@ �$�B@��'� � z ��� ��� ��� � <%�%�!Z!��� ��� ��� � <%�%�!Z!�� �� <%Z.� �!d'��'� ��� �� '��! � � � �� ��� � <%�%�!Z!��� � � �� ��� � <%�%�!Z!�� �� <%Z.� �!d'� �� ��$�� � �� '��!� � � �� ��� � <%�%�!Z!��� � � �� ��� � <%�%�!Z!�� �� <%Z.� �!d'�L SE���� z � � |A� �$�B@� �B@xk��� � � '� � z� ��l �B@�����ҳ�� �� '���''''''''''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) '��ǰ��ҳ�ţ����ںţ��4''''''''''''''''''''''''' ����ɾ����ǰ��ҳ��Ĵ��� � �!�!�(� �����, �B@� �!� �B@� � �!�!�(�k�� �$�B@����� ��½����������ĵ� ������λ �$�B@��'� � z ��� ��� ��� � <%�%�!Z!��� ��� ��� � <%�%�!Z!�� �� <%Z.� �!d'��'� ��$��  ��$��  �$F�� �� '��! � � � �� ��� � <%�%�!Z!��� � � �� ��� � <%�%�!Z!�� �� <%Z.� �!d'� ��� �� '��!� � � �� ��� � <%�%�!Z!��� � � �� ��� � <%�%�!Z!�� �� <%Z.� �!d'����H z � � |A� �$�B@� �B@xk�� ��� �� '�d��� � � '�k��� � z �� � ��l �B@�� ���ҳ�� �� '��z'''''''''''''''''''''''''''''''''''''''''' Set currentPageNum = Dialogs(wdDialogDocumentStatistics) '��ǰ��ҳ�ţ����ںţ�� 2''''''''''''''''''''''''' ����ɾ����ǰ��ҳ��Ĵ��� � �!�!�(�kCya �����, �B@�PJL SE �!� �B@�\r\n � �!�!�(�k��H �$�B@����0 �$�B@� �$�B@� �$rB@X�''''''''''''''''''''''�ϴ� �B@B�!'''''''''''''''''''''''''''''ɾ��|����H�����ִ��󣬲����ҵ���ǩ��A@�bh|��`o��X��� tablePageNum�# ���� 2003-6-7 �� �칫���շ�Ա ¼��� �B@� �B@n ��� rB@� �B@x� �!�(��FSelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=tablePageNumT2CO `�^� yinfadanwei� �B@� d�� �B@� �!�B@� �!���9d�5�(d�9� �9��9��9��9��9��9�9�9q��� h�� l�j �B@f �����, �B@� z � �� |A�� !+� ��ʱ����.doc�v ��� �� �������������� <B@t �������Ƶ��ڴ��� �B@� �B@n �B@Bo��h�h]�H�ɾ��ǰ�浥λ����newDocRowCountOLOR]�` `�^� BeginTable� �B@� � �%�X' �� ' � �]�x����� �� � <%�%�!Z!������ �� � <%�%�!Z!�� �� <%Z.  B@H d�� � �, l�j �B@" �!�B@�k���]��� ɾ�����浥λ���� �� � z � � '$d��� z � � � '$k��x $� ��!�� � �� �� � <%�%�!Z!���� � �� �� � <%�%�!Z!�� �� <%Z.  B@Hs d�� $� �, l�j �B@" �!�B@�erk��� �� ��% ���кϼƽ��!�� � �� |�� � <%�%�!Z!���� � �� |�� � <%�%�!Z!�� �� <%Z.�Wing �B@H B4� =SUM(ABOVE)�(��* �B@&k���o�����]��]��]��]�]�]�0]�H�'.]�h `�^� BeginTable� �B@�ance � �%�X': . � ��! � � . �� :�� � <%�%�!Z!��� � . �� :�� � <%�%�!Z!�� �� <%Z.8pfChan 8!d'2u 8!d$F'4 �B@�Za �B@n � r!�., ,� � 4�.doc�vC@ttsq��� �B@x <B@X�'0�start to del the rows 2�� 0� '0�#� � . 0 �� :�� � <%�%�!Z!��� � . 0 �� :�� � <%�%�!Z!�� �� <%Z.8 8!d'6 6�� 0� '0 �#� � . 0 �� :�� � <%�%�!Z!��� � . 0 �� :�� � <%�%�!Z!�� �� <%Z.8 8!d'6����� V''''''''''''''''''''''''''''''''' MsgBox "��ǰ���ӵ�λ����" & newSubDocRowCount & "��"� g' Call delRows(rowsCount, currentRowNum + subDocCurrentRowNum, newSubDocRowCount, tabsNum, columnCount) z � . 0 � |A� <B@XhoL � !'''''''''''''''''''''''''''''�ϴ� <B@BHGMinc� %'''''''''''''''''''''''''''''ɾ������k��� 0 . '. ���po��h���� InstBokMarkBeginTable Macrok� ���� 2003-6-4 �� qy ¼��� <!d�B4 �!Z�Z� BeginTable�C@� 9�9q���o������� InstBokMarkBeginTable MacroIk� ���� 2003-6-4 �� qy ¼��� <!d�PJ� �!Z�Z� LastColumn�C@��K� 9�9q��o������ InstBokMarkBeginTable Macro8L�� ���� 2003-6-4 �� qy ¼��� <!d� �!Z�Z� 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���41ThisDocument�������������G_VBA_PROJECT�����.#NewTitleModule����������FEventClassModule"������������,k � �h v .7��Q�������������<�����q�~gL������_�z��Z�F�?=����gL x�E��my!�R������������x�gL x�E��my!�R���q�~gL������_��ME�������������,��������������������������������������������������������������������������������������������������������������������������������@S"����S����S"����6"�����9@�9Bq��@A@D�TitleStr %6$F� �A@Hk��� ���úۼ����� <� "9> "9@ "9Bq���o������***********�����Ĵ��ݺ����]� ]�8]�P��Scripting.Dictionary$$. )� . -]�Dh 1 !('5� *�� !,� �= *$'& & &$ A@.G� *��KA@0� CurUserName %6 2(4W� TrackMark %6�0�a�'"d��X�'"k��H� LB@:A@D <� "9> "9@ "9Bq���TitleStr %6$F� �A@Hk���o������ 8B@:o��������� �!�!n p� � �!�!�(ld��  � �!�(lk��o������������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Æ��'�����ú�ۼ�����LpWith�Ze~').A�Revis�6s� de .�Mnt7��gE@V� �Write@I�J2c�mLen(Trim(�(itle�E"))) > ��Bbn�NewT!�� K �OF2�#O O$g�ccSub�a�ws��?x�x/x� ��xE�i#f�ya�c�t�z�^A�#{��� o�{�,|A�|��`� )}��}A%~aw�5!A��! � � Y����g4f���� �l�! ���Ն�R 81� �1t�!/2� HBO ��[B�2��B���A��9�?�AA5B��9��9Pub8licRua=VBa>r1�a/W�xA�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:\Windows\system32\stdole2.tlb#OLE Automation*\CNormal*\CNormal�t3U&*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 9.0 Object Library�*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library�*\G{E3405C98-2D34-4F9D-8440-4089F3C816F4}#2.0#0#C:\DOCUME~1\hp\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library�.E ���.`�M �  �������3U1��������������������������������������������������7�ThisDocument2;55338e08��ThisDocument���Q4��WriteMark1y55338e07��PWriteMark���U� ��NewTitleModule2055338e07���NewTitleModule��S(0N6��frmTools2955338e07��9frmTools���\x����H� ��frmSplit2355338e07��MfrmSplit��+�`% ��SplitModule2855338e07��ZSplitModule���H�sL EventClassModule2?55338e08��? EventClassModule��Y��f ��ToolModule2>55338e08��:ToolModule��!����������x �����������������������������������������������������������H����������������������������������������0��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������x������������������������������������������������`�����������������������������������������������������������������������������������������������������Y���))D��]�������������3C��S�?�yt�����4ᡉ��I�]x���*����� �Q�)��K�A��e�qB������r#H��M�����="7������l�F���WU�9�����$��0�N�C'���p���� Ř�lRRN�`��o] S��������8�9:��U Word�k` VBA��`Win16�~`Win32`Mac��`VBA6�#` Project-�`stdole�``� �Normal��`� �Officeu`� �MSFormsC` ThisDocument<�` ��_Evaluate�`InitWordb�`oObj�`aX`oDic�` Trackmark�` CreateObject��`str��`Keysq�`i``Count0v`�(AddVar��`�(Register_Event_Handler�` Application�*`UserName\�` Variablesn` frmTools��`Show�`ActiveDocument�\`TrackRevisions��`PrintRevisions�` ShowRevisions�u` �(WriteBookmark�`Trim@�`�(NewTitle��` InitWordsplit��` frmSplit��` ShowToolBarV4` WriteMark�d` bookarrayf�` ansewerarray6.`app�t`books��`range� ` booksCount'�` selecttext��`tmp��` errorhandle�_` Bookmarks?n` Bookmarknamesk�`Value�K` 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`TypeText��`pages��`wdSeekMainDocument��` DocumentType��`wdNewBlankDocumenta�`VerticalPercentScrolledz�`EndKey5�`Findn�`ClearFormatting�)` Replacement�`Forward��`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`��_B_var_i �`Class�`��DocumentBeforeClose�/`Item�z`UserFormN` ShowMarkCB J` NonMarkCB:�`��Click��` ��QueryCloseT�` _B_var_TrimmT`��_B_var_Bookmarknames �`��_B_var_Ansewerslist��` ��_B_var_p1>�` ��_B_var_p2?�`��_B_var_j �` _B_var_Chr\;` _B_var_Error)�` ��ClearMarcs {`cdSplit�Z` cbTopLeftZ�` cbTopRight��`cdBottomjb` _B_str_LeftV�` _B_str_Right#(` ��ChangeViewP�` ��SplitSpecial�` ��wdPaneNone= `ģ��1�c`����?;������������������������������������[������������������������9���������������������������������� ������������ MQ�P@      ���� !$#����%&'�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������d������lH67�S(���������������������������x��ME�������������������������������������������������������������������������������������������������������������������������������������������(<��Z<��< ��<����������( H����`��������������������������`���������� ��`������������`������������x`�X�������� ��7 `������������umen`������������r"). ������������%`�������������`������������$ `������������ 1) `������������4 `�����������t(Ti���������������������������%����X�����������������������������������������������������������������������������������������������������������������������p���������������������������������3U1ߙ��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").Valuel�9 Trackmark = ThisDocument.Variables("TrackMark").Value�$ If Right(TitleStr, 1) = ";" Then <!�4 TitleStr = Left(TitleStr, Len(TitleStr) - 1)Z!d� 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 String1� '�����úۼ�����9� With ActiveDocument� .TrackRevisions = False� .PrintRevisions = False� .ShowRevisions = True_� End Withe� flag = 0�<If ActiveDocument.Bookmarks.Exists("wenjiantou") = True Then{� flag = 1� bookname = "wenjiantou"�End Ifatio�If flag = 0 ThenSE� Exit Sub�End Ifurat�flag = 0on�)ActiveDocument.Bookmarks(bookname).Select� iCount = 1�9 For Each ocell In Selection.Tables(1).range.Cells�0 cellcontent = Trim(ocell.range.Text)� 'ȥ�����з��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))`|Y�� 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)y�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 = wdPreferredWidthPercentAUTO�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 = wdAlignParagraphDistributeRA�& 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)PJL SE�End SubUT�� �����ļ�ͷ]�@]�X]�p�b��TitleStr %6!h'�� TrackMark %6!h'" ��$��;� � �� $�'�k��h ��;$l'� ��'� �� �|�$�ļ�ͷ�������ֺ�k��]��]��]��]��]��� wenjiantou <!d%t��� wenjiantou'�d���|�$���IJ������ļ�ͷ��ǩk��x�'��'� � <%dB@H�'�� ��� �%�!Z!�� �!Z!d$F'�SE� ȥ�����з� �� $z�� b � �� $z�� $ � � � �� $z� � $ � '������ȥ���ո� �� �� b � �� �� $ � � � �� � $ � '����  ��� �'�d�� ��; � '�k��� �� '�� ��� � ���'�k��� ����ȡ�������̵�����]�]� ]�8�'��$�� '�� ��� �� �$� � �G �$�'�j��� � <%dB@H �����, �B@� �!Z�Z ������ ��� <!�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  �!�(� <!d� �!Z�Z ��C@� 9�9q��h]�P�@ �'  �!�( � Selection.Font.Bold = True�����С���μ��� �!�(  �!�(��'�� ��� �%�!Z!�� �� $� �!ZB@� �� '�� ���k��x� ���úۼ����� <� "9>�9@ "9Bq��8|��0�b(� ��ͷ�༭����: � 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`�� ���0������������ �����������������������������������������������������������������������������������������������������������������S����S ����S����� a���0���T6"��������L�������������L����P����<4��<8��<<��<������2N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}�X %*�W����8@������������ P����`���������8�kp����( �)�S���� �����p%i������� �������H���������������������%����0������������� ��������������%����0��������0��������0��������0��������0��������0�����%% �S����x���������% �S����x���������P �S����x����� ��%����0��������0��������� �S����x���H����%X@������������������$������������������ �S����x�������������H���������������@������t��� �� (@������p����� ���� ��������@���l����� @������\��� �� �����@��xL��� �� @������<��� �� @������8����� ������������������������������������������������������������������(�`����@�������������������������������������������������������������� ����0�������������0����������������������H,�����������������������3U1*\R1*#17c*\R1*#17e$*\Rffff*2?55338e08$*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#10*\R0*#19*\R0*#1a*\R0*#13*\R1*#c6*\R1*#c0�����4<��� � � $("�  P� X�x� ������$Q������ ������� ����� ���������������¼��Ķ������] �������¼��ڴ򿪵��ĵ��ر�֮ǰ������0��ĵ��ر�ǰ�ĸ��ֲ�����V RB@X����|��h�V` HX �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@�=  AID="{16981CE7-07C1-456F-B81D-A7E790892607}" Document=ThisDocument/&H00000000 Module=NewTitleModule BaseClass=frmSplit BaseClass=frmTools Module=WriteMark Class=EventClassModule Module=SplitModule Module=ToolModule Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="4A488A0C8A108A108A108A10" DPB="4E4C8E0896089B099B099B" GC="525092149715971568" [HosPROJECT"����b�frmSplit���������fۄ���fۄ��f������������no ����s�t 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, 624, 526, C frmTools=0, 0, 0, 0, C, 22, 29, 602, 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 (H  @��}~R� ������K�Q���_������$��8cdSplit�(� �8cbTopLefth��(� �4cbTopRight���$��8cdBottom ��,�bR�e�N��u��"�[SO,��L�h����u��"�[SO(+gRh��q�u��"�[SO,+gL�h����u��"�[SO�� ����Microsoft Forms 2.0 ����EmbCompObj����!����waVBFrame������������yfrmTools'$�fۄ���fۄ��f������������~�edded 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���_����\�O(� �8ShowMarkCB?z�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(� �8NonMarkCBB?z� ��,>f:y�S?z��u��"�[SO,>f:yn?z��u��"�[SO�� ����Microsoft Forms 2.0 ����Embedded Object�9�qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTools Caption = "WORD������" ClientHeight = o#%�����pCompObj����&�����aVBFrame��������������PROJECTwm�������������" 420 ClientLeft = 11040 ClientTop = 1440 ClientWidth = 1965 TypeInfoVer = 12 End ThisDocumentThisDocumentNewTitleModuleNewTitleModulefrmSplitfrmSplitfrmToolsfrmToolsWriteMarkWriteMarkEventClassModuleEventClassModuleSplitModuleSplitModuleToolModuleToolModule�� ���� �FMicrosoft Office Word �ĵ� MCompObj�������������m������������������������������������SWordDocWord.Document.8�9�q