ࡱ> 251yI bjbj]$P $4R:| ,J  $+b b b n Rn n n b b n Tn D |> 0   TITEL \* FORMATVERBINDEN SAP R/3 - Word for Windows Reporting Tool AuthorOrganisationSAP AG Date of Report: Address:Neurottstr. 16 69185 WalldorfDepartment:Entwicklung EC Printed:05.08.96Pages: ANZSEITEN \* FORMATVERBINDEN 1File: DATEINAME \* FORMATVERBINDEN SAP_REP8.DOTVersion:1Last changed by:SAP  SEITE 2 #$MNW^gu|}  +,-./067VWcdefqr0JmH0J j0JU jCJUOJQJCJ5CJ$5CJ55@B*CJ0OJQJj5@B*CJ0OJQJU jU:OPQRSTUVW^ghu|}~T $$Fj #$$$d!%d!&d!'d!$ &#$/+DOPQRSTUVW^ghu|}~ /06efoqr G p $$Fj #$ /06efoqr0X&#$$d%d&d'd/ $$< $$Fj #$ &P . A!"n#$%0 . A!"n#$%Dd83'<  C A2~scUETؚkD`!~scUETؚkCdXq xoHw{S7kZKI9IYlEs]/tәӭi[E)[L^\ zQmB`1ZX9*Wн|ys((I(H'@&{ BxL!/h#J9!? G93tIiytHXmG7Ǝ{cr(+؋ޞ=ߍSuDW'=F8nKZ1Xevk]bMǪ>[Mρ~}fYVe!+7<׀OJdzoϜw&BY6ŖN m)Ŷ=>f}Uu RMIJG;q ?Q-\]lYB,Dlrx, Wq8ϕswB[|:Dz<:o ga p%_/S9h䩮m`G] ZQ vq2Aa'*m!jAi C[.lh+^S_}jPȷA =TZPA9F@|Hq`<|" O& o1sCF [(@(StandardmH ffberschrift 1,TOP1$ & F<@&5CJKHOJQJkHddberschrift 2,TOP2$ & F<@&56CJOJQJkHVVberschrift 3,TOP3$ & F<@&5CJXXberschrift 4,TOP4$ & F<@& 56CJZZberschrift 5,TOP5 & F<@&CJOJQJkH^^berschrift 6,TOP6 & F<@&6CJOJQJkHVVberschrift 7,TOP7 & F<@& OJQJkHZZberschrift 8,TOP8 & F<@&6OJQJkH^ ^berschrift 9,TOP9 & F<@&6CJOJQJkHBA@BAbsatz-Standardschriftart8"8 Beschriftung xx5Z-Z Makrotext"  ` @ CJOJQJkHmH PP Verzeichnis 1h $5;CJOJQJkHBB Verzeichnis 2 $5:: Verzeichnis 3 $:: Verzeichnis 4X $:: Verzeichnis 5  $:: Verzeichnis 6 $:: Verzeichnis 7 $:: Verzeichnis 8x $:: Verzeichnis 9@ $()@( Seitenzahl5@B@@ TextkrperCJKHOJQJkHmHJ @JFuzeile$ !CJKHOJQJkHmHJ@J Kopfzeile  p#CJKHOJQJkHmH"  #M +-6Vc ! _Toc286743921 SAP_System_idName Anschrift_1 ServiceCenteruu$MW^_gh| ,-06dfmoqr$NW]^fhtu{ ,/05WdfnoqriXOS"E:\Office97\Templates\Sap_rep8.dotiXOS"E:\Office97\Templates\Sap_rep8.dotiXOS"E:\Office97\Templates\Sap_rep8.dotiXOS"E:\Office97\Templates\Sap_rep8.dotiXOS"E:\Office97\Templates\Sap_rep8.dotiXOS"E:\Office97\Templates\Sap_rep8.dotiXOS"E:\Office97\Templates\Sap_rep8.dotiXOS"E:\Office97\Templates\sap_rep8.dotiXOS"E:\Office97\Templates\sap_rep8.dotSAP AG7C:\Program Files\Microsoft Office\vorlagen\Sap_rep8.dot @.@.@..@...@ ....@ .....@ ......@ .......@ ........V%CCV$CCV#CCV"CCV CCVCC  SAP Report SAP ReportK$e1$K0 (&TemplateProject.DefinePaperformat.MAINDefine PaperformatDefinePaperformat.MAIN,&'TemplateProject.tablecolordecoding.MAIN&TemplateProject.DefinePaperformat.MAIN!TemplateProject.Resetoptions.MAINTemplateProject.SetOptions.MAINTemplateProject.Batchstart.MAINTemplateProject.autonew.MAINTEMPLATEPROJECT.AUTONEW.MAINTEMPLATEPROJECT.BATCHSTART.MAINTEMPLATEPROJECT.SETOPTIONS.MAIN!TEMPLATEPROJECT.RESETOPTIONS.MAIN&TEMPLATEPROJECT.DEFINEPAPERFORMAT.MAIN'TEMPLATEPROJECT.TABLECOLORDECODING.MAIN@D",P@GTimes New Roman5Symbol3& Arial=&Arial Fett?1 Courier New"1hނ慗,楽9E'$0dH )SAP R/3 - Word for Windows Reporting Tool"Report Generating Tool for SAP R/3dApplication creates WinWord documentes on basis of downloaded R/3 ABAP Lists, graphics and Textfiles2P. Vogel, S. Joksch, Microsoft Consulting ServicesSAP AG [0@0Standard CJ OJQJBA@BAbsatz-Standardschriftart VorlaufblattNormal  @P0@GTimes New Roman5Symbol3& Oh+'0X<H     ,8@HP*SAP R/3 - Word for Windows Reporting Toolrd#Report Generating Tool for SAP R/3g3P. Vogel, S. Joksch, Microsoft Consulting Services. VeApplication creates WinWord documentes on basis of downloaded R/3 ABAP Lists, graphics and Textfilesl Sap_rep8.dotreaSAP AG8189Microsoft Word 8.0 @]e@O@\G@J|9E՜.+,D՜.+,d px  0SAP  *SAP R/3 - Word for Windows Reporting Tool*SAP R/3 - Word for Windows Reporting Tool TitelTitle 6> _PID_GUIDAN{E4B1CDF8-CAA9-11D0-A28A-0020AF6D688F}   "#$%&'(*+,-./034:P789;K<=>?@JBCDEFGHILOMNRhT_VWXYZ[\]^`abcdefgQijklmnopqrstuvwxyz{|}~Root Entry F0"{:|6P Data@P@````Pp`pp``pp@P`Pp`p  1Table0@@`p @@`@@@@````````p`pp``pp@P`Pp` `WordDocument`@`` 0P ````@P@`` `@````@ `SummaryInformation@`PPP```0(ppppppp````@@@@p!DocumentSummaryInformation```8 T"8"   *)$Macros (  &  &  * ?> |0|8 VBA "h  ^ B |PQb| ThisDocumentt__SRP_a__SRP_b @tablecolordecoding&A  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFHIJKLMNOPQSUVWXYZ[\]^_`abcdefghjlmnopqrstuvwxyz{|}~<H mh FH mhx*8y{#H mhH mhF4(SLSS6"N0{00020906-0000-0000-C000-000000000046}]3$*\Rffff*d3339e8c2ap($H` $EX $Ob $0 $0 $` $08@ME xpAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2Option /licit rU pq{I"{!4""crU @prU~}  kx^rU $ `apxb@__SRP_cT__SRP_d mDefinePaperformat$ ; __SRP_eGyw~rP6 LL<<<]3$*\Rffff*d5339e8c2b*\R1*#c1*\R1*#17b*\R0*#c*\R1*#c10 `k@Bl PDh`J xh@$@$X@pHH @X @H (@8 @`( @  `@ @x @ ME " " H |Wh"<0 ( 86H `:2pxZ@ZX definition of the paperformat P. Vogel, MCS, 17.6.941Paperformat not yet defined for your SAP reports. $H  Please define it now! Paperformat@ B@FZpE !L%N.J J !PB@N J(R J(d J !T%N'B J!R' DMicrosoft WordSAP-REPORT-PAPERFORMAT D B@VlH@űAttribute VB_Name = "DefinePaperformat" Option ExplicitD Pub Sub MAIN() Dim ,re>p|$ @ Rem diof the p"P. Vogel, MCS, 17.6.94jWordBasic.MsgBox " no t yetbed w your SAPports." + Ch r(13) " @Please it"w!",, 6?fdlg As Objec0t: S7 = MDialogRecV.Filgeup(FalseCur@Values )3 .pSiz0 Tab1 <9"π8€* (PProf@,Sng "Micropsoft7AER-REPORT-PAPERFORMAT@GyEnd :rU~} 4 )56q6 a Q  6 6!7977 8`W:H X X8:(%:%(@%"$ @6X8:fH%"$ @WX8 46X80 @"$ @WX 5X(H% (H% 6 @"$ @WX 8 l5XWX `1h5X2:H%:(%h@"$ @`0x^yuzV(6 < <<]3$*\Rffff*d4339e8c2b `x(@.E pB0$This macro decodes the color information of standard ABAP lists and reformats the selected text according to the color information to B&W text attributes. PV / MCS / 6.94'TemplateProject.tablecolordecoding.MAIN rem$88(8x "`h &"(*@X @H @8 .02468:<>( @ @ @@ @ @ "(&"(* .02468:<>"&"*( .02468:<>"&"*( .02468:<>"&"( .02468:<>ph`ME$ F LP" B 4 ( @@),AZq J()x,AZq @ )`,AxZq @)H,A`Zq @)0$9HZqp xB this is a demo of the capabilities of custom macro functionality.H SAP gives no warranty on the quality and functionality of custom macros> this macro replaces the color coded information in ABAP-lists/ with text attributes Font size, bold, italics P. Vogel, MCS 6/94; search black text and replace it with autocolor bold 12 pt" B@ 14&"(* B@$.02468:<> B@, F search black text, 2nd headline and replace it with black, bold 12 pt" B@ 12&"(* B@$.02468:<> B@, ; search green text and replace it with autocolor bold 12 pt" B@ 10&"*( B@$.02468:<> B@, ; search dark blue text and replace it with auto color 10 pt" B@ 10&"*( B@$.02468:<> B@, ; search cyan text and replace it with auto color 10 pt bold" B@ 10&"( B@$.02468:<> B@, l( Attribute VB_Name = "tablecolord0ding" Option Explicit  Rem this a de mo of"e capabilities&custom macr@o funca!>y. FSA P giv-no warranty qthe qu* and < Z@s Pub Sub MAIN() .DescriҀx~TaMyB; informa nstBard ABYlists)Kresseted tex`t acc >)? @@AB1BFi1GObjectlibrary9S J__SRP_12k<__SRP_13Resetoptions  @B  (0 <8 <x , &  ( @ &X  0.Y &"E0 "X (2 *M $D28  $ 6D $B2( p(2x   @B  (08 <@ < 0 &  6 @ 6x 2Y  & "E 8  P (2` &    & *3 % &0 %@ -P 0h  1 xdys:P> LLL<]3$*\Rffff*d7339e8c2b*\R0*#c*\R0*#d*\R1*#c1*\R1*#17b*\R1*#c1*\R1*#c1$Z`@$~x`|+H`k //----YutinI hronY\201:Phfor PdH`h k ))Fot fYx@yqP> LL<<<]3$*\Rffff*d6339e8c2b*\R0*#c*\R1*#c1*\R1*#17b*\R1*#c10(8H$ `kx00Y\ P^xP`tPbpPdlPfhPhdZ0@X8HX$0x(Zl(@@` @8P @@ @0 ptvjx0@  @ pppxtvjx0p`tvjx0Htvjx0  @ @ @ p8p0tvjx0ptvjx0xptvjx0ppphtvjx0pPtvjx088H8HME6 *8 "@HX`hpx > ( 6(8EP p M  0%44 P*`2IxH  )448 p*2I   ) 2I P `x x& array of errormessages in this moduleZH8 ZZZZZZZ0:, inserting table of content due to the switch in INI file# P. Vogel, Stefan Joksch, MCS, 6/94'011:Unknown option for table of content+ Zcontrol' ^TableOfContents' ` ^ ` \ %j' b check for frontpage option frontpage' ` ^ ` f \ %j' d b$lSTARTHQ d$lY There is a frontpagelibrary.getlanguagedependency$ %(' h h2 ' h hp B@ntvjx0 B@ra? No frontpage, but Table of content at the beginning of the doc What is about VORLAUFBLATT? \startofdocp B@nlibrary.getlanguagedependency$ %(' h h1 ' h hp B@ntvjx0 B@rh(ENDHQ \endofdocp B@n B@ztvjx0 B@rNOHQ no table of contentP$ Zk`lXPAttribute VB_Name = "TableOfContents" Option Explicit Rem array of errormessages in this module DimBmsg__$()zPub Sub MAIN(inifile$4Re /1sec$Okey toc value saprep0_dir>ma,rk,serting tydcz due toce switchjINI R ~P. Vogel, Stefan Joksch, MCS, 6/94t {1)011:Unknown ofor@wKrol {ҁ WordBasic.[GetPrivate(Pro\Sng$](-, AB_m check %frDp@u+  F%^5j +Y"OSeln Case UmA(9 B"`START@!AIfD $\Y" T hen 're @a / EB2Call("library.getlanguEdependency$", + "2+ lWW7_EditGoTo (Desa:=g,GInĀ Outline:=1, FromTo:=8, RightAlignPNumbersReplLac# El@/'H Nog&,  fatfbeginnj the0 docAgWh@0bout VORLAUFBL0ATT?":="\startof@ H*%?9?9BJ 91?9?9 ?9?9?9End If#,akOChEND|"\ _.K6RKBreak1;VVV#NOaOn#]nt #gɸ )(ub ctheI Y\nd: PhPdom m@T + Z@D fil`k $$o graY208:I nguaY\g itPh getPd + `kX ----YxI ----Y\X----Ph by PdVoge` k( YHI h Y\(&PhP` d@T str` k !!Y0Y\PI P`hPd8xHH|0|$H|0@l ~pP08@` @P @@ @0 @ Z ` x ` x @l (` ~lH@ T @ D (@@ @0 0 @ (@H  @ @ @@l (` ~ p`Hh h P ` x @ D @ 4 @0 @ @  @ @ (@ @l  F~ZH p p  0 8   8 ( @P 4 @h $ @ @  (@ @ @ (@ @  @ p0@l  ~Zl@@T @P @(@ @p0 @X @ @ @ @ @ @ 1(@l  o~Z@p@hT @P p@P@ p@0 @ @ @ @ 8h ME * @8"x < Bx2&@(h**(>6XD)  @ B  ( 0 <8 .x &  2 2Y &H Ep "   D )(H <P .9 28 6@)x @B  < 0@ &p H J 8 H h "p0Y"E  65 HP p   @B  < :8 &x L     "4Y"E0 .2X  @B  < <( Bh 4 D L0 B " : &0X`ExD    4.9@.%p D20% 0 @PX ` x& array of errormessages in this module9---------------------------------------------------------87-------------------------------------------------------= same routine as in library! update synchronisly is necessary8#201:No filename defined for object + Z202:Unknown file type : + Z203:Table file not found: + Z204:Objectheadline empty in + Z205:Custom macro not found: + Z206:Text file not found: + Z/207:Unknown Alignment option for graphic file: + Z(208:No support for the chosen language. + Z6209:Wrong itemno in the function getlanguagedependency + Zl9---------------------------------------------------------xZZ07-------------------------------------------------------7 written by Stefan Joksch,Peter Vogel MCS, June 1, 1994( inserts file objects into the document.! there are 3 file types inserted: Tables (*.RTF) Graphs (*.wmf) Text (*.txt)" init errormessages of this moduleA@~ determine the filetype, Creation of the Key Word for the file name:Obj $ % _file ' " Retrieval of the Object Headline:   \ %j'  check if filename is defined $ Z  ,  a8& insert the file with the right method  %$lRTFHQ Inserting a tablelibrary.inserttable  %('L inserting the tableWMFHQ Inserting a Graph inserting the graphlibrary.insertgraph    \ %('TXTHQ Inserting a Textlibrary.inserttext  %('K inserting the textP$ Z  ,  '  signal an errork0h(f 9---------------------------------------------------------HZZZZ07-------------------------------------------------------7 written by Stefan Joksch,Peter Vogel MCS, May 26, 1994+ Inserts a Headline at the Cursor Position." init errormessages of this moduleA@~ Preset of function value:'' Preset of Function Control Value to OK2 Creation of the Key Word for the Object Headline:Obj $ % _Headline ' " Retrieval of the Object Headline:   \ %j'  Error Handling: $ Z  ,  '  Error Code for Return ' h0! Insertion of the Object Headline $H B@ Carriage Return %'  B@ %'   B@, Object Headline is formatted as normal textNormal B@ \endofdocp B@nf9---------------------------------------------------------HZZ7-------------------------------------------------------) written by Peter Vogel, MCS June 1, 1994" init errormessages of this moduleA@~- Creation of the Key Word for the Macro name:Obj $ % _macroname ' " Retrieval of the Object Headline:   \ %j'  check if macroname is defined  no macro defined,@ deselect the inserted object, otherwise it would be overwritten \endofdocp B@na8 run the custom macro on the selected text in the report check if macro exists  %0 macro available run macro  B@a$ Z  h2 deselect the inserted object, and goto end of doc \endofdocp B@nhXfP9---------------------------------------------------------ZZ7-------------------------------------------------------+ written by Stefan Joksch, MCS May 26, 1994" init errormessages of this moduleA@~D Analyses the occurence and setting of the Obj#Newpage switch in theE .INI File. If it is set to Y, then a PageBreak is inserted in to the Document. Preset of Function Value' Retrieval of the switch valueObj $ % _Newpage '    \ %j'  Analysis of strObjnNewpage$  $lN> default value'a Start of a new page B@z'hh f` 9---------------------------------------------------------ZZZ7-------------------------------------------------------6 written by Stefan Joksch,Peter Vogel MCS May 27, 1994" init errormessages of this moduleA@~H Analyses the occurence and setting of the Obj#Orientation switch in the .INI File. If it is set to a value L or P, deviating from the present REM setup, then a PageBreak is inserted into the Document and the orientation is toggled.. Preset of Function Value' Retrieval of the switch valueObj $ % _Orientation '    \ %j' Library.PageOrientation  %('fh 9---------------------------------------------------------ZpZ7-------------------------------------------------------7 pagebreakflag determines where to insert the pagebreak= 0 = before headerpage (normal chapter, and global headerpage/ 1 = after headerpage (1. headerpage in report)@ checks for headerpage entry in the control section for a globalG headerpage and in each chaptersection for chapter specific headerpages= the layout of the headerpage is defined in an autotext entry which is inserted on demand.5 written by P. Vogel, Stefan Joksch MCS June 16, 1994" init errormessages of this moduleA@~ Headerpage' `  ` \ %j'  1 there is an entry for the headerpage, insert it!  B@zh0 inserting a new page with layout for Headerpage Vorlaufblatt B@ B@ set cursor into the frame inserting an objectlibrary.inserttable  %('G inserting the table B@ set cursor into normal text  B@zhhfh ZZxAttribute VB_Name = "Objectlibrary" Option Expl@icit Rem array of errormessages in this module DimBms@g__$()z'-5 Priv"aSubjit_ }_4^ ksroutine ah! upd>synchronisly unecry 9 x10yQ1)201:No filen6def6d for Zo 22:Unknown type : 33:TabDlenot-und 4 4:C} headl=emTpt@6n5 5:Custom @macro U6 6:Tex @; 7 7F8Alignment oCGgraphiVcB528D8AVsuppor=r@e chosen@ langu@.E599:Wug itemnoC@PuncgetdependencAEnd ;CFd(strchapter$,P,AF$@Key n݀ D=writt (by Stefan Jok@sch,Pe Vogel MC S, Juf1, 1994jinsertsCQ[jtoB3docu<.thern`3\aed:b[s (*.RlTFvGaCbwmfdOtxt cinitl_jA ;dmd@B! aCreaE e 2 Wor{E> ~`6" +bBasic.[LTrim$]@(Str(n()r)@"_; Re@eval yH H${dC _GA GetPro! ingPjQ check if$b#ĜIf "" ThenC" @#I+eA ,a%ICEls`? a!PBNa withright methodSel CaPse U(($RA!a `r3)K "S" ' I"``( a t/ e4"=h?Call(".c"",') #! >t #WMF 4 'FA8EXo B, rt M&8b/e "TXT Q? j@L[',$(},,%u: -1sPr>Yyp2orG RiB,7 QIfsfMQkG/l5jC(lE$flStar ߀>> -C]mmmM026m=Fs=e atECursPosianeggeA LPrese`U_ue]3"p= 0 p"GControl V alue xOKilyIReX$/m/m$m`m+amb m"mtmtr^]*m *G E Hanqg$mXm t m/A(A001 Aq' s Cod (uruU qA k#Fq Chr(1S@'Ci@ I<p0wr3  @lG`o'Set`R̀e`D, Oa& ݐmadmnWt`' FatStyp:="NdApp`ly:=17WW7_EditGoTo DesP⣰\ ofP ;a: ZMZжte Function Objectmacroname(strchapter$, not, inifile$) Dim Key5nnj$$Re$m-3 ; written by Pe Vogel, MCS June 1, 1994 /t errormessages of this module : "_ "Cr,eael Word for"(e M : B { = "" +Basic.[LTrim$@](Str())"_$"=Retrieva lXe Headline74I0GetPrivatePro4ing9 U check if % Ldefd I$8@" Then,n*oC ,deselBLins@erted otherwise it would be ov1{ 8WW7_EditGoTo Destini:="\en@dofdocQEls@w4runcustom) C'$text reportD existsCG'CommandValid(Ch)I-1I 'availab() CAToolsCN :=, Run:=1 =0nt #@@msg__$(5 nd If:5 goto `-aS-C?4#4E%co '4 `Newp hd@h?%2#cșStefan JokschMay |26!3ߙԙA`nalys a^occurence 9sethgH# switchb.INI zF.Fv  `BY,gn a P@-Bs~ipoA# Document.>atPr`tF iuy/@= 0E$@$B@ ?߲IJ?`z_ g^[?j!v#c5*ϮN"" Or (UClasn"N")Eault D$+DJStara new !4>7_Ior]V#_ >F k?O?3O?rO@tnta?/?s{?:np'uro? -?@4@@7@ߍp#ߍu3@@#Sr/Am /As`utE!Aac& L 0P,vipng lfrxHpQ?pjREMQup_DinFCBLo7atoggled.OFbJFFFbjnFtF8FFOOwsTF 4,LwLCall("Library.<", GD<{_/<1UP.jbUco*ᓑU &"!ڣ* `pz@r0s#t@!z,= X0 Then  WordBasic.WW7_InsertPageBreak@End If,Rem iHing a new p\ with layout for Header4p EditAutoText Name:="Vorlaufblatt", Cont:=1,  KCharLeft 1 ' set curs}into thpe fr\5 n objectOhZ = XCall("li@brary.tableSfilen1$)@=/%XRight 2Ynormal |IfBbflagK1 AFunctio IGGiDBD4D)EiEEE FQ; IaBI B!CACC D)FiFFF ;;;;;;;; ;$ l Y:0:@%lT T%P"$ @P :/`1hP6T E:@%l@h@l@P"$ @PT`1dP5T ld022*##*#lh*FT925TdM:00%d@(@%P"$ @PTT  P5T:@1]/0\2:@%d@P"$ @PTlP_:@2]/0\D:@3%d@l@l@P"$ @PTlP_:@4]/0\2:@5%d@P"$ @PTlP_22*##*#lh*FT925T D@l5l4dldh(PT 8 (4lY::4%l$ $% "$ @ :"`1h 6$E:4%l@h@l@ "$ @ $`1d 5$ ld022*##*#lh*F$925$ D4l$Cd3 $ %$% "$ @  5$% "$ @ $&T &d@ "$ @  % "$ @ $'D -T @D @ "$ @ ( 1:4)%(% "$ @ * + ):4,% "$ @ -. 88 ldhDT( $ Y:0:@%lT T%P"$ @P :6`1hP6T E:@%l@h@l@P"$ @PT`1dP5T ld0):@,%P"$ @P-.P9d@P"$ @PT7D@]/ P5T\P2d@(@%P"$ @P8 9Po2ld*FT95T):@,%P"$ @P-.P>0ldh PT |, (TlY:0:T%lD D%@"$ @@ :`1h@6D E:T%l@h@l@@"$ @@D`1d@5D5ld0dMT@D D:0]/ 5D\ (Tl!@"$ @@@ (Tl,0!ldh @D @ (DlY: :D%l4 4%0"$ @0: `1h064E:D%l@h@l@0"$ @04`1d0542:D!%d@0"$ @04T04lThd 04 ChE:P%l@h@l@`"$ @`@`1d`5@ ld=0(P]/@\`"$ @``9:P%(0%( %`"$ @`  `%(P%`"$ @` `2:P%d@`"$ @`@l`%(P%`"$ @``0(P]/@\`"$ @``\0lhd`@MrU $`0` 0/00` 0/00` 0/00!` 0/00I` 0/00q` 00/pxj@yMF P6 LL<<<]3$*\Rffff*d8339e8c2b*\R0*#c*\R1*#c1*\R1*#17b*\R1*#c1 `0kPxPtV / $ Resets the viewoptions to normal P. !TemplateProject.Resetoptions.MAIN($@X0 l @@`p @@` @xP @H@ @0 @, @ @ @ ab@  x(ME " D &vh0  0&v0" 8 ` &1p 1"1"$1"1@ h"1(1  xZ@ZX> code bracketing for English French and German Version of Word %$l %'  GERM ENGL FRANXXXX' h(+ Select Case Left$(UCase$(AnwInfo$(16)), 4) %$l %'  GERMHQ german version 6.0 Formatierung B@a`Format B@h8Standard B@ENGLHQEnglish version Formatting B@Standard B@FRANHQFrench versionStandard B@ Mise en forme B@XXXXHQkl\Attribute VB_Name = "Resetoption s" O$ Explicit " Pub4 Sub MAIN(X) ".D`escri|s the view to no0rmalkCPr@ocDataOInvoke_FuncTemplate"ject. .PDim L_Langu@age$ vers ' code bracketing for English French and GeOn V of Word ,G Basic.[Left$](@UCase( A@ppInfo 1@6)), 4If P <> "GERM" A<0! ENGL FRAN" Then M"XE)If R@em Sel ( ,+$(AnwB)()BL828~38J c*<' gZZ2A @I "6.0I:YV@Toolbars :="FAtierung", Show:=1Else?GDZStqard G~'G$?AQ+O~'Df-3 ':M@ise enwm~e'_cQAaa rU~} __SRP_14__SRP_15mReportlayout#(__SRP_16  i9* a q****+1+y++)I ,9,-.i v: %:P%(`%p"$ @p@0 0%(%,"$ @,`1x)p,6@0lx=lx=lx= Cxv: %:P%(`%p"$ @p@0 0%(%,"$ @,`1t)p,6@0lxC l0 lt 0m1:` %(P%p"$ @p  p1:`%(P%p"$ @p  p1:`%(P%p"$ @p  p l0H1:`%(P%p"$ @p  p1:`%(P%p"$ @p  p l01:`%(P%p"$ @p  p1:`%(P%p"$ @p  p l 0/0xt p,@0krU $`iprU~} -II! I a yJi1GJKyKKK LaLL MIM )  IyMDMNNNNOO      !"#$&'()+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTVXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|~ (0 :8B x , 4 0 8 $%P xE 44 * +8 HX&`,p  :B     * 4P 0  (%   ( E@  `  p * 44  * +  0 @ *H *x             x& array of errormessages in this moduleZ8 ZZ#, defining the layout of the report: reads and interprets misc. options in the [CONTROL] block of the INI file# P. Vogel, Stefan Joksch, MCS, 6/94&021:Unknown option for chapter numbers+ Z inserting chapter numbers \$'B Inserting headline \$'B Inserting footline \$'B Inserting pagenumbers \$'Bl3---------------------------------------------------Z0ZHZ` inserting chapter numbersInserting chapter numbers ... B@'control' ^Chapternumbers' ` ^ ` \ %j'  $lNHQ B@ B@P  Assume Default: Y Print #1, errmsg$(1) chapternumbers = - 13 B@ B@k(f 3---------------------------------------------------xZZZZ % inserting the header into the report/ this function assumes that the view is normal!+ this should be done in function SETOPTIONS P. Vogel MCS 6/94Inserting headline ... B@' GENERALINFO' ^HEADER' ` ^ ` \ %j'  library.getlanguagedependency$ %(' h h2 ' h hp B@n % B@h  B@ B@hf3---------------------------------------------------8ZZZZ' inserting the footline into the report/ this function assumes that the view is normal!+ this should be done in function SETOPTIONS P. Vogel MCS 6/94Inserting footline ... B@' GENERALINFO' ^FOOTER' ` ^ ` \ %j'  library.getlanguagedependency$ %(' h h2 ' h hp B@n % B@h  B@ B@ footer text is left alignedhX'fH3x yO K!(> L]3$*\Rffff*d9339e8c2b*\R0*#c*\R1*#c1*\R1*#17bX $$ `\kxY\ @Bl x`Xk !Y\P^hP`dP`8`k 9Y\P^hP`dP`he [Ph\ of `Pkx U021:Y\umbeP^h insP`drsP` InsPh\$` k8 !!tng pY\BP^h----P`d----P`Ph\HZ0@rs8x88x8x@(Z@\ 0`H8x @l P!l, @\ +@L @< @, @  @l 9 pp` @X @ H x@88 @( @ x8 h P   @l Up  @X @ H 8@ 8 @( p@ XX p8 X p @l   X tl pp@X x@ H @8 8 @( @ @ 8 8` 8ME *8 "@HX (` >  ( 4 @` p    :B 8@HP X,%x E   )(@ ` ))  :B  (08@ *H 4x 0  $% (@EP p44 *+ &---------------------------------------------------ZXZpZZ& inserting pagenumbers into the report/ this function assumes that the view is normal!+ this should be done in function SETOPTIONS P. Vogel MCS 6/94Inserting pagenumbers ... B@ check for pagenumberCONTROL' ^ PAGENUMBERS' ` ^ ` \ %j'  $lNHQ  no page numbersP " inserting pagenumbers is default!library.getlanguagedependency$ %(' h h2 ' h hp B@n % B@h B@ goto end of footline area& pagenumbers are inserted rightaligned B@ B@  B@  B@k'fAttribute VB_Name = "Reportlayout" Option Expli cit Rem array of errormessages in this module  DimBmsg __$()zPub Sub MAIN(inifile$Re /f1reyu, def/nge e the r rea@ds andterp@isc. oe [CONTROL] blockka(INI M P. Vogel, Stefan Joksch, MCS, 6/9N4nv1)021:Unknown= for chapL nu`mbers2insertip a(   I hlin Hfoot  p~#)=KE@d~J'-/ Priva@FuncBDseB $key?DA -^WordBasic.ntStatusBar "[D!t ...uDH1p0 E$@"control@ A&ACD C$!"[GetBPr oSng$](E, A,@SelD Case U(A m "N`a!EditcAl(l Fat;MXN[Y ,ov0e:=1cB El' AssuDjult: Y 2B. #1,$<$(!,-  gTPreset:="32 Restart:= :Z+ZS\S`\x\er]$Bmark]aerEtob"fma5satBview e`n?l!bshould be done SETOPTIONS'7b@?nŜm$ e,mGENERALINFO "" ThenGZ)1 Call("library.gengudependency$", _l + "2d!WW7_xGoTo D,ina9qT:= No4t V() 61IfgTc.Cl(oseGFjer %q757zCql7%#fAs773v7M7p7ma777s7o o n= 77"FOOT77s~m|7N *7 1=-7a77T 7ă77Y5;77S/7@+:1e277c.LeftPara 'C0btextQ_l aligned8 9Oq/9--9 99'qq/:/:qq!qqqS?q?6 S:! checkpr[DGca@"PAsUMBERSPw/zo;o;d/,(nor *wsa 50/A:/A/Axat/Ak$ /A/Ax'9/A?/A q/Asɰ End If  WordBasic.OfDocument ' goto eof footline areaxRem pagenumbers: inserted rightalig(nedI(ParPgeFi4el@R`?CloseViewH@eaderFer Select \= 0Function O PIPPP;l \ \ll \ \ll \ \ll \ \l (l\\%:L%\"$ @\ \ (Ll Ch CdE:L %h@d@l@\"$ @\<`1`\5<`ML@< <,,:L]/\\"$ @\\)(L%\"$ @\\Q):L%\"$ @\\)(L%\"$ @\\5, `\8Q l,h`d\<%:H%X"$ @X X (HlChCdE:H %h@d@l@X"$ @X8`1`X58 l`=4:H%((%X"$ @X8`1\X58 l\*1\*\@X"$ @XX+X"$ @X8X58\HX"$ @XX&`@X"$ @X XX"$ @X!X d8 l\`hdX8%:H"%X"$ @X X (HlCh#CdE:H %h@d@l@X"$ @X8`1`X58 l`=4:H%((%X"$ @X8`1\X58 l\*1\*\@X"$ @XX+X"$ @X8$X58\HX"$ @X$X&`@X"$ @X XX"$ @X%X (Hl d8 l\hd`X8h%:H&%X"$ @X X'Ch(CdE:H %h@d@l@X"$ @X8`1`X58`MH@8 8((:H]/\4:H%(%X"$ @X8`1\X58 l\*1\*\@X"$ @XX+X"$ @X8$X58\`X"$ @X$XX"$ @X)XX"$ @X*XX"$ @X+XX"$ @X,XX"$ @X!X5( (Hl t<$l(\hd`X8WrU (`0(`0(`0(__SRP_17%(SetOptions__SRP_18* __SRP_19 Um`0(!`0prU~} @ a I&&&&!'A'i'''' (9(a((() YQ)A!))*i9*q****+1+y++f Not WordBasic.DocMaximize() Then ViewNormal Toolsx FieldCodes:=0, Bookmark_ TabSpahB ParaFHyp$HiddenShowAllDraw@k @AnchorTextBoundxari!1 ,Gel PagingBErrorBeep1, -Upd@_Lin2WSave Cre Backup+Fast@EpAutoABInva@7"rX@Print g>rA8"Je all 7bar"s' cb br"e¶English FreM and Geun VL @Q[Left$](UCase(AppInfo16))8, 4@<> "GERM" A -ENGL3`FRAN"bUH l )X@'E` If "_`aj[g2A3@!*Sel m ! $(Anwb(Gjp#D' gC-@-C$e"6.0)a,!mC=%>:="Fstierung"," aB:=1g Else_ F $-_ @ St@Mard ^Rahmen_"@enbankZeich2n_ew2ul ar?Makro?1ڭY"cl'NQLLA1j?.arP$B@l{`J (lubKolQT5gq sMO ?C T'D`? OE$Mise @hme pe d onneI_i?Eϯ0=ir Enregistre@Mtq "ϟc.ob4urB"b!un3t wasA dirty, so et it to cle\an0eD H0 ubP@@ + ,9,q,,,-I-q---.Q..../i// 0y0 i0+p"$ @p`Pp5`\Lp"$ @ppp"$ @ppy(@%(0%( %(%(%(%(%(%(%(%(%p"$ @p  p9(@%(0%( %p"$ @p pA(@%(0%( %:%p"$ @p p)(@%p"$ @ppv:%:0%(@%p"$ @p`P P%( %"$ @`1x)p6`Plx>=lx!=lx"=$#Cxv:%:0%(@%p"$ @p`P P%( %"$ @`1t)p6`PlxC l>0 lt$01:@%%(0%p"$ @p&'(p%1:@)%(0%p"$ @p&'(p1:@*%(0%p"$ @p&'(p1:@+%(0%p"$ @p&'(p1:@,%(0%p"$ @p&'(p1:@?%(0%p"$ @p&'(p1:@.%(0%p"$ @p&'(p1:@/%(0%p"$ @p&'(p1:@0%(0%p"$ @p&'(p l!01:@1%(0%p"$ @p&'(p1:@*%(0%p"$ @p&'(p1:@2%(0%p"$ @p&'(p1:@3%(0%p"$ @p&'(p1:@4%(0%p"$ @p&'(p1:@5%(0%p"$ @p&'(p1:@6%(0%p"$ @p&'(p1:@0%(0%p"$ @p&'(p l"01:@*%(0%p"$ @p&'(p1:@7%(0%p"$ @p&'(p1:@8%(0%p"$ @p&'(p1:@9%(0%p"$ @p&'(p1:@:%(0%p"$ @p&'(p1:@;%(0%p"$ @p&'(p1:@0%(0%p"$ @p&'(p1:@<%(0%p"$ @p&'(p/%(@%p"$ @p=p0xt p`Pk1$1"1(0rU $`prU~} (x SyI P6 LLL<<]3$*\Rffff*da339e8c2b*\R0*#c*\R1*#c1*\R1*#17b*\R1*#c1*\R1*#c1 `8k==ssumPxnormPtould$(Set Options after the generation processThisTemplateProject.SetOptions.MAINn of 0$@X0l @.02@  "$&(*@p @H` @P  "$&(*  "$&(*  "$&(*@@ @0 @ @ P@@ .0268:<T@@X @p @h 68:<BBBBBBBBBBBBBBBBBBBBBBBBB@ @ .0268:<@ @ BBBBBBBBBBBBBBBBBBBBBBBBBB(.0268:<@ @ BBBBBBBBBBBBBBBBBBBBBBBBB@ @ BBBBBBBBBBBB  "$&(*.0268:<@BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMEB D *P"J  ry *9@ 2Ap )  D&v 0H x&v 0"   &1(P 1Xx"1 1$1"1"1 1$18"`$1"1"1"1"1( 1P 1p$1 "1(1*1( 1X$1x21$1"1(0 48%p x@ this macro sets the options for the build process of the report% P. Vogel Microsoft Consulting , 5/93Z@ZX %F B@g B@ # "$&(* B@  .02 B@, 68:< B@4B@ B@> Hide all Toolbars> code bracketing for English French and German Version of Word %$l %'  GERM ENGL FRANXXXX' hp %$l %' + Select Case Left$(UCase$(AnwInfo$(16)), 4) GERMHQ german version 6.0 FormatierungB B@aFormatB B@hStandardB B@RahmenB B@ DatenbankB B@FormularB B@MakroB B@ MicrosoftB B@ENGLHQEnglish version FormattingB B@StandardB B@BordersB B@DatabaseB B@DrawingB B@FormsB B@MacroB B@ MicrosoftB B@FRANHQFrench versionStandardB B@ Mise en formeB B@Base de donnesB B@DessinB B@ FormulaireB B@Enregistrement de macroB B@ MicrosoftB B@BorduresB B@Pk- template was set dirty, so reset it to clean B@DlPHZeichnenB B@ar:="ZAttribute VB_Name = "SetOptions" $ Expl@icit Rem this macro seDtse ol forbuild process of(rep orP. Vogel MiH@soft Cwulting , 5/93 Pub| Sub MAIN() .Descri  aftegener^aq%PXData+Invoke_Func+TemplateAject..D'Dim L_Language$ versIsavereport.G__SRP_8Wt __SRP_9/ }nBatchstart{%e show fileinfo dlg J !T%R'B B Update Fileinfo record J B@R save file dialog J J' Na \' Nlibrary.getDateiName$ N %(.doc ' Nhlibrary.isdirectory L %( L B@:h !L%Z.P N P( P !T%Z'B B B@\6Report can not be created without intermediate saving! Cancel Report B@F-Report canceled due to no intermediate saving'Hap P! B@Z'HhHa@ B@\6Report can not be created without intermediate saving! Cancel Report B@F'HhhK activate fast save option for intermedate commits during the build process8 B@4fH@ J!V'Attribute VB_Name = "savereport" Option Explicit Rem inserts customer foto the File$Dialog and s |F PrivaFuncm' (inifD$) Dim seE$ key value docn path |reH$WHdlg2 As O bj0n' mark templJaqlean WordBasic.SetTDirty 0I.lg':  1Rec'".Sum9yInfo(FalseyCurVq~s,;i?%ōGeneral@{UAHeadlineWG$[GetlProSS ng$](, , qA.Tit= m EAuthorC/CreadxComXmen@RB ced " +H?€rieve* u A S/"control@*EL @D$ =iicg!riFcheck fotU@%batch modea@A?%If @UCase(# )@ "B" Then '  at\UpaM"sr" 6 |A=*<> "c ?RightrE, 1) \a =aPc + ".\&aEIf Call("library.isditory", !$1# ChE@k.0 -signal errorHdefault: *.*.@GiVEϒgetjD`i$ )} ~"A) )BrGCg Aave@ :=3%cd"1 inGe#d-Bhow PRpH`j.jj )3-Q.oLGpmA1" 0" dgs113KiT]j/o cm ?5G?5?5?5a X?5"k<2 gPAsF 2.)Go%c%%n2$%!f%0B B8eepWgMs@gBox "wan not beIxwiutQexrmeP%04_!;"Cancelf 16nt #1,I0~due `n(U! A1(g @૒ T@1 wѾoPŰh3 pL13aAAV fast ^ov`ciЗdubuild procesȷ ToolsCsS( F8s:=B E (  0E@&%` & F   a  Y  9ay)Yi I y  )I  Q y YA!x%(,%<"$ @<<:f,%<"$ @ HB X`hpx % "<0 . @XEh  E  E" 8XhEx E (  0E@&%` & F  .> &0@  Hh p6B 1  06H` p&   6B.>  &P`:h 6   Z1 < (  hp /x   Z1    ( P0) x: inserts customer info into the File info Dialog and saves the reportZ`ZxZZZZZZ mark template as clean B@DZ E !L%R.J J !PB@R* insert customerinfo into File info Dialog GeneralInfo' ^Headline' ` ^ ` \ %j' d d J(TAuthor' ` ^ ` \ %j' d d J(V Creationdate' ` ^ ` \ %j' dReport created d J(X retrieve document namecontrol' ^docname' ` ^ ` \ %j' J retrieve document pathcontrol' ^docpath' ` ^ ` \ %j' L$ check for interactive or batch modecontrol' ^mode' ` ^ ` \ %j' d d$lB batch mode Update Fileinfo record J B@R L L %\ L\ ' Lhlibrary.isdirectory L %( L B@:a'H signal errorhxa default: *.doc = *.ini \' Jlibrary.getDateiName$ J %(.doc ' Jh store document L J  B@Z'Ha interactive mod%`M,@ :]/5\j&( @<"$ @<< lX=F:%X@(,%<"$ @<:]<<5\b lX*1X>:,%X@<"$ @<(]/<5\&X@<"$ @<< (,l)C\B:,%\@<"$ @<:`1\<61lXl\*F%<"$ @<<5 (,lD6( @<"$ @:,%X@<"$ @<(]/<5\&X@<"$ @<<:f,%<"$ @ , 2 >8 x "   0 <8 >xp ,&v @ *P  :%   6& 6  (6@X &`hBx 2<@  F 8H&hB( 6<8F@ `p@H zCx  . *@%p 1% &3   M 0%8)h%   *% $% &%( (%P &%x &% *%   "  0 x SAP report application% bootstrap loader for batchprocessing- this macro ist called during WinWord startupd due : execute a winWord process with "WinWord.exe /MBatchstart"' to start the application in batchmode.. the MODE falg in SAP_REP_INI must be set to B: this macro must be installed in the NORMAL.DOT file to be availabel at Startup time!Z@ZXZpZZZZZZZZ0 Peter Vogel, MCS, 6/94 init of errorflag'`8 the target directory of the source files is hard coded!: change the Next program Line For your custom installation( Name of the INI file created by SAP-GUI sap_rep.ini' \ %$l, MCS, 6/94b't of 13@0C Asig5oryA sou(rceBxs hja@cdrc0hang@Next gram Line F̒y@ comRcc:\@_W\^&0"CZ cremd by-GUI 0 .` B2apBasic.[Left$](UCase(AppInfo@@2)), 3 SIf "8.0" ThenlH`as %Ah8.Els `f MsgBox "TAA?n only uus@unᑡ 97 GoTo Anwendung_Sch li@End If%mak5 On >,current tChS ,`!searchɩ\k m_1GetSbbE/1. /w!f0 h 4 " NT" Or / "4gAabv.PrivVSngK"HKEY_CURRENT_USER\Software(\Mis\O@ffice\N\Common\FNew\Los", "bI o+ "P --PAT H"%'A[Righh" , 1) <> "\)3+ /@/ as`#Eef)*"c ' not_, t`agaiq0$`t"saUC@*roSUedB_L _sVWORKGROUPA+A='DrifosPMCl rm@MagBSS P"Can"i "l +X uIZ.0 PleP`i coOctly!0`Abort1]Rsn 16^u1c5urM*xe-g #dojobBvЇvYautonewDfru# 5DisaPbleA M1s^ M1E (:~=8omq C "m:loop.Hd {QjAcheckBppՑaw 5ElseAinse`pitexms f:-AIw% a gotobfirsLt \aythocumen!GhGd 9= BBD1D $B generaly mJ,d$ F"GENERALINFO_ 288 ]i,f`, "Author"Db_ k_ $J Crebd !UActualize Data fieldsD&*yIf! f_ 0back_Aa 0g {'* @SUB O1] FunR~ Ky=/} }a z_writ2t@\byly'16.June 19yTf as")in( `19@ us=n:`Bfk, boxV @0 (everyào.k.'oPXA?e?@ABDKHFGJWMNOPQRSTUVEYm[\]^_`abcdefghijklXnopqrstuvwxz{|}~x/yGK(> L]3$*\Rffff*db339e8c2b*\R0*#c*\R1*#c1*\R1*#17b80fileilabel a `kxBBY\ are\P^xP`tPdpt WoPflPATH@\ XPX\@H ' hPhD%@B4 ot f@$ Can `8k H! @\ ort PXe' @H \Z0@ge =~$80x~$`0xxHxZl @ @ ppp@ @ @ pppHh0Hp@l @8 pXP@4 p@$ @ p800MEc *8 "@HX`hpx   & *&8$` %  & M  $@4%h(%)%44 0*@ X%p-  2"*% ,8)h44 & $BF HFh   %  P B `hpx  . H " .@ p x)%44 *%%(-8 P ` Lh x& array of errormessages in this moduleZ08 ZZZZZZZ0ZHZ`ZxZ -------------- completing the FRONTPAGE! P. Vogel, Stefan Joksch MCS 6/94& array of errormessages in this module001:Start of SAP report+ Z002:End of SAP report+ Z Change Cursor B@ check for frontpage option" and delete frontpage if necessarycontrol' ^ frontpage' ` ^ ` f \ %j' d MsgBox("Frontpage = " + value$) d$lN no frontpage, delete it!Deleting the frontpage ... B@ 9  a ZyY9i1G)[: ID) )EiE[ \; M\ aH\ ;;%(% "$ @  CxCtM:%x@t@ll *F% "$ @ `1p 6%pM@ : ]/5\5%: % "$ @  ): % "$ @  % "$ @ \ 4:%(% "$ @ `1X 5 lX*1X*X@ "$ @  % "$ @ H -\ @H @ "$ @   "$ @  %:% "$ @  ): % "$ @  4:%(% "$ @ `1D 5 lD*1D&D@ "$ @  CxF:%D@l @x@:% "$ @ 4 F:%D@l @x@:% "$ @ 4  $%(% "$ @  L4 DXxl$p4t\H d (8l):8 %4"$ @44%4"$ @4$\44:8%(%4"$ @4$`1X45$ lX*1X*X@4"$ @44%(8%4"$ @44%4"$ @4$H4-\ @H @4"$ @444"$ @44hd4lX\H4$frU (`0$`prU~} (__SRP_1b'-Mainloop,__SRP_4__SRP_5*!p B@a B@h goto beginning of text bodylibrary.getlanguagedependency$ %(' h h2 ' h hp B@n insert chapters and objects Chapters.main \ B@( save everything done up to now B@ work on FrontpageFrontpage.main \ B@(' Work on misc. Attributes of the reportreportlayout.main \ B@( insert Table of contentTableOfContents.main \ B@( close Log file$ ZS B@ signal the end B@\SAP report is ready B@a" abort and close uncomplete report close Log file$ Z$ ZS B@xh ReSet Word options resetoptions B@(  B@  B@,  B@4  B@>l0(Attribute VB_Name = "Mainloop" Option Explicit  Rem array of errormessages in this module DimBmsg__$(")zPub Sub MAIN(inifile$iRe /3log"Ore(sec$key debug_C $mark    forXe SAP Reporting GeneraA|Tool.written by Stefan Joksch, P. Vogel / MCS, 5/94,1)001:StartNrN ɇ22:En d33:Abp( due to severe srAsave procw@A`DeclaDGLocal variabA| stocurren0 BsDmopt_view As Obj@q: Se = WordBasic.DiaRec@.AcsäsV@(False@ Cur@Values ËAgzl""l# B$%B]F#Sm" p @t#onsPa:G"B cIo&pn^or u$ eićAall("library.getd atein $",`) + ". \dele` ifZ any If(T[Fs$]($) <> "" Then !Kill wIfeOeffnEa :I FAp!d!31 c,1a#'B;theD @@&#?Ë~.A"* @1 ' C was d, cre*!)z _: `!!C3 "setq0A checkB?"@?"control@""db_'P[Get'vProS ng8 , ,`a"UCase( ]Y=' S#exnUpOa6E$0cD#go`beginn text bodSp>A(blangu{de%ency1Q$`b2wc@324WW7_EditGoTo Desut:=) !/ insenchapters alra""C.m_*S) qmy@p}done upnnows a<3A:Pgwork PFr&pC,o misc. s{:3 layout?7Ty?q2`xMROf6C 0swclose Log 2sH$(2`C~C/wignaendgBeep=`tusBar "hZPIdy)`V6Ka% uncomp^u $(Aݟ C20`ReS!Ssbu1 OqWlcReѓ5OCQ|nP %  9  a   Y  q 9yi) IQ1 L;;;:f@%P"$ @PW0 4TP60 0T @P"$ @PW0P50:f@%P"$ @PW0 4P60 0 @P"$ @PW0 P50:f@%P"$ @PW0 4P60 0 @P"$ @PW0 P50:f@%P"$ @PW0 4P60 0 @P"$ @PW0 P50 CxB:@ %x@P"$ @P0 : `1xP60 @:@%x@P"$ @P0:]< P50\&x@P"$ @PP lxxR@yAnP> LL<<<]3$*\Rffff*de33a524c1*\R1*#c1*\R0*#c*\R1*#c1*\R1*#17b8$ `kxhhY\ Px@Bh P^dP``P\PhX8$` ` ` Z0@p$0$`$Zl X`T  @P @h@ ppp@P0 @ @ pp p`pXpP p0(0xx`8h@88HMEn *8 "@HX`hpx 6 4 *&($PNx "  "<08"<P0x"<0"<0  (6B0 $h@&   &26@ x% E%% 0%8H  P44p *   ,  $%8 H ,` ,$, &,  8P%X h "% * 0%8 H P%h&&&& x& array of errormessages in this modulee"Z8 ZZZZZZZ01 Main loop for the SAP Reporting Generation Tool./ written by Stefan Joksch, P. Vogel / MCS, 5/94& array of errormessages in this module001:Start of SAP report+ Z002:End of SAP report+ Z?003:Aborting SAP report due to severe error during save process+ Z Declaration of Local variable store current optionsZE !L%.  !PB@Z`E !L%,.  !PB@,ZxE !L%4.  !PB@4ZE !L%>.  !PB@> open errorlogfile \' library.getdateiname$  %(.log '  delete logfile if there is any  %n  B@zh@ Oeffnen Errorlog: $ Z Save the Reportsavereport.save \ %('B B$ report was saved, create the report Set Word options setoptions B@( check for debug modecontrol' ^debug' ` ^ ` \ %j'  $lY]2F@92:@%l @P"$ @P0 hPh(@]/0\%:@%P"$ @P PCdC`E:@%d@`@l @P"$ @P0`1\P50%\M@@0 0:]/ 50\%(@%P"$ @PP%(@%P"$ @PP4:@%(%P"$ @P0 `1XP50 lX*1X*X@P"$ @PP,:@%l @P"$ @P P%(@%P"$ @PP,:@ %l @P"$ @P P,:@!%l @P"$ @P P,:@"%l @P"$ @P P2F@9=%(@%P"$ @PPP"$ @P#P%:@$%P"$ @P%P&2F@92F@9=%(@%P"$ @P&P%:@'%P"$ @P P&T @P"$ @PP& @P"$ @P P& @P"$ @P P& @P"$ @P PxL&4 XdhT`x\P0 krU (`0prU~} *1]^^ ``ab  a 1bAIb1B Chapters"5__SRP_1c __SRP_1d(4 showlog5$"         6 8  P p       L B 0 8 @ H 0P < @  $ 6 H "N & *3 % & %-20)P p L @B  (08 <@ : &  L X   ( (0X"Ep &,D @ :0 Bp $4>% 0@H P PX x& array of errormessa      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIKLMNOPQRTVWXYZ[\]^_`abcdeghjklmnopqrstuvwyz|}~ges in this moduleZ8 ZZZZZZZ0ZHZ`ZxZZZ---------------og f3 written by Stefan Joksch, Peter Vogel May 20, 1994, Class "Chapters" of the SAP Reporting Tool.& Logfile must be open as filehandle #1 Preset of Parameters'  Count parameter for FileSave * after a fixed number of inserted objects. ; It has to be counted for the objects of all chapters, thus t nSave is a data attribut of CHAPTERS and only its address is ' given to OBJECTS for manipulation of nSave.& array of errormessages in this module2101:Invalid structure definition in the.INI - file+ Z)102:Number of structure entries undefined+ Z'103:Depth of Chapters must be positive:+ Z*104:Maximum Outline depth of Chapters Is 9+ Z:105:Depth of Chapters must be defined from an equal number+ Z5 structure description of the report in the inifile$: Structure' Number'    \ %j %'   Heading $ % '    \ %j'   Error Check$ Z  a Chapter available& check for headerpage for this chapter " insert pagebreak after headerpageobjectlibrary.Objectheaderpage  \ %('Ba# insert pagebrake before headerpageobjectlibrary.Objectheaderpage  \ %('Bh` $'  OK, continue$ Set the page layout of the Chapter:  \$'$ Insert the Headline of the Chapter: Headline \ %j'   $' Analyse nReturn: # OK, continue4 Insert Objects into the Chapter (nSave by address!) Objects.main  \   B@(x >yC< )P> L<<<]3$*\Rffff*dc339e8c2b*\R0*#c*\R0*#d*\R1*#c1*\R1*#17b` $$ `kxPPY\ @l og fPh$ ZPd @T @D P@Px<@B, @ @ PPP``<+ VY@\ `k sYI Ph@X @H `pkX %%YxY\XPxhPdP`Z0@8P8Px`0HpX@Z@  @ @ @ @8 (@ ,@ P,@ @ K8@(X@l V@L @< Zh8P(@l  @P l(@L pp(@< @, @   @l X s@ 8 H @( ( @$ @ @@  @ 8xXME *8 "@HX`hpx  8 0 *8 h,  0 B z0 *@8 6X8H :Ph,fx  &N"E   @` * 4<? ,(<?X    ( (*D8h   82A( H ` hx   L B ( 0 &8 F` , J 8( "`  h Chapterheadline checkh outline checkh a signal severe error$ Z$ Zh0l(H************************ End Of Main ***********************************Z8!---------------------------------A written bY Stefan Joksch, Peter Vogel MCS May 27, 1994( check the structure entry of a headlineF Do the following by a Function And give a number back, This number Is4 either the Chapter depth or an Error number(<= 0) ! Presetting of Function Value:' '  $ Z  ' Error Code: -1  b/ Error : Maximum Outline depth of Chapters Is 9$ Z'  Error Code: -2  b$ Z'  Error Code: -3a@ 'h(f H************************* End Of Function ******************************PZZZ,--------------------------------------------7 written by Stefan Joksch,Peter Vogel MCS, May 26, 1994; Inserts a Headline at the Cursor Position And prepares its outline in the document . returns 1 if everything was OK'' Preset of Function Control Value to OKTOP $ % '   B@ $H B@ Carriage Return %'  B@ %'   B@  B@ \endofdocp B@n' signal OKfpH************************** End Of Function *****************************9---------------------------------------------------------ZZZ7-------------------------------------------------------6 written by Stefan Joksch,Peter Vogel MCS May 27, 1994" init errormessages of this module Call init_errormessagesG Analyses the occurence and setting of the HL_Orientation switch in the .INI File. If it is set to a value L or P, deviating from the present REM setup, then a PageBreak is inserted into the Document and the orientation is toggled.. Preset of Function Value'# Retrieval of the Orientation valueHL_Orientation'    \ %j' ! Retrieve the pagebreak parameter  HL_Newpage \ %j' < Toggle the page if requested (accompanied by a page break).6 Using the Return code of the PageOrientation Function= (=1 if orientation was toggled) to decide wether a requested page break is performed or notLibrary.PageOrientation  %( $lY B@zh h f J***************************** End Of Function ****************************P gAttribute VB_Name = "Chapters" Option Explicit  Rem array of errormessages in this module DimBmsg__$(")zPub Sub MAIN(inifile$iRe /5nSavLstrSec$]Key@Numbern{j$%Fc3ren5Outlin7nRe0turn"Headlog]4 - written by Stefan Joksch, Pe Vogel M20, 1994Classthe SAP Reporting TPool.LE must be Dop:as Ohandle #1Preset)Par@}A{ Y0 ' C@ount p for Fjb' af2a`xed ncAi nsertobj@ms* It h)to,cA A: all ls,us K/a data aDACHA@PTERS A only its addAsG`' givN$O@BJECTS=manipula3^@1)101:In@valid uc@e def@e.INI .-q22:gÿ:enuRned33:DepthAc@wHposit! :*4$4:Maximum e- Is 955 fron equalDJ %X &scri@3Grde8: !0Str. !C*ʼnWordBasic.Val([GetPrivateProm s$]( , ' 8, _W>$)If f> 0 The!TFpj1~f!W "a" + LTrim@`(j`E?0,/` """E@ Check$ c`,#1,( i++ 'Else ' availabA!c! Ţ|herpD"+13@Ü`gebreak !͠,G+C ("#libr`ary.O",ᄅ4'+ƀ+ e@/ake`e  [ # 7, 0 nd IfnD=P3|fU2OK, conݰqu|_SoABrlayoup!"Bt 4L߂ .JIpke Wp2$CHH#AqG^qyF , L aAnaly8 ! Mc5LH2{ (=!a o{/ "T.main_.U.eߑqEb/*#80nN)9Next PG?1sig0 @severeRor?T$(1d$(2 hSubR* AOf ?l s Fun;½@r@3ng߲RY񫹴CS C7b&9DіaU a#D(followxqaWAp!  a back,pdI1tei0rCT$%rp cs3(<=W !Ł#RPvue9dX0C#SnD HLenOw#!Y$ 18r':)? $(4_ p-2a 2 Hr+ Mod 睱/$(Ar[@3EC3'Aing / 2  End If 8Function Rem* Of MZ R0 P@rivatehChapterHeadline(st $, nOut) Di,m $StXart e-( written by Stefan Jok@sch,PeL Vogel MCS, May 26, 1994f Inserts a a at the Cursor Posi Aprepares itsE>oq indocument .returns 1 if e@verythw`as OK݌ = 0 ' P!3et oControl Value toV"TOP" + WordBasic.[LTrim$](Str(ee wnt@etusBar lK M Chr(13)'Carriage R<6x$GetSelV( D@4d_CASRan$,1 Forma 1)p The UXCas)"Y"`#kQ5 a]Q=Z~*?_q5yb  cqccGi;Qc4DD)EiEE FQ; I (l;;;;;ChCdf:%h@d@l @"$ @ %"$ @  T)5T(]p\k(DThhN: :%D %"$ @ `1@6E:%h@@@l @"$ @ `1<5 l<02l@*F95[D(]/\)?:%<@l @(%"$ @ ,j?:%<@l @(%"$ @ ,< (]p\Yl <   D:%<@:%l @"$ @ `15    (]/\WA:%<@l @@l @"$ @  D~2F92F9\DDlT ,@<dh   (LlJiL\\(L]c<\Y2*F<95< DLl\(L]p<\2FL9 DLl\(L<\2FL9 DLl\(L:P%d@L"$ @ L<(,]<L5<\"%`MP@< <:,]/5<\ L"$ @ LL`,4"ldh`L<\rU (`0(`0,`!A0/,`00px>y]Z (6 L<]3$*\Rffff*dd339e8c2b*\R1*#c1*\R1*#17b `Pk@ #Y PxP\t----@Bd ----P` by P\Voge$Hx$`@xP @X @8H @h8 @( @ @    ME 6 (@"hpx,&8.a @ \ \,`xXx1 Displays the logfile after the build of a report$ P. Vogel Microsoft Consulting, 3/94Z`ZxZZZ$Display the Log file of this Report?'  # ' \  Display Log?$ %F'B B \'   .} %.log '  notepad.exe  ' \  B@h`lXPUoffice 97 cmd$ = "notepad.exe " + WordBasic.[DefaultDir$](14) + "\" + logfile$Voffice 97 logfile$ = WordBasic.Call("library.getdateiname$", logfile$) + ".log" Attribute VB_Name = "showlog" Option Explicit Rem Displays the Vfile after"build of a reporrjP. Vogel Microsoft Consulting, 3/94 Publ Sub MA(IN(Zn$) Dim msg$ ini .j)5"notepad.e0xe " E 'office |97  !Call("library.getdateiBJ@>  #;DefaDir<14\ ,)G ShelDl A, 1ZEnd If  rU~}  d d a Q qdAeTCx Ct8x@:H%(8$%X"$ @X(dXdDH]/(\ltC`a:8%`@l`iH%X"$ @X(:`1`X6(  l`*1\,\@(H__SRP_1eJ__SRP_1f03SnObjectsL__SRP_20U%X"$ @X Xt8 xd\`tX(krU (`a0prU~} !  a Zb1bAaeef f!gy_recomme6Hd).It@ haugte1 for L TQfollowCcontrol0 par1s are analdys@(#B5):sq#_B@}M nJj, wM cb .RTFY0C(table, text),T.WM @ (graps) 8a .TXTB REM(resp݀z ly@B/Headpline Dgh(B Orienta pagc NewBfxlagQO@/b egM$a ne w.gif sete) Id%MACR faaA ni4Zaj#2. This" should 2runn iKdiately$Sloaf`,&@Ed marbkts !JsGRF_AlignT%$JAy;>">`}sdocu2 FV tFA-MZs werHdG ge /uCP Det Curs!KndD Pa W`Basic.Wait1 `u ' relevant'ar3#@HveDoB p` CK#pn%= gVal([GetPriv:ProasStr4$]T"N"")  If > 0 J' Twe &h?s,=in|ueCQF `*n %1 ToF !@ab!&ej A 49c iap proprY w) indDH !G%@%ntS|usBar "{_%/ $JC#:@ ,(B( A AB>3n@w@Call("library.sDzS8GoIc.uoN 3 T4EY#q H`fDa@"rd&otqp?cA }rd _< R= <+ Ca & "w!#;I 7>d"83 q#WEq1E0EI#Q_ custom[ iQoрspNcᆄC&&=.mQQn_^ zN@ // pWn3 ghecU uOD]_\^ aSubC**  J "`%6  <*e 0@ p  B (BD X:@h >@ :@ :X6@       (  $0 .X <@    %  L x xZZZZ----------------------------------------------1' written by Stefan Joksch May 20, 1994 MacroName: Objects ------------------------C Insertion of the objects into the chapter of the report under work0 according to the orders given in the .INI file;B nSave : A number which triggers File Save after a fixed number ofD inserted objects (save after each 20th, i. e. nFixSave=20 object is recommended)./ It is augmented by 1 for each inserted object.? The following control parameters are analysed (# is a number):B Obj#_File file name of the object, which can be a .RTF filer (table, text), a .WMF file (graphics) or a .TXT file REM (text), respectively.% Obj#_Headline The objects headline& Obj#_Orientation The page orientationC Obj#_Newpage The flag ordering the begin of a new page, if set. Obj#_Macroname Identifiing the MACR acommpagnied to a Obj#File. This REM Macro should be running immediately after loading the REM object and marking its contents. Obj#_GRF_Alignment: Alignment of a .WMF graph in the documentE Obj#_GRF_Frame A Flag which controls wether a graphic gets a frame. Preset Cursor and Parameters B@'( relevant number of objects for FileSave7 Retrieve the number of Objects in the present Chapter: Number \ %j %'   if we have objects, continue Insert Objects:  = Get the Objectparameter of the j Object And insert it in the$ appropriate way into the Document !Inserting the Chapter:  , Object#: $ B@ New pageobjectlibrary.ObjectNewpage   \ %(' page orientationobjectlibrary.ObjectOrientation   \ %(' object headlineobjectlibrary.ObjectHeadline   \ %('5 inserting an object and do not forget to count nSaveobjectlibrary.ObjectFile   \ %('  ' Print "New nSave = "; nSave   B@'h run custom macro on new object.) The new object is selected in the reportobjectlibrary.Objectmacroname   \ %(' h nobjects check Reset Cursor B@lH ******************** End Of Sub ***************************************MAttribute VB_Name = "Objects" Option Explicit Pub4 Sub MAIN(strchapter$, inifilelognSave) Dim nFix Cound'Return Rem-)1' written by Stefan Joksch May 20, 1994k4 Macroy: M @6 Inserof the o,to report under work#accordin g ers Hgivein%.INI ; : A num2b'hisggF  af axedtofi0.(&s@m ea@20thx. e.q=20; isprU~} #" "  a  Y  I y  T =.:h%@x"$ @xx.:h%@x"$ @xx$ x :fT%d"$ @dWD42&((*P*(>6DP> @B  (08 <@ 4 2 2 $( *P & (%  4 X` O@*:% H-H)` x .   @ B  `hpx < 2 2 20 $h * &  ( % ( @ 4`    O  @ J3 *:P % B -   . H  ,#GetWindowsDirectoryAe Ax $IyY$K{< <$<<< <<<<<(<,<0<4<8<<<]3@ !#p@ i`i$Z@$~`|`@8 '' Y@\ PX@H H`@ ((GY@\ xPX Dec@H dows`@ IIo \Yro aI chanYessaY\@\ ----PX----@H PD----P @----P8< samP8ctli*`@ ::ilenY,}CY\0 := Y^Pe$)Y.204:P0h in P2d205:P``nd: Pd\206:@L @< own @4, gra8 `@X..nguaI: g it$ $@8`T@ J----Yh---H `8@x [----IJ P `8@ l TheIR as aT `@8 ~ wroYV etytPXt P. @Zd sult\0 `@ I^ on iPhh@X @H d `@p MMYf@h\ PDpX@jH `l  0 $Pp$@  >`D@ ;Y `v8 p xp '$ 'h  `0 8HX `@  h -h@@ @ P @ f @d/ T  D @4 x ($  @ @  @ hhnn x; p@4Xt @d @T D Hl J l nh @d T 8xlZh(h @X X@H (D @4 (($ x    "$&@d( @ x @  x x @dl p8 P&084 @$  .2.2  f@ p8Xxl  ZDxD @4 @$ @ @  @ x @88l ( h 0p PX 8P@$ @ @ .2!H @ @ @ @ @ @@ @ @t @d @T w) @D |u@4 @$ @ @ @ @ `@ @ @ !#@ WE!8 Q! X Q!(H &@8 /!l 0C#@\ zWc!XL > :)? !(H H@8 r@pXH!xe @T @D @4 8oH$ ho!H! @ @ X ! @ @ @ !@ @ @ s@0!l }!!8 @( @   @ !X @ @ ! [" ! !l "!8 !p4 @$ @ !( @ n 0! !p!0 ( ME H ^ x 6 *: @"0 <8 Jx:h   @ B         < 6X B 2 2 $H *p & (%   4@x O@2 %-  88 &p *6Y &"E( P ` x     *2Y8 &p"E,%  D-  0 .8h   ^B  (08@HP >X B  4 D0 ,x > 8- ,&@ p *E *%2(%H<X ,fW 0P4 X      &  l 0 " : 8B P (X & @t    &0 H X 4`  @t   0 &@ X h 4p  Bt 8 H &X p  4    ( 8 @ ^=BH P(:  2P :<`0p=: $; ; (; 0;:$t< @< < &< (< P< 4< > (= =< 0! `8B8 F9 H9 ,`9 9&T99 9$T9 : `8!B ! D! $! *" @"&P"`"$h"* x""2 """ h"B  `# Hh# R# $ *($ 2X$ p$x$2$ $$2$ $$$ h$"  @% 2H% ,% *% %% %& &&  &0&N18&&& j&B ''' X ' Tx' 8' *(8( @(`(p(3( >(( ())) ` ) L) ()B  )*** *$Z8* `*&*%*&*4>*&+%(+68+%p+%+&+ ++++ $,(,8, @@,B ,,,, <, :, & - H- Fh- B- :- 08. Fh. . D. $/< 8/2 x/ </:</8 00 %h0 <00 &0"<00 1 81 "H1 Dp1 1 D1  62P2 (p24 224 23 @3X3 h3)3 3 23 3 ,3 & 4 (H4 .p4 .4 24 45 0@5 p5 6 (6 &06 (X6 .6 .6 26 47 0P7 7 7 (84 @8x8 8 @>xZ Declare Function GetWindowsDirectory Lib "Kernel"(lpBuffer As String, nSize As Integer) \ As Integer2 The macro assumes an opened logfile on channel #1& array of errormessages in this module9---------------------------------------------------------7-------------------------------------------------------E same routine as in objectlibrary! update synchroniously is necessary#201:No filename defined for object + ZA202:Unknown file type : + Z203:Table file not found: + Z204:Objectheadline empty in + Z205:Custom macro not found: + Z206:Text file not found: + Z/207:Unknown Alignment option for graphic file: + Z(208:No support for the chosen language. + Z6209:Wrong itemno in the function getlanguagedependency + Z0210:notsupported language might cause problems. + Zl9---------------------------------------------------------ZXZpZ7-------------------------------------------------------/ Inserts a table file into the current document. The name of the table is given as a parameter. An errorlog is written if anything goes wrong return 0 if evretything was ok% P. Vogel, Microsoft Consulting, 6/94" init errormessages of this moduleA@~$ remember current position in report %' Try to insert table check if tablefile exists \} $ path is given in INI file ' a no path in INI file %\  ' hP  %n   B@ %'C select table text to allow custom macros to work on the fileobject   B@ B@' report no erroraX* note file does not exist error to logfile$ Z  ' report errorhf9---------------------------------------------------------ZZZ07-------------------------------------------------------. Inserts a text file into the current document- The name of the text is given as a parameter. An errorlog is written if anything goes wrong return 0 if evretything was ok% P. Vogel, Microsoft Consulting, 6/94" init errormessages of this moduleA@~$ remember current position in report %' Try to insert text check if tablefile exists \} $ path is given in INI file ' a no path in INI file %\  ' h  %n $H B@ /Carriage return prior the insertion of the text   B@ %'= select text to allow custom macros to work on the fileobject   B@' report no errora* note file does not exist error to logfile$ Z  ' report errorhhf`9---------------------------------------------------------HZZ Z8ZPZhZZ7-------------------------------------------------------2 Inserts a graphics file into the current document> the graph is formatted due to special options in the INI file. The name of the graph is given as a parameter. An errorlog is written if anything goes wrong return 0 if evretything was ok% P. Vogel, Microsoft Consulting, 6/94" init errormessages of this moduleA@~$ remember current position in report %' Try to insert graph check if graphfile exists \} $ path is given in INI file ' a no path in INI file %\  ' h0  %n 0 B@ B@ %'   B@4 check for additional formatting options in INI file! alignment of picture in document& Creation of the Key Word for the key:Obj $ % _GRF_ALIGNMENT ' " Retrieval of the Object Headline:   \ %j'  $lCHQ center B@LHQ left aligned B@P8$ Z  k frame around the picture& Creation of the Key Word for the key:Obj $ % _GRF_FRAME ' " Retrieval of the Object Headline:   \ %j'  $lN' frame the picture   1 pt"$&@0d( B@hH @ select picture to allow custom macros to work on the fileobject   B@' report no errora * note file does not exist error to logfile$ Z  ' report errorhH f@ Z -----------------------------------------------------------------------------insertitem()ZpZZZZZZ8Inserts an item from a inifile into the current document;the key of the item is equal to the bookmark where the itemshould be placed-An errorlog is written if anything goes wrong= returns 1 if everything was ok, 0 when error was encountered% P. Vogel, Microsoft Consulting, 3/949 the key expr is enclosed in <> parentheses in the report< . > ' 0 ,' 2Inserting Text 0 B@5 show activity 2 B@n!goto beginn of section. read value from inifile% match the parameters to a local vars .' ` ^ ` \ %j' d# Move to correct position in report %' 0.2 B@6 %'  ) cursor not moved, searchstring not found' note Positionmark does not exist error  Positionmark '$H 0 '$H  not found in report template. '* report errora'4 & flag that cursor is at right positionh` Try to insert item d note read error to logfile!Key '$H ` '$H of section '$H ^ '$H of file '$H \ '$H not defined. '* report errora@ 4 d B@'* report no errorhhfg ----------------------------------------------------------------------------- getlanguagedependency$(), this function allows the macros to run with engl. and german word version6 ATTENTON: Function not yet testet with engl. version!3 P. Vogel, Stefan Joksch Microsoft Consulting, 3/94" itemno: 1=section, 2=page, 3=line" init errormessages of this moduleA@~ :HQ  Section %$l %I A= German, S=Eng, FraGERMHQA' 8ENGLHFRANHQS' 8P0 note language is not supported error to logfile $ ZS' 8k0HQ  Page %$l %I S= German, P=Eng, FraGERMHQS' 8ENGLHFRANHQP' 8P0 note language is not supported error to logfile $ Zp' 8k HQ  line %$l %I Z= German, L= Eng, FraGERMHQZ' 8ENGLHFRANHQL' 8Pp0 note language is not supported error to logfile $ ZL' 8kP Wrong itemno $ ZERROR' 8kf + Stefan Henneberger iXOS Software GmbH 6/97ohne D Erweiterung. \}   \} %' p Entferne Dateiextension  .} %' >f [ -----------------------------------------------------------------------------isdirectory()@ Prfung, ob ein gegebenes Dirextory auch wirklich vorhanden ist ret=0 wenn Dir. NICHT vorhanden% P. Vogel, Microsoft Consulting, 2/93@EB h B@:B D!FL'@Return 0 if error 76 occursa'@#Return 1 if error 76 does not occurhhf`c -----------------------------------------------------------------------------GETmomentaneansicht()8C ermitteln der momentanen Ansicht in Word und rckgeben eines KodesM der Kode kann mit SetmomentaneAnsicht verwendet werden, um die ursprngliche Ansicht wiederherzustellen% P. Vogel, Microsoft Consulting, 2/93 %'Hh %L'Hh %N'Hhfc -----------------------------------------------------------------------------SETmomentaneansicht()- wiederherstellen der ursprnglichen Ansicht.( Pendant Funktion zu GETmomentaneansicht% P. Vogel, Microsoft Consulting, 2/93 RHQ B@HQ B@LHQ B@NP ,Ein ungltiger Ansichtskode wurde bergeben. Makrofehler B@Fkle -----------------------------------------------------------------------------Leerzeichen_ersetzen$()ZXZpS function ersetzt alle Leerzeichen in eingabe$ mit geschtzten Leerzeichen ersetzenO dies wir u.a. in Zeugnissen und Vertrgen bentigt, wo einzelne Maskeneingaben4 im gedruckten Dokument nicht getrennt werden drfen% P. Vogel, Microsoft Consulting, 4/93 V' X Nur wenn es sich lohnt X Z X X Z$  X Z %$H X Z $ ' Xh` ZhH X' Tf8[ -----------------------------------------------------------------------------getsectsize()H function returns the size in chars of the current section given as parm# P. Vogel Microsoft Consulting 3/94ZZZ get the desc of the section$ 8 ^$ % ' h Select the whole section h B@n %' B@` switch on selectmode$ 8+ B@n6 goto next section B@b switch off selectmode %'  $ cursor not moved becaus of endofdoc \endofdoc B@n %'a last section: goto end of doc goto end of prev. section B@hX return size of section in chars   '\f9---------------------------------------------------------0ZZZ7-------------------------------------------------------6 written by Stefan Joksch,Peter Vogel MCS May 27, 1994" init errormessages of this module Call init_errormessagesA Changes the orientation of the page if the orientation requested> by the argument strOrient$ is different from the present one.5 For the argument are the following values permitted:+ p or P for Portrait; l and L for LandscapeA For other argument values the orientation is set to the default, which is Portrait.@ Preset of Function Value, and of requested orientation value to the default value Portrait (0)'d. Default return Code: No change of Orientation'h$Set requested Orientation to Portait8 retrieval of printerspec. paperformat from Winword6.iniMicrosoft WordSAP-REPORT-PAPERFORMAT %l' D D# no paperformat defined, do it now!definepaperformat B@(8 retrieval of printerspec. paperformat from Winword6.inih! Retrieval of Current OrientationZE !L%N.l l !PB@N l!n'j Retrieval of the switch value@ KeyObjnOrient$ = "Obj" + LTrim$(Str$(nObject)) + "_Orientation" strObjnOrient$ = \@ GetPrivateProfileString$(strChapter$, KeyObjnOrient$, inifile$)1 Analysis of strObjnOrient$ for Landscape request fl fL# Requested Orientation is Landscape'h&Set requested orientation to Landscapea 'h%Set requested orientation to portraith@ ; Change orientation according to the Request, if necessary: j h beginn a new sectionn B@p B@r- ' toggle portrait / Landscape formath ' If currentorientation = 1 Then" OrientPage.AnwAuf = 0$ OrientPage.HochQuer = 0) OrientPage.Registerkarte = 1) OrientPage.PapierGre = "0". OrientPage.SeitenBreite = "21 cm"/ OrientPage.SeitenLnge = "29,7 cm", DateiSeiteEinrichten orientpage DateiSeiteEinrichten .AnwAuf = 0, .HochQuer = 0, .Registerkarte = 1, .PapierGre = "0", .SeitenBreite = "21 cm", .SeitenLnge = "29,7 cm" Else( " OrientPage.AnwAuf = 0$ OrientPage.HochQuer = 1) OrientPage.Registerkarte = 1) OrientPage.PapierGre = "0". OrientPage.SeitenBreite = "21 cm"/ OrientPage.SeitenLnge = "29,7 cm", DateiSeiteEinrichten orientpage DateiSeiteEinrichten .AnwAuf = 0, .HochQuer = 1, .Registerkarte = 1, .PapierGre = "0", .SeitenBreite = "21 cm", .SeitenLnge = "29,7 cm" End If'd% Return Code: Orientation has changedhf(9[ -----------------------------------------------------------------------------getdateiname$ @Extrahieren des Dateinamens aus ganzem Pfad ohne Datei Extension Erweiterung.% P. Vogel, Microsoft Consulting, 2/93 \}   \} %' 8 Entferne Dateiextension  .} %' >f7JExtrahieren des Pfads und Dateinamens aus ganzem Pfad ohne Datei Extension7 ZZ::::0Z  $ '     $ \r:h:  ' aP:     $ _   $     $  '   'h9  'ah9 'hX9fP99 Vorlagen '   Templates ' GERMHQUSERPlibrary.getPathName$  %(' Z ENGLHFRANHQe$0 note language is not supported error to logfilek: %$l %  Templates ' 0210:notsupported language might cause problems. :<HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word\Options PROGRAMDIR %' 8>Z -----------------------------------------------------------------------------getpathname$0>Attribute VB_Name = "Library" Option Explicit APrivaDeclare FuncLGetWindowsDirectoryA "Kernel32" (ByVal lpBuffer As Sng,  nSizeInteger) _ % Rem !z y"(pj\/ 7The macro assumes an opened logfile !chant #1Tarray of erro"rsagin this module Dimmsg__$L()'-5  Sub init_@1O4/EsroutineE@ obj~l! updAsynchroniously =necessA9 ?10?*B1)201:No EYnAdefd for G 2D 2:Unknown typ(e : 3 3:TabqrnotQund 4 4:OB:headlA@" empt@6n5 5:CusXtomĐU6 6p:Tex A 7 7F8AlignpmentGgraphic?2 8D8!+supporr Se chosen langu V.9D9:W:g itPemno@tefgetdeedenc;0# x10:aj might cause pro4msEnd @[dY\dinsehrttAA(YA$RaTt2pos`{fQ$Cw$2bgj2b I CBVinto2uDrr`%@3n ' path,2@INIB;# I@NCE2l_' kcn X[Defa.$](1+< +bZ P4If׳p FGss ) <> "" 1 c+1 Q:=c,firBm@ verssp:=0,1}1Link0W4ojcsel`gs allow cWsawork?zJ@O c.Set"RHeB?,>gF ~atP6rW KeepWithNC:=C%XF`0 "C+Qo`: kPReCAd9 (4 g0a#1,1Tu@o+ 3sK -1W ) # XeSq9ϊNoXdbXp_XxtW5 Y_X_sLXXOXOXEX)?Xme?Xots ?X?X?XZ?X?X?XmPit#?X?X?Xu?X ?X g2?X-T;X)/Xc//XjM/X/X/X}8 A9R/XG/X/X2>/X=j[/X/X3+ Chr(1='Cǎi{priQOs>ݸ*g@-_]_]_]_]b;2 1AU]4y\\\h'\s@QftPa=0|',Y YϿYY$(PY?: YY|Y YO- Private Function insertgraph(objfile$, nect, strchapter*ini>) Dim textpos1fname$ 2 KeyObjnalignme|nt$b%frF!Rem I  Iss a uics eto the currM dxocuR  iormatted due special 4ops&%IN6I.!T. of'given aIpazAn errorlog;wri:f anything goes@ wrongreturn 0 `if ev@ w okP. Vogel, Microsoft Consult, 6/94 zt!messag@/Amodule _)rememb,erU@iD report E = WordBasic.GetSelStart0Pos(oTry[p check=VuexistsDIf~Str"`\") >Jfn ' pathYdin p*Else9noG9[Defa@]Dir$](14) + %@nd Ifk1F s%) <> "" a_Pic`DHe Nl:=#, LinkTo :="0"`T]727kS"_GRF_ALIGNMENT(/!RetriA7noq` S pA$(3A Qֳ@ -1W $ A Ӗitem rtbeginn`0n9`m$@] markĺsec# kulgq' f-gP"in'?%}! aequ`sdbookq wherq 'should be place'x'Qs 1cerZ., `ļ enncb 3A,exprBnclosЌshes.u)"< y`">a V  g:0@tusBpar "31UAH AV' w aavityQ.WW7_EGoTo x'gow.d> %!!3РchSaЃmesQ=a loc varϰP *  ly131$ Mov%o coPtԮ*t_0ZdZd:=%, p] 2 = WordBasic.GetSelStartPos() If textpo s1(2 Then ' cursor not moved, searchstring.found Rem $e itionmark does)exist@ error/PDt #1, " 2" + Chrp(39) H$l _6 "Y in reportmplate."1insertitO= -1lFElse5okfla@g thatis right q End If ~Try toD7 8value$+""5readlogfilGKey ~key$" o:fcse  ini definedYZDAGIm COJs0sno eFunق? CA`-?G getlanguagedependency$)thf! a llows@e macroo run withÓengl. a@germa` vers@׃ATTENTON:& E7yest[ # $!CP. Vogel, Stef Joksch Mioft Consult`}, 3/94 Rv k S4a_no'`n o: 1=O, 2=p $` =lGLmesssYB&modu!bA_bvE `Z Case$ #E=xSC^G)M[Left$](U(AppInfo@16)), 4)@NA= G"2`'=Eng, FraG X"GE|RMa3&A,CENGL"`pFRAN_ MA SQ eRye VF T!{supAe2msg__$(10>7!uc3)2-PAg+7e7S7P7g!e77P7 7% OMBMa ph 93#>7[7ZL= 77 ZOxe "7 Le 77~%o n  WroP]G1?x$(9@?1q#ERRORlQzq/zpathname$lq{'ExtrahierdPfads @ Dpiqnus ganz A ohne en{'ErweP~g. 'wHenneberP~ iXOS Swware GmbH 6/97Dimars As Intesap_u_dot E"jpdSypm.p|ProS"("fHKEY_CURR_USER\\\Office\8.0\r(\OpasPROGRAMDIRJ"x FCh = Len(j ) To 1p# C Mid$ ,s, 1)$\qExit +Q&AN0wm?dhNN腛 L5 p,P !"Vor0enHMX%Te#sN Q<ot  e GF"210:%mca00 problems.   = #QI_JG dEoJnaJGNaL(b$(Jnamens aus ganzem Pfad ohne Date i Extion 'Erweiterung.8 P. Vogel, Microsoft Consulting, 2/93 While InStr(b$, "\") <> 0 b$ = WordBasic.[Right$]*Len) - >)WendaR@EntfereA getNc jLef4O.O- 11End Funct5-Iisdire@ctory(8Priv: IsfD_$xPrf, ob einrgebenes x'ch wirklivorhanden ist "ret=0 wennA . NICHT   #zOn Error GoTo -h1: Kele G{Ch+_$ : IfA.Number76 The E0 'Return 0 if  occurs XEls11 do@Snot @IfKJHGETmo@taneanhBt҇GetM AA dummyĉermittelnL d@Qn  `G1 urckHAJKode`'AE kaEa` Set vVe`LtJr@M, um die `0prng!Q0#! ewie herzuslA<NDIViewNormal()@C-1fF P%@1;. OutliDne_ cht@ 2X Pagtি!oM"L?&SLSub<Lschal`dL&87BM*>M@b;@antk zu 0^'Sel Case B 2(OFyiAN @y%)(Mid(api,@" "(3+ +[1) + Chr(160F`eMNext 5##P1"1Owm *@s@DsizZ )urthEA$`Prs of Apt  giv$as parm%m/% 3/94 I poinW3Dmark4tpos0OpMQ+7 }c  langukdep0[ency$( Trim bYqwho0=ɠWW7_Edit"T  @ }`StartPos1HdS' sXwit`IsbmU"+" ' goto n, .CancelPEffp!jS% l. 9ho&A&s=moved bec(ofdocS>7"\e"s/llas.:%&Qprev.1 Char!E 1PH3l17 Q997 A= v -p0C'?@?: ~Orienta(strennObjnI# A9pfQt;Co'R3-7wrn by Stefan Jokr,PeCgel MCS May 27, 1994 Rem init errormessages of this moduleCall%V_ V  c~beginn a w sH''aInsertBreak T@ype:=2Toggley-a' E! /hA"@Rl1$AQ %q/Q=.AnpwAuf[+lHochQuer R`}rkar4te1oPapierGry"08 1 Seiten`"21 cm/$.(L#129,V7?! D=iEinry&!_ b., .I0, .1  Q 18`? @{oh( J hRNQno`jv_31 .D.,1ISs_t= \ uםhasp AzTemplateAject..?_%vid@entifyI to usep geif we ha@6@a INI O,med... IfU <> ""~en AuParse structure (andCsAin@loop A WordBasic.Call "mˀ\A.",IshowB3logA'SA El>Q 'No9F avail, xclo0CD @feiSchli@een 2&Eɀ7IfA a '-:ptAf6s af op!dias@:BYenBG@xrAzselt;.d workdir. xsetA`k`Re:n:!rn$ @b@@Gc(anc dmri>v UnLnrredlg As ObY: S)A= CDRe*c@E.!O`(Fa8x ]0 CurValues ` .*.e`d `, -1 ^d ]W!P$$n KH [D-Dir$](14 ` hRight%, 1) \m,}& +BU" ndYxMsgBox "*" +G~+AL library.=d`?iC()". ʡ #InStBr, "\" )A0B1' UNC !;REMS serverLeft$H 2aMidiF7G!")) O "_ F, W 4N g% x\D @d @T 4hd6D4 (Tl0h @d"$ @dWD d5D:T %h =h @DT%d"$ @dWD 4 ld5Dl(T]/D\ T9:$%(T%d"$ @dD`d5DH:$%@(T%d"$ @dD:]/4d5D\$FThWD 4`6D4**FDhW4 `6D4x,lhdD4f__SRP_23x_VBA_PROJECT$)dirnePaperformat{5__SRP_0~5rU "$"` $"`px0 This macro controls the whole rep10* pHdTemplateProjectQH@  = | ]3 J< 9stdole>stdoleP j%`*\G{00020430-C 0046}#2.0#0#D:\NTSV40.US\System32\STDOLE2.TLB# Automa0tion1MSForms>SFGrmsh/z pH8A99A921-E7BB-11D@0-A8F6HE$81EDHC:\WINNTFdItalic! EditReplaceFindnReplacef Direction& MatchCase WholeWorde PatternMatch SoundsLike1 ReplaceAll)WrapWy DefinePaperformat%retpformatMsgBoxRChrK~dlg- DialogRecord FilePageSetup CurValuesȤ PaperSizeDialogfSetProfileStringZV TableOfContentserrmsg__inifile@sectionGkeytoc(valueK saprep_dirs sectioxy[(> <L]3$*\Rffff*df339e8c2b*\R1*#c1*\R1*#17bPX X` hk8v`k'oft @Bl Dec`Jh ariaҀ\@ idet$_Main control program for interactive mode. P. Vogel, Stefan Joksch, Microsoft Consulting, 3/94TemplateProject.autonew.MAINXt$\v@x @h x\D @d @T @D @04 @$ @ @ XMEC 4 8@ $x"  &  * .H h.  .    D JH D (""< @0H`=x   9H$*0 8 <X  8 " j P  DPXx0 This macro controls the whole reporting process3 Stefan Joksch/ P. Vogel, Microsoft Consulting 5/94 Declaration of shared variablesZ' \ identify the Inifile to useA@v" if we have a INI file, proceed... \% Parse structure and process mainloop mainloop.main \ B@( show the logfile showlog.main \ B@(aX'No INI File available, close the report DateiSchlieen 2hl>--------------------------------------------------------------F this function shows a file open dialog and enables the user to select@ a INI File. the default working dir. is set to the selected dir# Return: filname$ or "" if canceledXZZE !L%x.J'B J !PB@x*.ini J( J !T%x'B B' \aH %' \ \ %\ \ J! ' \a \\ J! ' \h MsgBox "*" + inifile$ + "*"8 inifile$ = library.getdateiname$(inifile$) + ".ini" MsgBox "*" + inifile$ + "*"3 If InStr(inifile$, "\\\\") <> 0 Then' UNC Name REM filter \\\\servernamef inifile$ = Left$(inifile$, 2) + Mid$(inifile$, InStr(7, inifile$, "\")) REM filter \sharenameL inifile$ = Left$(inifile$, 2) + Mid$(inifile$, InStr(4, inifile$, "\")) End Ifhl>--------------------------------------------------------------8zAttribute VB_Name = "autonew" Option Explicit Rem This macro controls the whole reporting pro@cess hStefan Joksch/ P. Vogel, MiHsoft @Consul:5/94nDeclaraof shared va@riable^Dim inifile$ Pub Sub MAIN() .DescripzMaine[gram for+teractive mode.p\r\n] je,\ 3eBPDataHInvoke_FuncnmarkgGetPrivateProfileString$xUCase5  WW7_EditGoTod DestinationлInsertTableOfContents,cOutline5From~ RightAlignPageNumbers>WW7_InsertPageBreak_; Objectlibraryinit_errormessages Objectfile strchapterEnobject: KeyObjnfileCbstrfile XLTrim$'qStrRight$y1ObjectHeadline36KeyObjnHeadlineJ strHeading%StartEndeCInsertrGetSelStartPos  GetSelEndPos& SetSelRange' FormatStyleLApply,Objectmacroname/ KeyObjnmacromacroc CommandValid ToolsMacrouRun_ ObjectNewpageuKeyObjnNewpageEstrObjnNewpageL ObjectOrientation KeyObjnOrientׂ strObjnOrientnReturndObjectheaderpagec pagebreakflagfilenamejWW7_EditAutoTextCContextXnCharLeft CharRightP Resetoptions0 L_LanguageversJ6Left$7AppInfo$3 ViewToolbars|Toolbar2Show Reportlayout`EchapternumbersHeadlinefootline pagenumbers chapnumberEPrintStatusBar= EditSelectAllVFormatHeadingNumbering5RemoveϱPresetFormatHeadingNumbere RestartNumHeaderM ViewHeaderܪCloseViewHeaderFooterufooter^ ViewFooteriULeftParaNI pagenumber> EndOfDocument InsertPara,InsertPageField9 RightParaC SetOptions4 DocMaximizeU ViewNormal5ToolsOptionsViewP FieldCodes Bookmarks?nTabsZSpacesParasHyphens Hidden]ShowAllIDrawings%AnchorsTextBoundariesToolsOptionsGeneral Pagination ErrorBeeps; UpdateLinksToolsOptionsSave} CreateBackup FastSaves(AutoSave SaveIntervalToolsOptionsPrint1 Background.Hide9zSetTemplateDirty savereportWXsavedocname׷docpathDdocfile dlg2sFileSummaryInfoYTitle~AuthorComments) FileSaveAsBeep Batchstart,G errorflagѥdotname>hoperatingsystem[windowsversion<Dir_eGetSystemInfo$GetProfileString$zFiles$DisableAutoMacrosFileNew!Template FilePrintI FileClose_KillDocClose= Frontpage{Ttextpos1N"mark-textpos2O" WaitCursor)k WW6_EditClear0FrontpageActualizeZa^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#E:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#409#E:\Office97\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#D:\NTSV40.US\System32\STDOLE2.TLB#OLE Automation*\G{8A99A921-E7BB-11D0-A8F6-0000E81818ED}#2.0#0#C:\WINNT\System32\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{CE42CBF3-8B00-11D0-A251-0020AF6D688F}#2.0#0#D:\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#E:\Office97\Office\MSO97.DLL#Microsoft Office 8.0 Object Library]3  yThisDocument d3339e8c2a*D{$tablecolordecoding d4339e8c2b*DuV"DefinePaperformat d5339e8c2b*D@w0rTableOfContents d6339e8c2b*DXqHObjectlibrary d7339e8c2b*D|s`:Resetoptions d8339e8c2b*DMxF Reportlayout d9339e8c2b*DOK!SetOptions da339e8c2b*DIsavereport d2339e8c29*DFKBatchstart 533a8eb23*D^EFrontpage db339e8c2b*D~GMainloop de33a524c1*DAChapters dc339e8c2b*DC )showlog dd339e8c2b*D]8 Objects de339e8c2b*D_P_Library 1233a80579*DYhK{autonew df339e8c2b*Dt[ xh8PH`0ͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mhͱ mh`fmH\ bSFalseReDimRemStopThen Wordk VBAWin16~Win32MacSap_rep7! stdole`MSFormsC ThisDocument< _Evaluate Officeu TemplateProjectEModule1b tablecolordecodingghMAIN, WordBasic EditFindFontZColor2FEditReplaceFontxPointsBol UpdateFieldsR MainloopflogfileGdebug_opt_view> opt_generalNopt_save opt_printGScreenUpdating!  FileSaveAll ChaptersnSave!h strSection KeyNumberrnChapterja KeyChapternOutlineq  strHeadline9|ValChapterOutline ChapterLayoutChapterHeadline'nStringr strOutline KeyChOrient strChOrient strNewpage~: showlogmsgQcmd~ DefaultDir$lShellV ObjectsLnFixSaveyonObjectsk7nCountFileSave  LibraryʣGetWindowsDirectoryA2lpBuffer>nSize}Kernel32_ inserttableQobjfilec1fnameR InsertFileXConfirmConversionsLinkhFormatParagraphE KeepWithNext inserttext Y insertgraphKeyObjnalignmentobjalign, KeyObjnframeOobjframeu~ InsertPictureK LinkToFile  CenterParaFormatBordersAndShading6ApplyToPShadow TopBorder j LeftBorder] BottomBorder RightBorderl HorizBorder VertBorderpTopColorAT LeftColor? BottomColor< RightColor5P HorizColor VertColorCFromTextKvShadingA  ForegroundƯ FineShading+ insertitem (beginnkeyparmYposmark secbeginnNposokEditFindgetlanguagedependencycitemno8 errmsg___9 getDateiName IsDirectory errorhandle_ErroNumber-GetMomentaneAnsicht dummyD ViewOutline9ViewPageJSetMomentaneAnsichtZuschaltertLeerzeichen_ersetzenT=eingabeQCaXi` getsectsizeHysectionpointerExtendSelectionCancelPageOrientation strOrientr nObjnOrientLcurrentorientationj OrientPagem Orientationw InsertBreakѺTogglePortraitG autonew\3 getinifileE>FileOpen  _B_var_UCaseaDocumentj_B_var_errmsg___C _B_var_Chr\; _B_var_Str _B_var_Print_B_str_errmsg___/] _B_var_Midp _B_var_Libk getPfadNamei _B_var_ReDim _B_var_GoTo8< SchliessenqAnwendung_SchliessenETest4 DraftFont`Units BlueScreenݪ_B_var_ConfirmConversions _B_var_Hide_B_var_ToolbarSystemaGetPrivateProfileStringghPrivateProfileString[SetPrivateProfileString=WSToWS97DotFileseChars>CLine TempDotFile Application*VersionRight  getpathname _B_str_MidX sap_user_dot@ sap_usere_dot}_B_var_sap_usere_dotsap_usergetpa getPathnName/_B_str_getPathnName"s G-A_ u Y"#" '   *}&).23.TWD#Microsoft =" b Ob Library980?CE42CBF3-8B00?251?20AF6D688FTEMP\VBE\ Inserting Text EditFind  Positionmark   not found in report template. Key  of section  of file  not defined. ERROR ViewOutlineViewPage 8.0 sap_rep8.dot  ,Ein ungltiger Ansichtskode wurde bergeben. Makrofehler Ix ExtendSelection +Cancel definepaperformat Orientation l InsertBreakTypeTogglePortrait 44$!  d:\sap_rep\ +This version can only be used under Word 97 <HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word\Options! >HKEY_LOCAL_MACHINE\\Software\Microsoft\Office\8.0\Word\Options  getPfadName  H mhH mh ) r %  ) OHKEY_LOCAL_MACHINE\Software\Microsoft\Office\8.0\New User Settings\Word\Options DraftFontUnits BlueScreen   *  GERM5 F Zeichnen *C:\Program Files\Microsoft Office\Vorlagen c:\temp\ =HKEY_LOCAL_MACHINE\Software\Microsoft\Office\8.0\Word\Options SAP-USER-DOT-PATH library.getPathName$ getPathName Iw @ Vorlagen Templates PROGRAMDIR% FHKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\Local Templates% GHKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\Shared Templates$ EHKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\LocalTemplates% FHKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\SharedTemplates (Default) Default * 6HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common SharedTemplates!( MHKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\FileNew\LocalTemplates) NHKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\FileNew\SharedTemplates c:\sap_rep\$__SRP_1     ;% PROJECTwm&'()+,-./056789W@PROJECTEFGHIJKLMNOP=VXY`CompObjfghijklmnopuvwxyjrU~}            ! #+This macro decodes the color information of standard ABAP lists and reformats the selected text according to the color information to B&W text attributes. PV / MCS / 6.94 'TemplateProject.tablecolordecoding.MAIN  Resets the viewoptions to normal !TemplateProject.Resetoptions.MAIN (Set Options after the generation processTemplateProject.SetOptions.MAIN $Bootstrap loader for batchprocessing TemplateProject.Batchstart.MAIN_Main control program for interactive mode. P. Vogel, Stefan Joksch, Microsoft Consulting, 3/94TemplateProject.autonew.MAINinifilelpBuffernSizeobjfilenobject strchapterbeginnsectionkeyparmitemnobDir_dummyschaltereingabesectionpointer strOrient " pagebreakflag strHeadingnOutlinefilenamelogfilenSave ThisDocumentThisDocumenttablecolordecodingtablecolordecodingDefinePaperformatDefinePaperformatTableOfContentsTableOfContentsObjectlibraryObjectlibraryResetoptionsResetoptionsReportlayoutReportlayoutSetOptionsSetOptionssavereportsavereportBatchstartBatchstartFrontpageFrontpageMainloopMainloopChaptersChaptersshowlogshowlogObjectsObjectsLibraryLibraryautonewautonewID="{E4B1CE02-CAA9-11D0-A28A-0020AF6D688F}" Document=ThisDocument/&H00000000 Module=tablecolordecoding Module=DefinePaperformat Module=TableOfContents Module=Objectlibrary Module=Resetoptions Module=Reportlayout Module=SetOptions Module=savereport Module=Batchstart Module=Frontpage Module=Mainloop Module=Chapters Module=showlog Module=Objects Module=Library Module=autonew Name="TemplateProject" HelpContextID="0" CMG="5250A3E242E642E642E642E6" DPB="F5F7044B04EF05EF05EF" GC="A2A0533C013D013DFE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C tablecolordecoding=0, 0, 0, 0, C DefinePaperformat=22, 22, 678, 239, TableOfContents=22, 22, 848, 465, Objectlibrary=66, 66, 722, 283, Resetoptions=88, 88, 744, 305, Reportlayout=66, 66, 722, 283, SetOptions=110, 110, 939, 562, savereport=110, 110, 715, 427, Batchstart=132, 132, 737, 449, Z Frontpage=44, 44, 700, 261, Mainloop=44, 44, 700, 261, Chapters=88, 88, 744, 305, showlog=0, 0, 656, 217, Objects=0, 0, 656, 217, Library=-13, -5, 749, 438, autonew=22, 22, 678, 239, Ibjbj]$  $g4PPPPPPPPPRRRRRR RPPPPPRPPPPPPPPPPPPPPPPPPD |PP . A!"#$n%Arial=&Arial Fett?1 Courier New"0  FMicrosoft Word-Dokument MSWordDocWord.Document.89q