аЯрЁБс                >  ўџ	               $          &      ўџџџ    #   {   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьЅС q 	  П                bjbjt+t+                  	   A A                                џџ         џџ         џџ                 ]     о       о   о       о       о       о       о                                                        Ж   2      2      2      2      2      2      2      2      Ъ    т      т      т      т      т      т  $   б  є  Х  D                        о       2                      2      2      2      2            2      о       о       2              2      2      2      2      2      2      о       2      о       2      Ъ                      ђ            о       о       о       о       2      Ъ      2    2              Ъ      о       о                                                               Ъ      2      &      vОAЪП            2      Ъ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                §                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 mH     §                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  А. АЦA!А"А# $ %А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
  [         0  @ёџ 0   N o r m a l       _HmH	sH	tH	    @    @  	 H e a d i n g   3     $Є№ Є< @& CJ OJ QJ             < A@ђџЁ <   D e f a u l t   P a r a g r a p h   F o n t                          џџџџ    џџ                                          џџ    I X O S   A S  C : \ s a p g u i \ S A P G U I \ W S 8 S T D E . D O T  I X O S   A S  C : \ s a p g u i \ S A P G U I \ W S 8 S T D E . D O T  I X O S   A S  C : \ s a p g u i \ S A P G U I \ W S 8 S T D E . D O T  I X O S   A S ( C : \ t e m p \ A u t o R e c o v e r y   s a v e   o f   W S 8 S T D E . a s d  g e r d b  C : \ S A P G U I \ S A P G U I \ W s 8 s t d e . d o t  I X O S   A S ( C : \ t e m p \ A u t o R e c o v e r y   s a v e   o f   w s 8 s t d e . a s d  I X O S   A S ( C : \ t e m p \ A u t o R e c o v e r y   s a v e   o f   w s 8 s t d e . a s d  I X O S   A S / \ \ d r a c h e n \ c $ \ P r o g r a m m e \ S A P p c \ S A P G U I \ W s 8 s t d e . d o t  i X O S   A S   G m b H   L e i p z i g % C : \ P r o g r a m m e \ S A P p c \ S A P G U I \ w s 8 s t d e . d o t  I X O S A S ) C : \ P r o g r a m   F i l e s \ S A P p c \ S A P G U I \ w s 8 s t d e . d o t џ   V  
 џџ           V   џџ           V   џџ           V   џџ           V  	 џџ           V   џџ           V   џџ           V   џџ           V 	  џџ           V 
  џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V    џџ           V   џџ           V   џџ           V   џџ                 q     ( & B a c k   t o   R / 3  R 3   A b o r t       R 3 A b o r t . M A I N  )    ( D & e l e t e  	R 3   D e l e t e       R 3 D e l e t e . M A I N  C "  (   & S a v e   a n d   b a c k   t o   R / 3         C t r l + S                                "                              (      Ё                            Ё  љ  Ј   \ Ё  љ     V      Z   S й              	           ­               Ш    $           у    L          ў    џџ   P r o j e c t . R 3 M e n u . S e t D i s p l a y M o d e O n   P r o j e c t . R 3 M e n u . D i s a b l e F i l e S a v e   P r o j e c t . R 3 M e n u . D i s a b l e D e l e t e    P r o j e c t . R 3 M e n u . S e t D i s p l a y M o d e O f f   P r o j e c t . A u t o C l o s e . M a i n   P r o j e c t . F i l e S a v e H t m l . M a i n   P r o j e c t . F i l e S a v e V e r s i o n . M a i n   P r o j e c t . F i l e S a v e F r a m e A s . M a i n   P r o j e c t . F i l e S a v e A s W e b P a g e . M a i n   P r o j e c t . F i l e S a v e A s . M a i n   P r o j e c t . R 3 A b o r t . M a i n               P r o j e c t . F i l e S a v e . M a i n       P r o j e c t . R 3 D e l e t e . M a i n      % P r o j e c t . R 3 O p e n D o c u m e n t . R 3 O p e n D o c u m e n t           P r o j e c t . R 3 W i n S r v . S a v e D o c    P r o j e c t . R 3 W i n S r v . S e t N o S a v e V a l u e s   P r o j e c t . R 3 W i n S r v . S e t S a v e V a l u e s   P r o j e c t . R 3 W i n S r v . T e r m i n a t e   P r o j e c t . R 3 D o c V a r . R e m o v e A l l     P R O J E C T . R 3 A B O R T . M A I N     P R O J E C T . F I L E S A V E . M A I N     P R O J E C T . R 3 D E L E T E . M A I N     P R O J E C T . A U T O C L O S E . M A I N     P R O J E C T . F I L E S A V E A S . M A I N     P R O J E C T . R 3 W I N S R V . S A V E D O C     P R O J E C T . F I L E S A V E H T M L . M A I N     P R O J E C T . R 3 D O C V A R . R E M O V E A L L   	  P R O J E C T . R 3 W I N S R V . T E R M I N A T E   
  P R O J E C T . F I L E S A V E F R A M E A S . M A I N     P R O J E C T . F I L E S A V E V E R S I O N . M A I N     P R O J E C T . R 3 M E N U . D I S A B L E D E L E T E     P R O J E C T . F I L E S A V E A S W E B P A G E . M A I N     P R O J E C T . R 3 M E N U . D I S A B L E F I L E S A V E     P R O J E C T . R 3 W I N S R V . S E T S A V E V A L U E S     P R O J E C T . R 3 M E N U . S E T D I S P L A Y M O D E O N      P R O J E C T . R 3 M E N U . S E T D I S P L A Y M O D E O F F      P R O J E C T . R 3 W I N S R V . S E T N O S A V E V A L U E S    % P R O J E C T . R 3 O P E N D O C U M E N T . R 3 O P E N D O C U M E N T   @          dЉђ                            P   @     G                       T i m e s   N e w   R o m a n   5                       S y m b o l   3&                       A r i a l   "  1 №а  h    K*ІєEF    m щ                                      $ №                                                                                                                                                                                                                                                                                                                         ЅРД Д  0    d                  ѕ~z?                                                       џџ                I X O S   A S  I X O S A S                                                                                                                                                                                                                                                                            ўџ                       рђљOhЋ +'Гй0   T                          Ј      И      Ф      и   	   ш      є   
             (     4     <     D     L     ф          s         s       IXOS AS        XOS      ws8stde.dot       IXOSAS .      109       Microsoft Word 8.0  @    ЖК    @    КуUѕэН@    pAЪП                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ўџ                       еЭе. +,љЎD   еЭе. +,љЎL          h      p                                     Ј      А      И      Р      в      ф        iXOS AS                       1                                                     Title             Titel                          6      >         
   _PID_GUID    ф  A   N   { 1 6 7 D 7 5 C 6 - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 }                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ўџџџ	   
                           ўџџџ                     ўџџџ                !   "   ўџџџ§џџџ%   )   G   (   *   ?   +   ,   2   .   /   0   1   ўџџџ3   =   5   6   7   8   9   :   ;   <   -   >   @   B   A   C   Z   D   E   F   H   c   R   J   K   L   M   N   O   P   Q   ўџџџS   T   U   V   W   X   Y   [   l   \   ]   ^   _   `   a   b   d   v   e   f   g   h   i   j   k   m   u   n   o   p   q   r   s   t         Њ   x   y   z      §џџџ}   ~         R o o t   E n t r y                                              џџџџџџџџ   	     Р      F    рњѓЉ:О ЋЪAЪП'          1 T a b l e                                                      џџџџџџџџџџџџ                                       	      W o r d D o c u m e n t                                             џџџџџџџџ                                                S u m m a r y I n f o r m a t i o n                           (       џџџџ                                               D o c u m e n t S u m m a r y I n f o r m a t i o n           8 џџџџџџџџџџџџ                                              M a c r o s                                                          *   )                       @AЪП vОAЪП            V B A                                                             џџџџџџџџ                       @AЪП&ЌAЪП            T h i s D o c u m e n t                                           
   !   џџџџ                                        с                              	   
                  ўџџџ                                                 !   "   #   $   ўџџџ&   '   (   )   *   +   ,   -   .   /   0   1   2   3   4   5   6   7   8   9   :   ;   <   =   >   ?   @   A   ўџџџC   D   E   ўџџџG   H   ўџџџJ   K   L   M   N   O   P   Q   R   ўџџџT   U   V   ўџџџX   Y   Z   [   \   ]   ^   _   `   a   b   c   d   e   f   g   h   i   j   k   l   m   n   o   p   q   r   s   t   u   v   w   x   y   z   {   |   }   ~           Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Џ  ѕ  џџџџ       љ9ћ9  џџ#                                      џџ  Ы  ж   ж   7    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(    SLџџџџ   Sџџџџ   Sџџџџ    <џџџџ  џџ     N 0 { 0 0 0 2 0 9 0 6 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 }       п    џџџџ8   ўџџџџџџџџџ(     џџ        џџџџџџџџ       $   џџџџH     џџ         џџџџџџџџџџџџ    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                               ўЪ   	     џџџџ 	     џџџџџџџџ   џџџџx   ІА Attribut e VB_Nam e = "Thi sDocument"

Bas0{00020P906- 0C $0046}|CreatablFalse^ Predecla Id Tru"@ExposeT emplateD0eriv$eCuРstomiz2 

                               F i l e S a v e                                                        џџџџ                                             R 3 M e n u                                                      %   &   џџџџ                                    4   _      R 3 W o r d E r r o r                                                  џџџџ                                    %   	      _ _ S R P _ c                                                          џџџџ                                    B   Ц        Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   W  }  џџџџ       љ9§9  џџ                                       џџ  s  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџX   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ             џџџџ8       џџџџџџџџ8                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ H   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ"               	    џџџџ 	 ,       	    H    
   P    	    џџџџ     `        h    ,   p                Ј   џџџџИ   Хџџx         С h   и  %  Close the window. AutoClose is used. p>Лwи        B@B                  $! &Щ fЎ  FileSave.Main Щ    B@" !  X   l џџP   џџџџH   ѕА Attribut e VB_Nam e = "Fil eSave"
 Option E xplicit@

Pub ,  Sub Main()
  O F rror GoTo ELine4' Clos e the wi ndow. Auto*is used.)ActpiveW(#b
\xit[f:R3Word.Log Text:= .DescriЮ, Module:=ъ6.ewE.(Endr
                                         Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     Ь  џџџџ      љ9  џџ                                          Z ъ   С   ї   :і   ! B џџџџџџї   >і   :! D џџџџџџи    Disable the icon.и        >! F  4  Џ   >( H      h џџ  ї   >і Р       ї   :і Р        р  l џџи  и     Enable an entry in the menu.     и       8    Z ъИ  Z ъи  С   х   .$ B . :ї   >і   :! D ? 
  и    Enable menu entrys  = К и        >! F  0  Џ  >( Hield.Mh џџ  ї   >і Р Њ j Ё  ј  l џџ№  и   #  Enable an entry in the comand bar. о ю  и       ј    Z ъX  Z ъx  Z ъ  С   ї   :і   ! B       ї   >і   :! D       и    Enable the icon. и        >! F  4  Џ  >( H      h џџ  ї   >і Р       ї   :і Р        №   l џџш   и     Enable some entrys.      и       А    и    Save entrys.     Ў  FileЩ .Ў  &Save final version Щ 0A@J   Ў  FileЩ .Ў  &Sichern Endfassung Щ 0A@J   Ў  FileЩ .Ў  &Save and back to R/3 Щ 0A@J Ў  FileЩ .Ў  &Sichern und zurќck zu R/3Щ 0A@J     Ў  &Save Щ 4A@L     Ў 
 &SpeichernЩ 4A@L и  
  Save raw.Ў  FileЩ .Ў  Save &raw version Щ 0A@J     Ў  FileЩ .Ў  Sichern &Rohfassung Щ 0A@J   и    Delete.  Ў  FileЩ .Ў  Dele&te Щ 0A@J       Ў  FileЩ .Ў  D&elete Щ 0A@J       Ў  FileЩ .Ў  L&іschenЩ 0A@J       l џџЈ  џџџџ   fД Attribut e VB_Nam e = "R3M enu"
Op tion Exp licit
 
' Disab le so Дen trys (IMG). :
Pub X Sub Set XplayM odeOn()
  O  rro@r Resu Nex Y  ' S ave finaZl J hEf 	:="File\", &: pvers Е О,Bicher Nndf@assung	!C ommandBarEIconѓCАpe=иraw­& ЕТSA&RohЩA%РDelete-%A&teIFauL&іsРdnРEnd9K th@ЁСEЁSTўDOЁФЋAGЁa'УР back @to R/3­8&[u 8zurќ@мzuM?@щ ЌOЖ,dТ> т, (й,D, ,="D&"п*ы7GBone\ m@ Y'рrИivaр ­@(A  As S ЅnghbDim c^b-gуcCro olрAЦЂGoTo@ЎitLiМne!a @Љ=8sЂТF ЉEacBh@c InР .ЭsaЋDi"Ї%Ifa.Ca#О=ЇЋ Then   cbc.E
na	d@ХFalsЩb  aGIfКCЁ	a
Ex#:@xanФJin эzc­jr3+БО(чБ!-5џ2bі2§@аm(!@#Hйr6Ј22ThisDocљ@оntР3ХЩф0^88ћCяс$iРЮ $a2@!Aю8P#:PzС' ~ IД SџCZC" џэ(УAџ6Р:swџ6єya	џ6{џ6bЗПрџ6rџ6џ6lU5џр0џ61Fa џ6яугё6Truя6№я6џэ63юа6lЯ6$$џП6П6рAЇ?Фџ7П6ѓ;Ё1 џQљQП6љП6arП6яRбБ6џЏ6С/РPчVHПc?ЛЩS6Р!Tub6јИ6ИИffzџdІу@a+8ТO­}/З"/ЗqБyџ ЖpFІcЏПoѓe?nu_Ѓџe'гH/r0ЉџOЕ_u"BOРбEРяџя`А?РQџџє?/РтQ№пп"ry§п"ub 	Рй__SЯ
    а   
   р      №   
   ј   
      	    џџџџ               	     џџџџ 	 $   (   	    P  "    X      `   џџ  В  ж   ж   ъ    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      СЩ39в $ * \ R f f f f * 6 9 3 9 3 3 c d 0 4 п   џџџџH  "      `    џџџџџџџџ    џџџџ   @   џџџџџџ        H>Лwifџџџџџџџџџџ    `        iџџџџџџџџџџ    џџџџ      dџџџџ  `    џџџџџџџџ    џџџџ   Р   џџџџџџ   
       ifџџџџџџџџџџ    р         iџџџџџџџџџџ    џџџџ      џџџџџџџџ        џџџџ џџ8    џџџџџџ    џџџџџџџџџџџџ   $   џџџџИ                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ           џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                               ўЪ   	         	       "           (    .   0    *   `    "          И       а    	     џџџџ"   и       р    "   ш             (  џџџџ8  и     Errorha Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   a  Ї  џџџџ       љ9-  џџ                                       џџ  }  ж   ж   ѕ    џџџџ    п џџ     џџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџ<    <џџ@    < џџ    <џџџџ  џџ      СЩ39в   п    џџџџ8  *@   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ         џџџџ6   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ
 
           8Р   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ            ,  џџџџ    џџџџџџџџ    џџџџ       џџџџџџџџ        raw.i.џџџџџџџџџџ         rsioi0џџџџџџџџџџ    џџџџ  Ў   :џџџџџџџџX      Щ 0   $    >џџџџџџџџx      File  $   28  џџџџ    џџџџџџџџ    џџџџ    Р  џџџџџџџџ        џџџџi4џџџџџџџџџџ    џџџџ  ave  :џџџџџџџџј             $    >џџџџџџџџ      Ў    $   `0џџџџџџџџ џџ    , Jј  џџџџ    џџџџџџџџ    џџџџ    x  џџџџџџџџ        &Savi.џџџџџџџџџџ        rnЩ i0џџџџџџџџџџ    џџџџ  le t :џџџџџџџџа      ).џџ   $    >џџџџџџџџ№      File  $   LА  џџџџ    џџџџџџџџ    џџџџ    8  џџџџџџџџ        џџџџi4џџџџџџџџџџ    џџџџ  nu e :џџџџџџџџp             $    >џџџџџџџџ      .$   $   `0џџџџџџџџ џџ    џџџџNџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         >( џџџџ      8  А  џџџџ  Р   ј  џџџџ@   џџџџџџџџџџџџ       џџџџИ                  џџџџџџџџџџџџџџџџА  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ ј  ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	 "       	    0   "    8       @    	    H    .   `    .          Р       и    	    џџџџ 	    №    ,       .   0   	    џџџџ 	    `   "   p   "         Р   	     џџџџ 	 &   Ш   	    №  "    ј          0      4   8      p                	     џџџџ 	 &   Ј   	    а  "    и      р   "   ш   "         8   	     џџџџ 	    @   	    `  "    h      p      x   	    џџџџ       	    џџџџ             	    А   	    а      и   
   ш      ј   
       	    џџџџ              	     џџџџ 	 ,       	    P  "    X      `      h      p   	    џџџџ    x   	    џџџџ             	    А   	    Ш      а   
   р      №   
   ј   
      	    џџџџ               	     џџџџ 	 $   (   	    P  "    X      `      h   	    џџџџ    p   	    џџџџ    x         	        	    Р      Ш   
   и      ш   
   №   	    џџџџ               	     џџџџ 	 *      	    @  "    H      P      X      `   	    џџџџ    h   	    џџџџ    p         	        	    И      Р   
   а      р   
   ш   
   ј   	    џџџџ              	     џџџџ 	       	    8  "    @   	    H   .   `   .      	    џџџџ 0   Р   4   №   	    џџџџ    (      @   	    џџџџ 	    X   ,   h   .      	    џџџџ 	    Ш   "   и   "    	   "   (	      P	  џџџџ`	  Хџџx   и     Disable some entrys (IMG). indow.и             С  8   и    Save final.     Ў  FileЩ .Ў  &Save final version Щ 0A@,   Ў  FileЩ .Ў  &Sichern Endfassung Щ 0A@,   Ў  &Save Щ 4A@2     Ў 
 &SpeichernЩ 4A@2 и  
  Save raw.Ў  FileЩ .Ў  Save &raw version Щ 0A@, Щ tЎ  FileЩ .Ў  Sichern &Rohfassung Щ 0A@,  Fи    Delete.џџЎ  FileЩ .Ў  Dele&te Щ 0A@, nWџџџџЎ  FileЩ .Ў  L&іschenЩ 0A@, WWџџџџl џџ8   и     Disable the save entrys (STD). џџи       @     С  ј  Ў  FileЩ .Ў  &Save and back to R/3 Щ 0A@, Ў  FileЩ .Ў  &Sichern und zurќck zu R/3Щ 0A@, ш Ў  &Save Щ 4A@2   Ў 
 &SpeichernЩ 4A@2 l џџX  и      Disable the delete entry (STD).џџи            С    Ў  FileЩ .Ў  D&elete Щ 0A@, џџџџџџЎ  FileЩ .Ў  L&іschenЩ 0A@, џџџџџџl џџР   и     Diable one menu entry.  и       Р     Z ъ@  Z ъ`  С x   х   .$ B . :ї   >і   :! D   џџџџи    Diable menu entrys @@и        >! F  0  Џ   >( H=h џџ    ї   >і Р   џџџџ ш  l џџр  и   %  Disable an entry in the command bar. ng  и           Z ър  Z ъndler le sи             С  P     fЩ R  VЩ TЎ 	 Error in     Щ XA@P   Ў 	 Error in     Ў  :    f   Z( \џџ    Ў 	 Error in     Щ b  ^B@`        fЩ b  ^B@` џџ    l џџ(        С     Ў 	 Error in     Щ b  ^B@` џџџџ  fЩ b  ^B@` 0џџџџl џџа   џџџџШ   Б Attribut e VB_Nam e = "R3W ordError "
' $ha ndler <
 Public S@ub Log<( Text As S  ng, Module")
  On Re4su иN hMs gBox Pro mpt:=K,  Buttons: =vbCriti cal, Tit le:="t i`n " +kHApp ation .StatusBarг/ 8":7R3 gFil,e.  9e Li|ner;1E$nd

ЂTr8aceP;Ѓш_                                                       rU              ~}         	       	                  0      ќЦ                                          0      ќЦ                                                f                                                                rU                    	      џџџџџџџџ        ,          ` §џџџџџџџџџџџ    Y     q          00, Љ        ` §џџџџ_ _ S R P _ d                                                    џџџџџџџџџџџџ                                    F   Ў       R 3 D o c V a r                                                        џџџџ                                    I         _ _ S R P _ 6                                                          џџџџ                                    I   r      _ _ S R P _ 7                                                    џџџџџџџџџџџџ                                    S   я       џџџџџџџ    Y     q          00    p                        rU              ~}         	       	                 Й	      љ	            ё
      A            Й      й      0      ќЦ                                             а       Clџ ?єvџ`џdџhџ"   $ 4  hџ  dџ   l`џф) hџdџўc\џФ  >HџvџMLџ@dџhџ"   $ 4  hџ  dџ0  QHџpџ) hџdџ pџW8џ  FLџ]ћ/(џ58џ\И  pџW8џ `1lџ58џ Ф   
vџd\џI  llџCxџ        T а 0      Ф              xџ lџ pџ            hџ dџ Hџ 8џ (џ 0      ќЦ      X                                   0      ќЦ      А                                                \      P  hА   rU                    	      џџџџџџџџ        ,          ` §џџџџџџџџџџџ                     00( Љ        ` §џџџџџџџџџџџ              0$ б        `  §џџџџџџџџџџџ         $ љ        `  ќџџџџџџџџџџџ             p      џ џџџџ    џџџџ Ж џџ    џџџџ    џџ џџ                                   R 3 L o g F i l e                                                      џџџџ                                    W   К      _ _ S R P _ 8                                                          џџџџ                                       Ц       _ _ S R P _ 9                                                     џџџџџџџџџџџџ                                              R 3 D e l e t e                                                  џџџџџџџџџџџџ                                       h                                   џџџџџџџџ   џџџџx   о   О  Ь  џџџџ      љ9ы  џџ                                       џџ  к  ж   ж   	    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      СЩ39в $ * \ R f f f f * 6 6 3 9 3 3 c d 0 4 п   (   p  џџџџ  џџџџ№   p   џџџџ0         $   џџџџ    +p      `    џџџџџџџџ    џџџџ  
 џџџџ џџџџ         џџџџ`џџџџ  `    џџџџџџџџ    џџџџ  
 А   џџџџџџ       (   ibџџџџџџџџџџ    џџџџ  ў>`џџџџџџџџ џџ      џџџџ   т    џџ џџ       @    џџџџџџџџџџџџтџџџџ џџ џџ     @    џџџџџџџџ2.^џџџџ џџ      џџџџџџ    џџџџџџџџџџџџџџџџp              0   џџџџ№   џџџџџџџџp   џџџџ  џџџџџџџџџџџџџџџџ@            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ     ME  џџџџџџ    џџ    џџ                                                              ўЪ .                           	     џџџџ 	 :       	 $   X    	       B              	     џџџџ         "   И       р       ш       №       ј    	    џџџџ                                      (   R   0                	     џџџџ 	 "      	    Р  "   Ш      а      и   	     џџџџ    р   
             $          H      P   	     џџџџ     X       `   P   h       И      Р   	     џџџџџџџџа  Хџџx   Z ъ№   Z ъ  и   3  Get the logfile name. Ask for environment variable   `   и     TEMP. Set a doc variable too.    и       0     С h   Ў  AbsLogFileName  f% z ' Ў 	 DoLogging   f% z Ў  1   џџџџџџЏ'   a џџ   Џ '   h џџ      '  №    ш   Ў   ' Ў   ' Џ '           $! &Щ R  VЩ TЎ # Error in R3LogFile.R3GetLogFileName Щ XA@P џџџџџџ p   f џџh   и     write a line of the logfileџџ    и       p     Z ъа   С       Џ    Ў                  ўџџџ         ўџџџ      ўџџџ                                                          Ё   Ђ   Ѓ   Є   Ѕ   І   Ї   Ј   Љ   Њ   Ћ   Ќ   ­   Ў   Џ   А   Б   В   Г   Д   Е   Ж   З   И   Й   К   Л   М   Н   О   ўџџџР   С   Т   У   Ф   Х   Ц   Ч   Ш   Щ   Ъ   Ы   Ь   Э   Ю   Я   а   б   в   г   д   е   ж   з   и   й   к   л   м   н   о   п   р   с   т   у   ф   х   ц   ч   ш   щ   ъ   ўџџџь   э   ю   я   №   ё   ђ   ѓ   є   ѕ   і   ї   ј   љ   њ   ћ   ќ   §   ў   џ           џџџџ$ В   '           Ѓ Ф       Ъ Ў  [    Ў  ]    b Ю       S  h џџЈ                 $! &Щ R  VЩ TЎ ! Error in R3LogFile.R3WriteLogLine Щ XA@P  @  l џџ8  џџџџ0  В Attribut e VB_Nam e = "R3L ogFile" 
Option  Explicit 
Dim Do ging As  Booleanq2Absv <S Рng

'  Get the  logf М n р. Ck for  environ ment var iable5TE MP. S ;a doc too.  
Pub   Func­R3Г i()Ј   O вrr tGoTo ELin 7
c= R3DocVar. ,I("")I&f")Б1"А  Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   <  j  џџџџ      љ9Ё  џџ                                       џџ  X  ж   ж       џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP     6
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    Lџџџџ    Lџџџџ    <џџџџ  џџ      СЩ39в $ * \ R f f f f * 6 5 3 9 3 3 c d 0 4  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 e  * \ R 1 * # c 6  * \ R 1 * # c d  * \ R 1 * # c c п   џџџџP  hА      `    џџџџџџџџ    џџџџ  
 @   џџџџџџ        rogriџџџџџџџџџџ    `     *r ijџџџџџџџџџџ    џџџџ      `lџџџџџџџџ џџ    Erro`nџџџџџџџџ	 џџ    B@`+zX    `    џџџџџџџџ    `  (џk №    џџџџ          iџџџџ џџџџ    џџџџ  џџџџ`l№   vџџџ џџ    џџџџ`nџџџџpџџџ	 џџ    џџџџ`|   lџџџ џџ    џџџџ~А    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ 
 
 -     џџџџ`lџџџџџџџџ џџ    џџџџџџџџ  `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ 	 	 7     џџџџ`џџџџџџџџ џџ    ј  џџџџ№  џџџџ    А  џџџџА   X  џџџџ  fџџџџ џџX    џџџџџџ    џџџџџџџџџџџџ   $     џџџџџџџџџџџџџџџџ@  џџџџџџџџџџџџџџџџџџџџ(  џџџџџџџџџџџџџџџџџџџџџџџџ@    џџџџи  џџџџp  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџ   (    `zџџџџxџџџ џџ                    џџџџp                 @ўџX  hџџџ	 џџ        @ўџ№  dџџџ	 џџ        @ўџџџџџ`џџџ џџ        @ўџА  ^џџџ џџ        Ш           @ўџџџџџ\џџ џџ        8  А         @ўџџџџџLџџџ џџ        @ўџџџџџHџџџ	 џџ        @ўџ   8џџџ џџ       @ўџџџџџ(џџџ џџ    Ў  џџџџА  % ment.Rџџџџ№                  џџџџџџџџџџџџџџџџА  џџџџџџџџџџџџџџџџџџџџџџџџ0           џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ   ME  џџџџџџ    џџ    џџ                                                              ўЪ @           	     џџџџ 	 8       	 &   @    	    h   "   p       x           	    џџџџ           Ј       Р       а       р       ш    
   №    	     џџџџ                   (   	     џџџџ 	 6   0   	 $   h   	      B                Ј      А   	    џџџџ   И   	     џџџџ  ? Р    > р     ј                   
 
 (   	    џџџџ     8     @     H   	     џџџџ 	     P   	    p  "   x         	    џџџџ                 И      Р   	     џџџџ 	    Ш   	    и  "   р      ш   	    џџџџ    №            0      H      `   	     џџџџџџџџp  Хџџx   и   1  Set a document variable for the active document, и     the value is always an string.  и             Z ъ   Z ъ   ї   lі Є    p! r! t   0   х   l  p! r% v . n  n!       j  n( jМЕЯ    h џџ   ї   lі Р         Щ   jЩ j  p! rB@x    и   l џџа   и   0  Get a document variable of the active document,џџи     the return value is a string.а   и       А     Z ъ  Z ъ(  Z ъ@  Ў   ' |ї   lі Є    p! r! t   џџџџх   l  p! r% v . n  n!       n! j' |џџџџ р  h џџи  ї   lі Р G    Р    |' zf џџА  и     Remove all doc variables и       X    Z ъ    p! r! tЄ   
 ь le.RЄ    p! r% v B@  ы џџ@  l џџ8  и     Test 2 5 и       А    Z ъ№  Ў  TestЩ Ў  T1Щ jA@h џџџџЎ  TestЩ Ў  T2Щ jA@h E E Ў 
 AbsLogFile$ z ' Ў  NotExist$ z ' bl џџ   џџџџ   xВ Attribut e VB_Nam e = "R3D ocVar"
 Option E xplicit 

' Set  a docum ent vari able for  the acthive@,f.v alue is  alway n "s ~ng. !
Pub d Suba(As S1(, VC) 
  Dim i  IntegerBObjeЊc Н F Іi чР1 To AUe.zes.Codun  w%=Item(iH   If .ЊсThen@)Mg=kGoLExitLine
End *Nex(t iФ FAddd 9:=:в=6
-: РK@\vGvofкurрeturnРwuјFunZР FЬv>)jy9(uRe№sultЫСФЕчГПve 0ЭЌ%УB  O'Ст ѓ Гr  VРЖwCE^УxRemo чalllшяsMpуAll(vlСWhiУ Лh > 0CіЂ'1).DeleBtB^WendЬSTes r' rivіa` W GрO@WрЃ,Db"a"b"мT1@CТ|л2ТA=-("AbsLhogFр "B%Nфot 5stСсxРa1                                                                                                                                                                                                                                                                                                                                                                                The 6 Ј`= TruCELlsFaEрnd If<}6T
yxitыyF?:V"@A$K'2G= 'Ms gBox Pro mpt:=@.D escriB, _CР Butt ons:=vbCritical Title:="БТ, inРZФy.>}@&EФ8 6JХЃwAe a lР} of	І	Sub юW@AL(ФЧ~'Ц@СЭNrСInрteger8@(ЩO Ќ@vNott (а\)@^reeС(ФЂOpen ЬF НAp dС(F1Prio#І, "[" & Time$р x"] СрCG7Cрlose F	ЅRџ^MџCТqС` џC јC8ЏC =C      rU              ~}         	       	     	             0      ќЦ      0                                    0      ќЦ      p                                          f                                                                rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ        ( Љ        ` §џџџџџџџџџџџ    Б           0       p                                                Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о     }  џџџџ       љ9о7  џџ                                       џџ  +  ж   ж   #	    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџ  p   џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ           e L`џџџџџџџџ џџ    eDoc`џџџџџџџџ џџ    tNoџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ             `Јџџџџџџџџ џџ        `Xџџџџџџџџ џџ        `Њџџџџџџџџ џџ            џџџџџџџџp   џџџџ№                   џџџџџџџџџџџџџџџџp   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ ј   ME  џџџџџџ    џџ    џџ                                                              ўЪ 5           	     џџџџ 	 (       	    0   "    @       H       P    	    џџџџ    X       `    	     џџџџ 	    x    
          Ј       И       Р    	     џџџџ 	    Ш    
   р       №    
       	    џџџџ 	          0   6   @      x   	    џџџџ 	       
   А   	    џџџџ     Р       Ш   ,   а                 	     џџџџB                       (   	    џџџџ    0      H   *   h            Ј   2   А      ш      ј   	    џџџџ               	     џџџџџџџџ0  Хџџx   и   "  Send to R/3 the command to deleteи   
  the file.      Z ъ@   Z ъX   С     Ў  R3Delete   ^B@` и    Ask for validation.h   $   ' FileNa  Є    '  @   h џџ8   и    Set all as saved.Џ  p( џџ   Џ  p! (   Џ  ( №   и    Delete and terminate.    %    ' $Ў  DDEExecute    $ Ђ  Ў   delete     ^B@` e   Щ Ў  deleteЩ ІA@Є h   и    Terminate. e of t  B@B   џџ     8    0     $! &Щ fЎ  R3Delete.Main Щ    B@" џџџџ ј  l џџ№  p     Z ъА   Z ъШ   Z ър     Ў  Z% Ќ ' Ј        Ј  А    Ј  В        Ў ! Mіchten Sie das Dokument lіschen? ' Њ  PК<Ў  Warnung ' Xa џџP  Ў * Are you sure you want delete the document?' Њ   Ў  Warning ' Xh џџ     Њ  Д  Ж   X$ P '     f џџи   џџџџа   AГ Attribut e VB_Nam e = "R3D elete"
 Option E xplicit 

' Sen d to R/3  the comtma$dpH0f ile.
Pub z Sub M ain()
   Dim Cha nnel As Integer RetVa O rror G oTo E
LineR3LogFsR3Writцe  (в {*"' sk f Fva0lidarT  Х<=ForXIf7 Then$ DxitCEIf   t all as@ saved3A ctiveDocument.Sq НTrudвa chedTemplateNorИmalxe дрermin$a= РMinSrvp.GetDУ>VD@DEExecС" + Str(в)" "}Ч
Ф:=, C8:="С&С ' TЪ+CGWindoРw.ClosТL@7Fb:AР6or:dТ.  xt:=Р.DescriЛ, Modиule@"Т.ЎРУ>E@AyДyPriv S FunРuБРЫAskЛWР0LangРЭЛTitleСOingѓС+AMsн ЉpСхCЏAаrРtРыal(wdPr 1ctuageIDB` Б(wdG@+an) Or СSwissЅЇ]A`Mіchten Sie d@[DokBY lіsщ@Un?%    WarnungТElD6 Є	Are you suАwant$GBd$eяв
 &У
фn i0@k! Box(Р , vbYesNoРS vbExclamљB(, Ђр$a;9<                          Ж џџ    џџџџ    џџџџџџ                                   R 3 O p e n D o c u m e n t                                      $   џџџџџџџџ                                    П   д
      A u t o C l o s e                                                   џџџџџџџџ                                    ы   b      _ _ S R P _ 2                                                     	      џџџџ                                    )  №      _ _ S R P _ 3                                                     џџџџџџџџџџџџ                                    9  e                                    џџџџџџџџ   џџџџx   о     }  џџџџ       љ9Щ9  џџ                                       џџ  Ѓ  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџ   Иџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ) )            `Кџџџџџџџџ џџ        `Мџџџџџџџџ џџ        џџџџ   џџџџ    џџџџh                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ x   ME  џџџџџџ    џџ    џџ                                                              ўЪ -           	     џџџџ 	        	    (   "    0       8       @    	    џџџџ    H    	     џџџџ 	    P    	    p    
   x    .       &   И    0   р    	    џџџџ        	    џџџџ    0   	    H      `   	    џџџџ 
      
      	    џџџџ $          Ш      р      ш   $         0   	    џџџџ 	    8   
   P      `   
   p         	    џџџџ               <           р      ш   	     џџџџџџџџј  Хџџx   и     Open the document. 44DE52и             Z ъ@   Z ъX   С 0   и    Initialize Logging  Objecи        ^B@   x   Ў  R3OpenDocument.R3OpenDocument    ^B@`   Ў  Call R3WinSrv.Initiate   ^B@`   Ў  R/3 Windows ServerЩ РЎ  NoneЩ Т  B@О Ў  Ttxct-AppDisp   Ф% Ц ' К  К$ Ш Ў  X   DDEEи    View mode.  Ў  Ў 	 View mode    ^B@` Щ   (B@6  Щ ІA@  (B@8     TЎ  DocMode Щ Ў  L Щ j  fB@h 8     ЬЩ n  pB@Ъ fЎ  a џџ   Ў 
 Write mode   ^B@` џџј  Ў  DocMode Щ Ў    Щ j  fB@h   џџh џџШ  и    Set all as saved.Џ  p(   ш>ЛwЏ  p! ( џџЏ  ( џџџџЎ     Z( \џџџџ h   `    $! &Щ fЎ  R3OpenDocument.R3OpenDocument Щ    B@"        l џџ  џџџџ  ЭВ Attribut e VB_Nam e = "R3O penDocum ent"
Op tion Exp licit

'  the dP. *
Pub H Sub ()
  Dim splay  As S ~ngToPrintO |rror GoTo E
Line  '  Initial ize LoggJiQ'9R3 F ile.R3GetщWritцe, (e-CallWinSrv.Ote" Ap pl:="R/3"  dow er ver", ObBj None Ф S  [Di =1V`ariab p oI tem("Ttxxct- *9I f UCase()ѕX" ThenСARViewр mode s8
C  УR3Mpenu.Р%A^Sav@jCЩDel<etDХ Р3.StetC AjР?@M@%РCValue@LCActiveРЋ.Prote@ct Typ@	w dAllowOn lyComAГsAјElsF$D xpГТB8R3Є' 'РEnd IfС ' Р5 Aas Кs@EdBYL0Kdf8Tru)@ьac@hedTem бte.ЭNormaFlСicaє. StatusBa&r!A
#lxitlfm:!R3Whordb. ' @Text:=`.@Descri,r р5ul!5Ы-i|
E с% сz                                             Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   k  Ё  џџџџ       љ9Ы9  џџ                                       џџ    ж   ж   {    џџџџ    п џџ    8 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      6
џџџџ    
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    џџџџ    
џџџџ    Lџџџџ    
џџџџ    
џџџџ    џџџџ    Lџџџџ    
џџџџ    << џџ    <џџџџ  џџ      СЩ39в $ * \ R f f f f * 6 4 3 9 3 3 c d 0 4 $ * \ R f f f f * 6 5 3 9 3 3 c d 0 4  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 e  * \ R 1 * # c 6  * \ R 0 * # c $ * \ R f f f f * 6 6 3 9 3 3 c d 0 4  * \ R 1 * # c 7 $ * \ R f f f f * 6 7 3 9 3 3 c d 0 4 $ * \ R f f f f * 6 8 3 9 3 3 c d 0 4  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 6 9 3 9 3 3 c d 0 4 п   џџџџH  џџџџ   `    џџџџџџџџ       џk џџџџџџџџџџ  ( (          џџџџ8       џџџџЮџџџџ џџx     џџџџџџ    џџџџџџџџrA   $   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8  h    џџџџШ  ј  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџfpШа^Ф   @ўџP  xџџџ џџ        @ўџ(  tџџџ џџ    џџџџ@ўџџџџџpџџџ	 џџ    џџџџ@ўџ  `џџџ џџ                 	  
                                               !  "  #  $  %  &  '  (  ўџџџ*  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  ўџџџ:  ўџџџ<  =  >  ?  @  A  B  C  D  E  F  G  H  ўџџџJ  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z  [  \  ]  ^  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  ўџџџu  v  w  ўџџџy  z  ўџџџ|  }  ~         џџџџ@ўџА  Pџџџ џџ    џџџџ@ўџр  @џџџ џџ        @ўџџџџџ0џџџ џџ    џџџџ@ўџџџџџ џџџ џџ    џџџџ@ўџџџџџџџџ џџ    џџk    $   q     џџџџ  @ўџџџџџџџџ џџ        џџџџ                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџP             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ H   ME  џџџџџџ    џџ    џџ                                                              ўЪ ,           	     џџџџ 	 "       	    0   "   8      @    	     џџџџ 	 6   H    	 :         " Р    	 8   р    	        $ X 8    * x   
  `          p     x        	    џџџџ      	    џџџџ 	 "   Ј    1 а   
   р   	    џџџџ  * №   " "     *   (      X     x   *         А     а     и   *   р   
           	     џџџџ    (       0   , 4 8       h     p  џџџџ  Хџџx   и     Save and exit the document.      и             С 8   и  /  If the R/3 menu is used to print the file then   и  4  skip all. So I test any doc variable for this case. CallЎ 	 IsNewFile   f% z Ў     и  2  If you have opened the template, this is used forи    customizing the template.  p! $ Ш Є  $ а Ў  DOT   Ў    pB@в  ode  h џџ       h џџx   Ў  AutoClose.Main   ^B@` cMи    Set the templates as saved.ЬЩ nЏ  p! (  Џ  ( џџ     p! Џ   џџЎ 	 IsNewFile   f% z Ў  1         Ў  Ttxct-FunctionЩ vЎ  I Щ j  ФB@д       Ў   Щ иЎ  SEЩ к  B@ж     a џџ  Ў  Ttxct-FunctionЩ vЎ  U Щ j  ФB@д       Ў   Щ иЎ  SEЩ к  B@ж     h џџ(  a џџ   Ў  Ttxct-FunctionЩ vЎ    Щ j  ФB@д         B@м        h џџи    а    Ш     $! &Щ fЎ  AutoClose.MainЩ    B@"         l џџ     p! Џ     h џџp   џџџџh   уВ Attribut e VB_Nam e = "Aut oClose" 
Option  Explicit 

' Sa ve and e xit the  document. <
Pub Z  Sub Mai n()
  O rror GoTo ELineQ  ' If!HR/3  Hu  is used to prinfPfile&nP'  skip al l. So I Ptest y @variab .f	 rth Ncase  jR3DocVar.Get ("IsNewF	0")" The4Oyou ha|openL{t emplate,J 1 Z9Pc ustomizi|ng\ RDEi@ght(UC O(РActiveHІ!Ш), 3HDOzTI    ЭdС _False`/C*EtIfУЩClРzl  AR3LogN.R3WriteЉA
 (."РetEPs aшs sWdBFЬ)РЉ@achedTФ[.Х9Tru  NрormalС'KЫ@
 1KcR3Р.Dep@Я IР6 :="Ttxct-FunРvon", Value &IРз]  РMin Srv.ExecaAуFcod@Flags@SEоE@vС3/U4FC7Ч- цTeprmin hЅJ6
N:Сordb. M Te0xt:=`/scriТ, Modul)fQ
EФY@
с`
                              rU              ~}         	       	                 Љ      	      Й	      љ	      1
      
            ё
      A      i      Љ      	      Y      y      Ё      Љ     
 щ            Љ      y            Б      љ      Щ            i      Ш  x    K> " Cxџxџ   #tџ ћ02 xџtџв  Xxџpџ"   $ 4  pџ  >xџF`џPџ
  ѕ   Pџ@џ
  @џ:0џ	 ]ћ/ џpџ6 `џPџ@џ\Ы  *џpџ"   $ 4  pџи  kџє ЦpџЩ  pџ"   $ 4  pџМ pџ   r   Cxџxџ

  /xџ 1c0џ%`џpџ"   $ 4  pџX `џ§ў pџ5`џ  єџpџ"   $ P  pџ@  pџ *џpџ"   $ 4  pџи  kџє Цpџ " Cxџxџ   #tџ ћ02 xџtџЧ   Ctџtџ Cxџxџ
  2 xџtџ   Ctџtџ Cxџxџ
  2 xџtџ	    Ctџtџ Cxџxџ
  2 xџtџ   Ctџtџ Cxџxџ
  2 xџtџ 7    Ctџtџ Cxџxџ
  2 xџtџ 
     r 4xџ   pџpџ,   Cџџ>xџ§Чtџ
  2 tџџpџ          d x$      r               ,          xџ tџ џ pџ `џ Pџ @џ  џ     k                      rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ             p                                  Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   W  }  џџџџ       љ9ю  џџ                                       џџ  s  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџF i l e S a v e A s                                              џџџџ   џџџџ                                    ;  j      R 3 V a r i a b l e                                               џџџџџџџџџџџџ                                    I  Л
      _ _ S R P _ a                                                          џџџџ                                    t  Ц       _ _ S R P _ b                                                     џџџџџџџџџџџџ                                    x  Ѕ       џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџX   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         H>Лwџџџџ8       џџџџџџџџ8                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ       џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ H   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "         
              	     џџџџџџџџ(           B@        l џџ`   џџџџX   OА Attribut e VB_Nam e = "Fil eSaveAs" 
Public  Sub Main()
  .H
End@ 

                       Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Ц  Ь  џџџџ      љ9Ё  џџ                                       џџ  т  ж   ж   Њ    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      СЩ39в $ * \ R f f f f * 6 7 3 9 3 3 c d 0 4 п   џџџџx  +Ц      `    џџџџџџџџ    џџџџ  
 @    џџџџ        H>Лwivџџџџџџџџџџ    џџџџ     `џџџџџџџџ џџ    ВНd&`|џџџџџџџџ џџ    all.дџџџџ  `    џџџџџџџџ    џџџџ  
 а   џџџџџџ       e   ivџџџџџџџџџџ    №         ijџџџџџџџџџџ    џџџџ  Щ j`џџџџџџџџ џџ    и   џџџџа          џџџџџџџџФџџџџ џџh    џџџџџџ    џџџџџџџџџџџџ   $   џџџџш                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ@            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ 0  ME  џџџџџџ    џџ    џџ                                                              ўЪ +           	     џџџџ 	        	        B   (       0       8    	    џџџџ    @    	    џџџџ (   H       p           0        	     џџџџ 
   а       р    	    џџџџ     ш        №       ј    0           0      8   	     џџџџ 	    @   	    X  "   `      h   	    џџџџ    p   	    џџџџ 6   x      А   ,   Р      №   
      	    џџџџ             (   0   0       `      h  џџџџx  Хџџx   и     Get R/3 Value.   и             Z ъ`   Z ъx   С 8   Ў  Get item via DDE:   v    ^B@`   %    '     Щ   vЩ v$ р ' |  ' Ў  DDERequest    v Ў       |    ^B@`   ZB@т  saved.  |' Ц        Ў   ' Ц  $! &Щ fЎ  R3Variable.GetItemЩ    B@d  Ш   f џџР   и     Set R/3 Value. T и            Z ъ  С    Ў  R3Variable.Depose   v Ў       j    ^B@`  S  %    ' esЎ  DDEPoke   v Ў       j    ^B@`      Щ   vЩ v  jЩ цA@ф EN  ZB@т  
      и   а    $! &Щ fЎ  R3Variable.Depose Щ    B@d    l џџ  џџџџ  В Attribut e VB_Nam e = "R3V ariable" 
Option  Explici t

' G et R/3 V alue. "
Pub @ Func` DItem(A As S аng)
  D im ChannelLongРResult.O rror G oTo E
LineR3Lo gFile.R3`Write  ("Д m vi a DDE: "h + O)C= inSrv.[
(I=Request(:=,(:=+пH B#EH"5S ;MApОaЌ.тAЏvatx P3' к
xiЖt:"ю" ;ordТ.Trace Text:=Р.DescriB, Module:=Ш7AI!@EФ EndЦУSжSub DeposeLў,Ba77ЧМ <"OdЛB z]3WзЁ@}Poke, Da№ta:=%?? ]@@c7я?р:
      rU              ~}         	       	           
       0      ќЦ                                          0      ќЦ                                                f                                                                rU                    	     
 џџџџџџџџ        (      
    ` §џџџџџџџџџџџ    Щ          0, Љ     
   ` §џџџџџџџџџџџ    Щ                 00    p                                 rU              ~}         	       	            	 	     0      ќЦ                                           0      ќЦ      `                                   0      ќЦ      (                                  0      ќЦ      и                                   0      ќЦ      0           R 3 W i n S r v                                                   џџџџџџџџџџџџ                                    |   >      _ _ S R P _ 4                                                          џџџџ                                    {  x      _ _ S R P _ 5                                                     џџџџџџџџџџџџ                                      К      F i l e S a v e H t m l                                          џџџџџџџџџџџџ                                      8              ўџџџ            ўџџџ                        ўџџџ               Ё  Ђ  Ѓ  Є  Ѕ  І  ўџџџЈ  Љ  Њ  Ћ  Ќ  ­  Ў  Џ  А  Б  В  Г  ўџџџЕ  Ж  З  И  Й  К  Л  М  Н  О  П  Р  С  ўџџџУ  Ф  Х  Ц  Ч  Ш  Щ  Ъ  Ы  Ь  Э  Ю  Я  а  б  в  г  д  е  ж  з  и  й  к  л  м  н  о  п  р  с  т  у  ф  х  ц  ч  ш  щ  ъ  ы  ь  э  ю  я  №  ё  ђ  ѓ  є  ѕ  і  ї  ј  љ  њ  ћ  ўџџџ§  ў  џ                Z ъ@   Ў  R3WinSrv.UnInstallAddIn    ^B@` и    Iterate all add ins. e   ї   №і   є jЎ  R3WinSrv.UnInstallAddIn check:    №!     ^B@`   j и  -  if the add in is ws8word.dot, try to delete.     и        №! $ Ш Ў  WS8WORD.DOT   o u r Ў   R3WinSrv.UnInstallAddIn delete:   №!     ^B@` o u r   №B@  e б  `  h џџX  ї   №і Р 8Р8 @   8    $! &Щ fЎ  R3WinSrv.UnInstallAddIn Щ    B@d    ј   l џџ№   и     Call a specific fiњnctionи       `     Z ър   Z ъј   Z ъ  С         Ў  R3WinSrv.Execute    и   к    ^B@`  Ў  Call SAP R/3  Code:   и Ў 
  Options:    к   Z( \џџџџи    Save or not save.Є    кЎ  S ~ Є   
  Є    кЎ  E ~ Є       p! њЏ    a  p! Џ    cA@ќ    h џџА  h џџЈ  h џџ   h џџ  Є    кЎ  T ~ Є   
  Ў 	 DocOpened Щ vЎ  X Щ j  ФB@д Dh џџP    иЎ     le tи    For search in glossary. и  0  In protected documents the method is not valid.    p! ў       ! n      ! f' іe meh џџА  h џџЈ  и    Prepare the command.     иЎ  (    к Ў  ,    p!  Ў  ,  ' јЄ    іЄ " $  ~ Є      і Є  	   0    јЄ " $     і Є " $   ' јЁ h џџј    јЎ  )  ' ји    Send the command.  %    '  Ў  DDEExecute Command:   ј    ^B@`   Ў  Control passed to SAP R/3   Z( \Dи    Execute the comand.icon.   Щ   јЩ ІA@Є  h џџ(  и    Termination. >і Є    кЎ  E ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   ^B@` A@м     И   h џџА   и    Termination. FileЄ    кЎ  T ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   ^B@` A@м     @   a џџ8     ZB@т  ave anЎ  Callback to R/3 completed    ^B@` џџј  Ў  Callback to SAP R/3 completed   Z( \      h џџР  Є    кЎ  M ~ Є   
      Z( 
џџџџh џџ          $! &Щ fЎ  R3WinSrv.ExecuteЩ    B@d џџЎ  close the document   ^B@`   џџџџи    Say all is saved.Џ  (   џџџџЏ  p! ( џџЏ  p( џџџџџџи    Close the do                     w                                                ўџџџ            Љ             Ё   Ђ   Ѓ   Є   Ѕ   І   Ї   Ј   Й   У   ўџџџЌ   ­   Ў   Џ   А   ўџџџВ   Г   Д   Е   Ж   З   И   Ћ   К   Л   М   Н   О   П   Р   С   Т   Ф   ўџџџХ   Ц   ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   №     п  џџџџ	      љ9ьЌ  џџ                                         ш   ъ џџь   Е  ш   ш   }/    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџђ    6
џџџџ    < џџ    <џџџџ  џџ      СЩ39в $ * \ R f f f f * 6 8 3 9 3 3 c d 0 4  п   џџџџ8  ю`      `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ         H>Лw №џџџџџџџџX       ш>Лw   $   ж(    `    џџџџџџџџ    џџџџ  
     џџџџџџ X X (    ''''iиџџџџџџџџџџ    Р     ''''iкџџџџџџџџџџ    џџџџ  ''''`џџџџџџџџ џџ       `іџџџџџџџџ џџ    dot.`јџџџџџџџџ џџ    ngerОи    `    џџџџџџџџ    џџџџ  
 h  џџџџџџ          iРџџџџџџџџџџ        dd iiТџџџџџџџџџџ    џџџџ  R3Wi`џџџџџџџџ џџ    chec`џџџџџџџџ џџ    B@`м0    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ / /          `џџџџџџџџ џџ     Ў +     `    џџџџџџџџ    џџџџ  
 џџџџ џџџџ   Ч       №`џџџџџџџџ џџ    u r Ш    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ   г     8      `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ $ $ ы     ј   ќ`    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ 6 6     р   `џџџџџџџџ џџ         џџџџ  `    џџџџџџџџ    џџџџ  
    џџџџџџ   E   Calli"џџџџџџџџџџ    џџџџ  ptioџџџџ8   Ш  0      џџџџџџџџи      (  џџџџ`  џџџџџџџџ`   џџџџ џџ(    џџџџџџ    џџџџџџџџџџџџ  $   џџџџX  	 	               џџџџџџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџ             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ Ш  ME  џџџџџџ    џџ    џџ                                                               ўЪ Q 	         	         Р    (    	    0    	     џџџџ 	    H    Р    `    	     џџџџ Р    h    	    p    	     џџџџ 	 Z       	 (   ш    	       	    0  "   8      @   	    џџџџ (   H   	    џџџџ 	    p         :       	 4   р   	       "       :   H   
                   
   Ј   	    џџџџ     И       Р   6   Ш                 	     џџџџ 	        	    0  "   8      @      H      P   	     џџџџ    X   6   `   <      	     џџџџ 	    и      №                   0   
   @      H      P      X      `   	    џџџџ    h   &         Ј   	     џџџџ    А   	    Р   	 6   р            (      8      H      P   	     џџџџ 	    X   0   x   *   Ј   &   и                	    џџџџ 	          0   *   @   	    џџџџ &   p   	    џџџџ 	          И      а   	     џџџџ 	    и      №   0         8      @      H   	    џџџџ 	    P      h   0         А      И      Р   
   Ш   *   и   *         8   	     џџџџ    @      X      h   	    џџџџ     p       x   .      "   А   	    џџџџ 	    и   
   №       	   
   	   	     	   
   @	       P	      X	   	     џџџџ 	 6   `	   	    	  "    	      Ј	      А	   	     џџџџ    И	   8   Р	   2   ј	   	     џџџџ    0
      P
   $   `
   	     џџџџ &   
       А
   &   а
   	    џџџџ     ј
           0          8      @   	     џџџџ 	 4   H   	      "            	     џџџџ       	    џџџџ        "   И   	     џџџџ 	 L   р   
   0   	    џџџџ 	    @      `   8   p   
   Ј   
   И      Ш   
   и      ш   2   №      (      0   	    џџџџ 	 "   8      `   &         Ј   	    џџџџ    И      и   	    џџџџ 	 (   ш   &         8   	    џџџџ     @       H   0   P   	       
         Ј   
   И       Ш      а   	     џџџџ 	 >   и   	      B          (      0      P      `      p      x               	     џџџџ 	 4      	    Ш  "   а      и   (   р   	    џџџџ 	 
      @        	        $   8   Р    `   	     џџџџ 	 
   h   @    x    	       $      Р    Р   	    џџџџ     Ш       а   6   и                	     џџџџ 	 0       	    P  "   X      `   &   h   	    џџџџ 	 
      @         	 2   Ј   "   р    	       $          H    	    P   $   p         Р        	     џџџџ 	 
   Ј   @    И    	 2   Р   "   ј    	        $   8      `    	    h   $         А   Р    И   	     џџџџ     Р       Ш   4   а                	     џџџџ 	       	    0  "   8      @   	     џџџџ    H       P   	    џџџџ    p   	    џџџџ 	 :      	    Р      Ш   	     џџџџ 	 ,   а   	        
      	    џџџџ 	       Р    (   	 &   H   
   p   Р       	    џџџџ 	 "      
   А      Р   	    џџџџ 	    а   $   ш   
      
       	    џџџџ Р    0   	 &   P   H   x      Р   Р    р      ш   	 6   №   	    (   0   0      `   	     џџџџ 	    h   
            
          А   	    џџџџ     И       Р   .   Ш       ј          	     џџџџ"            	     џџџџ "      
   @   	    џџџџ     P       X   2   `                 	     џџџџџџџџА  и     Compiler constants   џџџџи       ѕ Џ № ши    #Const IMG = True и    #Const STD = Falseѕ Џ№ ъѕ Џ № ьи    #Const HR = True  и   S '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   џџџџи   "  Uninstall the add in ws8word.dot.и     This is no longer used. и  cument.       B@B   џџ	 џџ Ј  l џџ   и   /  Initialize the R3 Windows Server Communikation   и       (    Z ъЈ  Z ъР  С @  Ў + Initialize Connection to R/3 Windows Server   Z( \Ў  DDEInitiate:    Р Ў       Т    ^B@`         РЩ   ТЩ $  '   џџџџ  $ Ђ ' џџЎ  DDE Channel:        ^B@`    Ў  Applikation Щ   РЩ j  fB@h џџЎ  ObjectЩ   ТЩ j  fB@h Ў  DDE-Channel Щ   Щ j  fB@h џџ     ј    $! &Щ fЎ  R3WinSrv.Initiate Щ    B@"  Р  l џџИ  и   . Terminate the connection to R/3 Windows Server    и       и    Z ъ  С `  Ў 	 Terminate   Z( \џџЎ  R3WinSrv.Terminate   ^B@` џџџџџџи  E  Get the channel number, after save all document variables are empty. џџџџ$    ' џџџџџџи    Save the document.        p! ў     Ў ( R3WinSrv.Terminate: don't save document.   ^B@`   pB@        Џ  (       Џ  p! ( џџЏ  p(   Ш  a џџ  Ў " R3WinSrv.Terminate: save document.   ^B@` џџ џџA@ќ    h џџШ  и    Terminate DDE and wswinsrv.џџџџџџЎ  DDE Terminate    ^B@` џџЎ 
 Channel =   $ Ђ     ^B@` џџ  Щ A@ џџЎ  Close document   ^B@` џџЎ     Z( \џџџџи  !  Unistall the add-in ws8word.dot. Ў  Uninstall ws8word.dot    ^B@`   A@ю     И   А    $! &Щ fЎ  R3WinSrv.TerminateЩ    B@d и    All is saved.    Џ  (       Џ  p! (   Џ  p(        0  l џџ(  и   7  Get the DDE-Channel number. Use the document variable.   и       0    Z ъp  Ў  DDE-Channel   f% z '     Ў           $  '    a џџ   Є   '  h џџx   f џџp   и   .  Set some values via DDE in case of no saving.    и           С     Ў  R3WinSrv.SetNoSaveValues   ^B@` и    HR       ѕ   ьё и    No changes       Ў  Changed Щ vЎ    Щ j  ФB@д     ѕ є   и     IMG      ѕ   шё и    No changes       Ў  FunctionЩ vЎ    Щ j  ФB@д     ѕ є 8   0   (    $! &Щ fЎ  R3WinSrv.SetNoSaveValuesЩ    B@"    ш  l џџр  и   )  Set some values via DDE in case of save. и       Ш    С   Ў  R3WinSrv.SetSaveValues   ^B@`   и    HR       ѕ   ьё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   f% z Ў  0 
        и    New document.    Ў  Changed Щ vЎ  I Щ j  ФB@д     a џџА  и    Document is changed.     Ў  Changed Щ vЎ  U Щ j  ФB@д     h џџ`  ѕ є X  и     IMG      ѕ   шё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   f% z Ў  0 
        и    New document.    Ў  FunctionЩ vЎ  I Щ j  ФB@д     a џџ  и    Document has changed.    Ў  FunctionЩ vЎ  U Щ j  ФB@д     h џџH  ѕ є @   8   0    $! &Щ fЎ  R3WinSrv.SetSaveValuesЩ    B@"      №  l џџш  и     Save the documentи           Z ъH  С А  Ў  R3WinSrv.SaveDoc   ^B@`   p! Џ     и  3  Say to wswinsrv that the document has to be saved.       и      A@    и  &  Get the DEE channel for dde commands.    и      $    '       и   
  HR or STDѕ   ьЏ    ъЏ   ё       и    Remove all document variables.     fB@~        ѕ є x
  и    Set the templates as saved.      Џ  (       Џ  p! (   и    Save the documentЎ  ActiveDocument.Save    ^B@`       pB@в        Џ  p(       ѕ   шЏ    ъЏ   ё       и     Say that something has changed.  Ў  R3WinSrv.SaveDoc: DDEExecute:   $ Ђ  Ў   change     ^B@`   Щ Ў  changeЩ ІA@Є     ѕ є 	  a џџ	  и  /  Say to wswinsrv that the document has changes.   и      Ў   R3WinSrv.SaveDoc: nothing to do.   ^B@` A@    и    Set all as saved.Џ  (       Џ  p! (   Џ  p(       h џџH   @   8    $! &Щ fЎ  R3WinSrv.SaveDocЩ    B@"       l џџј  `    С ш  Ў  Remove file   "    ^B@`         "A@$        Ј        $! &Щ fЎ  R3WinSrv.RemoveFile Щ    B@d        `  l џџX  џџџџP  їЖ Attribut e VB_Nam e = "R3W inSrv"
 ' Compil er constants T
#BC8 IMG bF0alse ,
(TrЦu &*STDTRч&)HRRQ'O S Uniq ll the a dd in ws 8word.dot.This  no long! used
 PrivaЅSu
b &I&AddI n()
  Dim + As 
	R3LogF В.Мrite @Line (Х.4Un	'"'' аIter:a[YsF  For Each8In8н   /8 check: " +Р.A   ' ifЩKFL, tr y to del8ete&РA.   If UCase(adCР}"WS 8WORD.DOT" ThenУ
\  0-Q- A1DТ$ХGoTo Exit^EndУ )СNext
Ь
Error=: q Т.Trace T:=Р.Desc ription,  Module:ђ=z
%@A$@
ЂC| sp ecific fpiњncA  Ѓubl СЂExecРј(FcodeS@§ng, FlфagQs B:TChannelAL\ЁСMark<edcЧЅ manСiЁOn c Яу&Ѕ%AП:v.ФOо_aXt C+#т(Appр aс".S tatusBar!MТ'SAP R/d3 рde#EE"є Ob4sФa%/a^ Save  lno8t s`[рYIn	 #(1$+, "SР") > 0(YБZE =ЊЂcA 9v eDocumen t.ReadOn|ly"ЎЪcЁdyД  Ё`*KI~fхЉg&СQTR3Variable _poseAm ^Open ed", ValЪuЁ`XЮ  ЅЁ#2<> "I'B0sear Еgl@ossary  protectPed dЄ(smethoрЛs !8№valiAИaJ`Ь.FPc uTypфwИdNoЊ0 S Ђp.ЦFNormЬalь6Њj= ш ?! Сц.Љ#QPr eparecoNmpd Hr= цZ(УЁИC+ ",б ,№Fullвђ3 ж-), Chr(34))&0 A!0SLen()) р< 256zЊ	Ш ў+хf9р tу	7ПcHа)ђ$  }'0
!~ЬDO=У f.GetЄP|у_hИzDDEJ	Cз	ђHuIuIontrol pasџСsDJЄeХ WTѓ3:=dР"/ №J9%'Аjrmќin3SбЙ#M1KsMП\ogQqyD:R вWTese џЃ1|vAC

ќ "I



љс  
Б1yb6РCofбbacЎkбсi*pdџп#XmХmзЉџ8 "M\Щ1dowtЃPј MiniјmizВEџџўdџ`џћв1ћ/&cрa3RЅ`Г!Б0Aay срЋs№|г`уZTempl@ц.хtsШ  LSАдрЖєedџrаўэАжЯ.
=s.C1?Ёub3ЁInitiХрlzЃR3 s ervаЪбHunikТ=Ђгte(СW, Objч bL§oЂgeз#/ Гп!й%
Иацnp|0xџ1kЯ{д QЕCYџ№aBЅа0БdRl	б:=, Toрpic:=PЃ№UџРAЄТo(f(pnЯтЕфa дR3 Ра.Set  Qx џС4ЧAAoe`
P№ 'Ж etDocVar  Name:=" DDE-Chan nel", Valu T@
   
GoTo E xitLine@
Error:<R3Word&.Log Text:= .De scriptio n, Modulр 4inSrv. Initiate" V` UEnd  Sub

'@Termin " @the co ЄcM to R/3  Windows Server 0 
Public'A =()ЌDim ш As Long2  On> \upAp
p(a;.StatusB= "CN `  R3File. pritЦe  ("xH-' GetnС number , after  save all  documen t variab les are Рempty.$lо=({3S$ЂC$BIf A@TveРТ.ProteYType <@> wdNoG АThenl<:0Xn'tC4Ц "Bf 1!Unp!No rmalT ;lР.2d = Tru@Є   Ь0Att`achedgEьlsЊu:7@XГA3ЗIfAС 'Љ  т a ПwswјinsРЧС
ZdЧ" + Stєr($)B0	f	Ѕd:=DClo|seІTУ:gтe`   ' Unist!\aSadd-in  ws8wр.dмotЂT РnуУUnICAddIBVПІTrac~eЃџРс1%'Є AрvisBBdтѓќXПXveщ^ьLЧ?EЖ,Њц >ХОd. ^U@8I 'FЋFunт
'Њ  ­е`MiA­ ІЏ=ЅРaэа.Р#(
бbRsPС""HРE=пaжY!/wЪ0b l?СoСpBЭ`ШomeluРЋviaBrрQca #of no9ъ!SubйNo0тчsЏјЪу8ZХSeti
Za' HR
#Р#HRf"' No "cШgesR3Р+"ХР№psIteFmр§с&gedЗ~" №8#uI@t IMGѓ De	ѓed O__qx§_r_[mЯФчёwЯetЏ/ђs?Yv.0f xReturnu*!c`
P) depend   on MPQt2lp"R3я6IsNewё") 0> "0щ5Р$ew?ж\ Av%%гЃ"Iѓ^w8' №ѓ QS*#Qё**AЉ"Uc$</+!1++ЏЏЏcџ	IЏGЏАЏЄЧП1ПЗhas$=Яџ\=пу7OpЏ bсџ/Н@/Н/Н ,Џ7І7?нЈНЛс00#TeInјtegсОqNOVтЩ#Pћ ИЙeЙt77а2uybwFa@Ёf8ёSмayбШEАМaН5Ўц Q№Ъbe
уШQkRСDEE nel forH ddaаmm@?sџd9yб9чpGoгQм!cЂ №STD]( cД) Or (Е)&Remoџ/Ш$ШA!3У`0пѕdБ	ЖДЮhpМ0Ь§щ  lООЧЪОp%ч)Б' "uГC	xogTлo ec"юЪБу?сAJ(_QJяЭыв%h%sљthA^OA?6ЧP: DсБ DEExecut e: " + S tr(Channel) p" c 0ge")
   JDИ :=,  Command:="h
#E nd IfxElse' Say  to wswi nsrv that e docu ment haszs.5R3L ogFile.R@3Write L@ine (" i nSrv.Sav eDoc: no thingkdo.ФSetNo# Values
0   all =s !d<Nor malTemplate.d = TruhActi8].AttacxhedЇF	) 
GoTo Exitr
Err4or:Z yord	.  Text:=.De scriptio n, ModulіeЮ"@Ф СSubAEPublic @ Rem(oveС](Naрme AsРWјOn ,)CWYmyB ftB KicE<шCTra<ce$fD9E                                                                                                                                                                                                                                                                                                                                                                                                                  0      ќЦ                                         0      ќЦ      Ш                                   0      ќЦ                                         0      ќЦ      `                                                              C              rU                    	      џџџџџџџџ        $          `  ќџџџџџџџџџџџ         , Љ        ` §џџџџџџџџџџџ    с      љ           00, б        ` §џџџџџџџџџџџ         )          00$ љ        `  §џџџџџџџџџџџ         $ !       `  §џџџџџџџџџџџ        $ I       `  §џџџџџџџџџџџ         $ q       `  §џџџџџџџџџџџ         $        `  §џџџџџџџџџџџ         ( С       ` §џџџџџџџџџџџ    9          0    p             Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   W  }  џџџџ       љ9q  џџ                                       џџ  s  ж   ж   я    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџX   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         џџџџџџџџ8       џџџџџџџџ8                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ H   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "               џџџџ         l џџp   џџџџh   EА Attribut e VB_Nam e = "Fil eSaveHtm l"
Publ ic Sub M ain()
End<
         Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   W  }  џџџџ       љ9є  џџ                                       џџ  s  ж   ж   ћ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџX   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ   F i l e S a v e V e r s i o n                                     џџџџ"   џџџџ                                      J      F i l e S a v e F r a m e A s                                            џџџџ                                    Ї  :      F i l e S a v e A s W e b P a g e                               $  џџџџџџџџџџџџ                                    Д  L      R 3 A b o r t                                                     џџџџџџџџџџџџ                                    Т  J            џџџџџџџџ8       џџџџџџџџ8                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ H   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "                	     џџџџџџџџ         l џџp   џџџџh   KА Attribut e VB_Nam e = "Fil eSaveVer sion"
P ublic Su b Main() 
End<
 
                                                       Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   W  }  џџџџ       љ9ъ  џџ                                       џџ  s  ж   ж   я    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџX   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         џџџџџџџџ8       џџџџџџџџ8                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ H   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "               џџџџ         l џџp   џџџџh   GА Attribut e VB_Nam e = "FileSaveFr  As"
Pub lic Sub  Main()
End<
       Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   W  }  џџџџ       љ9ш  џџ                                       џџ  s  ж   ж   ћ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџX   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         џџџџџџџџ8       џџџџџџџџ8                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ H   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "                	     џџџџџџџџ         l џџp   џџџџh   MА Attribut e VB_Nam e = "Fil eSaveAsW ebPage" 
Public  Sub Main()
End< 

                                                     Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   G  }  џџџџ       љ9ѕ  џџ                                       џџ  c  ж   ж   
    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      СЩ39в п    џџџџH      џџџџ    @   `       џџџџ    џџџџџџџџџџџџ" "               Bricht eine Aktion ab.          TemplateProject.R3Abbrechen.MAINx   `џџџџџџџџ џџ    ) +0џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ         џџџџ`Јџџџџџџџџ џџ    џџ`Xџџџџџџџџ џџ    dot.`Њџџџџџџџџ џџ    и   џџџџа       џџџџ    џџџџџџџџ                  џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ 0  ME  џџџџџџ    џџ    џџ                                                              ўЪ 8  	         	 <       	     џџџџ     P    	     џџџџ"    X       `    	    џџџџ    h       p    	    џџџџ *       	 2   Р    	    ј    
                       (   	    0   	    H   *   P   	    џџџџ 
      
                А      И   	    џџџџ 	    Р   
   и   	    џџџџ     ш       №   *   ј       (      0   	     џџџџ 	 *   8   	    h  B    p      x               	    џџџџ       	    Ј   $   И   :   р             0   F   8               	     џџџџ          И  џџџџШ  и   	  Changes: и   6  GB02, Gerd Balzuweit, Office 2000, languages problems?П ?Хџџ(         Z ъ   С    Ў  R3Abort.Main   ^B@` Щ v  	    p! ў       p! Џ          и  ,  Ask, wheter the user realy want to go back!   и      $ 0  '   dot.  Є     џџ и   a џџа   и    Really abort.џџџџи      Ў  Ttxct-FunctionЩ vЎ    Щ j  ФB@д     Џ  p( ТџџџџЏ  (   џџџџЏ  p! ( џџh џџH   h џџ@   и    Terminate.   B@`  B@B   џџ             $! &Щ fЎ  R3Abort.MainЩ    B@" џџџџџџ а  l џџШ  и   #  Ask if the changes should be saved џџџџ и             Z ър   Z ъј   Z ъ    Ў  Z% Ќ ' Ј   и    GBo2  џџ  Ј  2! А    Ј  2! В       Ў 1 Datenverlust! Mіchten Sie das Dokument schlieпen? ' Њ   `Ў  Warnung ' Xa џџШ   Ў > Data will be lost! Are you sure you want to exit the document?' Њ Ў  Warning ' Xh џџh     Њ  Д  Ж   X$ P ' 0  f џџ@   џџџџ8   /Д Attribut e VB_Nam e = "R3A bort"
'  Changes:,GB02,  Gerd Bal zuweit,  Office 2@000, l Zua ` probl ems

O ption Ex@plicit$Pub  Sub  Main()
. Descri< Bric ht eine ФAkRab. І9 ProcDataEInvoke_FuncнTem plate "ject.vbrec hen.MAIN'  Dim R etVal As  IntegerP
  O er ror GoTo4 ELIR3LogFile +`Write  j(Њ.n" w%I f (Activ eDocumen4t. Lt LTyBpШwdNo
)@ And _6  Saved s False) Tj' dk, w heter the us rea ly want  to go baИck!ФA=ИForAk  @/F7 Fxit1EF  E@$C  R'@Wal@aA.R3Varia@.Depos e Item:="Ttxct-СrС", hue > Тm%ХUEFTrueNormaКlE.LaЪdиEgIfGA' TerminР<CWind`ow.Cl 9A	
CNЦРр  R 3WordТ.РУРxt:=Р KFЬ, ModulЧСFє
EФ A(`p!rD ifbCcУ~ shoulРd be sK ј
PCwe0ЪBЉeСhсLРPTit"l@ys S ngуС!MsgЋЦрPpсa@.Asr@* eal(wdaрdductсID"m' GBo2'СсmH	Wd'.wd`man) Or (ЗSwis>sE'lС Рen verlust! Mі@en S ie das DokЂ| schl@ieпen?WT! WarnungТgfЇa willa2`F@Are you sumЅyeр<Ђ9dDRiЧEФVЁ$Ask$}@! Box(Р ,  vbYesNo + ExclamyТ0, Ђ`-J%C 
                                                      џД     0*	 pH  dф   Project  0Stand@ard@  t a n d 
r 
 &  =
V	С@Щ39в %<	 9stdo(le>s Yd  o l e  
f %\ *\G{ 00020430v- C 
0 046}#2.0 #0#C:\WI NNT\Syst em32\STD OLE2.TLB#  Autom`ation / yMSForms>  _ V B A _ P R O J E C T                                           џџџџџџџџџџџџ                                    Б   д      d i r                                                            џџџџџџџџџџџџ                                    ќ        _ _ S R P _ 0                                                    #   '   џџџџ                                      Д      _ _ S R P _ 1                                                     џџџџџџџџџџџџ                                    D  9                      	  
              ўџџџ                               !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  C  ўџџџE  F  G  H  ўџџџJ  K  L  M  N  O  P  Q  R  ўџџџT  U  V  W  X  Y  Z  [  \  ]  ^  _  `  a  b  c  d  e  ўџџџg  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsplayModeOnIщ DisableMenuEntryЖj MenuЌB 	MenuEntryі DisableCommandBarEntryуА CommandBarIconNameР Ќ(   DisableFileSaveC Ќ(   DisableDeleteёC cbЦ\ 
 CommandBar cbc^}  CommandBarControlPХ  CommandBars
  ControlsЬK  Captionx  EnabledлЊ EnableMenuEntryНт EnableCommandBarEntryНX Ќ(   SetDisplayModeOff0  MsgBoxR  Promptm  Buttonsх] 
 vbCritical+} Titleђ~  ApplicationЅ* 	 StatusBarЪ 	R3LogFileB2 Ќ(   R3WriteLogLineј LogLine 
Ќ(   TraceErrorЂ R3DocVarЩM 	Ќ(   SetDocVar ValueфK i` DocVarы  ActiveDocumentг\ 	 Variablesn  Count0v Itemзz  Addїr 	Ќ(   GetDocVare% Resultur 	Ќ(   RemoveAllЮ  DeleteИx Test4Ћ ResЮ 	DoLoggingЭ AbsLogFileNamexЫ Ќ(   R3GetLogFileName 	LogFileNr  TimeЋП R3Delete5 Channelђ RetValЭ; AskForDelete&  SaveddЩ  AttachedTemplateу  NormalTemplateqЌ R3WinSrv9м 
Ќ(   GetChannelџ  Strе 
 DDEExecuteШ  Commandд] WordLangю MsgQЕ  InternationalНЄ  wdProductLanguageID  wdGermanw[  wdSwissGermanУH  vbYesNo  vbExclamationШ Ќ(   R3OpenDocument Display ToPrintE? Ќ(   InitiateZ Appl9 ObjН 
R3VariableЫМ Ќ(
   GetItemљФ  UCase5
  Protectзf  wdAllowOnlyCommentsRї 	AutoCloseЄж  Right  Saveа Ќ(
   DeposeФФ Ќ(   ExecuteYЭ Fcode\Ц Flagso 	Ќ(   TerminateyL 
FileSaveAsЮю 
 DDERequest№і  Activate|  DDEPokeяЗ  Data; IMG STDе HR] UnInstallAddIn(О ad~\  AddInex  AddInsю MarkedStringч 
CommandStrКe  ReadOnly4< Ќ(   SaveDocЅ  ProtectionTypeІг  wdNoProtection­Ѕ 	 SelectionZЎ  wdSelectionNormalR  FullNameа  ChrK~  WindowState|ю  wdWindowStateMinimize4a Chan%  DDEInitiateВЌ  AppПt  Topic 	 Unprotect?  DDETerminate;Я  Valнт Ќ(   SetNoSaveValuesUњ Ќ(   SetSaveValues 
Ќ(   RemoveFile<а FileNamejУ  KillЬ FileSaveHtml< FileSaveVersionј9 FileSaveFrameAsn
 FileSaveAsWebPageы  R3Abort< 
Ќ(   AskForSaveўэ  WdLanguageIDХъ Documentjг  _B_var_UCaseaЮ  _B_var_Right9й џџ  ) ( /  џџџџџџџџџџџџџџџџџџџџџџџџ - џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџ  џџ_  Й  џџџџџџg # Х
 % 
џџџџ џџ  # ' *   Я   ) $ + ' -   ! &  џџ џџп	 )  .    2                                                     D                     @         @                                                                                                                                                                                      @ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ                                                                                                                                                                                                                                                                Ьa^   џ  	  ф            * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 3 . 0 # 9 # C : \ P r o g r a m   F i l e s \ C o m m o n   F i l e s \ M i c r o s o f t   S h a r e d \ V B A \ V B A 3 3 2 . d l l # V i s u a l   B a s i c   F o r   A p p l i c a t i o n s             і * \ G { 0 0 0 2 0 9 0 5 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 8 . 0 # 4 0 9 # C : \ P R O G R A ~ 2 \ M I C R O S ~ 1 \ O f f i c e \ M S W O R D 8 . O L B # M i c r o s o f t   W o r d   8 . 0   O b j e c t   L i b r a r y             И * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N N T \ S y s t e m 3 2 \ S T D O L E 2 . T L B # O L E   A u t o m a t i o n             к * \ G { D C B 0 9 E C 3 - F C 8 4 - 1 1 D 2 - 8 9 3 2 - 0 0 0 0 E 8 7 6 A 9 4 8 } # 2 . 0 # 0 # C : \ N T \ S y s t e m 3 2 \ M S F o r m s . t w d # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y            д * \ G { B 8 C F 7 7 5 2 - 2 7 5 1 - 1 1 D 4 - 8 A 2 2 - 0 0 0 0 E 8 7 6 A 9 4 8 } # 2 . 0 # 0 # c : \ t e m p \ V B E \ M S F o r m s . E X D # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y              с.Eр.`MД  ђ * \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 0 # 0 # C : \ P R O G R A ~ 1 \ M I C R O S ~ 1 \ O f f i c e \ M S O 9 7 . D L L # M i c r o s o f t   O f f i c e   8 . 0   O b j e c t   L i b r a r y                                     
џџ S t a n d a r d џџ        СЩ39в џџџџџџџџ    џџџџџџџџџџџџџџ    
     џџџџџџџџџџџџџџџџ                   љ9  T h i s D o c u m e n t 
 2b3933c9c1 *Dџџћ9          7  џџ F i l e S a v e 
 2c3933c9c1 *Dџџ§9           џџ R 3 M e n u 
 2d3933c9c1 *D(џџ-      0   ѕ  џџ R 3 W o r d E r r o r 
 693933cd04 *D џџ      H   ъ    R 3 D o c V a r 
 653933cd04 *DfџџЁ      `     џџ R 3 L o g F i l e 
 663933cd04 *D^џџы      x   	  	  R 3 D e l e t e 
 313933c9c1 *Dџџо7         #	  џџ R 3 O p e n D o c u m e n t 
 323933c9c1 *DИџџЩ9      Ј     џџ A u t o C l o s e 
 643933cd04 *DЮџџЫ9     `  џџџџx  џџџџ№  џџџџ  џџџџH  џџџџР   {    F i l e S a v e A s 
 343933c9c1 *Dоџџю      и     џџ R 3 V a r i a b l e 
 673933cd04 *DФџџЁ      №   Њ  џџ R 3 W i n S r v 
 683933cd04 *DџџьЌ         }/  џџ F i l e S a v e H t m l 
 373933c9c1 *D&џџq          я  џџ F i l e S a v e V e r s i o n 
 383933c9c1 *D(џџє      8   ћ  џџ F i l e S a v e F r a m e A s 
 393933c9c1 *D*џџъ      P   я  џџ" F i l e S a v e A s W e b P a g e 
 3a3933c9c1 *D,џџш      h   ћ     R 3 A b o r t 
 3b3933c9c1 *D.џџѕ         
  џџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0  џџџџ  џџџџ   џџџџџџџџџџџџ  џџџџx  џџџџ`  џџџџH  џџџџ№  џџџџи  џџџџР  џџџџЈ  џџџџP  џџџџ8  џџџџ   џџџџ  џџџџџџџџџџџџџџџџџџџџ  џџџџh  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЪu}%6д8  шvЉHџџџџ   Ьu}%6д8  шvЉHџџџџ   Юu}%6д8  шvЉHџџџџ   аu}%6д8  шvЉHџџџџ   вu}%6д8  шvЉHџџџџ   дu}%6д8  шvЉHџџџџ   жu}%6д8  шvЉHџџџџ   иu}%6д8  шvЉHџџџџ   кu}%6д8  шvЉHџџџџ   мu}%6д8  шvЉHџџџџ   оu}%6д8  шvЉHџџџџ   рu}%6д8  шvЉHџџџџ   тu}%6д8  шvЉHџџџџ   фu}%6д8  шvЉHџџџџ   цu}%6д8  шvЉHџџџџ   шu}%6д8  шvЉHџџџџ   ъu}%6д8  шvЉHџџџџ   џџџџ`         џ м;     Module   Name  В TextWordЕk VBAїт Win16С~ Win32 MacГВ Project-Ў stdole` MSFormsC Officeu ThisDocument< 	  џџџ_Evaluateй FileSaveЁ ќh   Main, 	ErrorLine9  ActiveWindowУ+ ExitLineзO R3WordErrorrе Ќ(   LogError&'  Erro  DescriptionО  R3MenuЩ8 Ќ(   SetDi	M S F Er m s h/ w	mFD CB09EC3- FC84-11D@2-8932FE876A948FD1.twd#M icrosoft ; ^ ObК  LibraryG7 N0  jNB8CF7752-2751N 4-8A2Nc:\@Hp\VBE\&EXDІ&с.E р.``MДСuOPfficuOrfа i cuР)A6С*2DF8D04 C-5BFA-1 01B-BDE5Љ@RAAt4Р2HR PROGRA~1\MICROS Р.O97.DLLH. 8.0RU"Л Тљ9B ThisDocumentN2  /T h 3s Dc u "e@Уt Р  
HB1ТМ7  B,Bћ9"B+BТзFil@eSaveJ2­BлFРСУS@лv POёM§9!JAкR3MenuЂnc2"R 3 M n`Џѕo-Ћ`R3W ordErrorЄ 2  сWBjd E r  &o` /ъ/+ЁR3 5VaРoЉЃ&aу3VЂЏS |­&ЁЋ	тL$og4 Ъ2 VЁ`'L`gi[т/р-ыѓexletЄ@ Ђщe"tВ@#Ао7ыR3Openg\o2"Y!(O pтBл#)9]@0mЩlP Т !ЏClosЪUЃ)A Pt )CрoЕРЎepj{@Ш-Ы,
 3ejAs ыи2 сьjAрo720xюЋ*ЁR3с Qiabl ыЃkЁ)#QiрQbт8ЏЊ-А(lR@ `minИSrvуЅ'EW`"n иr v0(}/9џ5ьЌ;qzHtМmlГPГPнIH|6mаПяа}q[xVers zЄ On2PU 7UQVА*rPi$nЩ ћ єМЩ`Frameс#OsБYF№La mpп$@Z ?  ъ8AsWebPag@%o`2 Бd=БW0b PА&g пП  шa R3Abor pШ 2-A bА6r0`0§ѕљБЄ                                                               K)^    џџ      џџ                                                                   
       
                         rU              ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~Q         	             ё      Ѓv}%6д8  шvЉH 	    ф        
  џџџџџџџџџџџџ    Љ          џџџџџџџџџџџџџџџџџџџџ    б          џџџџџџџџџџџџџџџџџџџџ    ё       a 	      щ      џџџџ`      џџџџ )      I      џџ  	      a 	      щ      џџџџ        џџџџ 		      )	      I	      i	      џџ  )      a 	      с      џџџџј       џџџџ       Й      џџ  I         џџџџџџџџџџџџџџџџџџџџ    i         џџџџџџџџџџџџџџџџџџџџ          a 	      щ      џџџџ       џџџџ б      џџ  Б         џџџџџџџџџџџџџџџџџџџџ    б      a 	     
 щ      џџџџ      џџџџ Й      б      џџ  ё      a 	      щ      џџџџ0      џџџџ	 Q      y            Б      б      ё            A      Y      џџ           џџџџџџџџџџџџџџџџџџџџ    1         џџџџџџџџџџџџџџџџџџџџ    Y         џџџџџџџџџџџџџџџџџџџџ             џџџџџџџџџџџџџџџџџџџџ    Љ         џџџџџџџџџџџџџџџџџџџџ    й       	                      љ                      й                      Б                      y                           ThisDocument     FileSave     R3Menu     R3WordError     R3DocVar  	   R3LogFile     R3Delete     R3OpenDocument  	   AutoClose  
   FileSaveAs  
   R3Variable     R3WinSrv     FileSaveHtml     FileSaveVersion     FileSaveFrameAs     FileSaveAsWebPage     R3Abort     Project  я     Р      F  =   C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll     VBA  Lај-њ[Нх Њ DоR  
  
	      џџџџ   	   1      Й      (               	     Р      F
  '   C:\PROGRA~2\MICROS~1\Office\MSWORD8.OLB     Word
  
a      џџџџ   	        с      8               0     Р      F     C:\WINNT\System32\STDOLE2.TLB     stdole
  
Q      џџџџ       y      С      H               УАмќв2  шvЉH     C:\NT\System32\MSForms.twd     MSForms
  
1      	             Y            X              с.Eр.`MД  RwЯИQ'д"  шvЉH     c:\temp\VBE\MSForms.EXD
  
1      	             Y            h             
  %   C:\PROGRA~1\MICROS~1\Office\MSO97.DLL     Office
  
Щ      џџџџ       	      a      x                  Main               	   SetDocVar  	   GetDocVar  	   RemoveAll     Test  	   IsNewFile        №	     Р      F  б	      И         
   VBA332.DLL  
      џџџџ Ш         
      џџџџk р         Й	     Р      F   б	      ё
      џџџџ  k	     Р      F     DOT     R3GetLogFileName     R3WriteLogLine              	     AutoClose.Main     Saved  j	     Р      F     1     GetItem     Depose     I	     Ttxct-Function     UnInstallAddIn     Execute     Initiate  	   Terminate  
   GetChannel     SetNoSaveValues     SetSaveValues     SaveDoc  
   RemoveFile     SE     U        
      џџџџ­ H           LogError  
   TraceError  ИfФЄIЛx Њ 8<Л  e	     Р      F     Name     Value                  rU                 
   	       a      џџџџџџџџ    џџџџџџџџџџџџ	      	      	     	 џџџџџџџџ	      џџџџ	      	      џџџџџџџџџџџџџџџџџџџџ     Standard     Name     Value     LogLine     Item     Fcode     Flags     Appl     Obj     FileName     Text     ModuleO             ThisDocument T h i s D o c u m e n t   FileSave F i l e S a v e   R3OpenDocument R 3 O p e n D o c u m e n t   AutoClose A u t o C l o s e   R3Variable R 3 V a r i a b l e   R3DocVar R 3 D o c V a r   R3WordError R 3 W o r d E r r o r   R3LogFile R 3 L o g F i l e   R3Delete R 3 D e l e t e   R3Menu R 3 M e n u   R3WinSrv R 3 W i n S r v   FileSaveHtml F i l e S a v e H t m l   FileSaveVersion F i l e S a v e V e r s i o n   FileSaveFrameAs F iP R O J E C T w m                                                 џџџџџџџџџџџџ                                    I  N      P R O J E C T                                                       (   џџџџ                                    S         C o m p O b j                                                  џџџџ+   џџџџ                                    f  j       O b j e c t P o o l                                               џџџџџџџџџџџџ                     ЋЪAЪП ЋЪAЪП             l e S a v e F r a m e A s   FileSaveAsWebPage F i l e S a v e A s W e b P a g e   FileSaveAs F i l e S a v e A s   R3Abort R 3 A b o r t                                                       ID="{D9DC2022-7002-11D3-A714-0000E876A948}"
Document=ThisDocument/&H00000000
Module=FileSave
Module=R3OpenDocument
Module=AutoClose
Module=R3Variable
Module=R3DocVar
Module=R3WordError
Module=R3LogFile
Module=R3Delete
Module=R3Menu
Module=R3WinSrv
Module=FileSaveHtml
Module=FileSaveVersion
Module=FileSaveFrameAs
Module=FileSaveAsWebPage
Module=FileSaveAs
Module=R3Abort
HelpFile=""
Name="Project"
HelpContextID="0"
Description="Standard"
CMG="131196E602EA02EA02EA02EA"
DPB="838106767777777777"
GC="F3F17606E707E70718"

[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDocument=0, 0, 0, 0, C
FileSave=0, 0, 540, 423, 
R3OpenDocument=88, 88, 628, 511, 
AutoClose=146, 29, 686, 452, 
R3Variable=0, 0, 0, 0, C
R3DocVar=44, 44, 605, 458, 
R3WordError=66, 66, 627, 480, 
R3LogFile=132, 132, 693, 546, 
R3Delete=110, 110, 565, 509, 
R3Menu=110, 110, 565, 509, 
R3WinSrv=0, 0, 566, 399, 
FileSaveHtml=0, 0, 630, 323, 
FileSaveVersion=77, 43, 707, 366, 
FileSaveFrameAs=110, 110, 740, 433, 
FileSaveAsWebPage=88, 88, 718, 411, 
FileSaveAs=22, 22, 652, 345, 
R3Abort=44, 44, 606, 399, Z
                                     ўџ
  џџџџ	     Р      F   Microsoft Word Document 
   MSWordDoc    Word.Document.8 є9Вq                                  