ࡱ> "/  !$q0%&'()*+,-.71234568b9c<P>?JABCDEFGHI:KLMNO;QRSTUVWXYZ[\]^`avdmfghijkl_noprstuwxyRoot Entry Fv<;F#@,WorkbookT_VBA_PROJECT_CUR"F;FCtls L u'\pFridrich Strba Ba= ThisWorkbook=i7"8X@"1Arial1Arial1Arial1Arial1Arial1Arial1Arial1 Arial1[SO1 [SO1[SO1[SO1h8[SO1,8[SO18[SO18[SO1 [SO1[SO1[SO1 [SO14[SO1>[SO1?[SO1<[SO14[SO""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.005*0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)72_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)61_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)\$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)3#,##0\ " ";\-#,##0\ " "=#,##0\ " ";[Red]\-#,##0\ " "?#,##0.00\ " ";\-#,##0.00\ " "I"#,##0.00\ " ";[Red]\-#,##0.00\ " "q6_-* #,##0\ " "_-;\-* #,##0\ " "_-;_-* "-"\ " "_-;_-@_-k3_-* #,##0\ _ _-;\-* #,##0\ _ _-;_-* "-"\ _ _-;_-@_->_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-#,##0\ "DM";\-#,##0\ "DM"##,##0\ "DM";[Red]\-#,##0\ "DM"$#,##0.00\ "DM";\-#,##0.00\ "DM")$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-FA_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-FA_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_-+" "#,##0;\-" "#,##05" "#,##0;[Red]\-" "#,##07" "#,##0.00;\-" "#,##0.00A" "#,##0.00;[Red]\-" "#,##0.00e0_-" "* #,##0_-;\-" "* #,##0_-;_-" "* "-"_-;_-@_-u8_-" "* #,##0.00_-;\-" "* #,##0.00_-;_-" "* "-"??_-;_-@_-                                                    + )                      P P    ff a>            `          !20% - :_eW[r 1!20% - :_eW[r 2!20% - :_eW[r 3!20% - :_eW[r 4!20% - :_eW[r 5!20% - :_eW[r 6!40% - :_eW[r 1!40% - :_eW[r 2!40% - :_eW[r 3!40% - :_eW[r 4!40% - :_eW[r 5!40% - :_eW[r 6!60% - :_eW[r 1!60% - :_eW[r 2!60% - :_eW[r 3!60% - :_eW[r 4! 60% - :_eW[r 5!!60% - :_eW[r 6"#$%&'}Y(]):_eW[r 1*:_eW[r 2+:_eW[r 3,:_eW[r 4-:_eW[r 5.:_eW[r 6 /h 0h 1 1h 2 2h 3 3h 44hgUSCQ!K{P(; (h`볤I~(!8CCK쨬 #چBA34>^ً?O3EadɌ"ɠd bK%CKY6`dKcK-ctv8˖V+t^%Tm[趙2T kHiό.(&?~y = ;)ϫ`$xqn1O9Z͐\7W uGOcT1q` >N$!kG?@ABCDEFGHIJKLMNPQRSTUVWXYZ[\]_`abcdefghijklmnopqrstuvwxyz{|}~@2iw3\`?/[G\!-Rk.sԻ..a濭?PK!֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK!kytheme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PK!찟 theme/theme/theme1.xmlYMoGWb'Np"(PqCfw3$UpT*TzjR+(guI *jg= ahIy gk"i#Z~L3@R4ŒL .ybS[AT CX,H φ\$X-D݄-,j+ iR! z//yԻ XJꅐMx[ 6ڭkhV"'*@ KZA Z9{}=7D J^cFIuN^3ť5킦;Z;fd^m˫, Y[i\\d3Fb Wfs+ o@1 Z;˩!g+M7k9|h(KT͋ dXIF80d ( ʙ% PL2 )1F &n (UK;;+ZjxMYJ\ռ 騚mxwp깶;ΠjAپO-SG$% g| nSuK>T6EmL+Mҧ/.2\fjsVU'3%3z ]^Ѡ$cZȜ? FKQ-ˉo¬:2͔:[2pV5X, Sgt&H6- '">znTĊyS#}{n[p;\v9 ｍzItd,E`uyq9@!Zpdu?Fr(T†kdԛb~M^ȄTX64̣<X9Y'7b Τ;%! lgE楔;ql,1_*Q o'LE7*M[:i'ݒ!ckɎc|v^.s {ksM =4,21泖7OQ2;ٖ@}8D^$rC|8DM=@0$j1T[±T7Tqqť IBx頳`eW'k7; |Xj8]5tZGcZ}Eg'JW e眩 >N#cਛF5k+He|B"h>2H); ggr0&!<@DTu~ C+q1 ™\lUenߊAq1ΠPYLwim,= ȵӀTedhB;fv(%5v/PK! ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PK-![Content_Types].xmlPK-!֧6 +_rels/.relsPK-!kytheme/theme/themeManager.xmlPK-!찟 theme/theme/theme1.xmlPK-! ѐ' theme/theme/_rels/themeManager.xml.relsPK] Ę7ɹq1 u' NO  dMbP?_*+%MnMicrosoft Office Document Imag/ dhhLetterwidm" dhh??U @   B >>>>>> ? ?@@@@A@??   9(    TA ?@RunTestsButton]`"lPr1 6$li#@7 Sheet1ggD&b u' R  dMbP?_*+%"b??U>@7 Sheet2ggD& u' &T  dMbP?_*+%"??U>@7 Sheet3ggD& VBAFmFThisWorkbookSheet1 -Sheet2 +YSLSS<N0{00020819-0000-0000-C000-000000000046}@(%H@0oK xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD20h[u 4/cD蛐GN: FxF@7cx,RunTestsButton, 1, 0, MSForms, CommandButtonxF@7c蛐GN:MEPSLSSs6"<<<N0{00020820-0000-0000-C000-000000000046}  `\@Hh@% %*4<p@x%%@x@xHL<oK *\R8004*#5d$*\Rffff*0;4bc06bc7x8<"(o`A@PAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ControlRunTestsButton, 1, 0, MSForms, CommalndP<@ Sub _Click() callt)withmessagrEnd LjS4h#J.IB"KP F_)mCwO&xME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%H` %  %`h8oK xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2LjS4R#UɌ[=GfS F6K1%@=[-2xSheet3=YTestMacros @TestLogMacros=2_VBA_PROJECT e|ME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%H` %" %`h8oK xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD20* pHd VBAProject4@j = "*BEGIN  j' C Sheet1.Activ`M + updcCRSs("1%ad window.z`O aA e et 1", " eWT, 1l00'22ۿ23^3 C0'+ setting +5n+/8$~R+5  2EngE4?$7$2EN^VAbE5fofrsE8CB e~END "Succ`. Funu/ B('Descx,a=ualexpecj 3A){rr, JGTcr(&( C= %),"J1B[<>&߸[ (:b QtFb lgotw'7e= + 1 ZvCAdp: ^5 8HXh x $  6 4 0 8@H P BX`h.pB    B   (08@ "  HPX`h8x< "  * P  `hpB   6 ((B0 8 @HPp x '4O2xME(<< << pʐ\8 H`P @b` @f @j @l  @odtodsodpodg\%+px`X@ `th +x` "iz i| +~x`8 *iz Xi|  ` 2iod` (P`\@0 =i \+`G` TEST`APIT+`x@ N 6x`@Wi4xMEP6 <<<< <<< $@`| `|@ p @%*(+`P = `|ipffip"i`c& @@ @0H@@Ph0@ H `|@H ph @ @ @ @ @ @ @ `0@H(oK $*\Rffff*0Y4bc06ffbM "" h"  ( 2H0   >< h` @ (P` p2H "  H  0LX HL XL  h      L L0 L   B   (J8xA@o`@A@&Test run started : Z  *A@(stvCalcZoomA@(tA@(]A@CalcZoom'0] ]Test run finished : Z  *A@(A@.o]   A>  t.It  $   Failed: expected   got  'r  'Cod  'Nak 'i'']H Test Results $  ============ $ 'e test B@ormat  0A@6 +test1 read window.zoom activesheet = sheet1 !d$ ':$F$ +test2 read window.zoom activesheet = sheet2 !d$ 'eet1 +test3 read window.zoom activesheet = sheet3 !d$ ' B@co "B@t fonttest setting zoom B@ settiP ( B@o Ital2 (8 "B@talic (ectl +test4 read window.zoom activesheet = sheet3 !$ 'Shad +test4 read window.zoom activesheet = sheet2 !2$ 'rrec +test4 read window.zoom activesheet = sheet1 !P$ 'nt c B@A@> B@r 2  $ Tests passed:   $ Tests failed:   $ ' A@ectly k' A(tly seSuccess. 0A@ToCalcZoomA@(@]po'A@ Attribute VB_Name = "TestMacros" Option Explicit Dim passCount As Integer2fail2displayMessagepBoolean8`thistxS!ng resuliSub call/withmS()  e= True ikEnd ? DMain  Fals?  !Log_ASSERTSetVerboseB$ '`Comme run started : " & Da&TimG"CalcZoom2= 0 DW} R[sChr $(10)!"=hc&,& AQsedAG2Q 5E 8G $If (x) The@/MsgpBox $ Iff8l Exn(?  Bufinishul FêX̀n ` T0`eiii`  `p wi  ` ii  `P ipi  ` ii p `P i `i &0`|i +p`  >( `i ii`  `h i i .` ʐX HʐZHʐ^(HdxHh @n @xp 0( 0  xx ( 8 ` pPxP XVxp 0( 0  xx ( 8 ` pPxP 0( `@f`(l `\ H(Px8`8`z ((X   1 oK  6"  "    "  (0,@px P  $ $8 X `px "  , "    8@X` "  h p "        "  (08P "  X`p " x  B  "      0 H $P x      "  \ f8             ( 8 @ H " P  X h p x 0  / { Declarations shared with MS Office API tests\t]odt ]ods ]odp]odg8 ]@( Global vbExternalCall As Long]P]\` / } Declarations shared with MS Office API tests. BEGIN: *** { TEST API (PortableHelperAPITest)]@x]@ ]@]@]@  r]` com.sun.star.beans.PropertyValue$v't'pzPrH'pi8x z |'xd'xki z |'~d'~kix] f' 'f h(Closing log, future log output going to  A@(A@.+Reopening log, previous log output went to  A@(ko h 'h" Establish free file handle f 'fk f hkx h o`P]](com.sun.star.comp.framework.PathSettings$' !' / HelperAPI-test.log 'i p 'dc:\HelperApi-vba.log'ki j h j NOT COMPLETE k8 'j'l]` n TEST START :  ' A@(kox jTEST ERROR - no test begun:  A@(d j TEST ERROR - found test end:   , expecting test end j A@(d ] TEST   :  ' n $   (  ). 'k A@(kk'jop0 jTEST ERROR - no test begun:  A@(d  ITEM  A@(ko $FAIL A@TdFAIL  A@Tko $OK A@TdhOK  A@TkHo@ $ 'd  (  ) 'k A@o'lFAIL A@opOK A@o 'nop0 n'iXp] Assertion '  OK 'd'l FAIL 'k $  :  'k n $   (  ) 'k`  n A@k8o0( U SBA does not preserve "optional" status of a parameter; it is evaluated then passed,` even if the called routine (e.g. TestLog_OK) *also* has considers the parameter to be optional. $  l A@d  A@kd l  A@d  A@kko hV'ho END *** } Test API, ***** MSO MACRO RUNTIME MODULE END *****0Attribute VB_Name = "TestLogMacros" ' { Declarations shared with MS Office API tts Global C\t FILE_E@XT_DOCodtDXLS"y"PPT"pEVIEg" PrivatheCalcApplic As O`bjects7vbExterna llLongkPARAGRA@PH_ENDS XDIR_SbETOR]\K' }.' BEGIN: **B*TEST(PortableHelper)Z~HELPER__LOG[H_FileNoIntegerLast ResultA Boolean &A$$_VERBOSEL Func isOpe$noB()J On Error GoTo notoF Dim a Varian@zba`Cre~("com.sun.star.b's.PrrtyValue"@RTrue ELxi( : Fals nd 5 8MAreEqual(x1,, x2 ? If = The@W-EB"!a!E`IfjqNot  aA) o% | Sub !0_Setb](f^nA-Cz> AHtmp A= jCm= g6` (m= 0 Comment "Closing log, futurea output goto " +a@QA3 Reah pr@evious) w @!E,|-(nS$-"" &FreBe ' E`xblish f" handl 9/4""m/!#Defa2CaaA-C F O4#k?'a=, D'Cr`+hqc+ aYPath_t;sA-%pQC2AWorkDirqory/= cBUUnopServ@U p.fr6w.OV@= . :`B+ "/0"q-q.3`xE?Yy$]K! FWZ"c:\ pi-xvba E% L(! 5 Ff{//'eNo,60 NOT COMPLETE A-5  4= u1(b*/,}cs" 1 START :Q; Va qSubL2 ,B, Op!`XoI "RERROR -" begunO !poQ &!?11fou e ndK`i" , exppEF `]!# 31!p?+% A QIsMiswY'eT s(  ).I(bM d+" E._ITEM **_ *&*/ߪn_%" ~ =__FAILR/;/;'p?/!`3PC "=!"wB5me?D?_OKOp|tional testComment As String) If IsMissH() TXhenFNTLog_END "OK",NameFElsZ7:nd If  ESub  rPar(status, Op /#sl= 7S q + " ("y )""vpI8TEM'FAIL({PLastResult = Fal Z< "DyGkY%OK$ASSERTSetVerbose(vBooleanĶTESTLOG_VERBOSE@= ʚFuncFcG)qEL  2(asser 0iLId!S$DimJMsggáS= "AfDT = Truel% \8c 3P?ar bP f No2t zIdMR :e t+"IdR FA  T@C@""&ma2w Or >(z SSUMMxARYO' SBA does not pre@\ve "o" of a par@ter; it is evaluated tTd,c'en ifa callroutine (e.g.fyOK) *@o* has conside rs" to be E. @.T.Kd@=Ld`e._0jBSa? @e d`RG t&a  me|1 qO stQ  )tClA_$^ #ileNo;@0j_ ' *** }r API Rem @` MSO MACRO RUNTIME MODULEC] commentHs DefaultLogϝ OpenofficeLogf# PathSettingsbWorkingDirectorytcreateUnoServiceWorkktestNamesj testResult testComment2 IsMissing TestLog_ITEMh TestLog_FAILG TestLog_OKTestLog_PartCommentTZstatus+TestLog_PartFAILTestLog_PartOKWLverboseTestLog_ASSERTGetVerboseN assertionStestId testMsgTestLog_SUMMARY]RunTestsButtonWorkbookk WorksheetCalcZoom(>Click passCounte failCountFdisplayMessagenhupdateResultStringtestDescr7actualexpectedresulturChrK~Address ActiveWindow+ZoomActivate|test4 _B_var_testa activewindoow*_B_var_activewindoow activewindows+_B_var_activewindowssbeet2 _B_var_sbeet2*MsgBoxRClear_B_var_displayMessage _B_var_Datev _B_var_Time$ _B_str_Chrm#_B_var_thisTest0 thistestaRsgbox _B_var_sgboxsh_ _B_var_shcalltestwithmessageB!#W   l@$@1@ҘA@dirO__SRP_0^ __SRP_1PROJECTwmr oK J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE12\MSO.0DLL#M 9 .0 Ob LibraryJMSFo@rms>SFrmHs3D452EE1-E08F_A-8-02608C4 D0BB4/wi ndowsRFMl20 'B _&/;"1Cj qAq00}#0q# 50 wA68B84E8B-F42F-4128-8d-7EE5223C1E5@6p\Excel8 .0^3.exd_8@.E .`PM AD4¸ThisWorkb@ookGT@i@hWjkbAok 2E HB1-B,!"B+BSheet1*G Se`^tn1 !t2 S / 2 2 2 2 Th 3 3 3 3 )R @TestMaa{G4,T)aMjar;s`+26:!":: Log-EADLg N!2O/(/O2)K*srU~~~~~~~~~~~~~as  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROG~FBU\COMM~CP1\MICR~NEI\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation&*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#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{68B84E8B-F42F-4128-8A00-7EE5223C1E50}#2.0#0#C:\windows\temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   oK 4ThisWorkbook014bc06b2eThisWorkbook- Sheet10;4bc06bc7 Sheet1/ Sheet20T4bc06fe6! Sheet2h0 Sheet30U4bc06fe6# Sheet3RHTestMacros0Y4bc06ffbTestMacros`TestLogMacros0W4bc06fe6VTestLogMacrosO2x(`H0xfaBYO[MKfnAp' 2dd1@q ]0aVmĽB:Fr'UIH %T@L6yOT,nw[h8 as=dimRfalseSubTrueExcel+VBAWin16~Win32MacVBA6# VBAProjectstdole`OfficeuMSFormsC ThisWorkbook| _EvaluateSheet1RunTestsButton_Click TestMacrosTestMainSheet2Sheet3Main,TestLog_ASSERTSetVerboseLTestLog_Comment% TimeCalcFont_FormatJ0 TestLog_Closewthistest myCellFont̨FontU TestLog_BEGINw WorksheetsRange BoldTestLog_ASSERT~Italic! FontStyleShadowColor2F ColorIndex OutlineFontOSize Strikethrough" UnderlinexlUnderlineStyleSingledb TestLog_END` TestLogMacros FILE_EXT_DOC>K FILE_EXT_XLSӵ FILE_EXT_PPT FILE_EXT_VIStheCalcApplication PARAGRAPH_END* DIR_SEPARATORHELPER_TEST_LOGTestLog_FileNo\TestLog_LastTestTestLog_LastTestResultTESTLOG_VERBOSE_ isOpenoffice} notopenofficeWaX CreateObject TestAreEqualɹx1_x2_ TestNotEqual @TestLog_SetFileNamefilenamejtmp~~~~~7 h_Ms48    ) AYyAQii VBAProject ThisWorkbookSheet1Sheet2Sheet3 TestMacros TestLogMacrosF /C:\PROG~FBU\COMM~CP1\MICR~NEI\VBA\VBA6\VBE6.DLLVBA  10F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel 9@0F FC:\WINDOWS\system32\stdole2.tlbstdole  QPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice q`.E .`M C:\windows\system32\FM20.DLLMSForms  QpNh/(A~"<P $C:\windows\temp\Excel8.0\MSForms.exd QF蛐GN:xF@7c{lFWJORunTestsButton@2iw