ࡱ>  ? !"#$%&'()*+,-./0123456789:;<=>@ABCDEFRoot Entry Ft@2SummaryInformation(DocumentSummaryInformation8Macros tt  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHJKLMNOPQRSTUVWYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ Oh+'0px spide Normal.dotm _[N@7;O@ʙ;=@t=WPS Office_11.1.0.11365_F1E327BC-269C-435d-A152-05C5408002CA ՜.+,D՜.+,HPX`h px 0t|KSOProductBuildVerICV2052-12.1.0.16388!4A7DC383C8EA4352A52C51C2D0B3D7E9)0* pHdNormal$@T=j 5d J < stdole>stdole(h%^*\G{000VBAttdir-NewMacrosr ThisDocumentI20430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`AEOfficEODficEE2DF8D04C-5BFA-101B-BHDE5EAAC42E2EProgram Files (x86)\Kingsof@t\WPS :\12.1.0.1@6388\oD6\ksoapi.@dll#Up#de  3.0 Object Library (`Beta)TThisDocumentGTisDA^cum.( (!4!d'* (B@B 0 '0 0 0+2 *֤(.*) $@ 0+2 *(ܼˡ(.*)$@ 0+2 *ͼڡ(.*)$@ 0+2 * (.*)$@ 0+2k ~'. 2 0A2$4,B.&o]]vbscript.regexp$<.J F J(P D J%R.L H$L%T'N.J N'@iAttribute VB_Name = "NewMacros" Sub ReadFromWor@d() Dim o@App As Object, oDoc! txt$bmyPath$, MFyk%,_sult(1 To 1000,  5j=On Error,NextRange(@"A2:E2<").ClearContents$CxThisk book. &< "siJDi r(*.doc*"|Set|= Create)~(".lication@Do While1| <>;=If InStr(1, "ܼ") The>n#B= Get?YdXm..TClose TrueKk k + 1Rerkp)AU2ARegxFind(&;֤(.*) ", 00u3(LZ4P@[ڃ5 End IfB CLoopC;ize(@SW Nothing  FuncYstrVa8lue , G`a0INumInteger)GwCA@7X#O~bjMatchs@ Tem„B Mivbsc@ript.rxpoavternWL o=X.Exec(O J= &(@0).Subes(@!c&.g?"Y#a #1E01$#xME (S"SS"<(1Normal.ThisDocument8(%HxAttribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTruBExposeTemplateDeriv$ustom izD2_VBA_PROJECTX PROJECT PROJECTwmGWordDocument=Ja *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For ApplicationsR*\G{00020905-0000-4B30-A977-D214852036FF}#3.0#0#C:\Program Files (x86)\Kingsoft\WPS Office\12.1.0.16388\office6\wpsapi.dll#Upgrade Kingsoft WPS 3.0 Object Library (Beta)*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE AutomationP*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#63.1#0#C:\Program Files (x86)\Kingsoft\WPS Office\12.1.0.16388\office6\ksoapi.dll#Upgrade WPS Office 3.0 Object Library (Beta) 5dThisDocument0467fedb36ThisDocument$NewMacros0567fedb36"NewMacrosi 8WOwW0m@r6H*' *Wordk`VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#`Normal`stdole``Officeu` ThisDocument<` _Evaluate` NewMacrosj` ReadFromWord`oWordApp `oDoc`txt`myPathd`MyName`kb`Resultur`Range `ClearContents{` ThisWorkbook|`Path2` CreateObject` GetObjectz`RegxFind`Resize@4`strValueK`strFindiX`Num`RegX` objMatchs$`strTempM`Patterni`ExecuteY` SubMatches0`T# $ID="{4B506C34-0C7D-4147-B08A-39058443C631}" Document=ThisDocument/&H00000000 Module=NewMacros Name="Normal" HelpContextID="0" VersionCompatible32="393222000" CMG="141685B38DC391C391C391C391" DPB="282AB9BABABABABA" GC="3C3EADDBD5EED6EED611" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C NewMacros=32, 32, 1610, 691, Z ThisDocumentThisDocumentNewMacrosNewMacros,::8.:&0TableData WpsCustomData0 PXKSKS=J,h"h" ttz Z- $; h :r H` $ sQN>NR2024t^WSN^Rt^'Yf[uRNWsSYB vw:NۏNekX:_b!h'Yf[uReRNaƋ ~Re`~ cGSRNR WfY^e(uNRSU\BlveeNNMb b!hTWSN^NRDnT>yOO@\LNW-N_T\O b(W3g 4g>NRNgWSN^Rt^'Yf[uRNSYB MQ9Ws0Tf[bR gtQvf[uygSN ÍbT0s\ gsQNywY NN0bT[a202402025J\kNu [ReRNatQ g>yOSvGWSbT0N0wQSONyWĉ!j,g!kb_2*Ns qQ60N f[!hOncbT`QۏL[8h ~y{[c0 Ne2023t^3g4g h0~ N z{hQ zSR ~ N z{(Wĉ[g[bf[`N0f[ubTMR{Q*NNe[c YgeQ ,ggWs{nxOQR &TRq_TYef[ck8^_U\ elSvsQfN0W0WpSLwT\OUSMOWSN g[NRDn gPlQS:NWSN^?e^-pNWbg-NhUSMO 0 NRf[bof[bRb N0cSS z1u~ǏWSN^NRDnT>yOO@\LNW-N_vYe^c0WsOncSYBwƋSO| Rt^f[uON;NvyrpSLNyrr .^R'Yf[u[b҉rlbc0f[XTǏ8hT_WSN^N>y@\LW-N_Sv_lςwLNbWT@` b n p שsn=`B*phCJOJPJQJ^Jo(aJ56@KHfHq mH sH nHtH_H;\] B*ph`B*phCJOJPJQJ^Jo(aJ56@KHfHq mH sH nHtH_H;\] B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] B*phCJaJ5\5B*phgjlCJaJ56@fHq ;\] Ѡrm<7 B*ph`B*phCJOJPJQJ^Jo(aJ56@KHfHq mH sH nHtH_H;\] B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;]`B*phCJOJPJQJ^Jo(aJ56@KHfHq mH sH nHtH_H;\]ZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;]  ̞mh:5 B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] B*ph`B*phCJOJPJQJ^Jo(aJ56@KHfHq mH sH nHtH_H;\]ZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] > @ N P . ̛hc5ZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] B*ph`B*phCJOJPJQJ^Jo(aJ56@KHfHq mH sH nHtH_H;\] B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;]. Z \ df̞hc50 B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] B*ph`B*phCJOJPJQJ^Jo(aJ56@KHfHq mH sH nHtH_H;\] B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;]fjlptںtoAZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;] B*ph9B*phCJOJPJQJ^JaJKHmH sH nHtH_H B*ph@TVXӥwr B*phZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;]ZB*phCJOJPJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;]VB*phCJOJQJ^Jo(aJ6@KHfHq mH sH nHtH_H;]>@b BBd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`:d[$\$a$$1$$$ $$dN%dO&dP'dQ]>d[$L\$a$$1$$$ $$dN%dO&dP'dQ^]b p y6Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`  y6Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]` @ P y6Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]` \ y6Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]` flrs*Id[$\$a$$1$$$9D $$dN%dO&dP'dQ^]`$IfId[$\$a$$1$$$9D $$dN%dO&dP'dQ^]`$IfBd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`rtw.Id[$\$a$$1$$$9D $$dN%dO&dP'dQ^]`$If$$If:V TT444406X055 .$$If:V TT444406X055 Id[$\$a$$1$$$9D $$dN%dO&dP'dQ^]`$Ifh G & Fd[$\$a$$1$$$ $$dN%dO&dP'dQC$VD^UD]G & Fd[$\$a$$1$$$ $$dN%dO&dP'dQC$VD^UD]O & F8d[$\$a$$81$$$ $$dN%dO&dP'dQC$^]`(,h%Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`O & F8d[$\$a$$81$$$ $$dN%dO&dP'dQC$^]`G & Fd[$\$a$$1$$$ $$dN%dO&dP'dQC$VD^UD],jy6Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`y6Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`4@y6Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`Bd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`@VXBd[$\$a$$1$$$ $$dN%dO&dP'dQ^]`;. A!#"$%S2P0p18/R   66 666666 0@P`p6666 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`pZ@Zcke a$$1$0CJOJPJQJ^JaJKHmH sH nHtH_Hv@vh 3a$$@&[$d\$d9CJOJPJQJ^Jo(aJ5KHmH sH nHtH_H\$A@$؞k=W[SONi@Nnfh* . f&j4X b r,@X !"#$,G.[x @Times New Roman-([SO7$.{$  Calibri3 .[x @Arial_font-size:16px;Segoe Print3$ .[x @Arialspide _[N Qh'eGIR!),.:;?]}    & 6"0000 0 000000 =@\]^([{  0 0 00000;[0P)$P2< zlX0y,J z0(  * 3 ?9i,X commondata,<eyJoZGlkIjoiNzNmMjEwYmYzZWVlNTcyYjM3ODBiZTcxYWRmZmMxMWUifQ==VVNormal.NewMacros.ReadFromWordNormal.NewMacros.RegxFindNORMAL.NEWMACROS.READFROMWORDNORMAL.NEWMACROS.REGXFIND@