аЯрЁБс                >  ўџ	               )          +      ўџџџ    (      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьЅС q 	  П                bjbjt+t+                  	   A A                                џџ         џџ         џџ                 ]                                                         Ю       Ю       Ю       Ю       Ю      к      Ю       є  Ж   ђ       ђ       ђ       ђ       ђ       ђ       ђ       ђ       f  U  Л      Л      Л      Л      Л      Л  $   Њ  є    D   п                            ђ                       ђ       ђ       ђ       ђ       п      ђ                     ђ               ђ       ђ       ђ       ђ       ђ       ђ              ђ              ђ       f                      В      Р                                  ђ       f      ђ   t  ђ               f                                                                            f      ђ       ц      №з?ЪПЮ       Ю       ђ       f                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            §                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  А. АЦ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                          џџџџ    џџ                                          џџ    g e r d b  C : \ S A P G U I \ S A P G U I \ W s 8 i m g d . d o t  I X O S   A S  C : \ s a p g u i \ S A P G U I \ W s 8 i m g d . d o t  I X O S   A S  C : \ s a p g u i \ S A P G U I \ W s 8 i m g d . d o t  g e r d b   \ \ G E R D \ s a p g u i \ S A P G U I \ w s 8 i m g d . d o t  g e r d b   \ \ G E R D \ s a p g u i \ S A P G U I \ w s 8 i m g d . d o t  g e r d b   \ \ G E R D \ s a p g u i \ S A P G U I \ w s 8 i m g d . d o t  I X O S   A S ( C : \ t e m p \ A u t o R e c o v e r y   s a v e   o f   W s 8 i m g d . a s d  I X O S   A S / \ \ d r a c h e n \ c $ \ P r o g r a m m e \ S A P p c \ S A P G U I \ W s 8 i m g d . 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 d . 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 d . 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   џџ                   b    (   & S i c h e r n   E n d f a s s u n g         C t r l + S    ( S i c h e r n   & R o h f a s s u n g  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  О    ( L & і s c h e n  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 k 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    ( 
& S c h l i e п e n  C l o s e       F i l e C l o s e . M a i n  О                 "               "               (     	 Ё                      O й                љ  k   ~   љ  щ   h                 љ  Q   @   љ     F   љ  з   V          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  О    ( 
& V e r s i o n e 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   z u r   E i n s t e l l u n g  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  О    ( & T e r m i n o l o g i e   s u c h e n  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 i e   & p f l e g e n  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  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  О 	                               -	    $           H	    L          c	    џџ   P r o j e c t . R 3 M e n u . D i s a b l e F i l e S a v e    P r o j e c t . R 3 M e n u . S e t D i s p l a y M o d e O f f   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 . F i l e S a v e H t m l . M a i n   P r o j e c t . R 3 D o c V a r . R e m o v e A l l   P r o j e c t . R 3 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 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 . 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 S a v e A s W e b P a g 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 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   @          мђ                             `   @     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      Ws8imgd.dot       IXOSAS .      62 S      Microsoft Word 8.0  @    (-к   @    pсёН@    Жф{?ЪП                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ўџ                       еЭе. +,љЎD   еЭе. +,љЎL          h      p                                     Ј      А      И      Р      в      ф        iXOS AS                       1                                                     Title             Titel                          6      >         
   _PID_GUID    ф  A   N   { 1 6 7 D 7 5 3 3 - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 }                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ўџџџ	   
                                          ўџџџ                     ўџџџ!   "   #   $   %   &   '   ўџџџ§џџџ*   .   =   -   /   8   0   1   2   3   4   5   6   7   9   G   :   ;   <   >   P   ?   @   A   B   C   D   E   F   H   R   I   J   K   L   M   N   O   Q   q   S   m   T   U   V   W   ]   Y   Z   [   \   ўџџџ^   h   `   a   b   c   d   e   f   g   X   i   j   k   l   n   u   o   p   r      s   t   v      w   x   y   z   {   |   }   ~         R o o t   E n t r y                                              џџџџџџџџ   	     Р      F    `СчЉ:О№?ЪП,    г      1 T a b l e                                                      џџџџџџџџџџџџ                                       т      W o r d D o c u m e n t                                             џџџџџџџџ                                                S u m m a r y I n f o r m a t i o n                           (       џџџџ                                               D o c u m e n t S u m m a r y I n f o r m a t i o n           8 џџџџџџџџџџџџ                                               M a c r o s                                                          ;   9                       а3T?ЪП№з?ЪП            V B A                                                            џџџџ:                          а3T?ЪПPчі?ЪП            T h i s D o c u m e n t                                                џџџџ                                        с                              	   
                  ўџџџ                                                 !   "   #   $   %   &   '   (   )   *   +   ,   ўџџџ.   /   0   ўџџџ2   3   ўџџџ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   ўџџџW   X   Y   Z   [   \   ]   ^   _   `   ўџџџb   c   ўџџџe   f   g   h   i   j   k   l   m   n   o   p   q   r   s   t   u   v   w   x   y   z   {   |   }   ~           Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Џ  ѕ  џџџџ       ЦР  џџ#                                      џџ  Ы  ж   ж   7    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(    SLџџџџ   Sџџџџ   Sџџџџ    <џџџџ  џџ     N 0 { 0 0 0 2 0 9 0 6 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 }       п    џџџџ8   ўџџџџџџџџџ(     џџ        џџџџџџџџ  S    $   џџџџ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 

                               R 3 W o r d E r r o r                                                  џџџџ                                       	      _ _ S R P _ 1 0                                                        џџџџ                                    -   Ц       _ _ S R P _ 1 1                                                   џџџџџџџџџџџџ                                    1   Ў       S a v e M o d e D i a l o g                                            џџџџ                                    4   r       Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     Ь  џџџџ      Цo  џџ                                       џџ  В  ж   ж   ъ    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      0Щ39Ь $ * \ R f f f f * 2 2 3 9 3 3 c 9 a 6 п   џџџџH        `    џџџџџџџџ    џџџџ   @   џџџџџџ            ifџџџџџџџџџџ    `         iџџџџџџџџџџ    џџџџ      .џџџџ  `    џџџџџџџџ    џџџџ   Р   џџџџџџ   
    "#0 ifџџџџџџџџџџ    р         iџџџџџџџџџџ    џџџџ  рО! џџџџџџџџ       џџџџ џџ8    џџџџџџ    џџџџџџџџџџџџ   $   џџџџИ                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                               ўЪ   	         	       "           (    .   0    *   `    "          И       а    	     џџџџ"   и       р    "   ш             (  џџџџ8  и     Errorhandler    ?и             С  P     fЩ    Щ Ў 	 Error in     Щ "A@ џЎ 	 Error in     Ў  :    f   $( & Ј Ў 	 Error in     Щ ,  (B@*        fЩ ,  (B@*       l џџ(        С     Ў 	 Error in     Щ ,  (B@*    is   fЩ ,  (B@*   mizil џџа   џџџџШ   Б Attribut e VB_Nam e = "R3W ordError "
' $ha ndler <
 Public S@ub Log<( Text As S  ng, Module")
  On Re4su иN hMs gBox Pro mpt:=K,  Buttons: =vbCriti cal, Tit le:="t i`n " +kHApp ation .StatusBarг/ 8":7R3 gFil,e.  9e Li|ner;1E$nd

ЂTr8aceP;Ѓш_                                                       rU              ~}         	       	                  0      ќЦ                                          0      ќЦ                                                f                                                                rU                    	      џџџџџџџџ        ,          ` §џџџџџџџџџџџ    1     I          00, Љ        ` §џџџџџџџџџџџ    1     I          00    p                         Ж џџ    џџџџ    џџH џџ  Пu}%6д8  шvЉHpu}%6д8  шvЉHlu}%6д8  шvЉH Оu}%6д8  шvЉH            џџџџџџџџ   џџџџx     b  Р  џџџџ      ЦS4  џџ      Оu}%6д8  шvЉHПu}%6д8  шvЉHџџ  ~      *       д  6     е  :     џџџџ>   џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP    SPџџџџ   Sџџџџ   Sџџџџ   Sџџџџ    6"џџџџ    < џџ    < џџ    <џџџџ  џџ      0 { 1 6 7 D 7 5 7 0 - 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 6 C - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 } 0Щ39Ь $ * \ R f f f f * 1 e 3 9 3 3 c 9 a 6 п   џџџџ     $     $     $   4X     `    џџџџџџџџ    џџџџ  
 џџџџџџџџ           8    `    џџџџџџџџ    џџџџ  
 џџџџџџџџ         Erro,:џџџџ `    џџџџџџџџ    џџџџ  
 и    џџ    М   (   iўџџџџџџџџџџџ    џџџџ        ўџ(  џџџџ     џџј       џџџџџџџџ  e    $   ўџџџџџџџџџP    џџ(      џџџџџџџџЁ   $   b2џџџџ4 џџ џџ    4 @    џџџџџџџџЈ  џџџџX   џџџџ   џџџџX        џўџџџџџ џџ      џџџџџџ    џџџџџџџџр   0џџџџўџџџ     џџўџџџ    џџџџџџџџ    ўџџџџџ џџ     џџџџџџ    џџџџџџџџ џџџџџџр               џџџџX  ј   џџџџ   џџџџX  (  џџџџџџџџШ  №          L      Єџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ   	     џџџџ 	     џџџџ 	     џџџџ 	     џџџџ                  	     џџџџ"                         (    	     џџџџ"   0       8       @       H    	     џџџџB   P       X       `   џџџџp   Хџџx   Z ъX       Є  ' 2A@6    l џџP   X     Є  ' 2A@6    l џџ0          2' :f џџ   џџџџ   DБ Attribut e VB_Nam e = "Sav eModeDia@log"

Bas0{167 D7570-36 25-11D4-@8A38-0  E 876A948}J6C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   щ      Ё   _ _ S R P _ 8                                                    -   #   џџџџ                                    V   Ж      _ _ S R P _ 9                                                    џџџџџџџџџџџџ                                    a   Ж       R 3 V a r i a b l e                                              *   џџџџџџџџ                                    d   4
      R 3 L o g F i l e                                                 ,      џџџџ                                       В               д  д  д   Ј§џџ `1     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  :   щ      Ё      Љ      е  е  е   Ј§џџ  `ё      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  >   Щ      С      ё      џџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ     _      џ      ?     0      ќЦ                                         0      ќЦ      X                                   0      ќЦ                                             :    6      K                rU                    	      џџџџџџџџ    L    $ щ        `   џџџџџџџџ        $ )      `    џџџџџџџџ        ( i      `џџџџџџџџџџ    џџџџ    &     p                 Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   ?  }  џџџџ       Ц  џџ                                       џџ  [  ж   ж   #    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџ@  +>   џџџџ    џџџџџџџџ    џџџџ    @    џџџџџџ            i@џџџџџџџџџџ    џџџџ      `Bџџџџџџџџ џџ        `Dџџџџџџџџ џџ    џ џVџџџџџџџџ    џџџџџџџџ    џџџџ    а   џџџџџџџџ            i@џџџџџџџџџџ    №         iXџџџџџџџџџџ    џџџџ  џџџџ`Bџџџџџџџџ џџ             џџџџџџџџџџџџР                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ       џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ (  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   С F8   Ў  Get item via DDE:   @    (B@*   H% J  ' B    BЩ B  @Щ @$ L ' D      Ў  DDERequest    @ Ў       D    (B@*   $B@N          D' > P    F   Ў   ' >  R! TЩ fЎ  R3Variable.GetItemЩ   B@.  PШ   f џџР   и     Set R/3 Value.   и            Z ъ  С F   Ў  R3Variable.Depose   @ Ў       X    (B@*     H% J  ' B  Ў  DDEPoke   @ Ў       X    (B@*       BЩ B  @Щ @  XЩ \A@Z     $B@N    џџџџ Pи   Fа    R! TЩ fЎ  R3Variable.Depose Щ   B@.  P  l џџ  џџџџ  В Attribut e VB_Nam e = "R3V ariable" 
Option  Explici t

' G et R/3 V alue. "
Pub @ Func` DItem(A As S аng)
  D im ChannelLongРResult.O rror G oTo E
LineR3Lo gFile.R3`Write  ("Д m vi a DDE: "h + O)C= inSrv.[
(I=Request(:=,(:=+пH B#EH"5S ;MApОaЌ.тAЏvatx P3' к
xiЖt:"ю" ;ordТ.Trace Text:=Р.DescriB, Module:=Ш7AI!@EФ EndЦУSжSub DeposeLў,Ba77ЧМ <"OdЛB z]3WзЁ@}Poke, Da№ta:=%?? ]@@c7я?р:
              Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Ж  Ь  џџџџ      Цm  џџ                                       џџ  в  ж   ж   	    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      0Щ39Ь $ * \ R f f f f * 1 d 3 9 3 3 c 9 a 6 п   (   h  џџџџ  џџџџш   p   џџџџ0         $   џџџџ    +bp      `    џџџџџџџџ    џџџџ  
 џџџџ џџџџ             *џџџџ  `    џџџџџџџџ    џџџџ  
 А   џџџџџџ           i,џџџџџџџџџџ    џџџџ    `hџџџџџџџџ џџ        т^    џџ џџ       @    џџџџџџџџ  т`џџџџ џџ џџ     @    џџџџџџџџмљ (џџџџ џџ      џџџџџџ    џџџџџџџџџџџџџџџџ              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     С Fh   Ў  AbsLogFileName  d% f ' `Ў 	 DoLogging   d% f Ў  1   џџџџЏ' ^  a џџ   Џ ' ^  h џџ      `' b P№    Fш   Ў   ' bЎ   ' `Џ ' ^          R! TЩ    Щ Ў # Error in R3LogFile.R3GetLogFileName Щ "A@ able.D Pp   f џџh   и     write a line of the logfile' B  и       p     Z ъа   С F      ^Џ    `Ў            $ В   ' h        `  hЃ Ф      h Ъ Ў  [   j Ў  ]    , Ю       hS  h џџЈ   P    F          R! TЩ    Щ Ў ! Error in R3LogFile.R3WriteLogLine Щ "A@  P@  l џџ8  џџџџ0  В Attribut e VB_Nam e = "R3L ogFile" 
Option  Explicit 
Dim Do ging As  Booleanq2Absv <S Рng

'  Get the  logf М n р. Ck for  environ ment var iable5TE MP. S ;a doc too.  
Pub   Func­R3Г i()Ј   O вrr tGoTo ELin 7
c= R3DocVar. ,I("")I&f")Б1"А 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                                                                _ _ S R P _ 6                                                     .      џџџџ                                    М   Ц       _ _ S R P _ 7                                                    џџџџџџџџџџџџ                                    Р          R 3 D o c V a r                                                  џџџџ(   џџџџ                                    У         F i l e S a v e V e r s i o n                                        +   џџџџ                                    њ   B      rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ        ( Љ        ` §џџџџџџџџџџџ               0       p                                                Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   /  }  џџџџ       Ц  џџ                                       џџ  K  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџ0  lА   џџџџ    џџџџџџџџ    џџџџ    @   џџџџџџџџ        џџ  iџџџџџџџџџџ    `         iXџџџџџџџџџџ    џџџџ    L`nџџџџџџџџ џџ    џџџџ`pџџџџџџџџ	 џџ        +fX  џџџџ    џџџџџџџџ    џџџџ    №    џџџџџџ        Lџџiџџџџџџџџџџ    џџџџ  @`nџџџџџџџџ џџ       `pџџџџџџџџ	 џџ    xџ `Dџџџџџџџџ џџ    ит zА  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ
 
          wa`nџџџџџџџџ џџ    ьв  ~џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ	 	            `џџџџџџџџ џџ    ј  џџџџ    А  џџџџА   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.  и             Z ъ   Z ъ   ї   nі Є    r! t! v FileNaх   n  r! t% @ . p  p!       X  p( Xџџ P   h џџ   ї   nі Р џџ      Щ   XЩ X  r! tB@x b Pи   l џџа   и   0  Get a document variable of the active document,.Rи     the return value is a string.p   и       А     Z ъ  Z ъ(  Z ъ@  Ў   ' Dї   nі Є    r! t! v F    х   n  r! t% @ . p  p!       p! X' D     Pр  h џџи  ї   nі Р        PР    D' ff џџА  и     Remove all doc variables и       X    Z ъ    r! t! vЄ   
 ь 4 5 Є    r! t% @ B@|  ы џџ@  l џџ8  и     Test џk џи       А    Z ъ№  Ў  TestЩ Ў  T1Щ XA@l >џЎ  TestЩ Ў  T2Щ XA@l џџџЎ 
 AbsLogFile$ f ' Ў  NotExist$ f '  џl џџ   џџџџ   xВ Attribut e VB_Nam e = "R3D ocVar"
 Option E xplicit 

' Set  a docum ent vari able for  the acthive@,f.v alue is  alway n "s ~ng. !
Pub d Suba(As S1(, VC) 
  Dim i  IntegerBObjeЊc Н F Іi чР1 To AUe.zes.Codun  w%=Item(iH   If .ЊсThen@)Mg=kGoLExitLine
End *Nex(t iФ FAddd 9:=:в=6
-: РK@\vGvofкurрeturnРwuјFunZР FЬv>)jy9(uRe№sultЫСФЕчГПve 0ЭЌ%УB  O'Ст ѓ Гr  VРЖwCE^УxRemo чalllшяsMpуAll(vlСWhiУ Лh > 0CіЂ'1).DeleBtB^WendЬSTes r' rivіa` W GрO@WрЃ,Db"a"b"мT1@CТ|л2ТA=-("AbsLhogFр "B%Nфot 5stСсxРa1                                                              Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Ц
  џџ                                       џџ  k  ж   ж   ѓ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п                 ўџџџ	  
                                      ўџџџ       !  "  #  $  %  &  '  (  )  ўџџџ+  ,  -  .  /  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  X  Y  Z  [  \  ]  ^  _  `  a  ўџџџc  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  ўџџџ~       џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "                	     џџџџџџџџ         l џџp   џџџџh   KА Attribut e VB_Nam e = "Fil eSaveVer sion"
P ublic Su b Main() 
End<
 
                                                              F i l e S a v e                                                        џџџџ                                      0      F i l e S a v e F r a m e A s                                      џџџџџџџџџџџџ                                      2      R 3 M e n u                                                       1   2   џџџџ                                    _   W      R 3 O p e n D o c u m e n t                                      0   џџџџџџџџ                                    *  ј       Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Цi4  џџ                                       џџ  k  ж   ж   +    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ       џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ"               	        2   8    
   p    	    џџџџ                 ,           Р       Ш   џџџџи   Хџџx         С Fh   и    Save final version.@џ џ  Ў ! FileSave.Main: save final version    (B@*        B@   `џ  Px    Fp     R! TЩ fЎ  FileSave.Main Щ   B@      P8   l џџ0   џџџџ(   Б Attribut e VB_Nam e = "Fil eSave"
 Option E xplicit@

Pub ,  Sub Main()
  O F rror GoTo ELine	4'  final vers  .0R3Logk .R3WriteS 4 (.a:, s @"uFuncTDSE*V
xit:uWord. p Text:=.Descriz, Mod`ule:=G E#.(End
                  Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Ц  џџ                                       џџ  k  ж   ж   ч    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "               џџџџ         l џџp   џџџџh   GА Attribut e VB_Nam e = "FileSaveFr  As"
Pub lic Sub  Main()
End<
               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Џ  }  џџџџ       Цm4  џџ                                       џџ  Ы  ж   ж   
    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п      С P  ї   і   ! І ўџџџџџї   Ђі   ! Ј џџP  и    Disable the icon.и        Ђ! Њ    Џ   Ђ( Ќ   =h џџ  ї   Ђі Р       ї   і Р  D  Pр  l џџи  и     Enable an entry in the menu.   и       8    Z ъИ  Z ъи  С P  х   $ І . ї   Ђі   ! Ј џџ    и    Enable menu entrys       и        Ђ! Њ    Џ  Ђ( Ќ <`=h џџ  ї   Ђі Р џџ08 Pј  l џџ№  и   #  Enable an entry in the comand bar. џџ    и       ј    Z ъX  Z ъx  Z ъ  С P  ї   і   ! І  <`=ї   Ђі   ! Ј      и    Enable the icon. и        Ђ! Њ    Џ  Ђ( Ќ  аЏ=h џџ  ї   Ђі Р   !  ї   і Р        P№   l џџш   и     Enable some entrys. Ў?и       А    и    Save entrys.    Ў  FileЩ Ў  &Save final version Щ A@Ў  Ў  FileЩ Ў  &Sichern Endfassung Щ A@Ў   Ў  FileЩ Ў  &Save and back to R/3 Щ A@Ў Ў  FileЩ Ў  &Sichern und zurќck zu R/3Щ A@Ў     Ў  &Save Щ A@А     Ў 
 &SpeichernЩ A@А и  
  Save raw.Ў  FileЩ Ў  Save &raw version Щ A@Ў     Ў  FileЩ Ў  Sichern &Rohfassung Щ A@Ў   и    Delete.  Ў  FileЩ Ў  Dele&te Щ A@Ў       Ў  FileЩ Ў  D&elete Щ A@Ў       Ў  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         	        	    Р      Ш   
   и      ш   
   №   	    џџџџ               	     џџџџ 	 *       џџџџА   Д@   џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ! !        џџџџРџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         8Ј `Шџџџџџџџџ џџ    r Ofџџџџ    џџџџ@   џџџџP                   џџџџџџџџџџџџџџџџ@   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ 5           	        	 2       	    H    	 (   P    	 (   x    	 6        	    и   "    р    	     џџџџ    ш    	    џџџџ 
   №    .       	    џџџџ >   0   0   p   	    џџџџ 	 &       	 *   Ш       ј            8   
   P      `   	    џџџџ 	 ,   h         	    џџџџ 	        
   И      Ш   
   и      ш   	    џџџџ     ј           <          H      P   	     џџџџ"    X      `   	    џџџџ 	 ,   h         	    А   $   Ш      №   "      "   8      `   Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Y  Ї  џџџџ       Цq  џџ                                       џџ  u  ж   ж   э    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџ     <  Є    < џџ    <џџџџ  џџ      0Щ39Ь   п    џџџџ0  @   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ             џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ
 
            Р   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ          p  џџџџ    џџџџџџџџ    џџџџ       џџџџџџџџ        raw.iџџџџџџџџџџ         rsioiџџџџџџџџџџ    џџџџ  Ў   џџџџџџџџX      Щ    $    Ђџџџџџџџџx      File  $   8  џџџџ    џџџџџџџџ    џџџџ    Р  џџџџџџџџ            iџџџџџџџџџџ    џџџџ  ave  џџџџџџџџј             $    Ђџџџџџџџџ      Ў    $   `џџџџџџџџ џџ     Ўј  џџџџ    џџџџџџџџ    џџџџ    x  џџџџџџџџ        &Saviџџџџџџџџџџ        rnЩ iџџџџџџџџџџ    џџџџ  le t џџџџџџџџа      ).   $    Ђџџџџџџџџ№      File  $   АА  џџџџ    џџџџџџџџ    џџџџ    8  џџџџџџџџ          мiџџџџџџџџџџ    џџџџ  nu e џџџџџџџџp             $    Ђџџџџџџџџ      $   $   `џџџџџџџџ џџ    DataВџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         Ђ(    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).       и             С  8   и    Save final.      Ў  FileЩ Ў  &Save final version Щ A@ і Ў  FileЩ Ў  &Sichern Endfassung Щ A@ pЎ  &Save Щ A@   pЎ 
 &SpeichernЩ A@ и  
  Save raw.Ў  FileЩ Ў  Save &raw version Щ A@ џџџџЎ  FileЩ Ў  Sichern &Rohfassung Щ A@   и    Delete.џџЎ  FileЩ Ў  Dele&te Щ A@     waЎ  FileЩ Ў  L&іschenЩ A@ џџ    l џџ8   и     Disable the save entrys (STD).   и       @     С  ј  Ў  FileЩ Ў  &Save and back to R/3 Щ A@ Ў  FileЩ Ў  &Sichern und zurќck zu R/3Щ A@  theЎ  &Save Щ A@     Ў 
 &SpeichernЩ A@ l џџX  и      Disable the delete entry (STD).и            С    Ў  FileЩ Ў  D&elete Щ A@ ъШ   Ў  FileЩ Ў  L&іschenЩ A@    мl џџР   и     Diable one menu entry. enи       Р     Z ъ@  Z ъ`  С Px   х   $ І . ї   Ђі   ! Ј > Dataи    Diable menu entrys e you и        Ђ! Њ    Џ   Ђ( Ќ Warnh џџ    ї   Ђі Р џџ џџ Pш  l џџр  и   %  Disable an entry in the command bar. џџџџи           Z ър  Z ъ   Z ъ    h  џџџџx  Хџџx   и       и   +  Some more stuff while opening the document   8   и       и   "  Changes: Gerd Balzuweit, 20.08.98и   !           rewritten for Office 97 и   /           GBo2, Changes for Office 2000 Release џџи             С F     (B@b    raw.Ў  R3OpenDocument.R3OpenDocument    (B@* џџЎ  R/3 Windows ServerЩ ИЎ  Edit_Text_Exit_Td Щ К  HB@Ж   Ў  R/3 Windows Server initialized.    (B@* и    The two save modus are removed џџи  $  from the menu the delete button too      Ў  Display   <% > Ў  X   Ў  set view mode    (B@* џџ  ОЩ n  rB@М  Xџџ  B@    џџџџh џџ  и  %  Customize the save mode dialog text. ўџџџA@Р    и    Set all as saved.Џ  r( ТџџџџџџЏ  r! Ф( Т  Џ  Ц( Т    ДЎ     $( &џџџџ P    Fј     R! TЩ fЎ  R3OpenDocument.R3OpenDocument Щ   B@ `   PА   l џџЈ   @     Z ъ   и  %  Customize the save mode dialog text. џџџџ  Ь  $% Ъ ' Ш и џџи    GBo2, language џџ  Ш  Ю! а    Ш  Ю! в        Ў  Sichern in R/3  0( Њ@И  Ў  Sichern Rohfassung  0! д( Њ`    Ў  Sichern Endfassung  0! ж( Њ    М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' Ѓ^l СAР\(
W"dg.wdРma@n) Or ИS№wissE@pb=ХЁSDтM.CacВРЕЄSi Brn y @G9ЬСRawбR ohfassungWFinal?6a8fс b9         Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Ч  }  џџџџ       ЦкЌ  џџ                                       џџ  у  ж   ж   я    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п   F u n c t i o n T D D W                                          )   џџџџџџџџ                                    b        F u n c t i o n T D E N                                                џџџџ                                    }  =      _ _ S R P _ e                                                        	   џџџџ                                             _ _ S R P _ f                                                    џџџџџџџџџџџџ                                      m        џџџџШ   џџџџџџџџ    @          џџџџ    џџџџџџџџџџџџ         Lф=K   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. tuff wи             Ў  FunctionTDDW.MAIN    (B@* nges: Ў  TDDWЩ мЎ   Щ о  HB@к   и    The document is saved.   Џ  r( Т  __Џ  r! Ф( Т?Џ  Ц( Т      и    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
џџџџ    < џџ    < џџ    <џџџџ  џџ      0Щ39Ь $ * \ R f f f f * 2 1 3 9 3 3 c 9 a 6 п   џџџџа   џџџџ   `    @   h       џџџџ  
 џџџџџџџџџџ             $   Beenden des Editieren des Dokumentes!   TemplateProject.FunctionTDEN.MAIN      џџџџтџџџџ џџР     џџџџџџ    џџџџџџџџW@џ   $   џџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	        "   (        0       P   џџџџ`   Хџџx   и     Termination. џџџџи             Ў  TDENЩ мЎ  SEЩ о  H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                          Ж џџ    џџџџ    џџџџџџ                                   F u n c t i o n T D G L                                          џџџџџџџџџџџџ                                      љ      F u n c t i o n T D H D                                                 џџџџ                                    Ї        F u n c t i o n T D H I                                          џџџџџџџџџџџџ                                    И        F u n c t i o n T D I N                                             !   џџџџ                                    Щ                                     џџџџџџџџ   џџџџx   о   O  }  џџџџ       ЦЦЌ  џџ                                       џџ  k  ж   ж   c    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	       "            (       H   џџџџX   Хџџx   и   
  Glossary.и             Ў  TDGLЩ мЎ   Щ о  HB@к   l џџ0   џџџџ(   А Attribut e VB_Nam e = "Fun ctionTDG@L"
Op0  Explicit 

' Glossary.  
Pub 6 S ub Main( )
  R3W inSrv.ExecФFcode:="Ў, Flags  bEnd<
        Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       ЦФЌ  џџ                                       џџ  k  ж   ж   k    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	        "    (       0       P   џџџџ`   Хџџx   и     Goto document. 8и             Ў  TDHDЩ мЎ   Щ о  HB@к C l џџ(   џџџџ    А Attribut e VB_Nam e = "Fun ctionTDH@D"
Op0  Explicit 

' Go to document. "
Pub @ Sub  Main()
   R3WinSrv.ExecЮ Fcode:="И, Flags#  gEnd<
                                                           Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       ЦТЌ  џџ                                       џџ  k  ж   ж   k    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	        "    (       0       P   џџџџ`   Хџџx   и     Goto revisions.  и             Ў  TDHIЩ мЎ   Щ о  HB@к   l џџ(   џџџџ    А Attribut e VB_Nam e = "Fun ctionTDH@I"
Op0  Explicit 

' Go to revis	 Ps. $
Pub B Sub M ain()
   R3WinSr@v.ExecаFcode:="К, Flags  hEnd<
                                                           Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       ЦРЌ  џџ                                       џџ  k  ж   ж   {    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ       џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	 "       	    0   "    8       @       `   џџџџp   Хџџx   и     Information -> Information.      и             Ў  TDINЩ мЎ   Щ о  HB@к   l џџ   џџџџ   А Attribut e VB_Nam e = "Fun ctionTDI@N"
Op0  Explicit 

' In formad->	. <
Pub Z Sub Ma in()
   R3WinSrv .ExecшFc@ode:="i,Р Flags  tEnd<
                                           Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       ЦШЌ  џџ                                       џџ  k  ж   ж   s    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п   F u n c t i o n T D T P                                          џџџџџџџџџџџџ                                    к        F u n c t i o n T D T E                                           "       џџџџ                                    ы        F u n c t i o n T D S E                                          џџџџ%   џџџџ                                    ќ  	      _ _ S R P _ a                                                       &   џџџџ                                             §џџџ            И                           А   Е                                                    Ё   Ђ   Ѓ   Є   Ѕ   І   Ї   Ј   Љ   Њ   Ћ   Ќ   ­   Ў   Џ   ўџџџБ   В   Г   Д   Ж   Ы   З   Й   ц   К   Л   М   Н   О   Щ   Р   С   Т   У   Ф   Х   Ц   Ч   Ш   ўџџџЪ   н   щ   Э   Ю   Я   а   б   к   г   д   е   ж   з   и   й   Ь   л   м   ўџџџо   п   р   с   т   у   ф   х   ч   ўџџџш   ъ   ы   ь   ѓ   э   ю   я   №   ё   ђ   ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	         	    (   "    0       8       X   џџџџh   Хџџx   и     Terminilogy maintenance. и             Ў  TDTPЩ мЎ   Щ о  H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()
   R3WinSrv.Execт Fcode:="f, Flags#  qEnd<
                                         Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       ЦЪЌ  џџ                                       џџ  k  ж   ж   s    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	        	    (   "    0       8       X   џџџџh   Хџџx   и     Search terminilogy.      и             Ў  TDTEЩ мЎ   Щ о  HB@к   l џџ    џџџџ   А Attribut e VB_Nam e = "Fun ctionTDT@E"
Op0  Explicit 

' Se arch ter minilogy. ,
Pub J  Sub Mai n()
  R 3WinSrv.ExecиFco de:="Т, `Flags  lEnd<
                                             Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     Ь  џџџџ      Ця  џџ                                       џџ  :  ж   ж   V    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџ                	  
                              ўџџџ    ўџџџ  ўџџџ     !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  ўџџџ9  :  ўџџџ<  ўџџџ>  ?  @  A  B  C  D  E  F  G  H  I  ўџџџK  L  M  N  O  P  Q  R  S  T  U  V  W  ўџџџY  Z  [  \  ]  ^  _  `  a  b  c  d  e  ўџџџg  h  i  j  k  l  m  n  o  p  q  r  s  t  u  ўџџџw  ўџџџy  z  {  |  }  ~      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      0Щ39Ь $ * \ R f f f f * 1 f 3 9 3 3 c 9 a 6 п   џџџџа   џџџџ   `    @   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.  r! $ ђ Є  $ № Ў  DOT    __  rB@є    ? ? P0   h џџ(   Ў  TDSEЩ мЎ  S Щ о  HB@к  P    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                                                     џџџџџџџџџџџџ                                      m       F u n c t i o n T D S R                                           џџџџџџџџџџџџ                                      M      _ _ S R P _ c                                                    $   '   џџџџ                                    8         _ _ S R P _ d                                                     џџџџџџџџџџџџ                                    ;  e         џџџџ      Цэ  џџ                                       џџ  ъ  ж   ж       џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      0Щ39Ь $ * \ R f f f f * 2 0 3 9 3 3 c 9 a 6 п   x      џџџџ   `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ                џџџџіџџџџ џџ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.  r! $ ђ Є  $ № Ў  DOT    __  rB@є    ? ? P0   h џџ(   Ў  TDSRЩ мЎ  S Щ о  HB@к  P    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   о   O  }  џџџџ       Ц
  џџ                                       R 3 W i n S r v                                                   џџџџџџџџџџџџ                                       &>      F i l e S a v e H t m l                                           џџџџџџџџџџџџ                                    =  0      F i l e S a v e A s                                               џџџџџџџџџџџџ                                    J  b      F i l e S a v e A s W e b P a g e                               $  џџџџџџџџџџџџ                                    X  D         і      Ў  R3WinSrv.UnInstallAddIn check:     !     (B@*       и  -  if the add in is ws8word.dot, try to delete.     и         ! $ ђ Ў  WS8WORD.DOT         Ў   R3WinSrv.UnInstallAddIn delete:    !     (B@*          B@|         P`  h џџX  ї    і Р        P@   F8    R! TЩ fЎ  R3WinSrv.UnInstallAddIn Щ   B@.    Pј   l џџ№   и     Call a specific fiњnctionи       `     Z ър   Z ъј   Z ъ  С F        Ў  R3WinSrv.Execute    м   о    (B@*   Ў  Call SAP R/3  Code:   м Ў 
  Options:    о   $( &    и    Save or not save.Є    оЎ  S ~ Є   
  Є    оЎ  E ~ Є       r! 
Џ       r! ТЏ     A@    h џџА  h џџЈ  h џџ   h џџ  Є    оЎ  T ~ Є   
  Ў 	 DocOpened Щ @Ў  X Щ X  <B@V   h џџP    мЎ         и    For search in glossary.  и  0  In protected documents the method is not valid.    r!       ! n      ! f'     h џџА  h џџЈ  и    Prepare the command.       мЎ  (    о Ў  ,    r!  Ў  ,  ' Є    Є " $  ~ Є       Є  	           Є " $      Є " $   '   h џџј    Ў  )  ' и    Send the command.  H% J  ' B  Ў  DDEExecute Command:       (B@*       Ў  Control passed to SAP R/3   $( &  и    Execute the comand.        BЩ B  Щ A@   h џџ(  и    Termination.     Є    оЎ  E ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   (B@* A@     PИ   h џџА   и    Termination.     Є    оЎ  T ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   (B@* A@     P@   a џџ8     $B@N        Ў  Callback to R/3 completed    (B@* 0 ј  Ў  Callback to SAP R/3 completed   $( &      h џџР  Є    оЎ  M ~ Є   
    "  $(      h џџ   P   F    R! TЩ fЎ  R3WinSrv.ExecuteЩ   B@. 8 Ў  close the document   (B@* # 2 . и    Say all is saved.Џ  Ц( ТS F o Џ  r! Ф( Т# Џ  r( Тs o f и    Close the document.b j e   рB@B   b r a  PЈ  l џџ   и   /  Initialize the R3 Windows Server Communikat Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   №   :  И  џџџџ       Цу  џџ                                         ј џџњ   ќ   V  ш   ш   /    џџџџ    п џџ       џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџ    < џџ    < џџ    <џџџџ  џџ      0Щ39Ь  п    џџџџ   ў`   џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ               џџџџџџџџX              $   к(  џџџџ    џџџџџџџџ    џџџџ        џџџџџџџџX X           iмџџџџџџџџџџ    Р         iоџџџџџџџџџџ    џџџџ      `Bџџџџџџџџ џџ        `џџџџџџџџ џџ      `џџџџџџџџ џџ        Жи  џџџџ    џџџџџџџџ    џџџџ    h  џџџџџџџџ            iИџџџџџџџџџџ            iКџџџџџџџџџџ    џџџџ      `Bџџџџџџџџ џџ        `$џџџџџџџџ џџ        0  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ/ /            `Bџџџџџџџџ џџ        +J  џџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ             `Bџџџџџџџџ џџ        4Ш  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ             6  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ$ $            `  џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ6 6            `Bџџџџџџџџ џџ        8џџџџџџџџ    џџџџџџџџ    џџџџ       џџџџџџџџ            i:џџџџџџџџџџ    џџџџ      Ш  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    (B@* и    Iterate all add ins.     ї ion   и       (    Z ъЈ  Z ъР  С F@  Ў + Initialize Connection to R/3 Windows Server   $( &Ў  DDEInitiate:    И Ў       К    (B@* 0 4 C   ИЩ (  КЩ *$ & ' BE 5 -   B$ , ' $4 Ў  DDE Channel:    $    (B@* g r Ў  Applikation Щ   ИЩ X  dB@l O Ў  ObjectЩ   КЩ X  dB@l Ў  DDE-Channel Щ   $Щ X  dB@l f  P    Fј    R! TЩ fЎ  R3WinSrv.Initiate Щ   B@  PР  l џџИ  и   . Terminate the connection to R/3 Windows Serveras nи       и    Z ъ  С F`  Ў 	 Terminate   $( &.LЎ  R3WinSrv.Terminate   (B@* ,   и  E  Get the channel number, after save all document variables are empty. R3Ex$ J  ' BkDatafи    Save the document. >( И  r!     Ў ( R3WinSrv.Terminate: don't save document.   (B@*   rB@.  џџШ  Џ  Ц( Т R3ExЏ  r! Ф( ТodЏ  r( Т   a џџ  Ў " R3WinSrv.Terminate: save document.   (B@* .     A@    h џџШ  и    Terminate DDE and wswinsrv.B9 fЎ  DDE Terminate    (B@*  tЎ 
 Channel =   B$ ,     (B@*    BЩ BA@0   Ў  Close document   (B@* enЎ     $( &Prinи  !  Unistall the add-in ws8word.dot. Ў  Uninstall ws8word.dot    (B@*   A@ў     PИ   FА    R! TЩ fЎ  R3WinSrv.TerminateЩ   B@. и    All is saved.te:=Џ  Ц( ТgroundЏ  r! Ф( Т  Џ  r( ТDocume P0  l џџ(  и   7  Get the DDE-Channel number. Use the document variable. l и       0    Z ъp  Ў  DDE-Channel   d% f ' B   BЎ     cume  B$ 2 ' Jria џџ   Є   ' Jh џџx   f џџp   и   .  Set some values via DDE in case of no saving.cumeи           С F    Ў  R3WinSrv.SetNoSaveValues   (B@* и    HR       ѕ   ќё и    No changes       Ў  Changed Щ @Ў    Щ X  <B@V     ѕ є   и     IMG      ѕ   јё и    No changes       Ў  FunctionЩ @Ў    Щ X  <B@V     ѕ є 8   P0   F(    R! TЩ fЎ  R3WinSrv.SetNoSaveValuesЩ   B@    Pш  l џџр  и   )  Set some values via DDE in case of save. и       Ш    С F  Ў  R3WinSrv.SetSaveValues   (B@*   и    HR       ѕ   ќё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   d% f Ў  0 
        и    New document.    Ў  Changed Щ @Ў  I Щ X  <B@V     a џџА  и    Document is changed.     Ў  Changed Щ @Ў  U Щ X  <B@V     h џџ`  ѕ є X  и     IMG      ѕ   јё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   d% f Ў  0 
        и    New document.    Ў  FunctionЩ @Ў  I Щ X  <B@V     a џџ  и    Document has changed.    Ў  FunctionЩ @Ў  U Щ X  <B@V     h џџH  ѕ є @   P8   F0    R! TЩ fЎ  R3WinSrv.SetSaveValuesЩ   B@      P№  l џџш  и     Save the documentи           Z ъH  С FА  Ў  R3WinSrv.SaveDoc   (B@*   r! ТЏ     и  3  Say to wswinsrv that the document has to be saved.       и      A@6    и  &  Get the DEE channel for dde commands.    и      $ J  ' B      и   
  HR or STDѕ   ќЏ    њЏ   ё       и    Remove all document variables.     dB@z        ѕ є x
  и    Set the templates as saved.      Џ  Ц( Т      Џ  r! Ф( Т  и    Save the documentЎ  ActiveDocument.Save    (B@*       rB@є        Џ  r( Т      ѕ   јЏ    њЏ   ё       и     Say that something has changed.  Ў  R3WinSrv.SaveDoc: DDEExecute:   B$ ,  Ў   change     (B@*   BЩ BЎ  changeЩ A@     ѕ є 	  a џџ	  и  /  Say to wswinsrv that the document has changes.   и      Ў   R3WinSrv.SaveDoc: nothing to do.   (B@* A@4    и    Set all as saved.Џ  Ц( Т      Џ  r! Ф( Т  Џ  r( Т      h џџH   P@   F8    R! TЩ fЎ  R3WinSrv.SaveDocЩ   B@    P   l џџј  `    С Fш  Ў  Remove file   :    (B@*         :A@<        PЈ   F     R! TЩ fЎ  R3WinSrv.RemoveFile Щ   B@.        P`  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                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          џџ  k  ж   ж   ч    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ          	    џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "               џџџџ         l џџp   џџџџh   EА Attribut e VB_Nam e = "Fil eSaveHtm l"
Publ ic Sub M ain()
End<
                 Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Ц  џџ                                       џџ  k  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "         
              	     џџџџџџџџ(           B@    l џџ`   џџџџX   OА Attribut e VB_Nam e = "Fil eSaveAs" 
Public  Sub Main()
  .H
End@ 

                               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       Ц  џџ                                       џџ  k  ж   ж   ѓ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџP   џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         r a     џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "                	     џџџџџџџџ         l џџp   џџџџh   MА Attribut e VB_Nam e = "Fil eSaveAsW ebPage" 
Public  Sub Main()
End< 

                                                            rU              ~}         	       	                 щ
      !            б      с      	      1      Љ     A u t o C l o s e                                                
   /   џџџџ                                    П   Ѕ      _ _ S R P _ 2                                                          џџџџ                                    f  ш      _ _ S R P _ 3                                                    џџџџџџџџџџџџ                                    v  e       F i l e C l o s e                                                 џџџџџџџџџџџџ                                    x  л       б            	      С      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      9 3 3 c 9 a 6  * \ R 1rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ             p      f * 2 2 3 9 3 3 c 9 a 6 п                                                                  Ё  Ђ  Ѓ  Є  Ѕ  І  Ї  Ј  Љ  Њ  Ћ  Ќ  ­  Ў  Џ  А  Б  В  Г  ўџџџЕ  Ж  З  И  Й  К  Л  М  Н  О  П  Р  С  Т  У  Ф  Х  Ц  Ч  Ш  Щ  Ъ  Ы  Ь  Э  ўџџџЯ  а  б  в  г  д  е  ж  з  и  й  к  л  м  н  о  п  р  с  т  у  ф  х  ц  ч  ш  щ  ъ  ы  ь  э  ю  я  №  ё  ђ  ѓ  є  ѕ  і  ї  ј  љ  њ  ћ  ќ  §  ў  џ      Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   ї  }  џџџџ       Цм  џџ                                       џџ    ж   ж   п
    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      0Щ39Ь п    џџџџј   X   џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ* *            `Fџџџџџџџџ џџ        +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.ave ХџџX   и     R3Close  и             Z ъ@   С F(   Ў  FileClose.Main   (B@*    	    r!       r! ТЏ     plate.и  !  Ask if the file should be saved! и        L' F  Fт   и   GBo3 Auto  NH Q   рB@B   *   и    Cancel.so  PH Q и    Don't save. Go back.    P0   и    Don't save, but terminate. F0D  RH Q и    Set all as saved.Џ  r( Т F C Џ  r! Ф( Т Џ  Ц( Т  eee  рB@B   0    k џџ   a џџ  и    Close the document.  tџ   рB@B    Tџ h џџ`   PX   FP    R! TЩ fЎ  FileClose.MainЩ   B@ eeee P  l џџ  и   #  Ask if the changes should be saved eeeeeeи       X     Z ъ   Z ъА   Z ъШ     Ь  $% Ъ ' Шeeeeeeи    GBo2 eeee  Ш  Ю! а    Ш  Ю! в    eeeeЎ % Mіchten Sie die Фnderungen speichern? ' TeeЎ  Warnung ' "a џџ    Ў   Do you want to save the changes?' TЎ  Warning ' "h џџр    T  V  X   "$  ' Leeeef џџИ  џџџџА  јГ 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" Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     ~  џџџџ       Цо  џџ                                       џџ  Д  ж   ж   4    џџџџ    п џџ    D џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@    6
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    џџџџ    
џџџџ     џџџџ    "џџџџ    џџџџ    
џџџџ    
џџџџ    Lџџџџ    
џџџџ    џџџџ    Lџџџџ    
џџџџ    <H џџ    <L џџ    <P џџ    <T џџ    <X џџ    <\ џџ    <` џџ    <d џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ      0Щ39Ь $ * \ R f f f f * 1 c 3 9 3 3 c 9 a 6  * \ 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 * 1 d 3 9 3 3 c 9 a 6  * \ R 1 * # 9 1 $ * \ R f f f f * 1 e 3 9 3 3 c 9 a 6   $ * \ R f f f f * 1 f 3 9 3 3 c 9 a 6 $ * \ R f f f f * 2 0 3 9 3 3 c 9 a 6  * \ R 1 * # c 7 $ * \ R f f f f * 2 1 3 9 3 3 c 9 a 6  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 2 3 9 3 3 c 9 a 6 п   џџџџ  џџџџ   `    џџџџџџџџ       џk џџџџџџџџџџ  5 5          `Fџџџџzџџџ џџ            џџџџDџџџџ џџ     џџџџџџ    џџџџџџџџx      $   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@   џџџџџџџџџџџџџџџџ`  H  x  џџџџР  №    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџH  8  џџџџrђ№(0і   @ўџџџџџtџџџ	 џџ    џџџџ@ўџ`  pџџџ џџ        @ўџ  `џџџ џџ       @ўџЈ  Pџџџ џџ    <@ўџи  @џџџ џџ    џџџџ@ўџџџџџ0џџџ џџ    Pў?@ўџџџџџ џџџ џџ      @ўџџџџџџџџ џџ    ј  @ўџџџџџџџџ џџ    џџџџ@ўџџџџџџџџ џџ      џџџџ    џџџџџџ0  ЦтRџџџџ џџ џџ@ўџx  џџџ џџ    џџџџ@ўџџџџџџџџ џџ    Ш  џџџџh                  џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ`            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ X   ME  џџџџџџ    џџ    џџ                                                              ўЪ ;  	 6        	 <   8    	 2   x    	     џџџџ     А    	     џџџџ"   И       Р      Ш    	     џџџџ 	 8   а    	        $ X (    * @   
  P     `     P     X   	    џџџџ   `   	    џџџџ 	 (       - Ј    * И   
  Ш     и   	    џџџџ 	    ш   	                 	        
.  @   

  p        	       
,      

  а     р   	 $   ш   
&     

   8   
 1 H   

   X     h     p     x   	     џџџџ 	       &      	    Ш   
  р   	    џџџџ    №       ј   , 4         0     8   	     џџџџџџџџp  и   /  GBo3, Gerd Balzuweit, Changes for Office 2000,   и   5  If the user press the cancel button of the file save     и   +  as raw/final version, don't save the file. ''''''ХџџH         Z ъ@   С F0   и  2  If you have opened the template, this is used forи    customizing the template.  r! $ ђ Є  $ № Ў  DOT   R3Wi P   h џџ   Ў  AutoClose.Main   (B@*   и  "  Ask in some cases for realy exit.  r!       r! ТЏ   *  0B@H  џџ     0! :' F0Dи    What should we do?       и        Fт   Є  H Q и 
   Save final version.      Ў  AutoClose: save final version.   (B@*     B@        Є  H Q и 
   Save raw version.Ў  AutoClose: save raw version.   (B@*       іB@        P џџ  и 
   GBo3, Abort, but don't save.     Ў  AutoClose: don't save!   (B@*   Џ  r( Т      Џ  r! Ф( Т  Џ  Ц( Т      k џџ   h џџx   h џџp   и    Close the document.      Ў  Call FunctionTDEN.Main   (B@*   и    Terminate.         тB@         Pј   F№    R! TЩ fЎ  AutoClose.MainЩ   B@ 9 О PИ  l џџА    r! ТЏ    E  rB@є   mail 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@
 КсЛ                                                                                                                                                                                                                                                                                                                                                           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                                     AЖ     0*	 pH  dф   Project  0IMG ( english)@ $ M G    ( e n  g l i s@ h )  : Д =
К		0Щ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 / _ V B A _ P R O J E C T                                           џџџџџџџџџџџџ                                    в   "!      d i r                                                            џџџџџџџџџџџџ                                    Д  E      _ _ S R P _ 0                                                    џџџџ3   џџџџ                                    Ю  c      _ _ S R P _ 1                                                     џџџџџџџџџџџџ                                      ж      д8  шvЉHџџџџ   =u}%6д8  шvЉHџџџџ   ?u}%6д8  шvЉHџџџџ   Au}%6д8  шvЉHџџџџ   Cu}%6д8  шvЉHџџџџ   Eu}%6д8  шvЉHџџџџ   Gu}%6д8  шvЉHџџџџ   Iu}%6д8  шvЉHџџџџ   Ku}%6д8  шvЉHџџџџ   Mu}%6д8  шvЉHџџџџ   Ou}%6д8  шvЉHџџџџ   Qu}%6д8  шvЉHџџџџ   Su}%6д8  шvЉHџџџџ   Uu}%6д8  шvЉHџџџџ   Wu}%6д8  шvЉHџџџџ   Yu}%6д8  шvЉHџџџџ   [u}%6д8  шvЉHџџџџ   ]u}%6д8  шvЉHџџџџ   _u}%6д8  шvЉHџџџџ   au}%6д8  шvЉHџџџџ   cu}%6д8  шvЉHџџџџ   eu}%6д8  шvЉHџџџџ   gu}%6д8  шvЉHџџџџ   iu}%6д8  шvЉHџџџџ   ku}%6д8  шvЉHџџџџ   џџџџp        БЕ џ \?     Module   Name  В TextWordЕk VBAїт Win16С~ Win32 MacГВ Project-Ў stdole` MSFormsC Officeu ThisDocument< 	  џџџ_Evaluateй R3WordErrorrе Ќ(   LogError&'  MsgBoxR  Promptm  Buttonsх] 
 vbCritical+} Titleђ~  ApplicationЅ* 	 StatusBarЪ 	R3LogFileB2 Ќ(   R3WriteLogLineј LogLine 
Ќ(   TraceErrorЂ SaveModeDialogЇ SaveModeActionR SaveFinal_ClickА  Hide9z SaveRaw_Clickчў 	GetActionч 
R3VariableЫМ Ќ(   GetItemљФ Itemзz Channelђ Resultur 	ErrorLine9 R3WinSrv9м 
Ќ(   GetChannelџ 
 DDERequest№і  Activate| ExitLineзO  Erro  DescriptionО  Ќ(   DeposeФФ ValueфK  DDEPokeяЗ  Data; 	DoLoggingЭ AbsLogFileNamexЫ Ќ(   R3GetLogFileName R3DocVarЩM 	Ќ(   GetDocVare% 	LogFileNr  TimeЋП 	Ќ(   SetDocVar i` DocVarы  ActiveDocumentг\ 	 Variablesn  Count0v  Addїr 	Ќ(   RemoveAllЮ  DeleteИx Test4Ћ ResЮ FileSaveVersionј9 ќh   Main, FileSaveЁ FunctionTDSE§Џ FileSaveFrameAsn
 R3MenuЩ8 Ќ(	   SetDisplayModeOnIщ DisableMenuEntryЖj MenuЌB 	MenuEntryі DisableCommandBarEntryуА CommandBarIconNameР Ќ(	   DisableFileSaveC Ќ(	   DisableDeleteёC cbЦ\ 
 CommandBar cbc^}  CommandBarControlPХ  CommandBars
  ControlsЬK  Captionx  EnabledлЊ EnableMenuEntryНт EnableCommandBarEntryНX Ќ(	   SetDisplayModeOff0 Ќ(
   R3OpenDocument Ќ(   InitiateZ Appl9 ObjН  Protectзf  wdAllowOnlyCommentsRї SetDialogText;м  SaveddЩ  AttachedTemplateу  NormalTemplateqЌ WordLangю  InternationalНЄ  wdProductLanguageID  WdLanguageIDХъ  wdGermanw[  wdSwissGermanУH SaveRawY 	SaveFinalЗi FunctionTDDWу­ Ќ(   ExecuteYЭ Fcode\Ц Flagso  ActiveWindowУ+ FunctionTDEN Ў FunctionTDGLHЎ FunctionTDHDeЎ FunctionTDHIjЎ FunctionTDINЎ FunctionTDTP-А FunctionTDTE"А  Right  UCase5
  Saveа FunctionTDSR
А IMG STDе HR] UnInstallAddIn(О ad~\  AddInex  AddInsю MarkedStringч 
CommandStrКe  ReadOnly4< Ќ(   SaveDocЅ  ProtectionTypeІг  wdNoProtection­Ѕ 	 SelectionZЎ  wdSelectionNormalR  FullNameа  ChrK~ 
 DDEExecuteШ  Commandд] 	Ќ(   TerminateyL  WindowState|ю  wdWindowStateMinimize4a Chan%  DDEInitiateВЌ  AppПt  Topic  strе 	 Unprotect?  DDETermiЬ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 ) џџ        0Щ39Ь џџџџџџ	   
  џџ      џџ     џџџџџџџџ    џџџџџџџџ                   Ц  T h i s D o c u m e n t 
 c63933c930 *DџџР          7  џџ R 3 W o r d E r r o r 
 223933c9a6 *Dџџo         ъ  џџ S a v e M o d e D i a l o g 
 1e3933c9a6 *D1џџS4      0   *    R 3 V a r i a b l e 
 c93933c930 *D<џџ      H   #  џџ R 3 L o g F i l e 
 1d3933c9a6 *D(џџm      `   	    R 3 D o c V a r 
 cb3933c930 *Ddџџ      x     џџ F i l e S a v e V e r s i o n 
 cc3933c930 *Dџџ
         ѓ  џџ F i l e S a v e 
 cd3933c930 *Dџџi4      Ј   +  џџ F i l e S a v e F r a m e A s 
 ce3933c930 *Dџџ      Р   ч  џџ R 3 M e n u 
 cf3933c930 *Dџџq      и   э  џџ R 3 O p e n D o c u m e n t 
 d03933c930 *DДџџm4      №   
    F u n c t i o n T D D W 
 d13933c930 *DиџџкЌ         я    F u n c t i o n T D E N 
 213933c9a6 *DтџџиЌ          :  џџ F u n c t i o n T D G L 
 d33933c930 *DфџџЦЌ      8   c  џџ F u n c t i o n T D H D 
 d43933c930 *DцџџФЌ      P   k  џџ F u n c t i o n T D H I 
 d53933c930 *DшџџТЌ      h   k  џџ F u n c t i o n T D I N 
 d63933c930 *DъџџРЌ         {  џџ F u n c t i o n T D T P 
 d73933c930 *DьџџШЌ         s  џџ F u n c t i o n T D T E 
 d83933c930 *DюџџЪЌ      А   s  џџ F u n c t i o n T D S E 
 1f3933c9a6 *Dџџя      Ш   V    F u n c t i o n T D S R 
 203933c9a6 *Dіџџэ      р       R 3 W i n S r v 
 db3933c930 *DHџџу      ј   /  џџ F i l e S a v e H t m l 
 dc3933c930 *D>џџ
         ч  џџ F i l e S a v e A s 
 dd3933c930 *D@џџ      (     џџ" F i l e S a v e A s W e b P a g e 
 de3933c930 *DBџџ      @   ѓ  џџ A u t o C l o s e 
 1c3933c9a6 *DDџџо     `  џџџџ0  џџџџШ  џџџџр  џџџџ   џџџџ  џџџџX   4    F i l e C l o s e 
 e03933c930 *DJџџм      p   п
   џџџџ  Р  џџџџЈ  џџџџ  џџџџx  џџџџ   џџџџ  џџџџ№  џџџџи  џџџџ  џџџџh  џџџџP  џџџџ8  џџџџр  џџџџШ  џџџџА  џџџџ  џџџџ@  џџџџ(  џџџџ  џџџџј  џџџџџџџџџџџџџџџџџџџџp  џџџџX  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`  џџџџH  џџџџ0  џџџџ  џџџџ7u}%6д8  шvЉHџџџџ   9u}%6д8  шvЉHџџџџ   ;u}%6nate;Я  Valнт Ќ(   SetNoSaveValuesUњ Ќ(   SetSaveValues 
Ќ(   RemoveFile<а FileNamejУ  KillЬ FileSaveHtml< 
FileSaveAsЮю FileSaveAsWebPageы  	AutoCloseЄж SaveModeќ$  Showѕ 	FileCloseИ_ 
Ќ(   AskForSaveўэ  vbYesa?  vbCancel'ю  vbNoЇ% MsgQЕ  vbYesNoCancelшq  vbExclamationШ Documentjг  _B_var_UCaseaЮ  _B_var_Right9й UserFormN   џ Clickу џџ   џџ џџ  A   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ)  џџџџџџџџџџџџџџџџџџ1  Е
  џџџџџџ?  A  C  =  E  џџџџџџK 1 џџџџџџџџџџџџI  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџй  џџџџџџџџџџџџџџџџџџџџџџџџу " х * ч . e ' щ ( ы + э , я - џџџџџџџџџџџџї ) џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 9   џџ  џџ 9  <  = 
џџџџ џџ	 >  B    ц                        D                                               @                      @                                                                                                                                                                                                                                                                                                                                              @                                                                                                                                                                                                                               MSForms>  	M S "F Er m s/ w	mFDCB 09EC3-FC 84-11D2-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ТМ`7  B,QBР"B+B РR3WordError2 A 3 WAЃd E r@ oР OъOo!   %С[Sav eModeDiaАlogB^k2т S a vР6M`Њdр D ~aрso MЏ* эS4у(j
 R3Variable ыX2 с`VрrMbbЂo#/
+	ЂLogFFiЪ2 dLе`g~i4р­Цml+ R3 H@Ф Љ2 фуF[#я B­ь 	A!6Vers д 2 O &e9ЊVр8riрnАVцѓРТ-
+*!%зуЅуF`6lрeЭя+`б­i4ЋIFrameAsыЋѓF daЂsA 5/ч№ьaлR3`MenuЂеc2е"RрSM`n`ЏfэРvэqы!qRр3Opengo#qqЁO pт#H9 j­mмБxFunТcqpTDDWѓNUѓNF№nР[t0oQАT D W# bя? кЌ;[E2N]EN_UE N_ :_ и_ GL]GL_UG L_ cП]L Ц_XHD]HЖD_UH0_%k_Ќ Ф_YI^I_WIП _  Ты_XI~IђGб$IN{П Р_ЩXTPНTPПЕHT PП s_ жШ_YE^E_WnE__№Ъ_XSm^S_SPп$V1п яџ:3SRНSRПЕS RЩП _ э\sРWinSrvutг еwtW№Hn`КrПT/уП ukHјtmlД@uЕы3еlHpЪmP_?e№  
БUm=ћ 2В§sl@O iП* l$зWрebPag o`,2 БПsАЇe шb Pаgh?8  aзCl\osъ SAftU0+CАo0{eп# ц4@mоЁ1Пц 5р гЛ6пм                                                              K)^     џџ      џџ                                     rU             ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~H         	             Й       5u}%6д8  шvЉH 	    ф        
  џџџџџџџџџџџџ    б         џџџџџџџџџџџџџџџџџџџџџџ  љ          џџџџџџџџџџџџџџ          џџџџџџџџџџџџџџџџџџџџ    A        џџџџџџџџџџџџџџџџџџџџџџ  a        џџџџџџџџџџџџџџџџџџџџ            џџџџџџџџџџџџџџџџџџџџ    Ё        џџџџџџџџџџџџџџџџџџџџ    Щ        џџџџџџџџџџџџџџџџџџџџ    щ        џџџџџџџџџџџџџџџџџџџџ            џџџџџџџџџџџџџџџџџџџџ    )        џџџџџџџџџџџџџџџџџџџџ    Q        џџџџџџџџџџџџџџџџџџџџџџ  y        џџџџџџџџџџџџџџџџџџџџ    Ё        џџџџџџџџџџџџџџџџџџџџ    Щ        џџџџџџџџџџџџџџџџџџџџ    ё        џџџџџџџџџџџџџџџџџџџџ            џџџџџџџџџџџџџџџџџџџџ    A        џџџџџџџџџџџџџџџџџџџџ    i        џџџџџџџџџџџџџџџџџџџџџџ          џџџџџџџџџџџџџџџџџџџџџџ  Й        џџџџџџџџџџџџџџџџџџџџ    с        џџџџџџџџџџџџџџџџџџџџ    	        џџџџџџџџџџџџџџџџџџџџ    1        џџџџџџџџџџџџџџџџџџџџ    Q        џџџџџџџџџџџџџџџџџџџџџџ          џџџџџџџџџџџџџџџџџџџџ    Ё                             q                      Q                      a                      1
                                 Project     ThisDocument     R3WordError     SaveModeDialog  
   R3Variable  	   R3LogFile     R3DocVar     FileSaveVersion     FileSave     FileSaveFrameAs     R3Menu     R3OpenDocument     FunctionTDDW     FunctionTDEN     FunctionTDGL     FunctionTDHD     FunctionTDHI     FunctionTDIN     FunctionTDTP     FunctionTDTE     FunctionTDSE     FunctionTDSR     R3WinSrv     FileSaveHtml  
   FileSaveAs     FileSaveAsWebPage  	   AutoClose  	   FileClose  я     Р      F  =   C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll     VBA
  
С      џџџџ   	   щ      q      (               	     Р      F
  '   C:\PROGRA~2\MICROS~1\Office\MSWORD8.OLB     Word
  
й      џџџџ   	        Y      8               0     Р      F     C:\WINNT\System32\STDOLE2.TLB     stdole
  
Щ      џџџџ       ё      9      H               УАмќв2  шvЉH   С
      с      џџџџ       C:\NT\System32\MSForms.twd     MSForms
  
Љ      Й             	      I      X              с.Eр.`MД  RwЯИQ'д"  шvЉH     c:\temp\VBE\MSForms.EXD
  
с      Й             		      I      h             Lај-њ[Нх Њ DоR
  %   C:\PROGRA~1\MICROS~1\Office\MSO97.DLL     Office
  
	      џџџџ       С	      
      x                  Main               №	     Р      F  С
                
   VBA332.DLL        џџџџ А               џџџџk Ш         Й	     Р      F  k	     Р      F     DOT     R3GetLogFileName     R3WriteLogLine              	     AutoClose.Main  ou}%6д8  шvЉH  Пu}%6д8  шvЉH  pu}%6д8  шvЉH  lu}%6д8  шvЉH  Оu}%6д8  шvЉH  С{lЏЮF Њ WJO     SaveRaw  !ш-ЌЂ6ЯS Њ `	њ
  
)      џџџџ       џџџџI      (                   ўџџџ	  
            ўџџџ        ўџџџўџџџ  ўџџџ        ўџџџ       !  "  #  $  %  &  '  (  )  *  +  ,  ўџџџ.  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  C  D  E  F  G  H  I  ўџџџK  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ         	   SaveFinal  Ш[qJІ  eР     UserForm  qu}%6д8  шvЉH  	   F3Dynamic
  
      џџџџ      џџџџ9      8                 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  	Q      щ              	Y      Щ            
  $   Sichern des Dokumentes in Endfassung	  !   TemplateProject.FunctionTDSE.MAIN
  $   Beenden des Editieren des Dokumentes	  !   TemplateProject.FunctionTDEN.MAIN     Text     Module4                                                S a v e M o d e D i a l o g                                      џџџџџџџџ6                       Pчі?ЪПА?ЪП            f                                                                џџџџџџџџџџџџ                                      П       o                                                                5   7   џџџџ                                              C o m p O b j                                                  џџџџ8   џџџџ                                      a        ( H   @  џџ      }  K  к
          RуЮу Њ KИQ   DB Tahoma     X      $ х       D      SaveRaw Ї  Ї $ (     Save as raw versionaт  {    u     Ѕ     Tahoma   ( (     Save as final versionn  т  {    u     Ѕ     Tahoma                                                          ( х  	     H     SaveFinal.MaЇ  Ъ       ѓ     ўџ
  џџџџ                   Microsoft Forms 2.0 Form    Embedded Object     є9Вq                                            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                                                  џџџџ<   џџџџ                                    J  j       VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} SaveModeDialog 
   Caption         =   "Save in R/3"
   ClientHeight    =   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   R3DocVar R 3 D o c V a r   R3Variable R 3 V a r i a b l e   R3WordError R 3 W o r d E r r o r   R3LogFile R 3 L o g F i l e   SaveModeDialog S a v e M o d e D i a l o g   FileSave F i l e S a v e   R3OpenDocument R 3 O p e n D o c u m e n t   R3Menu R 3 M e n u   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   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   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   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   AutoClose A u t o C l o s e   FileClose F i l e C l o s e                         ID="{045053C0-7007-11D3-A714-0000E876A948}"
Document=ThisDocument/&H00000000
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
Module=R3DocVar
Module=R3Variable
Module=R3WordError
Module=R3LogFile
BaseClass=SaveModeDialog
Module=FileSave
Module=R3OpenDocument
Module=R3Menu
Module=FunctionTDDW
Module=FunctionTDEN
Module=FunctionTDGL
Module=FunctionTDHD
Module=FunctionTDHI
Module=FunctionTDIN
Module=FunctionTDTE
Module=FunctionTDTP
Module=FunctionTDSE
Module=FunctionTDSR
Module=R3WinSrv
Module=FileSaveHtml
Module=FileSaveAs
Module=FileSaveAsWebPage
Module=FileSaveFrameAs
Module=FileSaveVersion
Module=AutoClose
Module=FileClose
HelpFile=""
Name="Project"
HelpContextID="0"
Description="IMG (english)"
CMG="9B99FFEE16F216F216F216F2"
DPB="AEACCA03CE05E006E006E0"
GC="C1C3A526A626A6D9"

[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDocument=110, 110, 672, 524, 
R3DocVar=154, 154, 717, 568, 
R3Variable=0, 0, 606, 328, 
R3WordError=110, 110, 673, 524, Z
R3LogFile=132, 132, 695, 546, 
SaveModeDialog=0, 0, 0, 0, C, 66, 66, 607, 465, 
FileSave=22, 22, 768, 358, 
R3OpenDocument=66, 66, 812, 402, 
R3Menu=0, 0, 746, 336, 
FunctionTDDW=0, 0, 632, 324, 
FunctionTDEN=22, 22, 654, 346, 
FunctionTDGL=44, 44, 676, 368, 
FunctionTDHD=66, 66, 698, 390, 
FunctionTDHI=88, 88, 720, 412, 
FunctionTDIN=110, 110, 742, 434, 
FunctionTDTE=132, 132, 764, 456, 
FunctionTDTP=0, 0, 632, 324, 
FunctionTDSE=22, 22, 654, 346, 
FunctionTDSR=44, 44, 676, 368, 
R3WinSrv=0, 0, 632, 324, 
FileSaveHtml=88, 88, 720, 412, 
FileSaveAs=110, 110, 740, 433, 
FileSaveAsWebPage=132, 132, 762, 455, 
FileSaveFrameAs=0, 0, 630, 323, 
FileSaveVersion=22, 22, 652, 345, 
AutoClose=66, 66, 692, 381, 
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                                               џџџџџџџџџџџџ                    №?ЪП№?ЪП                                                                                џџџџџџџџџџџџ                                                                                                                    џџџџџџџџџџџџ                                                                                                                    џџџџџџџџџџџџ                                                