аЯрЁБс                >  ўџ	               )          +      ўџџџ    (      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьЅС q 	  П                bjbjt+t+                  	   A A                                џџ         џџ         џџ                 ]                                                         Ю       Ю       Ю       Ю       Ю      к      Ю       |  Ж   ђ      і       і       і       і       і       і       і         +  C      C      C      C      C      C  $   2  є  &  D   g                            і                       і       і       і       і       g      і                     і               і       ђ       і       і       і       і              і              і                             В      Р                                  і             і   "  і                                                                                                 і       ц       6"?ЪПЮ       Ю       і                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   §                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  А. АЦA!А"А# $ %А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
  [         0  @ёџ 0   N o r m a l       _HmH	sH	tH	                  < 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 : \ 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 i m g 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 i m g 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 i m g 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 i m g 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 i m g 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 i m g 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 i m g 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 i m g 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 i m g 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 i m g e . d o t џ   V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V 	  џџ           V 
  џџ           V   џџ           V   џџ           V   џџ           V  	 џџ           V  
 џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V    џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ                 T    (   & S a v e   f i n a l   v e r s i o n         C t r l + S    ( S a v e   & r a w   v e r s i o n  F u n c t i o n   T D S R       F u n c t i o n T D S R . M a i n  О    ( D e l e & t e  F u n c t i o n   T D D W       F u n c t i o n T D D W . M a i n  C "
   (@	D o c u & m e n t    C u s t o m   P o p u p   1  
   (@I & n f o r m a t i o n    C u s t o m   P o p u p   2    ( & C l o s e  C l o s e       F i l e C l o s e . M a i n  О                 "                              (     	 Ё                   Ю   O й                љ     z   љ     f                 љ  §   @   љ  =	   F   љ  	   N          C u s t o m   P o p u p   1    џџ   	   C u s t o m   P o p u p   1  ў                 ў                 ў                 ў                 ў                      0      ( & I n f o r m a t i o n  F u n c t i o n   T D H D       F u n c t i o n T D H D . M a i n  О    ( 	& R e v i s i o n  F u n c t i o n   T D H I       F u n c t i o n T D H I . M a i n  О          C u s t o m   P o p u p   2    џџ   	   C u s t o m   P o p u p   2  ў                 ў                 ў                 ў                 ў                      0      ( & I n f o r m a t i o n  F u n c t i o n   T D I N       F u n c t i o n T D I N . M a i n  О    ( & S e a r c h   t e r m i n o l o g y  F u n c t i o n   T D T E       F u n c t i o n T D T E . M a i n  О    ( & T e r m i n o l o g y   m a i n t e n a n c e  F u n c t i o n   T D T P       F u n c t i o n T D T P . M a i n  О    ( 	& G l o s s a r y  F u n c t i o n   T D G L       F u n c t i o n T D G L . M a i n  О 	                               б	    $           ь	    L          
    џџ   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 . A u t o C l o s e . M a i n   P r o j e c t . F u n c t i o n T D D W . M a i n   P r o j e c t . F u n c t i o n T D E N . M a i n   P r o j e c t . F u n c t i o n T D G L . M a i n   P r o j e c t . F u n c t i o n T D H D . M a i n   P r o j e c t . F u n c t i o n T D H I . M a i n   P r o j e c t . F u n c t i o n T D I N . M a i n   P r o j e c t . F u n c t i o n T D S E . M a i n   P r o j e c t . F u n c t i o n T D S R . M a i n   P r o j e c t . F u n c t i o n T D T E . M a i n   P r o j e c t . F u n c t i o n T D T P . M a i 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 D o c V a r . R e m o v e A l l   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 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 . 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 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 . F i l e S a v e . M a i 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 n   P r o j e c t . F i l e 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 . 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 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 . F I L E S A V 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 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 . F U N C T I O N T D D W . M A I N     P R O J E C T . F U N C T I O N T D E N . M A I N   	  P R O J E C T . F U N C T I O N T D G L . M A I N   
  P R O J E C T . F U N C T I O N T D H D . M A I N     P R O J E C T . F U N C T I O N T D H I . M A I N     P R O J E C T . F U N C T I O N T D I N . M A I N     P R O J E C T . F U N C T I O N T D S E . M A I N     P R O J E C T . F U N C T I O N T D S R . M A I N     P R O J E C T . F U N C T I O N T D T E . M A I N     P R O J E C T . F U N C T I O N T D T P . 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   @          pZђ                             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   "  0 №а  h    C3*FєEF     Э                                      $ №                                                                                                                                                                                                                                                                                                                         ЅРД Д  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      Ws8imge.dot       IXOSAS .      144       Microsoft Word 8.0  @    _Ѓ   @    pсёН@    Жф{?ЪП                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ўџ                       еЭе. +,љЎD   еЭе. +,љЎL          h      p                                     Ј      А      И      Р      в      ф        iXOS AS                       1                                                     Title             Titel                          6      >         
   _PID_GUID    ф  A   N   { 1 6 7 D 7 4 F 2 - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 }                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ўџџџ	   
                                          ўџџџ                     ўџџџ!   "   #   $   %   &   '   ўџџџ§џџџ*   .   H   -   /   5   0   1   2   3   4   6   O   7   8   9   :   ;   <   G   >   ?   @   A   B   C   D   E   F   ўџџџI   [   J   K   L   M   N   P   W   Q   R   S   T   U   V   X   ^   Y   Z   \   n   ]   _   h   `   a   b   c   d   e   f   g   i   m   j   k   l   o         p   q   r   s   t   u   v   w   x   y   z   {   |   }   ~         R o o t   E n t r y                                              џџџџџџџџ   	     Р      F    РЯъЉ:О`^+?ЪП,   ж      1 T a b l e                                                      џџџџџџџџџџџџ                                       j      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                                                          ;   9                       №;Ё?ЪП 6"?ЪП            V B A                                                            џџџџ:                          №;Ё?ЪП F?ЪП            T h i s D o c u m e n t                                                 џџџџ                                        э                              	   
                  ўџџџ                                                 !   "   #   $   %   &   '   (   )   *   +   ,   -   .   /   0   1   ўџџџ3   4   5   6   7   8   9   :   ;   <   ўџџџ>   ?   ўџџџA   B   C   D   E   F   G   H   I   J   K   L   M   N   O   ўџџџQ   ўџџџ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   t   u   v   w   x   y   z   ўџџџ|   }   ~           Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Џ  ѕ  џџџџ       ЦР  џџ#                                      џџ  Ы  ж   ж   C    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(    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
                    S a v e M o d e D i a l o g                                      "   *   џџџџ                                       r      _ _ S R P _ 8                                                     џџџџџџџџџџџџ                                    2   Ж      _ _ S R P _ 9                                                          џџџџ                                    =   Ж       A u t o C l o s e                                                џџџџ/   џџџџ                                    =   Ѕ       Ж џџ    џџџџ    џџH џџ  Хu}%6д8  шvЉHТu}%6д8  шvЉH+u}%6д8  шvЉH Фu}%6д8  шvЉH            џџџџџџџџ   џџџџx     b  Р  џџџџ      Цџ  џџ      Фu}%6д8  шvЉHХu}%6д8  шvЉHџџ  ~      *       џџџџ6     д  :     е  >   џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP    SPџџџџ   Sџџџџ   Sџџџџ   Sџџџџ    6"џџџџ    < џџ    < џџ    <џџџџ  џџ      0 { 1 6 7 D 7 5 C 2 - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 } { 1 6 7 D 7 5 2 B - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 } .Щ39Ъ $ * \ R f f f f * 2 5 3 9 3 3 c 9 a c п   џџџџ     $     $     $   X     `    џџџџџџџџ    џџџџ  
 џџџџџџџџ         ш>Лw    `    џџџџџџџџ    џџџџ  
 џџџџџџџџ         џџџџ, џџџџ `    џџџџџџџџ    џџџџ  
 и    џџ    М    џџiўџџџџџџџџџџџ    џџџџ    p! ўџ(  џџџџ     џџј       џџџџџџџџџџџџ   $   ўџџџџџџџџџP    џџ(      џџџџџџџџ =  $   bџџџџ4 џџ џџ    4 @    џџџџџџџџ  џџџџX   џџџџ   џџџџX      џџўџџџџџ џџ      џџџџџџ    џџџџџџџџLx< џџџџўџџџ     џџўџџџ    џџџџџџџџ =ўџџџџџ џџ     џџџџџџ    џџџџџџџџownWџџџџр               џџџџX  ј   џџџџ   џџџџX  (  џџџџџџџџШ  №          L      Єџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ   	     џџџџ 	     џџџџ 	     џџџџ 	     џџџџ                  	     џџџџ"                         (    	     џџџџ"   0       8       @       H    	     џџџџB   P       X       `   џџџџp   Хџџx   Z ъX       Є  ' A@    l џџP   X     Є  ' A@    l џџ0          '  f џџ   џџџџ   DБ Attribut e VB_Nam e = "Sav eModeDia@log"

Bas0{167 D75C2-36 25-11D4-@8A38-0  E 876A948}J2BJdCre atabliFalsePredecla Id ГTru"Expose@Temp lateDerivCustom$izD
 Op tion  4li cit
Dim AcAs IntegerP 6 : SubFinal_C @k()
 =D 1
HidnEnd#Raw"2"ub< Fu"nУ*GetC-()r Щ-  FZ8
%
              rU                    	       	     	                 I      q            С      џџџџ!        6   щ      Ё            џџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  :   б      С      љ      д  д  д   Ј§џџ `1     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  >   б      С            е  е  е   Ј§џџ  `ё      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ     _      џ      ?     0      ќЦ                                         0      ќЦ      X                                   0      ќЦ                                             >    :      K                rU                    	      џџџџџџџџ    L    $ щ        `   џџџџџџџџ        $ )      `    џџџџџџџџ        ( i      `џџџџџџџџџџ    џџџџ    &     p                _ _ S R P _ 2                                                     џџџџџџџџџџџџ                                    @   ш      _ _ S R P _ 3                                                    &      џџџџ                                    P   e       R 3 V a r i a b l e                                              ,   џџџџџџџџ                                    R   4
      R 3 L o g F i l e                                                $   '   џџџџ                                    {   В      rU              ~}         	       	                 Љ
      с
      A      Щ      Ё      	      1      Љ      б            	      С      I           
 й            a      б      ё                              )      а      KI Xpџtџ"    $ 4  tџ  >pџF`џPџ
  ѕ   Pџ@џ
  @џ:0џ ]ћ/ џtџ6 `џPџ@џ\Ў  *џtџ"    $ 4  tџи  kџє ЦtџЇ  tџ"    $ 4  tџМ tџ  }   Cpџpџ
  /pџ -џtџ"    $ 4  tџ< lџѕџџџџЧtџ( *џtџ"    $ 4  tџи  kџє Цtџ& "	   $
 ў    џ"	   $
  kџpzџ kzџpџ kџєЦv  Cpџpџ
  /pџ 
   $ kџєЦ  Cpџpџ
  /pџ 
   $   Cpџpџ
  /pџ  єџtџ"    $ 4  tџм  tџ 1c0џ%`џtџ"    $ 4  tџX `џ§ў tџ5`џ  єџtџ"    $ P  tџ@  tџ     Cpџpџ
  /pџ 
    } 4pџ   tџtџ,   Cџџ>pџ§Чџ
  2 џџtџ       p $      }               ,          pџ џ џ tџ `џ Pџ @џ  џ     k      џџџџ@ўџ`  pџџџ џџ    rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ             p      ўџџџџџ џџџ џџ    џџџџ@ўџ Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   ?  }  џџџџ       Ц  џџ                                       џџ  [  ж   ж   #    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџ@  +T   џџџџ    џџџџџџџџ    џџџџ    @    џџџџџџ        H>ЛwiVџџџџџџџџџџ    џџџџ     `Xџџџџџџџџ џџ    ВНd&`Zџџџџџџџџ џџ    vershџџџџџџџџ    џџџџџџџџ    џџџџ    а   џџџџџџџџ        0   iVџџџџџџџџџџ    №         ijџџџџџџџџџџ    џџџџ     `Xџџџџџџџџ џџ    џџџџ       џџџџџџџџџџџџР                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ       џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ (  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    4B@6   \% ^  ' X    XЩ X  VЩ V$ ` ' ZўџџџџџЎ  DDERequest    V Ў       Z    4B@6   bB@d          Z' T 2    (   Ў   ' T  N! PЩ fЎ  R3Variable.GetItemЩ   JB@f  2Ш   f џџР   и     Set R/3 Value. 0и            Z ъ  С (   Ў  R3Variable.Depose   V Ў       j    4B@6 ea  \% ^  ' X8Ў  DDEPoke   V Ў       j    4B@6 !    XЩ X  VЩ V  jЩ nA@l do  bB@d        2и   (а    N! PЩ fЎ  R3Variable.Depose Щ   JB@f  2  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: Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     ~  џџџџ       ЦБd  џџ                                       џџ  Д  ж   ж   4    џџџџ    п џџ    D џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@    6
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    џџџџ    
џџџџ     џџџџ    "џџџџ    џџџџ    
џџџџ    
џџџџ    Lџџџџ    
џџџџ    џџџџ    Lџџџџ    
џџџџ    <H џџ    <L џџ    <P џџ    <T џџ    <X џџ    <\ џџ    <` џџ    <d џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ      .Щ39Ъ $ * \ R f f f f * 2 3 3 9 3 3 c 9 a c  * \ 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 * 2 4 3 9 3 3 c 9 a c  * \ R 1 * # 9 1 $ * \ R f f f f * 2 5 3 9 3 3 c 9 a c   $ * \ R f f f f * 2 6 3 9 3 3 c 9 a c $ * \ R f f f f * 2 7 3 9 3 3 c 9 a c  * \ R 1 * # c 7 $ * \ R f f f f * 2 8 3 9 3 3 c 9 a c  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 9 3 9 3 3 c 9 a c п   џџџџ  $џџџџ   `    џџџџџџџџ       џk џџџџџџџџџџ  5 5      џџџџ`&џџџџzџџџ џџ            џџџџ"џџџџ џџ     џџџџџџ    џџџџџџџџx      $   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@   џџџџџџџџџџџџџџџџ`  H  x  џџџџР  №    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџH  8  џџџџ.,*4:@B џџ@ўџџџџџtџџџ	 џџ    џџџџ@ўџ`  pџџџ џџ      @ўџ  `џџџ џџ    а   @ўџЈ  Pџџџ џџ       @ўџи  @џџџ џџ       @ўџџџџџ0џџџ џџ    џџџџ@ўџџџџџ џџџ џџ    џџџџ@ўџџџџџџџџ џџ    ј  @ўџџџџџџџџ џџ    џџџџ@ўџџџџџџџџ џџ      џџџџ    џџџџџџ0  FHNJџџџџ џџ џџ@ўџx  џџџ џџ    џџџџ@ўџџџџџџџџ џџ    Ш  џџџџh                  џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ`             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ X   ME  џџџџџџ    џџ    џџ                                                              ўЪ ;  	 6        	 <   8    	 2   x    	     џџџџ     А    	     џџџџ"   И       Р      Ш    	     џџџџ 	 8   а    	        $ X (    * P   
  P     `     `     h   	    џџџџ   p   	    џџџџ 	 (       - И    * Ш   
  и     ш   	    џџџџ 	    ј   	               (   	    0   
.  P   

          	       
,  А   

  р     №   	 $   ј   
&      

   H   
 1 X   

   h     x             	     џџџџ 	       &  А   	    и   
  №   	    џџџџ               , 4        @     H   	     џџџџџџџџp  и   /  GBo3, Gerd Balzuweit, Changes for Office 2000, џџи   5  If the user press the cancel button of the file save ВНd&и   +  as raw/final version, don't save the file. џџP   ХџџH         Z ъ@   С (0   и  2  If you have opened the template, this is used forи    customizing the template.  .! $ , Є  $ * Ў  DOT   ^  .! <Џ   џџ 2   h џџ   Ў  AutoClose.Main   4B@6 џџи  "  Ask in some cases for realy exit.  .! 8  :    .! <Џ   џџ  B@>  џџ џџ  !  ' &   и    What should we do? ZB@ти        &т   Є  H Q и 
   Save final version..DeposЎ  AutoClose: save final version.   4B@6 \   @B@$  \ e x Є  H Q и 
   Save raw version.Ў  AutoClose: save raw version.   4B@6 V i   BB@$  S t u P џџ  и 
   GBo3, Abort, but don't save. ; C Ў  AutoClose: don't save!   4B@6 r Џ  .( <  V i Џ  .! D( <u Џ  F( <o m m k џџ   h џџx   h џџp   и    Close the document.  F i Ў  Call FunctionTDEN.Main   4B@6 l и    Terminate. o m m   HB@$  o l s  2ј   (№    N! PЩ fЎ  AutoClose.MainЩ   JB@L      2И  l џџА    .B@0        h џџ  џџџџ  mГ Attribut e VB_Nam e = "Aut oClose" 
' GBo3,  Gerd Ba lzuweit,  Changes  for Off ice 2000,bIf the  user presscancel  иton oFfile save7as r aw/final  version, don't#F1.

Opt  ExplicitPub  Sub Ma in()
   Dim S aMo de As In tegerOn Err`GoTboLinE' cyou h  opened@ templateb,is  tdcustom`izingZ )Right(U Case(Act iveDocument.Р), 3)УDOT" №Then+jdFalse   #End B#{xitC=  R3LogF@h.R3WritІeA
 (.Z"Z'@Xk iаn soРc8realy eEA(Prote C onTypAЁwdNoєAХ}Dia log.ShowA)HРOL	Get'oФ]' Wha Ѓhouldh we Ї?ЦStel@2 СwХ E1Ч  'B	 пНBIAС сa:CШ#УeFunXDSіEm%2рq%q__@gICDIREРZkcAbor@п пЮ'!lScсCсlTru`Х)  Ь`Љached
Tф.ѕNormќalкqуH s%йс' ТДЂdeA8FCall GAEN"/у' TerrmРЏteТ)Юa.
ЬBЈс:CWotrdb.рР
xt:=`.DesHcriBЗ, @Вule:=Э
E@
 КсЛ                                                                                                                                                                                                                                                                                                                                                           "ю" ;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я?р:
              Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Ж  Ь  џџџџ      Цq  џџ                                       џџ  в  ж   ж   	    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ                                                                                                 Ё   Ђ   Ѓ   Є   Ѕ   І   Ї   Ј   Љ   ўџџџЋ   Ќ   ­   ўџџџЏ   А   ўџџџВ   Г   Д   Е   Ж   З   И   Й   К   Л   М   Н   О   П   Р   С   Т   У   Ф   Х   Ц   Ч   Ш   Щ   Ъ   Ы   ўџџџЭ   Ю   Я   а   б   в   г   д   е   ж   з   и   й   к   л   м   н   о   п   р   ўџџџт   у   ўџџџх   ўџџџч   ш   щ   ъ   ы   ь   э   ю   я   №   ё   ђ   ѓ   є   ѕ   і   ї   ј   ўџџџњ   ћ   ќ   §   ў   џ      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      .Щ39Ъ $ * \ R f f f f * 2 4 3 9 3 3 c 9 a c п   (   h  џџџџ  џџџџш   p   џџџџ0         $   џџџџ    +tp      `    џџџџџџџџ    џџџџ  
 џџџџ џџџџ             6џџџџ  `    џџџџџџџџ    џџџџ  
 А   џџџџџџ       v% iџџџџџџџџџџ    џџџџ  x `џџџџџџџџ џџ    p  тp    џџ џџ       @    џџџџџџџџџџџџтrџџџџ џџ џџ     @    џџџџџџџџџџџџ4џџџџ џџ      џџџџџџ    џџџџџџџџџџџџџџџџ              0   џџџџш   џџџџџџџџp   џџџџ  џџџџџџџџџџџџџџџџ8            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ     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  v% x ' rЎ 	 DoLogging   v% x Ў  1   џџџџЏ' p  a џџ   Џ ' p  h џџ      r' t 2№    (ш   Ў   ' tЎ   ' rЏ ' p          N! PЩ |  Щ ~Ў # Error in R3LogFile.R3GetLogFileName Щ A@z able.D 2p   f џџh   и     write a line of the logfile' X8и       p     Z ъа   С (      pЏ    rЎ            $ В   '  DocM  r  Ѓ Ф  Щ    Ъ Ў  [    Ў  ]     Ю ll a  S  h џџЈ   2    (          N! PЩ |  Щ ~Ў ! Error in R3LogFile.R3WriteLogLine Щ A@z  2@  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"А 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                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ        ( Љ        ` §џџџџџџџџџџџ         _ _ S R P _ 6                                                     џџџџџџџџџџџџ                                    Њ   Ц       _ _ S R P _ 7                                                       	   џџџџ                                    Ў          F u n c t i o n T D D W                                                џџџџ                                    Б         F u n c t i o n T D E N                                          џџџџџџџџџџџџ                                    Ь   =            0       p                                                Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Ч  }  џџџџ       Цс  џџ                                       џџ  у  ж   ж   я    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџШ   $џџџџџџџџ    @          џџџџ    џџџџџџџџџџџџ         H>ЛwK   This function deletes the current document in the R3 DB and close the link.!   TemplateProject.FunctionTDDW.MAIN Ў     џџџџџџџџ8                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ       џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ И   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	    (   "    0    "   8       `    	    џџџџ 	        
           А    
   Р    	    џџџџ 	    а    
   ш       ј   џџџџ   Хџџx   и     Delete a document.  the lи             Ў  FunctionTDDW.MAIN    4B@6     TЎ  TDDWЩ Ў   Щ   \B@   и    The document is saved. ! Џ  .( < P Џ  .! D( <  Џ  F( <      и    Terminate.         B@B         l џџ    ЁБ Attribut e VB_Nam e = "Fun ctionTDD@W"
Op0  Explicit 

' Dele дa doc@ument. *
Pub H Su b Main(),
Ф". ЮDe0scriЊ nThis fs dX s the curr Zc in R3 DB and close`link. ­nProcDatazInvoke_сщTemplate ject.| .MAIN (   R3LogFil e.R3Write Line (
xWinSrv.ExecЎ Fcode:="Љ, Flags /  
  X' TxІ  saved Ћ  Aб ЧveDДS _pTrueaPchedn.N`ormalЦ#eprmin@GШ 5dow.C]
E@`z
                                             Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     Ь  џџџџ      Цу  џџ                                       џџ  :  ж   ж   :    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      .Щ39Ъ $ * \ R f f f f * 2 8 3 9 3 3 c 9 a c п   џџџџа   $џџџџ   `    @   h       џџџџ  
 џџџџџџџџџџ         H>Лw$   Beenden des Editieren des Dokumentes!   TemplateProject.FunctionTDEN.MAIN!      џџџџHџџџџ џџР     џџџџџџ    џџџџџџџџД?   $   џџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	        "   (        0       P   џџџџ`   Хџџx   и     Termination. џџџџи             Ў  TDENЩ Ў  SEЩ   \B@ l џџ(   џџџџ    џА Attribut e VB_Nam e = "Fun ctionTDE@N"
Op0  Explicit 

' Te rminad.  
Pub < S ub Main(X)
И". ТD`escri аB eenden d es EditierDokum`entes GProcDataSInvoke_ДМTemplate "ject.	Ь.MAIб  R 3WinSrv.ExecFco de:="y,  Flags SE?Endk
   rU              ~}         	       	                  0      ќЦ                                               k                                                              rU                    	      џџџџџџџџ        $          `  §џџџ     с                  p                          Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о     }_ _ S R P _ e                                                     џџџџџџџџџџџџ                                    с          _ _ S R P _ f                                                     
      џџџџ                                    ф   m       F u n c t i o n T D G L                                                џџџџ                                    ц   Д      F u n c t i o n T D H D                                          џџџџџџџџџџџџ                                    љ   Г        џџџџ       Цэ  џџ                                       џџ  Л  ж   ж   Г    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџ    $џџџџџџџџ    @   h       џџџџ    џџџџџџџџџџџџ         H>Лw$   Glossarindizierung Einzelne Begriffe!   TemplateProject.FunctionTDGL.MAIN       џџџџџџџџ`                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ       џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	       "            (       H   џџџџX   Хџџx   и   
  Glossary.и             Ў  TDGLЩ Ў   Щ   \B@   l џџ0   џџџџ(   §А Attribut e VB_Nam e = "Fun ctionTDG@L"
Op0  Explicit 

' Glossary.  
Pub 6 S ub Main(X)
В". МDрescri Ъ indizier ung Einz elne Beg`riffe }GProcDataSInvoke_БЙTemplate "ject.	Щ .MAIN P   R3WinSrv .Exec}Fc@ode:="x,Р Flags  Endj
             Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о     }  џџџџ       Ця  џџ                                       џџ  Г  ж   ж   Г    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџ   $џџџџџџџџ    @   `       џџџџ    џџџџџџџџџџџџ                   	  
    ўџџџ                                      ўџџџ!  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  ўџџџ5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  ўџџџR  S  ўџџџU  ўџџџW  X  Y  Z  [  \  ]  ^  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  ўџџџq  r  ўџџџt  ўџџџv  w  x  y  z  {  |  }  ~            џџџџ   Informationen zum Dokument
!   TemplateProject.FunctionTDHD.MAIN       џџџџџџџџh                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	        "    (       0       P   џџџџ`   Хџџx   и     Goto document.   и             Ў  TDHDЩ Ў   Щ   \B@   l џџ(   џџџџ    ќА Attribut e VB_Nam e = "Fun ctionTDH@D"
Op0  Explicit 

' Go to document. "
Pub @ Sub  Main()
М". ЦDescriЂ дInforma`en z@um DokS\r\n |APro cDataMIn`voke_АИTemplate " ject.	Ш.MAIN P  R3 WinSrv.Exec}Fcode:="w, F0lags  Endg
              Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Ї  }  џџџџ       Цщ  џџ                                       џџ  У  ж   ж   У    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџF u n c t i o n T D H I                                                џџџџ                                      ж      F u n c t i o n T D I N                                          џџџџџџџџџџџџ                                       У      F u n c t i o n T D S E                                                 џџџџ                                    4  	      _ _ S R P _ a                                                    џџџџџџџџџџџџ                                    Q         џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџЈ   $џџџџџџџџ    @   p       џџџџ    џџџџџџџџџџџџ         H>Лw,   Anzeigen der Versionshistorie des Dokumentes!   TemplateProject.FunctionTDHI.MAIN       џџџџџџџџX                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	        "    (       0       P   џџџџ`   Хџџx   и     Goto revisions. и             Ў  TDHIЩ Ў   Щ   \B@ WSl џџ(   џџџџ    Б Attribut e VB_Nam e = "Fun ctionTDH@I"
Op0  Explicit 

' Go to revis	 Ps. $
Pub B Sub Main()
О". ШDescriЄ жAnzei gen der VerNhistorie s D okumentes OProcData[Invoke_ПЧTem plate "ject.з.MAIN P  R3W inSrv.ExecFcode:=", Flags  Endn
                                           Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о     }  џџџџ       Цы  џџ                                       џџ  Л  ж   ж   Ы    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџ    $џџџџџџџџ    @   h       џџџџ    џџџџџџџџџџџџ         H>Лw   Informationen zur Einstellungz"     !   TemplateProject.FunctionTDIN.MAIN       џџџџџџџџ`                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	 "       	    0   "    8       @       `   џџџџp   Хџџx   и     Information -> Information.T (и             Ў  TDINЩ Ў   Щ   \B@   l џџ   џџџџ   єА Attribut e VB_Nam e = "Fun ctionTDI@N"
Op0  Explicit 

' In formad->	. <
Pub Z Sub MaРin()
ж". рDescri^ wSen zu r Einste`llung @ProcDataLInvoke_МФTemplate "ject.	д.MAй  R3 WinSrv.ExecFcode:="}, F0lags >Endg
                                                              Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     Ь  џџџџ      Ц  џџ                                       џџ  :  ж   ж   V    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      .Щ39Ъ $ * \ R f f f f * 2 6 3 9 3 3 c 9 a c п   џџџџа   $џџџџ   `    @   h       џџџџ  
 џџџџџџџџџџ             $   Sichern des Dokumentes in Endfassung!   TemplateProject.FunctionTDSE.MAIN       џџџџ@џџџџ џџР     џџџџџџ    џџџџџџџџ       $   џџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	    (   "   0    	 8   8    	     p    $       
   И       Ш       а    	     џџџџ     и        ј           	     џџџџџџџџ  Хџџx   и     Save as final version.   и             и  2  If you have opened the template, this is used forи    customizing the template.  .! $ , Є  $ * Ў  DOT         .B@0         20   h џџ(   Ў  TDSEЩ Ў  S Щ   \B@  2    l џџј   џџџџ№   ЏБ Attribut e VB_Nam e = "Fun ctionTDS@E"
Op0  Explicit 

' Sa ve as fi nal vers `. 2
Pub P Sub MaРin()
Ь". жDescriВ rSicher n des Do@kument 
i n Endfas0sung GPr@ocDataSIРnvoke_ОЦ TemplateС "ject.ж .MAIN P   ' If you hhopened the t",is  usA for
c ustomizi,ng  )Ri ght(UCase(AЇveDo
cl.Д), 3)SDOT" TШhen+  Г!GoTo Тit№Line	3Ч   R3WinSrv.Execч Fcode:="с, Flags% SyEx!:
!РiС                                                       rU              ~}         	       	           
       0      ќЦ                                               k                                                              rU                    	     
 џџџџџџџџ        $      
    `  §џџџс      9                  p                          Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Ю  Ь_ _ S R P _ b                                                          џџџџ                                    T  m       F u n c t i o n T D S R                                           џџџџџџџџџџџџ                                    V  M      _ _ S R P _ c                                                     џџџџџџџџџџџџ                                    p         _ _ S R P _ d                                                          џџџџ                                    s  e         џџџџ      Ц  џџ                                       џџ  ъ  ж   ж       џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      .Щ39Ъ $ * \ R f f f f * 2 7 3 9 3 3 c 9 a c п   x      $џџџџ   `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ         џџџџ    џџџџBџџџџ џџp     џџџџџџ    џџџџџџџџ       $   џџџџ                    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	    (   "   0    	 8   8    	     p    $       
   И       Ш       а    	    џџџџ     и        ј           	     џџџџџџџџ  Хџџx   и     Save as raw version. џџџџи             и  2  If you have opened the template, this is used forи    customizing the template.  .! $ , Є  $ * Ў  DOT         .B@0         20   h џџ(   Ў  TDSRЩ Ў  S Щ   \B@  2    l џџј   џџџџ№   CБ Attribut e VB_Nam e = "Fun ctionTDS@R"
Op0  Explicit 

' Sa ve as ra@w vers \.A .
Pub L  Sub Main ()
  '  If you hlopened  the temp late, is  us for6customiАzing
/ k S Right(UC ase(A Дve Document.Э), 3)в DOT" ThernV  *fGoTotitLiФne	End3R3WinSr@v.ExecFcode:=", Flags S Ex":
"                                                    rU              ~}         	       	                  0      ќЦ                                               k                                                              rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ             p                                  Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о     }  џџџџ       Ц  џџ                                       F u n c t i o n T D T E                                             !   џџџџ                                    u  Ќ      F u n c t i o n T D T P                                           џџџџџџџџџџџџ                                      В      R 3 O p e n D o c u m e n t                                      0   џџџџџџџџ                                      ѕ      R 3 D o c V a r                                                  %   џџџџџџџџ                                    г                      ўџџџ                                    ўџџџ           Ё  Ђ  Ѓ  Є  Ѕ  І  Ї  Ј  Љ  Њ  Ћ  Ќ  ­  Ў  Џ  А  Б  В  Г  Д  Е  Ж  З  И  Й  К  Л  М  Н  О  П  Р  С  Т  У  Ф  Х  Ц  Ч  Ш  Щ  Ъ  Ы  Ь  Э  Ю  Я  а  б  в  ўџџџд  е  ж  з  и  й  к  л  м  н  о  п  р  с  т  у  ф  х  ц  ч  ш  щ  ъ  ы  ь  э  ю  я  №  ё  ђ  ѓ  є  ѕ  і  ї  ј  љ  њ  ћ  ќ  §  ў  џ     џџ  Ћ  ж   ж   Г    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџ   $џџџџџџџџ    @   X       џџџџ    џџџџџџџџџџџџ         H>Лw   Terminologie Suchenw!   TemplateProject.FunctionTDTE.MAIN       џџџџџџџџp                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	    (   "    0       8       X   џџџџh   Хџџx   и     Search terminilogy.e   и             Ў  TDTEЩ Ў   Щ   \B@ Лwl џџ    џџџџ   ѕА Attribut e VB_Nam e = "Fun ctionTDT@E"
Op0  Explicit 

' Se arch ter minilogy. ,
Pub J  Sub Mai`n()
Ц". аDescriЌ oTDo Die 90chen v6Pr@ocDataBIРnvoke_ЊВ TemplateA "ject.	Т.MAIN P  R 3WinSrv.ExecєFco de:="t, `Flags  Endb
                     Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о     }  џџџџ       Ц  џџ                                       џџ  Ћ  ж   ж   Г    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџ   $џџџџџџџџ    @   X       џџџџ    џџџџџџџџџџџџ         H>Лw   Terminologie pflegen!   TemplateProject.FunctionTDTP.MAIN       џџџџџџџџp                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	         	    (   "    0       8       X   џџџџh   Хџџx   и     Terminilogy maintenance. и             Ў  TDTPЩ Ў   Щ   \B@   l џџ    џџџџ   ћА Attribut e VB_Nam e = "Fun ctionTDT@P"
Op0  Explicit 

' Te rminilog y mainte@nance. 6
Pub T Sub M 6()
а". кDesc\ri[ tPo Pi e pflegen |7ProcDataCInvoke_АИTem plate "ject.	Ш.MAIN P  R3Wi nSrv.Exec}Fcode:="w, Flags  Endb 
               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Џ  }  џџџџ       Цё  џџ                                       џџ  Ы  ж   ж   
    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџА    @   џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ! !        џџџџАџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ            `Дџџџџџџџџ џџ    r Ofџџџџ    џџџџ@   џџџџP                   џџџџџџџџџџџџџџџџ@   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ 5           	        	 2       	    H    	 (   P    	 (   x    	 6        	    и   "    р    	     џџџџ    ш    	    џџџџ 
   №    .       	    џџџџ >   0   0   p   	    џџџџ 	 &       	 *   Ш       ј            8   
   P      `   	    џџџџ 	 ,   h         	    џџџџ 	        
   И      Ш   
   и      ш   	    џџџџ     ј           <          H      P   	     џџџџ"    X      `   	    џџџџ 	 ,   h         	    А   $   Ш      №   "      "   8      `      h  џџџџx  Хџџx   и       и   +  Some more stuff while opening the document       и       и   "  Changes: Gerd Balzuweit, 20.08.98и   !           rewritten for Office 97 и   /           GBo2, Changes for Office 2000 Release џџи             С (     4B@t  (     Ў  R3OpenDocument.R3OpenDocument    4B@6 џџЎ  R/3 Windows ServerЩ ЄЎ  Edit_Text_Exit_Td Щ І  \B@Ђ   Ў  R/3 Windows Server initialized.    4B@6 и    The two save modus are removed џџи  $  from the menu the delete button too§џџџ  Ў  Display   R% T Ў  X   Ў  set view mode    4B@6 Z  ЊЩ n  .B@Ј Ј  А  ЌB@Ў  В  h џџ  и  %  Customize the save mode dialog text. `   A@А    и    Set all as saved.Џ  .( <ou wanЏ  .! D( <ocЏ  F( <BџџџЎ     b( В' X 2    (ј     N! PЩ fЎ  R3OpenDocument.R3OpenDocument Щ   JB@L  T  2А   l џџЈ   @     Z ъ   и  %  Customize the save mode dialog text.    И  b% Ж ' Д   џџџи    GBo2, Language  џ  Д  К! М    Д  К! О    џш Ў  Sichern in R/3  ( Р  џџџџЎ  Sichern Rohfassung  ! Т( РџџP  Ў  Sichern Endfassung  ! Ф( Рџџ   h џџ  l џџ  џџџџ  цГ Attribut e VB_Nam e = "R3O penDocum ent"
Op tion Exp licit
'  So Иmor e stuff while o t ing the d`Chang es: Gerd  Balzuwe it, 20.0P8.98U  r ewritten  for Off@ice 97
#G`Bo2, W	'2 000 Release 1
Pub Л Sub о ()

  Oorr4GoTo ELin   R3LogF p.R3GetзWZeќ (І­ >w! WinSrv.I nitia ЩAp pl:="R/3  dows S erver", Obj Edit _Text_Exѕd ж  pO6F	% ilized."Ш#' Tp two save  modus a@{removedС,' fromТzНu}@] / tРHtoo
If@%V ariable. PItem("D isplay")iX"Anк0set view$eE,ActiveХЌ.Protec t Type:= wdAllowO@nlyComЕsEMenu.SetD"ModeO РEnd If	С  ' Custom@I9DРИialoћЛ a.A
Тe	С '  allh asSdТ
-SХРYd@BTruТРъachedTe"m Mte.ЭNo0rmalicaђ.Statu№sBar/FС\C_ I#_`:aR3Whordb.рK 	:=`.DesHcri, Р(uцl /М_
СV .РsЁqPriv`Ёuъ)u  Dim
 aLР As IntegerЯa 5e5= #с	rn%al(wd!IductСuageIDЂd' ЃХAР\(
Wdg.wdРman) Or ИSwi|ssE@pb=ЁSD1тM.CacВРЕSiщ Brn y @9ЬСRawбRohfassungWрFinal6a8fс b9            Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   /  }  џџџџ       Ц  џџ                                       џџ  K  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџ0  ЦА   џџџџ    џџџџџџџџ    џџџџ    @   џџџџџџџџ        H>Лwiџџџџџџџџџџ    `        ijџџџџџџџџџџ    џџџџ      `Шџџџџџџџџ џџ        `Ъџџџџџџџџ	 џџ        +xX  џџџџ    џџџџџџџџ    џџџџ    №    џџџџџџ            iџџџџџџџџџџ    џџџџ  џџ`Шџџџџџџџџ џџ    џџџџ`Ъџџџџџџџџ	 џџ    Ў  `Zџџџџџџџџ џџ    Щ 0вА  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ
 
        џџџџ`Шџџџџџџџџ џџ    џџџџжџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ	 	        ј  `иџџџџџџџџ џџ    ј  џџџџ    А  џџџџА   X  џџџџ Ъ џџџџа                  џџџџџџџџџџџџџџџџА  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ   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. alи             Z ъ   Z ъ   ї   Ші Є    .! Ь! Ю       х   Ш  .! Ь% V . Ъ  Ъ!       j  Ъ( j     2   h џџ   ї   Ші Р         Щ   jЩ j  .! ЬB@а en 2и   l џџа   и   0  Get a document variable of the active document,\и     the return value is a string.alizи       А     Z ъ  Z ъ(  Z ъ@  Ў   ' Zї   Ші Є    .! Ь! Ю nu theх   Ш  .! Ь% V . Ъ  Ъ!       Ъ! j' Z   2р  h џџи  ї   Ші Р 6 Z 2Р    Z' xf џџА  и     Remove all doc variables и       X    Z ъ    .! Ь! ЮЄ   
 ь     Є    .! Ь% V B@д  ы џџ@  l џџ8  и     Test <ocи       А    Z ъ№  Ў  TestЩ Ў  T1Щ jA@Ц ! PЎ  TestЩ Ў  T2Щ jA@Ц nDocЎ 
 AbsLogFile$ x ' иЎ  NotExist$ x ' и  l џџ   џџџџ   xВ Attribut e VB_Nam e = "R3D ocVar"
 Option E xplicit§џџџУ      Ѕ   Й                                                                                     Ё   Ђ   Ѓ   Є   ўџџџІ   Ќ   Ј   Љ   Њ   Ћ   ўџџџ­   З   Џ   А   Б   В   Г   Д   Е   Ж   Ї   И   К   О   Л   М   Н   П   Э   Р   С   Т   Ф   ц   Х   Ц   Ч   Ш   Щ   Ъ   Ы   Ь   п   ы   Я   а   б   в   г   м   е   ж   з   и   й   к   л   Ю   н   о   ўџџџр   с   т   у   ф   х   ч   ўџџџш   щ   ъ   ь   э   ю   ѕ   я   №   ё   ђ   ѓ   є   ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ                	  ўџџџ                                        ўџџџ   !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  ўџџџ=  >  ?  ўџџџA  B  ўџџџD  E  F  G  H  I  J  K  L  M  N  O  P  ўџџџR  S  T  U  V  W  X  Y  Z  [  \  ]  ўџџџ_  `  a  b  c  d  e  f  g  h  i  j  k  ўџџџm  n  o  p  q  r  s  t  u  v  w  x  y  ўџџџ{  |  }  ~       

' 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                                                              Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Ц  џџ                                       џџ  k  ж   ж   7    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п   R 3 W i n S r v                                                  #   )   џџџџ                                       &>      F i l e S a v e                                                   џџџџџџџџџџџџ                                    
  >      R 3 M e n u                                                       1   3   џџџџ                                    Ў   W      R 3 W o r d E r r o r                                               +   џџџџ                                      	        ті   ц џџЎ  R3WinSrv.UnInstallAddIn check:    т!     4B@6 џџџџџџи  -  if the add in is ws8word.dot, try to delete.     и        т! $ , Ў  WS8WORD.DOT   |' zЎ   R3WinSrv.UnInstallAddIn delete:   т!     4B@6 ъ    тB@д  tЄ    2`  h џџX  ї   ті Р B@   2@   (8    N! PЩ fЎ  R3WinSrv.UnInstallAddIn Щ   JB@f   2ј   l џџ№   и     Call a specific fiњnctionи       `     Z ър   Z ъј   Z ъ  С (        Ў  R3WinSrv.Execute           4B@6 џџЎ  Call SAP R/3  Code:    Ў 
  Options:       b( Вџџџџи    Save or not save.Є    Ў  S ~ Є   
  Є    Ў  E ~ Є       .! ьЏ       .! <Џ     A@ю    h џџА  h џџЈ  h џџ   h џџ  Є    Ў  T ~ Є   
  Ў 	 DocOpened Щ VЎ  X Щ j  RB@h џџh џџP    Ў     џџџџи    For search in glossary.  и  0  In protected documents the method is not valid.    .! 8  :    №! n  ђ    №! f' шџџџџh џџА  h џџЈ  и    Prepare the command. џџџџ  Ў  (     Ў  ,    .! є Ў  ,  ' ъЄ    шЄ " $ і ~ Є      ш Є  	   џџџџџџ  ъЄ " $ і    ш Є " $ і  ' ъџџh џџј    ъЎ  )  ' ъи    Send the command.  \% ^  ' X=Ў  DDEExecute Command:   ъ    4B@6 ўџџџџџЎ  Control passed to SAP R/3   b( Вџџи    Execute the comand.  џџџџ  XЩ X  ъЩ њA@ј џџh џџ(  и    Termination. џџџџЄ    Ў  E ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   4B@6 A@ќ     2И   h џџА   и    Termination. FileЄ    Ў  T ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   4B@6 A@ќ     2@   a џџ8     bB@d  џџ џџЎ  Callback to R/3 completed    4B@6 Єј  Ў  Callback to SAP R/3 completed   b( Вџџ џџh џџР  Є    Ў  M ~ Є   
       b( ў џџh џџ   2   (    N! PЩ fЎ  R3WinSrv.ExecuteЩ   JB@f џџЎ  close the document   4B@6   и    Say all is saved.Џ  F( <  џџџџЏ  .! D( <џџЏ  .( <џџџџџџи    Close the document.џџ 
    B@B   џџџџџџ 2Ј  l џџ   и   /  Initialize the R3 Windows Server Communikat Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   №   :  И  џџџџ       ЦЌ  џџ                                         к џџм   о   V  ш   ш   /    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџф    < џџ    < џџ    <џџџџ  џџ      .Щ39Ъ  п    џџџџ   р`   џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         H>Лw тџџџџџџџџX       ш>Лw   $   (  џџџџ    џџџџџџџџ    џџџџ        џџџџџџџџX X       ''''iџџџџџџџџџџ    Р     ''''iџџџџџџџџџџ    џџџџ  ''''`Xџџџџџџџџ џџ       `шџџџџџџџџ џџ    dot.`ъџџџџџџџџ џџ    ngerЂи  џџџџ    џџџџџџџџ    џџџџ    h  џџџџџџџџ           iЄџџџџџџџџџџ        dd iiІџџџџџџџџџџ    џџџџ  R3Wi`Xџџџџџџџџ џџ    chec`џџџџџџџџ џџ    B@6ќ0  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ/ /            `Xџџџџџџџџ џџ     Ў +^  џџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ           т`Xџџџџџџџџ џџ      Ш  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         8    џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ$ $        ј   ю`  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ6 6        р   `Xџџџџџџџџ џџ        џџџџџџџџ    џџџџџџџџ    џџџџ       џџџџџџџџ        Calliџџџџџџџџџџ    џџџџ  ptioШ  0      џџџџџџџџи      (  џџџџ`  џџџџџџџџ`   џџџџ   	 	               џџџџџџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ       џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ Р  ME  џџџџџџ    џџ    џџ                                                               ўЪ Q 	         	         	    (    Р    @    	     џџџџ Р    H    	    P    	     џџџџ Р    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 = Falseѕ Џ№ кѕ Џ № ми    #Const STD = True ѕ Џ № ои    #Const HR = True  и   S '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''      и   "  Uninstall the add in ws8word.dot.и     This is no longer used.џџи             Z ъ@   Ў  R3WinSrv.UnInstallAddIn    4B@6 и    Iterate all add ins.    ї ion и       (    Z ъЈ  Z ъР  С (@  Ў + Initialize Connection to R/3 Windows Server   b( ВЎ  DDEInitiate:    Є Ў       І    4B@6       ЄЩ   ІЩ $  ' X  ю  X$ 
 '   Ў  DDE Channel:        4B@6  џџЎ  Applikation Щ   ЄЩ j  vB@Ц џџЎ  ObjectЩ   ІЩ j  vB@Ц Ў  DDE-Channel Щ   Щ j  vB@Ц џџ 2    (ј    N! PЩ fЎ  R3WinSrv.Initiate Щ   JB@L  2Р  l џџИ  и   . Terminate the connection to R/3 Windows Serverџџџџи       и    Z ъ  С (`  Ў 	 Terminate   b( ВџџЎ  R3WinSrv.Terminate   4B@6 ўџ  и  E  Get the channel number, after save all document variables are empty.   $ ^  ' XўџP  и    Save the document. џџ џџ  .! 8  :  Ў ( R3WinSrv.Terminate: don't save document.   4B@6   .B@    џџџџЏ  F( <џџџџџџЏ  .! D( <џџЏ  .( <џџџџџџa џџ  Ў " R3WinSrv.Terminate: save document.   4B@6 ўџP  A@ю    h џџШ  и    Terminate DDE and wswinsrv.џџ џџЎ  DDE Terminate    4B@6 Ў 
 Channel =   X$ 
     4B@6 џџ  XЩ XA@ џџЎ  Close document   4B@6   Ў     b( Вџџџџи  !  Unistall the add-in ws8word.dot. Ў  Uninstall ws8word.dot    4B@6 <A@р     2И   (А    N! PЩ fЎ  R3WinSrv.TerminateЩ   JB@f и    All is saved.џџџџЏ  F( <  <`=Џ  .! D( <?Џ  .( <џџ џџ 20  l џџ(  и   7  Get the DDE-Channel number. Use the document variable. ?и       0    Z ъp  Ў  DDE-Channel   v% x ' Xџџ  XЎ           X$  ' ^ea џџ   Є   ' ^h џџx   f џџp   и   .  Set some values via DDE in case of no saving.<`=и           С (    Ў  R3WinSrv.SetNoSaveValues   4B@6 и    HR       ѕ   оё и    No changes       Ў  Changed Щ VЎ    Щ j  RB@h     ѕ є   и     IMG      ѕ   кё и    No changes       Ў  FunctionЩ VЎ    Щ j  RB@h     ѕ є 8   20   ((    N! PЩ fЎ  R3WinSrv.SetNoSaveValuesЩ   JB@L    2ш  l џџр  и   )  Set some values via DDE in case of save. и       Ш    С (  Ў  R3WinSrv.SetSaveValues   4B@6   и    HR       ѕ   оё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   v% x Ў  0 
        и    New document.    Ў  Changed Щ VЎ  I Щ j  RB@h     a џџА  и    Document is changed.     Ў  Changed Щ VЎ  U Щ j  RB@h     h џџ`  ѕ є X  и     IMG      ѕ   кё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   v% x Ў  0 
        и    New document.    Ў  FunctionЩ VЎ  I Щ j  RB@h     a џџ  и    Document has changed.    Ў  FunctionЩ VЎ  U Щ j  RB@h     h џџH  ѕ є @   28   (0    N! PЩ fЎ  R3WinSrv.SetSaveValuesЩ   JB@L      2№  l џџш  и     Save the documentи           Z ъH  С (А  Ў  R3WinSrv.SaveDoc   4B@6   .! <Џ     и  3  Say to wswinsrv that the document has to be saved.       и      A@    и  &  Get the DEE channel for dde commands.    и      $ ^  ' X      и   
  HR or STDѕ   оЏ    мЏ   ё       и    Remove all document variables.     vB@в        ѕ є x
  и    Set the templates as saved.      Џ  F( <      Џ  .! D( <  и    Save the documentЎ  ActiveDocument.Save    4B@6       .B@0        Џ  .( <      ѕ   кЏ    мЏ   ё       и     Say that something has changed.  Ў  R3WinSrv.SaveDoc: DDEExecute:   X$ 
  Ў   change     4B@6   XЩ XЎ  changeЩ њA@ј     ѕ є 	  a џџ	  и  /  Say to wswinsrv that the document has changes.   и      Ў   R3WinSrv.SaveDoc: nothing to do.   4B@6 A@    и    Set all as saved.Џ  F( <      Џ  .! D( <  Џ  .( <љ   h џџH   2@   (8    N! PЩ fЎ  R3WinSrv.SaveDocЩ   JB@L    2   l џџј  `    С (ш  Ў  Remove file       4B@6         A@        2Ј   (     N! PЩ fЎ  R3WinSrv.RemoveFile Щ   JB@f        2`  l џџX  џџџџP  јЖ Attribut e VB_Nam e = "R3W inSrv"
 ' Compil er const0ants T #C!< IMG dFa lse

&TrFu $(STDP'чR()HR(''P h 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сРstr(ЄТo(f(pnтЕфa дR3 Р.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т
'Њ  ­PStriA­ ІЏ=ЗЅРaа.Р#(
бЯbRPС""HР}E=aжY!/wЪ0џb lСoСpBЭ`ШHomeluРЋvLiaBrрQca #o№f no9ъ!ей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 ^'Аr p"R3я6IsNewё") > "0щ5Р$ewж\ Av%%гЃ"I^љw8' №ѓ QS*#QЯё**AЉ"Uc$<П/+!1++ЏЏЏc	џIЏGЏАЏЄП1уПЗhas$=Я\=џпу7OpЏ bс/Нџ@/Н/Н ,Џ7І7нЈНЛс00#TeIntќegсОб-OVтЩЁOVќogЙt77а2ubw<Fa@Ёf8ёSanyбШEАМaН5Ў ѓQ№Ъbe
уШQkRСDEE  nel for Єddaаmm@?sd9yб9чpGoгQм!c б№STD]( cДР) Or (Е)&Remo/Шџ$ШA!3У`0ѕdяБ	ЖДЮhpМ0Ьщў  lООЧЪОp%)ѓБ' "uC	ї?"6"o ec"юЪБуя?сAJ(QJяЭ+ыв%h%sth?A^OA?.!
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 StЦrРWOn ,Я)CWYmB ftB ѓKicE<шCрTrace$fD9E                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           џџџџP   $џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ"               	     џџџџ 	        2   8    
   p    	    џџџџ                 ,           Р       Ш   џџџџи   Хџџx         С (h   и    Save final version.st IMGЎ ! FileSave.Main: save final version    4B@6 Џ № о  @B@$         2x    (p     N! PЩ fЎ  FileSave.Main Щ   JB@L '''' 28   l џџ0   џџџџ(   Б Attribut e VB_Nam e = "Fil eSave"
 Option E xplicit@

Pub ,  Sub Main()
  O F rror GoTo ELine!^  '  f inal ver
s Є.jR3Logm.R3WriLte 6 (.Бc: s @"wFuncЁTDS&E*V
xit:uWord. p Text:=.Descri{, Module:=G E.(End 
   Ж џџ    џџџџ    џџ џџ                                      С 2  ї   ,і   ! 4 Ў  X ї   0і   ,! 6 џџP  и    Disable the icon.и        0! Р  &  Џ   0( 8protech џџ  ї   0і Р methodї   ,і Р lid.   2р  l џџи  и     Enable an entry in the menu. А  и       8    Z ъИ  Z ъи  С 2  х    $ 4 . ,ї   0і   ,! 6  Ў  и    Enable menu entrys ~ Є   и        0! Р  "  Џ  0( 8і  h џџ  ї   0і Р ' ъџџ 2ј  l џџ№  и   #  Enable an entry in the comand bar. ' X=и       ј    Z ъX  Z ъx  Z ъ  С 2  ї   ,і   ! 4  to SAї   0і   ,! 6    Eи    Enable the icon. и        0! Р  &  Џ  0( 8   Th џџ  ї   0і Р    ї   ,і Р   
   2№   l џџш   и     Enable some entrys.B@6 и       А    и    Save entrys. natiЎ  FileЩ  Ў  &Save final version Щ "A@: xeЎ  FileЩ  Ў  &Sichern Endfassung Щ "A@:   Ў  FileЩ  Ў  &Save and back to R/3 Щ "A@: Ў  FileЩ  Ў  &Sichern und zurќck zu R/3Щ "A@: leteЎ  &Save Щ &A@< Р  Ў 
 &SpeichernЩ &A@< и  
  Save raw.Ў  FileЩ  Ў  Save &raw version Щ "A@: nSrvЎ  FileЩ  Ў  Sichern &Rohfassung Щ "A@:  и    Delete.Ў  FileЩ  Ў  Dele&te Щ "A@:   џџџџЎ  FileЩ  Ў  D&elete Щ "A@:    CЎ  FileЩ  Ў  L&іschenЩ "A@: џџџџџџ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Я
   X      `      h      p   	    џџџџ    x   	    џџџџ             	    А   	    Ш      а   
   р      №   
                             џџџџџџџџ   џџџџx   о     Ь  џџџџ      Цs  џџ                                       џџ  В  ж   ж   ъ    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      .Щ39Ъ $ * \ R f f f f * 2 9 3 9 3 3 c 9 a c п   џџџџH  L      `    џџџџџџџџ    џџџџ   @   џџџџџџ        H>Лwifџџџџџџџџџџ    `        iџџџџџџџџџџ    џџџџ      fџџџџ  `    џџџџџџџџ    џџџџ   Р   џџџџџџ   
        ifџџџџџџџџџџ    р         iџџџџџџџџџџ    џџџџ      џџџџџџџџ       Jџџџџ џџ8    џџџџџџ    џџџџџџџџџџџџ   $   џџџџИ                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                               ўЪ   	         	       "           (    .   0    *   `     Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Y  Ї  џџџџ       ЦЩ  џџ                                       џџ  u  ж   ж   э    џџџџ    п џџ     џџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџ.    <џџ2    < џџ    <џџџџ  џџ      .Щ39Ъ   п    џџџџ0  Ў@   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ         H>Лw(   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ
 
            *Р   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ          Ъ  џџџџ    џџџџџџџџ    џџџџ       џџџџџџџџ        raw.i џџџџџџџџџџ         rsioi"џџџџџџџџџџ    џџџџ  Ў   ,џџџџџџџџX      Щ "   $    0џџџџџџџџx      File  $   $8  џџџџ    џџџџџџџџ    џџџџ    Р  џџџџџџџџ        checi&џџџџџџџџџџ    џџџџ  ave  ,џџџџџџџџј             $    0џџџџџџџџ      Ў    $   `"џџџџџџџџ џџ     :ј  џџџџ    џџџџџџџџ    џџџџ    x  џџџџџџџџ        &Savi џџџџџџџџџџ        rnЩ i"џџџџџџџџџџ    џџџџ  le t ,џџџџџџџџа      ).     $    0џџџџџџџџ№      File  $   <А  џџџџ    џџџџџџџџ    џџџџ    8  џџџџџџџџ        џџџџi&џџџџџџџџџџ    џџџџ  nu e ,џџџџџџџџp             $    0џџџџџџџџ       $   $   `"џџџџџџџџ џџ     	  >џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         0(    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). Ў 5 и             С  8   и    Save final.      Ў  FileЩ  Ў  &Save final version Щ "A@ і Ў  FileЩ  Ў  &Sichern Endfassung Щ "A@ ЪЎ  &Save Щ &A@$   ЪЎ 
 &SpeichernЩ &A@$ и  
  Save raw.Ў  FileЩ  Ў  Save &raw version Щ "A@ џџџџЎ  FileЩ  Ў  Sichern &Rohfassung Щ "A@ и    Delete.џџЎ  FileЩ  Ў  Dele&te Щ "A@ џџџџЎ  FileЩ  Ў  L&іschenЩ "A@   checl џџ8   и     Disable the save entrys (STD).   и       @     С  ј  Ў  FileЩ  Ў  &Save and back to R/3 Щ "A@ Ў  FileЩ  Ў  &Sichern und zurќck zu R/3Щ "A@ џ   Ў  &Save Щ &A@$ џ   Ў 
 &SpeichernЩ &A@$ l џџX  и      Disable the delete entry (STD).  и            С    Ў  FileЩ  Ў  D&elete Щ "A@ џџџџџџЎ  FileЩ  Ў  L&іschenЩ "A@  џџџџџl џџР   и     Diable one menu entry.  џи       Р     Z ъ@  Z ъ`  С 2x   х    $ 4 . ,ї   0і   ,! 6 Ъ 	  и    Diable menu entrys     и        0! Р  "  Џ   0( 8     h џџ    ї   0і Р     2ш  l џџр  и   %  Disable an entry in the command bar. А  и           Z ър  Z ъ   Z ъ"          И       а    	     џџџџ"   и       р    "   ш             (  џџџџ8  и     Errorhandler le sи             С  P     fЩ |  Щ ~Ў 	 Error in     Щ A@z   Ў 	 Error in     Ў  :    f   b( Вџџ    Ў 	 Error in     Щ   4B@6        fЩ   4B@6 џџ    l џџ(        С     Ў 	 Error in     Щ   4B@6 џџџџ  fЩ   4B@6 "џџџџ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                                                                _ _ S R P _ 1 0                                                  џџџџџџџџџџџџ                                    <  Ц       _ _ S R P _ 1 1                                                   (      џџџџ                                    @  Ў       F i l e S a v e V e r s i o n                                     .   -   џџџџ                                    C  B      F i l e S a v e H t m l                                          џџџџџџџџџџџџ                                    Q  0      rU                    	      џџџџџџџџ        ,          ` §џџџџџџџџџџџ    1     I          00, Љ        ` §џџџџџџџџџџџ    1     I          00    p                         Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Ц  џџ                                       џџ  k  ж   ж   ѓ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџP   $џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "                	     џџџџџџџџ         l џџp   џџџџh   KА Attribut e VB_Nam e = "Fil eSaveVer sion"
P ublic Su b Main() 
End<
 
                                                               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Цw  џџ                                       џџ  k  ж   ж   ч    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџP   $џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         H>Лw    џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "               џџџџ         l џџp   џџџџh   EА Attribut e VB_Nam e = "Fil eSaveHtm l"
Publ ic Sub M ain()
End<
                 Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }F i l e S a v e A s                                               џџџџџџџџџџџџ                                    ^  b      F i l e S a v e A s W e b P a g e                               $  џџџџџџџџџџџџ                                    l  D      F i l e S a v e F r a m e A s                                      џџџџџџџџџџџџ                                    z  2      F i l e C l o s e                                                 џџџџџџџџџџџџ                                      л        џџџџ       Ц  џџ                                       џџ  k  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџP   $џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         H>Лw    џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "         
              	     џџџџџџџџ(           B@$        l џџ`   џџџџX   OА Attribut e VB_Nam e = "Fil eSaveAs" 
Public  Sub Main()
  .H
End@ 

                               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Ц  џџ                                       џџ  k  ж   ж   ѓ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџP   $џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         џџџџ    џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "                	     џџџџџџџџ         l џџp   џџџџh   MА Attribut e VB_Nam e = "Fil eSaveAsW ebPage" 
Public  Sub Main()
End< 

                                                             Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Ц  џџ                                       џџ  k  ж   ж   ч    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п               ўџџџ                                                   Ё  Ђ  Ѓ  Є  Ѕ  І  Ї  Ј  Љ  Њ  Ћ  Ќ  ­  Ў  Џ  А  Б  В  Г  Д  Е  Ж  З  И  Й  К  Л  М  Н  О  П  Р  С  Т  ўџџџФ  Х  Ц  Ч  Ш  Щ  Ъ  Ы  Ь  Э  Ю  Я  а  б  в  г  д  е  ж  з  и  й  к  л  ўџџџн  о  п  р  с  т  у  ф  х  ц  ч  ш  щ  ъ  ы  ь  э  ю  я  №  ё  ђ  ѓ  є  ѕ  і  ї  ј  љ  њ  ћ  ќ  §  ў  џ      џџџџP   $џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "               џџџџ         l џџp   џџџџh   GА Attribut e VB_Nam e = "FileSaveFr  As"
Pub lic Sub  Main()
End<
               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   ї  }  џџџџ       Цф  џџ                                       џџ    ж   ж   п
    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      .Щ39Ъ п    џџџџј   $X   џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ* *        H>Лw`&џџџџџџџџ џџ    ш>Лw+Lџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ         ffer`Дџџџџџџџџ џџ      R`џџџџџџџџ џџ        `Tџџџџџџџџ џџ    File    џџџџX   џџџџџџџџ                   џџџџџџџџџџџџџџџџX   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ р   ME  џџџџџџ    џџ    џџ                                                              ўЪ D  	         	 <       	 L   P    	     џџџџ          	     џџџџ 	    Ј    	    И   "    Р       Ш    	    џџџџ    а       и    	    џџџџ *   ј    	 (   (   	    P      X   	    џџџџ    `   	 
   h      x   
      	              	    Ј      Ш   	    џџџџ 	 "   а      ј   	        
         (   
   8   
   H   	    џџџџ    X      `   	    h   
            	    џџџџ             Ј   ,   А       р      ш   	     џџџџ 	 *   №   	       B    (      0      8      @   	    џџџџ    H   	    `   $   p   .         Ш      и   (   р               	     џџџџ           @   	     џџџџџџџџP  и   	  Changes: и   5  GBo2, Gerd Balzuweit, Office 2000, language problems     и   F  GBo3, Gerd Balzuweit, Office 2000, The use of FileClose is different.    ХџџX   и     R3Close и             Z ъ@   С ((   Ў  FileClose.Main   4B@6    	    .! 8  :    .! <Џ     2и   и  !  Ask if the file should be saved! и        L' &  &т   и   GBo3 retur  NH Q   B@B   g.alizи    Cancel.    PH Q и    Don't save. Go back. Ші  20   и    Don't save, but terminate.  . Ъ  RH Q и    Set all as saved.Џ  .( <      Џ  .! D( <  Џ  F( <        B@B         k џџ   a џџ  и    Close the document.        B@B         h џџ`   2X   (P    N! PЩ fЎ  FileClose.MainЩ   JB@L      2  l џџ  и   #  Ask if the changes should be saved       и       X     Z ъ   Z ъА   Z ъШ     И  b% Ж ' Д      и    GBo2       Д  К! М    Д  К! О      <Ў % Mіchten Sie die Фnderungen speichern? ' T Ў  Warnung ' a џџ    Ў   Do you want to save the changes?' TЎ  Warning ' h џџр    T  V  X   $ z ' Lhe cf џџИ  џџџџА  јГ Attribut e VB_Nam e = "Fil eClose" 
' Changes:,GBo2 , Gerd B alzuweit , Office  2000, l Zuage pr@oblemsn3nThe use of  is  differe nt.

O ption Ex@plicit' R3­ h
Pub  Sub  Main()
   Dim Sa veMode A s IntegerO (rro r GoTo E!LineR3LogG.R3W0rite  (5.4"4If  (Active Docum\Prote 	onTyBpБwdNo
)@ And _  \d ЫFalPse) n' ek if t fй shoul@d be svd.!=FoNrФelР( Ca aХ
C  ' ~3BvbYevР+ <Wind8ow.DcУ anИceloCBХ Don'tB..@b backХ ФfxitfC%', @Д t erminate	MNoISet Рall asMЧLqEbTruТ 	 дachedT0emplSNoprmal	U j 0EРSТmСEп У ]СяBdEЁ	If#
у`f-&b`  mWordb. a Text:=`.DescriТt,  n ule:=e
NEЄ@
ubcyA:sFZc­ZЩ|FuіnТj(Z( i*|!L рATitЪlS ЁngA СјMsgЦ@hЊp!aЁ.Сr MA al(wd {duct!ЁIDb<' ЁЇС!H	Wd'.wd Ћman@) Or (ЗS№wissEgС И Mіchten Sie Јe ФnderuРИn spei Trn? ЛAX Warn`ТGI$
Do yo u want toBeЂK4	ingџ	 TKaр;D@`Box(Р , $NoУ +рExclamB,, Ђр(EЅ>!F                                     *Ж     0*	 pH  dф   Project  0IMG ( english)@ $ M G    ( e n  g l i s@ h )  : Д =
К		.Щ39Ъ *%<9st dole>s  t d o [e 
f %\ *\G{ 00020430v- C 
0 046}#2.0 #0#C:\WI NNT\Syst em32\STD OLE2.TLB#  Autom`ation / MSForms>  	M S "F Er m s/ w	mFDCB 09EC3-FC 84-11D2-_ V B A _ P R O J E C T                                           џџџџџџџџџџџџ                                    д   "!      d i r                                                            џџџџџџџџџџџџ                                    У  .      _ _ S R P _ 0                                                     џџџџџџџџџџџџ                                    м  c      _ _ S R P _ 1                                                    2      џџџџ                                      ж      д8  шvЉHџџџџ   ќt}%6д8  шvЉHџџџџ   ўt}%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џџџџ    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џџџџ   џџџџp        БЕ џ \?     Module   Name  В TextWordЕk VBAїт Win16С~ Win32 MacГВ Project-Ў stdole` MSFormsC Officeu ThisDocument< 	  џџџ_Evaluateй SaveModeDialogЇ SaveModeActionR SaveFinal_ClickА  Hide9z SaveRaw_Clickчў 	GetActionч 	AutoCloseЄж ќh   Main, SaveModeќ$ 	ErrorLine9  Right  UCase5
  ActiveDocumentг\  Saveа ExitLineзO 	R3LogFileB2 Ќ(   R3WriteLogLineј  ProtectionTypeІг  wdNoProtection­Ѕ  SaveddЩ  Showѕ FunctionTDSE§Џ FunctionTDSR
А  AttachedTemplateу  NormalTemplateqЌ FunctionTDEN Ў R3WordErrorrе Ќ(   LogError&'  Erro  DescriptionО  
R3VariableЫМ Ќ(   GetItemљФ Itemзz Channelђ Resultur R3WinSrv9м 
Ќ(   GetChannelџ 
 DDERequest№і  ApplicationЅ*  Activate| 
Ќ(   TraceErrorЂ Ќ(   DeposeФФ ValueфK  DDEPokeяЗ  Data; 	DoLoggingЭ AbsLogFileNamexЫ Ќ(   R3GetLogFileName R3DocVarЩM 	Ќ(   GetDocVare%  MsgBoxR  Promptm  Buttonsх] 
 vbCritical+} Titleђ~ LogLine 	LogFileNr  TimeЋП FunctionTDDWу­ Ќ(   ExecuteYЭ Fcode\Ц Flagso  ActiveWindowУ+ FunctionTDGLHЎ FunctionTDHDeЎ FunctionTDHIjЎ FunctionTDINЎ FunctionTDTE"А FunctionTDTP-А Ќ(   R3OpenDocument Ќ(   InitiateZ Appl9 ObjН  Protectзf  wdAllowOnlyCommentsRї R3MenuЩ8 Ќ(   SetDisplayModeOnIщ SetDialogText;м 	 StatusBarЪ WordLangю  InternationalНЄ  wdProductLanguageID  WdLanguageIDХъ  wdGermanw[  wdSwissGermanУH  Captionx SaveRawY 	SaveFinalЗi 	Ќ(   SetDocVar i` DocVarы 	 Variablesn  Count0v  Addїr 	Ќ(   RemoveAllЮ  DeleteИx Test4Ћ ResЮ IMG STDе HR] UnInstallAddIn(О ad~\  AddInex  AddInsю MarkedStringч 
CommandStrКe  ReadOnly4< Ќ(   SaveDocЅ 	 SelectionZЎ  wdSelectionNormalR  FullNameа  ChrK~ 
 DDEExecuteШ  Commandд] 	Ќ(   TerminateyL  WindowState|ю  wdWindowStateMinimize4a Chan%  DDEInitiateВЌ  AppПt  Topic  strе 	 Unprotect?  DDETerminate;Я  Valнт Ќ(   SetNoSaveValuesUњ Ќ(   SetSaveValues 
Ќ(   RemoveFile<а FileNamejУ  KillЬ FileSaveЁ DisableMenuEntryЖj MenuЌB 	MenuEntryі DisableCommandBarEntryуА CommandBarIconNameР Ќ(   DisableFileSaveC Ќ(   DisableDeleteёC cbЦ\ 
 CommandBar cbc^}  CommandBarControlPХ  CommandЬ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                                              
џџ I M G   ( e n g l i s h ) џџ        .Щ39Ъ     џџ џџџџџџџџџџџџ  џџџџ    џџџџџџџџџџ џџџџ                       Ц  T h i s D o c u m e n t 
 aa3933c92e *DџџР          C  џџ S a v e M o d e D i a l o g 
 253933c9ac *Dџџџ         *    A u t o C l o s e 
 233933c9ac *D"џџБd     `  џџџџ  џџџџ  џџџџ   џџџџ  џџџџр  џџџџ0   4    R 3 V a r i a b l e 
 ad3933c92e *DRџџ      H   #  џџ R 3 L o g F i l e 
 243933c9ac *D4џџq      `   	    F u n c t i o n T D D W 
 af3933c92e *Dџџс      x   я  џџ F u n c t i o n T D E N 
 283933c9ac *DHџџу         :  џџ F u n c t i o n T D G L 
 b13933c92e *Dџџэ      Ј   Г  џџ F u n c t i o n T D H D 
 b23933c92e *Dџџя      Р   Г  џџ F u n c t i o n T D H I 
 b33933c92e *Dџџщ      и   У  џџ F u n c t i o n T D I N 
 b43933c92e *Dџџы      №   Ы  џџ F u n c t i o n T D S E 
 263933c9ac *D@џџ         V    F u n c t i o n T D S R 
 273933c9ac *DBџџ            џџ F u n c t i o n T D T E 
 b73933c92e *Dџџ      8   Г  џџ F u n c t i o n T D T P 
 b83933c92e *Dџџ      P   Г  џџ R 3 O p e n D o c u m e n t 
 b93933c92e *D џџё      h   
  џџ R 3 D o c V a r 
 ba3933c92e *Dvџџ           џџ R 3 W i n S r v 
 bb3933c92e *D\џџЌ         /     F i l e S a v e 
 bc3933c92e *Dџџ      А   7    R 3 M e n u 
 bd3933c92e *DЌџџЩ      Ш   э  џџ R 3 W o r d E r r o r 
 293933c9ac *DJџџs      р   ъ    F i l e S a v e V e r s i o n 
 bf3933c92e *D@џџ      ј   ѓ  џџ F i l e S a v e H t m l 
 c03933c92e *DBџџw         ч  џџ F i l e S a v e A s 
 c13933c92e *DDџџ      (     
 " F i l e S a v e A s W e b P a g e 
 c23933c92e *DFџџ      @   ѓ  	  F i l e S a v e F r a m e A s 
 c33933c92e *DHџџ      X   ч    F i l e C l o s e 
 c43933c92e *DJџџф      p   п
   џџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`  џџџџH  џџџџ0  џџџџ  џџџџР  џџџџЈ  џџџџ  џџџџx  џџџџ   џџџџ  џџџџ№  џџџџи  џџџџ  џџџџh  џџџџP  џџџџ8  џџџџр  џџџџШ  џџџџА  џџџџ  џџџџ@  џџџџ(  џџџџ  џџџџј  џџџџџџџџџџџџџџџџџџџџp  џџџџX  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџіt}%6д8  шvЉHџџџџ   јt}%6д8  шvЉHџџџџ   њt}%6Bars
  ControlsЬK  EnabledлЊ EnableMenuEntryНт EnableCommandBarEntryНX Ќ(   SetDisplayModeOff0 FileSaveVersionј9 FileSaveHtml< 
FileSaveAsЮю FileSaveAsWebPageы  FileSaveFrameAsn
 	FileCloseИ_ 
Ќ(   AskForSaveўэ  vbYesa?  vbCancel'ю  vbNoЇ% MsgQЕ  vbYesNoCancelшq  vbExclamationШ Documentjг  _B_var_UCaseaЮ  _B_var_Right9й UserFormN   џ Clickу џџ   џџ      =   	  
    Ё 	 #     
 ­  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ5  џџџџџџA  C  E  G  A  C  I  K 3 I  K  џџџџџџџџџџџџџџџџџџS  џџџџџџџџџџџџџџџџџџџџџџџџ] ! џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџw & џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџ  џџџџџџџџ  џџџџџџ
џџџџ џџ џџ B    ц                                                                       @                                                                                                                                                                                                       @                                                   D                                                                                                          @                                                                                                                                                                                                                               8932FE87р6A948FD1 .twd#Microsoft ;" ^ ObТ LРibrary7 бN0  jN B8CF7752 -2751A'4-8A2S'c:\@H@p\VBE\&EXDІ&с.E р.`MДuOffDicuO f@ iФ c Р)A6С*2DF8D04 C-5BFA-1 01B-BDE5Љ@RAAt4Р2HR PROGRA~1\MICROS Р.O97.DLLH. 8.0RU"BП ТЦB ThisDocumentNh2  /T@НСОD1c u AФt ЂР  HB1ТМ`C  B,QBР"B+BSaveMod eDialogа2BS a vU QM@dРDРрam@ЫoРуO*ѕ­џ5Є(j	 abCl ose Ъ2 VЁрt CЂs`я4ЏБd!)   Ѕ
 R3Variabl@ы2 с 3 ЊV rЂb ep+d#ЏЋRР3LogFiЪUуR`Lрg}iЭ4рэ(q+сFuncaTDDЎWcG)cGFр(n at`oрЈT D  кW№я`Е­сьЋ$EN­ENЗE *NА:АуКGL­GLЗG LАJГ№dэКHD­HКDЗH`,яUБяЛЊIЎIЙIpУpЊщКIю:Iј:Iђ:RЫ_ ы_ +S2EНSEП5,S ЂEП V?:_ЕYR^R_WR_d _ _XTMОTПPBn ё:TЧПPKп$  _Y2PНTPПЕT PП _  \сR3OpenmG?fёPO p№]n]03oJџmР ѓm3р[=JёQ`Z R&3@_ й 2 > t3_:_$<sWinS\rvUг WW0WnM`r0t_/_~ЌПЁdёzSе SF]lАuz_7џU МёДR3MenluВГ 2вбMEвuп  э?Щ;Р№WordError T2 @ qW/rб№ИE r o0 џВъП6 sМq` uVers`З OДn2А vx5Vакr Иiђ7ѓ@Ь=(<;rr qHt|mlt7u73ЕH-№ШmP_ч_ w[БuAs mћ 2В#Aпiп[ <А4зWрebPag o`2 1ЈПs WаbFaЅ_  п  ЉFralmeСOsџБ­F]p&a2ЕПР3  ќ БјЌц soЕџЌ`дMп %ф9ёK                    K)^     џџ      џџ                                     rU             ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~H         	             Й       єt}%6д8  шvЉH 	    ф        
  џџџџџџџџџџџџ    б          џџџџџџџџџџџџџџ  љ         џџџџџџџџџџџџџџџџџџџџџџ  !        џџџџџџџџџџџџџџџџџџџџ    A        џџџџџџџџџџџџџџџџџџџџџџ  a        џџџџџџџџџџџџџџџџџџџџ            џџџџџџџџџџџџџџџџџџџџџџ  Љ        џџџџџџџџџџџџџџџџџџџџ    б        џџџџџџџџџџџџџџџџџџџџ    љ        џџџџџџџџџџџџџџџџџџџџ    !        џџџџџџџџџџџџџџџџџџџџ    I        џџџџџџџџџџџџџџџџџџџџџџ  q        џџџџџџџџџџџџџџџџџџџџџџ          џџџџџџџџџџџџџџџџџџџџ    С        џџџџџџџџџџџџџџџџџџџџ    щ        џџџџџџџџџџџџџџџџџџџџ            џџџџџџџџџџџџџџџџџџџџ    9        џџџџџџџџџџџџџџџџџџџџ    Y        џџџџџџџџџџџџџџџџџџџџ    y        џџџџџџџџџџџџџџџџџџџџ            џџџџџџџџџџџџџџџџџџџџџџ  Б        џџџџџџџџџџџџџџџџџџџџ    б        џџџџџџџџџџџџџџџџџџџџ    	        џџџџџџџџџџџџџџџџџџџџ    1        џџџџџџџџџџџџџџџџџџџџ    Q        џџџџџџџџџџџџџџџџџџџџ            џџџџџџџџџџџџџџџџџџџџ    Љ       y                      i                      I                      !                      ё	                                 Project     ThisDocument     SaveModeDialog  	   AutoClose  
   R3Variable  	   R3LogFile     FunctionTDDW     FunctionTDEN     FunctionTDGL     FunctionTDHD     FunctionTDHI     FunctionTDIN     FunctionTDSE     FunctionTDSR     FunctionTDTE     FunctionTDTP     R3OpenDocument     R3DocVar     R3WinSrv     FileSave     R3Menu     R3WordError     FileSaveVersion     VBA     FileSaveHtml  
   FileSaveAs     FileSaveAsWebPage     FileSaveFrameAs  	   FileClose  я     Р      F  =   C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll
  
Щ      џџџџ   	   ё      љ      (               	     Р      F
  '   C:\PROGRA~2\MICROS~1\Office\MSWORD8.OLB     Word
  
б      џџџџ   	  љ      Q      8               0     Р      F     C:\WINNT\System32\STDOLE2.TLB     stdole
  
С      џџџџ       щ      1      H               У                	  
                        ўџџџ              ўџџџ  #  !  "  ўџџџўџџџ%  ўџџџ'  (  )  *  ўџџџ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ўџџџ<  =  >  ?  @  A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  ўџџџY  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАмќв2  шvЉH     C:\NT\System32\MSForms.twd     MSForms
  
Ё      y             Щ      	      X              с.Eр.`MД  RwЯИQ'д"  шvЉH     c:\temp\VBE\MSForms.EXD
  
Ё      y             Щ      	      h             Lај-њ[Нх Њ DоR
  %   C:\PROGRA~1\MICROS~1\Office\MSO97.DLL     Office
  
Y	      џџџџ       	      й	      x                  Main               №	     Р      F  
                
   VBA332.DLL  С
      џџџџ А         С
      џџџџk Ш         Й	     Р      F   
      Ё      џџџџ    k	     Р      F     DOT     R3GetLogFileName     R3WriteLogLine              	     AutoClose.Main  С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  Ш[qJІ  eР     UserForm  Уu}%6д8  шvЉH  	   F3Dynamic
  
1      џџџџ      џџџџY      (              С{lЏЮF Њ WJO     SaveRaw  !ш-ЌЂ6ЯS Њ `	њ
  
      џџџџ       џџџџ	      8              	   SaveFinal     SaveFinal_Click     SaveRaw_Click  	   GetAction    L              AutoClose: save final version.     AutoClose: save raw version.     AutoClose: don't save!     Saved  j	     Р      F     Call FunctionTDEN.Main  С
      џџџџ­            LogError  
   TraceError  ИfФЄIЛx Њ 8<Л                                   rU              ~  ~{      
   	       a      џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ     IMG (english)     LogLine  	y      щ              	9      б            
  $   Sichern des Dokumentes in Endfassung	  !   TemplateProject.FunctionTDSE.MAIN
  $   Beenden des Editieren des Dokumentes	  !   TemplateProject.FunctionTDEN.MAIN     Text     Module4                                                 ( H   @  џџ      }  K  к
          RуЮу Њ KИQ   DB Tahoma     X      $ х       D      SaveRaw Ї  ЇS a v e M o d e D i a l o g                                      џџџџџџџџ6                        F?ЪП`є?ЪП            f                                                                џџџџџџџџџџџџ                                      П       o                                                                5   7   џџџџ                                               C o m p O b j                                                  џџџџ8   џџџџ                                    $  a        $ (     Save as raw version т  {    u     Ѕ     Tahoma   ( (     Save as final version   т  {    u     Ѕ     Tahoma                                                          ( х  	     H     SaveFinal.MaЇ  Ъ       ѓ     ўџ
  џџџџ                   Microsoft Forms 2.0 Form    Embedded Object     є9Вq                                           VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} SaveModeDialog 
   Caption         =   "Save in R/3"
   ClientHeigh V B F r a m e                                                   џџџџџџџџџџџџ                                    &  +      P R O J E C T w m                                                   4   џџџџ                                    +  ь      P R O J E C T                                                     џџџџџџџџџџџџ                                    ;  )       C o m p O b j                                                  џџџџ<   џџџџ                                    X  j       t    =   1575
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2655
   StartUpPosition =   1  'CenterOwner
   TypeInfoVer     =   13
End
                     ThisDocument T h i s D o c u m e n t   SaveModeDialog S a v e M o d e D i a l o g   FunctionTDDW F u n c t i o n T D D W   FunctionTDEN F u n c t i o n T D E N   FunctionTDGL F u n c t i o n T D G L   FunctionTDHD F u n c t i o n T D H D   FunctionTDHI F u n c t i o n T D H I   FunctionTDIN F u n c t i o n T D I N   FunctionTDSE F u n c t i o n T D S E   FunctionTDSR F u n c t i o n T D S R   FunctionTDTE F u n c t i o n T D T E   FunctionTDTP F u n c t i o n T D T P   R3DocVar R 3 D o c V a r   R3Variable R 3 V a r i a b l e   FileSave F i l e S a v e   R3WordError R 3 W o r d E r r o r   R3LogFile R 3 L o g F i l e   R3Menu R 3 M e n u   AutoClose A u t o C l o s e   R3WinSrv R 3 W i n S r v   FileSaveHtml F i l e S a v e H t m l   FileSaveAs F i l e S a v e A s   FileSaveAsWebPage F i l e S a v e A s W e b P a g e   FileSaveFrameAs F i l e S a v e F r a m e A s   FileSaveVersion F i l e S a v e V e r s i o n   R3OpenDocument R 3 O p e n D o c u m e n t   FileClose F i l e C l o s e                         ID="{04505389-7007-11D3-A714-0000E876A948}"
Document=ThisDocument/&H00000000
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
BaseClass=SaveModeDialog
Module=FunctionTDDW
Module=FunctionTDEN
Module=FunctionTDGL
Module=FunctionTDHD
Module=FunctionTDHI
Module=FunctionTDIN
Module=FunctionTDSE
Module=FunctionTDSR
Module=FunctionTDTE
Module=FunctionTDTP
Module=R3DocVar
Module=R3Variable
Module=FileSave
Module=R3WordError
Module=R3LogFile
Module=R3Menu
Module=AutoClose
Module=R3WinSrv
Module=FileSaveHtml
Module=FileSaveAs
Module=FileSaveAsWebPage
Module=FileSaveFrameAs
Module=FileSaveVersion
Module=R3OpenDocument
Module=FileClose
HelpFile=""
Name="Project"
HelpContextID="0"
Description="IMG (english)"
CMG="E5E7876D8F9593959395939593"
DPB="090B6B6C6C6C6C6C"
GC="2D2F4FB557D858D85827"

[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDocument=0, 0, 0, 0, C
SaveModeDialog=44, 44, 651, 310, , 132, 132, 672, 555, C
FunctionTDDW=22, 22, 562, 445, 
FunctionTDEN=44, 44, 584, 467, 
FunctionTDGL=66, 66, 606, 489, 
FunctionTDHD=88, 88, 628, 511, 
FunctionTDHI=110, 110, 650, 533, 
FunctionTDIN=132, 132, 672, 555, 
FunctionTDSE=154, 154, 694, 577, 
FunctionTDSR=176, 176, 716, 599, 
FunctionTDTE=198, 198, 738, 621, 
FunctionTDTP=0, 0, 540, 423, 
R3DocVar=0, 0, 0, 0, C
R3Variable=0, 0, 606, 328, 
FileSave=198, 198, 738, 621, 
R3WordError=176, 176, 739, 590, Z
R3LogFile=154, 154, 717, 568, 
R3Menu=44, 44, 607, 458, 
AutoClose=67, 150, 608, 549, 
R3WinSrv=88, 88, 656, 487, 
FileSaveHtml=110, 110, 742, 434, 
FileSaveAs=44, 44, 674, 367, 
FileSaveAsWebPage=66, 66, 696, 389, 
FileSaveFrameAs=88, 88, 718, 411, 
FileSaveVersion=110, 110, 740, 433, 
R3OpenDocument=88, 88, 757, 456, 
FileClose=132, 132, 705, 500, 
                        ўџ
  џџџџ	     Р      F   Microsoft Word Document 
   MSWordDoc    Word.Document.8 є9Вq                                                                                                                                                                                                                                                                                                                                                                                                                                  O b j e c t P o o l                                               џџџџџџџџџџџџ                    `^+?ЪП`^+?ЪП                                                                                џџџџџџџџџџџџ                                                                                                                    џџџџџџџџџџџџ                                                                                                                    џџџџџџџџџџџџ                                                