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

Bas0{00020P906- 0C $0046}|CreatablFalse^ Predecla Id Tru"@ExposeT emplateD0eriv$eCuРstomiz2 

                               R 3 W o r d E r r o r                                            #      џџџџ                                       	      _ _ S R P _ c                                                     џџџџџџџџџџџџ                                    -   Ц       _ _ S R P _ d                                                          џџџџ                                    1   Ў       R 3 L o g F i l e                                                 џџџџџџџџџџџџ                                    4   В       Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     Ь  џџџџ      љ9  џџ                                       џџ  В  ж   ж   ъ    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      2Щ39Ю $ * \ R f f f f * 1 b 3 9 3 3 c 9 a 1 п   џџџџH        `    џџџџџџџџ    џџџџ   @   џџџџџџ        p  ifџџџџџџџџџџ    `      & iџџџџџџџџџџ    џџџџ   .џџџџ  `    џџџџџџџџ    џџџџ   Р   џџџџџџ   
      Cifџџџџџџџџџџ    р     Ў   iџџџџџџџџџџ    џџџџ  8  џџџџџџџџ       џџџџ џџ8    џџџџџџ    џџџџџџџџџџџџ   $   џџџџИ                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                               ўЪ   	         	       "           (    .   0    *   `    "          И       а    	     џџџџ"   и       р    "   ш             (  џџџџ8  и     Errorhandler mberи             С  P     fЩ    Щ Ў 	 Error in     Щ "A@ 8Ў 	 Error in     Ў  :    f   $( & x Ў 	 Error in     Щ ,  (B@* g.R3Wr  fЩ ,  (B@* .B@0l џџ(        С     Ў 	 Error in     Щ ,  (B@*  Ш^B  fЩ ,  (B@* PTXT1_l џџа   џџџџШ   Б Attribut e VB_Nam e = "R3W ordError "
' $ha ndler <
 Public S@ub Log<( Text As S  ng, Module")
  On Re4su иN hMs gBox Pro mpt:=K,  Buttons: =vbCriti cal, Tit le:="t i`n " +kHApp ation .StatusBarг/ 8":7R3 gFil,e.  9e Li|ner;1E$nd

ЂTr8aceP;Ѓш_                                                       rU              ~}         	       	                  0      ќЦ                                          0      ќЦ                                                f                                                                rU                    	      џџџџџџџџ        ,          ` §џџџџџџџџџџџ    Y     q          00, Љ        ` §џџџџџџџџџџџ    Y     q          00    p                         Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Ж  Ь  џџџџ      љ9х  џџ                                       џџ  в  ж   ж   	    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      2Щ39Ю $ * \ R f f f f * 1 8 3 9 3 3 c 9 a 1 п   (   h  џџџџ  џџџџш   p   џџџџ0         $   џџџџ    +4p      `    џџџџџџџџ    џџџџ  
 џџџџ џџџџ             *џџџџ  `    џџџџџџџџ    џџџџ  
 А   џџџџџџ       8% i,џџџџџџџџџџ    џџџџ  : `Bџџџџџџџџ џџ    0  т0    џџ џџ       @    џџџџџџџџ    т2џџџџ џџ џџ     @    џџџџџџџџ    (џџџџ џџ      џџџџџџ    џџџџџџџџџџџџџџџџ              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     С 6h   Ў  AbsLogFileName  8% : ' 2Ў 	 DoLogging   8% : Ў  1         Џ' 0  a џџ   Џ ' 0  h џџ      2' 4 <№    6ш   Ў   ' 4Ў   ' 2Џ ' 0          >! @Щ    Щ Ў # Error in R3LogFile.R3GetLogFileName Щ "A@ rђШ  <p   f џџh   и     write a line of the logfile  и       p     Z ъа   С 6      0Џ    2Ў           $ В   ' B        2  BЃ Ф      B Ъ Ў  [   D Ў  ]    , Ю       BS  h џџЈ   <    6          >! @Щ    Щ Ў ! Error in R3LogFile.R3WriteLogLine Щ "A@  <@  l џџ8  џџџџ0  В Attribut e VB_Nam e = "R3L ogFile" 
Option  Explicit 
Dim Do ging As  Booleanq2Absv <S Рng

'  Get the  logf М n р. Ck for  environ ment var iable5TE MP. S ;a doc too.  
Pub   Func­R3Г i()Ј   O вrr tGoTo ELin 7
c= R3DocVar. ,I("")I&f")Б1"А The 6 Ј`= TruCELlsFaEрnd If<}6T
yxitыyF?:V"@A$K'2G= 'Ms gBox Pro mpt:=@.D escriB, _CР Butt ons:=vbCritical Title:="БТ, inРZФy.>}@&EФ8 6JХЃwAe a lР} of	І	Sub юW@AL(ФЧ~'Ц@СЭNrСInрteger8@(ЩO Ќ@vNott (а\)@^reeС(ФЂOpen ЬF НAp dС(F1Prio#І, "[" & Time$р x"] СрCG7Cрlose F	ЅRџ^MџCТqС` џC јC8ЏC =C              rU              ~}         	       	     	             0      ќЦ      0                                    0      ќЦ      p                                          f                                                                rU                    	      џџџџџџџџ        $         _ _ S R P _ 8                                                    џџџџџџџџџџџџ                                    c   Ц       _ _ S R P _ 9                                                          џџџџ                                    g          A u t o C l o s e                                                      џџџџ                                    j   Z      _ _ S R P _ 2                                                     џџџџџџџџџџџџ                                    Ј   №       `  §џџџџџџџџџџџ        ( Љ        ` §џџџџџџџџџџџ    Б           0       p                                                Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   c  Ё  џџџџ       љ9T  џџ                                       џџ    ж   ж   s    џџџџ    п џџ    8 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      6
џџџџ    
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    џџџџ    
џџџџ    Lџџџџ    
џџџџ    
џџџџ    џџџџ    Lџџџџ    
џџџџ    << џџ    <џџџџ  џџ      2Щ39Ю $ * \ R f f f f * 1 6 3 9 3 3 c 9 a 1 $ * \ R f f f f * 1 7 3 9 3 3 c 9 a 1  * \ 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 8 3 9 3 3 c 9 a 1  * \ R 1 * # c 7 $ * \ R f f f f * 1 9 3 9 3 3 c 9 a 1 $ * \ R f f f f * 1 a 3 9 3 3 c 9 a 1  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 1 b 3 9 3 3 c 9 a 1 п   8  @  Hџџџџ   `    џџџџџџџџ    x   џk џџџџџџџџџџ  ( (              џџџџFџџџџ џџp     џџџџџџ    џџџџџџџџ       $   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0  `  x  џџџџР  №  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџ8NLJ(VX` џџ@ўџH  xџџџ џџ    џџџџ@ўџ   tџџџ џџ    џџџџ@ўџџџџџpџџџ	 џџ    џџџџ@ўџ  `џџџ џџ    џџџџ@ўџЈ  Pџџџ џџ    џџџџ@ўџи  @џџџ џџ    џџџџ@ўџџџџџ0џџџ џџ                                                                                                  Ё   Ђ   Ѓ   Є   Ѕ   І   Ї   ўџџџЉ   Њ   Ћ   Ќ   ­   Ў   Џ   А   Б   В   Г   Д   Е   Ж   З   ўџџџЙ   ўџџџЛ   М   Н   О   П   Р   С   Т   У   ўџџџХ   Ц   Ч   ўџџџЩ   Ъ   Ы   Ь   Э   Ю   Я   а   б   в   г   д   е   ж   з   и   й   к   л   м   н   о   п   р   с   т   у   ф   х   ц   ч   ш   щ   ъ   ы   ь   э   ю   я   №   ё   ђ   ўџџџє   ѕ   і   ўџџџј   љ   ўџџџћ   ќ   §   ў   џ         џџџџ@ўџџџџџ џџџ џџ    џџџџ@ўџџџџџџџџ џџ    џџџџ  >џџџџ          @ўџџџџџџџџ џџ        џџџџ                    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ ,           	     џџџџ 	 "       	    0   "   8      @    	     џџџџ 	 6   H    	 :         " Р    	 8   р    	        $ X 8    * `   
  x          p     x        	    џџџџ      	    џџџџ 	 "   Ј    1 а   
   р   	    џџџџ  * №   " "     *   (      X     x   *         А     а     и   *   р   
           	     џџџџ    (       0   , 4 8       h     p  џџџџ  Хџџx   и     Save and exit the document.file nи             С 68   и  /  If the R/3 menu is used to print the file then и  4  skip all. So I test any doc variable for this case.      Ў 	 IsNewFile   8% : Ў     и  2  If you have opened the template, this is used forи    customizing the template.  N! $ L Є  $ J Ў  DOT    R3L  N! TЏ   gFh џџ    <   h џџx   Ў  AutoClose.Main   (B@*  lи    Set the templates as saved.p     Џ  N! R( T  Џ  V( T  2Ў   N! TЏ     Ў 	 IsNewFile   8% : Ў  1         Ў  Ttxct-FunctionЩ \Ў  I Щ ^  XB@Z       Ў   Щ dЎ  SEЩ f  `B@b     a џџ  Ў  Ttxct-FunctionЩ \Ў  U Щ ^  XB@Z       Ў   Щ dЎ  SEЩ f  `B@b     h џџ(  a џџ   Ў  Ttxct-FunctionЩ \Ў    Щ ^  XB@Z         `B@h        h џџи    <а    6Ш     >! @Щ fЎ  AutoClose.MainЩ   B@      <   l џџ     NB@P        h џџp   џџџџh   уВ Attribut e VB_Nam e = "Aut oClose" 
Option  Explicit 

' Sa ve and e xit the  document. <
Pub Z  Sub Mai n()
  O rror GoTo ELineQ  ' If!HR/3  Hu  is used to prinfPfile&nP'  skip al l. So I Ptest y @variab .f	 rth Ncase  jR3DocVar.Get ("IsNewF	0")" The4Oyou ha|openL{t emplate,J 1 Z9Pc ustomizi|ng\ RDEi@ght(UC O(РActiveHІ!Ш), 3HDOzTI    ЭdС _False`/C*EtIfУЩClРzl  AR3LogN.R3WriteЉA
 (."РetEPs aшs sWdBFЬ)РЉ@achedTФ[.Х9Tru  NрormalС'KЫ@
 1KcR3Р.Dep@Я IР6 :="Ttxct-FunРvon", Value &IРз]  РMin Srv.ExecaAуFcod@Flags@SEоE@vС3/U4FC7Ч- цTeprmin hЅJ6
N:Сordb. M Te0xt:=`/scriТ, Modul)fQ
EФY@
с`
                                      rU              ~}         	       	                 Љ      	      Й	      љ	      1
      
            ё
      A      i      Љ      	      Y      y      Ё      Љ     
 щ            Љ      y            Б      љ      Щ            i      Ш  x    K> " Cxџxџ   #tџ ћ02 xџtџв  Xxџpџ"   $ 4  pџ  >xџF`џPџ
  ѕ   Pџ@џ
  @џ:0џ	 ]ћ/ џpџ6 `џPџ@џ\Ы  *џpџ"   $ 4  pџи  kџє ЦpџЩ  pџ"   $ 4  pџМ pџ   r   Cxџxџ

  /xџ 1c0џ%`џpџ"   $ 4  pџX `џ§ў pџ5`џ  єџpџ"   $ P  pџ@  pџ *џpџ"   $ 4  pџи  kџє Цpџ " Cxџxџ   #tџ ћ02 xџtџЧ   Ctџtџ Cxџxџ
  2 xџtџ   Ctџtџ Cxџxџ
  2 xџtџ	    Ctџtџ Cxџxџ
  2 xџtџ   Ctџtџ Cxџxџ
  2 xџtџ 7    Ctџtџ Cxџxџ
  2 xџtџ 
     r 4xџ   pџpџ,   Cџџ>xџ§Чtџ
  2 tџџpџ          d x$      r               ,          xџ tџ џ pџ `џ Pџ @џ  џ     k                      _ _ S R P _ 3                                                          џџџџ                                    И   e       R 3 D o c V a r                                                  џџџџ   џџџџ                                    J         _ _ S R P _ 6                                                     џџџџџџџџџџџџ                                    К   r      _ _ S R P _ 7                                                          џџџџ                                    Ф   я       rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ             p                                 rU              ~}         	       	                 Й	      љ	            ё
      A            Й      й      0      ќЦ                                             а       Clџ ?єvџ`џdџhџ"   $ 4  hџ  dџ   l`џф) hџdџўc\џФ  >HџvџMLџ@dџhџ"   $ 4  hџ  dџ0  QHџpџ) hџdџ pџW8џ  FLџ]ћ/(џ58џ\И  pџW8џ `1lџ58џ Ф   
vџd\џI  llџCxџ  џ     T а 0      Ф              xџ lџ pџ            hџ dџ Hџ 8џ (џ 0      ќЦ      X                                   0      ќЦ      А                                                \      H  jА   rU                    	      џџџџџџџџ        ,          ` §џџџџџџџџџџџ                     00( Љ        ` §џџџџџџџџџџџ              0$ б        `  §џџџџџџџџџџџ         $ љ        `  ќџџџџџџџџџџџ             p      џ џџџџ    џџџџR 3 V a r i a b l e                                               џџџџџџџџџџџџ                                    Ш   Г
      _ _ S R P _ a                                                     џџџџџџџџџџџџ                                    ѓ   Ц       _ _ S R P _ b                                                       	   џџџџ                                    ї   Ѕ       R 3 M e n u                                                      %   џџџџџџџџ                                    ]   W       Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   О  Ь  џџџџ      љ9Ё  џџ                                       џџ  к  ж   ж   Ђ    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      2Щ39Ю $ * \ R f f f f * 1 9 3 9 3 3 c 9 a 1 п   џџџџp  +      `    џџџџџџџџ    џџџџ  
 @    џџџџ            i\џџџџџџџџџџ    џџџџ      `џџџџџџџџ џџ        `vџџџџџџџџ џџ     џџZџџџџ  `    џџџџџџџџ    џџџџ  
 а   џџџџџџ       џџџџi\џџџџџџџџџџ    №         i^џџџџџџџџџџ    џџџџ  Щ ^`џџџџџџџџ џџ    и          џџџџџџџџXџџџџ џџ`    џџџџџџ    џџџџџџџџџџџџ   $   џџџџ                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ8            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ (  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   С 68   Ў  Get item via DDE:   \    (B@*   `%   ' ("  Щ   \Щ \$  ' vp! rЎ  DDERequest    \ Ў       v    (B@*   $B@  ^      v'  <    6   Ў   '   >! @Щ fЎ  R3Variable.GetItemЩ   B@.  <Ш   f џџР   и     Set R/3 Value.   и            Z ъ  С 6   Ў  R3Variable.Depose   \ Ў       ^    (B@* џџ  `%   '   Ў  DDEPoke   \ Ў       ^    (B@* џџџџ  Щ   \Щ \  ^Щ A@     $B@         <и   6а    >! @Щ fЎ  R3Variable.Depose Щ   B@.  <  l џџ  џџџџ  В Attribut e VB_Nam e = "R3V ariable" 
Option  Explici t

' G et R/3 V alue. "
Pub @ Func` DItem(A As S аng)
  D im ChannelLongРResult.O rror G oTo E
LineR3Lo gFile.R3`Write  ("Д m vi a DDE: "h + O)C= inSrv.[
(I=Request(:=,(:=+пH B#EH"5S ;MApОaЌ.тAЏvatx P3' к
xiЖt: Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   4  j  џџџџ      љ9Ё  џџ                                       џџ  P  ж   ж       џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP     6
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    Lџџџџ    Lџџџџ    <џџџџ  џџ      2Щ39Ю $ * \ R f f f f * 1 7 3 9 3 3 c 9 a 1  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 e  * \ R 1 * # c 6  * \ R 1 * # c d  * \ R 1 * # c c п   џџџџH  jА      `    џџџџџџџџ    џџџџ  
 @   џџџџџџ        d Ifiџџџџџџџџџџ    `     f
 i^џџџџџџџџџџ    џџџџ  e ("`lџџџџџџџџ џџ    I te`nџџџџџџџџ	 џџ    for +:X    `    џџџџџџџџ    X  (џk №    џџџџ           iџџџџ џџџџ    џџџџ  opOr`l№   vџџџ џџ    Acti`nџџџџpџџџ	 џџ    kWWW`vј  lџџџ џџ        xА    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ 
 
 -     џџџџ`lџџџџџџџџ џџ    џџџџ|џџџџ  `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ 	 	 7     џџџџ`~џџџџџџџџ џџ    ј  џџџџ    А  џџџџА   X  џџџџ 	 8џџџџ џџP    џџџџџџ    џџџџџџџџџџџџ   $     џџџџџџџџџџџџџџџџ@  џџџџџџџџџџџџџџџџџџџџ(  џџџџџџџџџџџџџџџџџџџџџџџџ8     џџџџа  џџџџh  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџј       `:џџџџxџџџ џџ       ј    h  џџџџN  џџџџ 	 
      @ўџP  hџџџ	 џџ    Ј  @ўџш  dџџџ	 џџ      @ўџџџџџ`џџџ џџ    H  @ўџЈ  ^џџџ џџ    p  Р        Р @ўџџџџџ\џџ џџ     	 0  Ј       @ўџџџџџLџџџ џџ    "   @ўџџџџџHџџџ	 џџ    $   @ўџ  8џџџ џџ      @ўџџџџџ(џџџ џџ    $,џџџџЈ  %    
џџџџИ                  џџџџџџџџџџџџџџџџА  џџџџџџџџџџџџџџџџџџџџџџџџ(            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ   ME  џџџџџџ    џџ    џџ                                                              ўЪ @           	     џџџџ 	 8       	 &   @    	    h   "   p       x           	    џџџџ           Ј       Р       а       р       ш    
   №    	     џџџџ                   (   	     џџџџ 	 6   0   	 $   h   	      B                Ј      А   	    џџџџ   И   	     џџџџ  ? Р    > р     ј                   
 
 (   	    џџџџ     8     @     H   	     џџџџ 	     P   	    p  "   x         	    џџџџ                 И      Р   	     џџџџ 	    Ш   	    и  "   р      ш   	    џџџџ    №            0      H      `   	     џџџџџџџџp  Хџџx   и   1  Set a document variable for the active document, и     the value is always an string. .и             Z ъ   Z ъ   ї   lі Є    N! p! r       х   l  N! p% \ . n  n!       ^  n( ^     <   h џџ   ї   lі Р         Щ   ^Щ ^  N! pB@t  c <и   l џџа   и   0  Get a document variable of the active document,Pи     the return value is a string.Autoи       А     Z ъ  Z ъ(  Z ъ@  Ў   ' vї   lі Є    N! p! r ( T  х   l  N! p% \ . n  n!       n! ^' v     <р  h џџи  ї   lі Р        <Р    v' :f џџА  и     Remove all doc variables и       X    Z ъ    N! p! rЄ   
 ь     Є    N! p% \ B@z  ы џџ@  l џџ8  и     Test     и       А    Z ъ№  Ў  TestЩ Ў  T1Щ ^A@j     Ў  TestЩ Ў  T2Щ ^A@j     Ў 
 AbsLogFile$ : ' ~Ў  NotExist$ : ' ~  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                                                                                                                                                                                                                                                                                                                                                                                        "ю" ;ordТ.Trace Text:=Р.DescriB, Module:=Ш7AI!@EФ EndЦУSжSub DeposeLў,Ba77ЧМ <"OdЛB z]3WзЁ@}Poke, Da№ta:=%?? ]@@c7я?р:
              rU              ~}         	       	           
       0      ќЦ                                          0      ќЦ                                                f                                                                rU                    	     
 џџџџџџџџ        (      
    ` §џџџџџџџџџџџ    Щ          0, Љ     
   ` §џџџџџџџџџџџ    Щ                 00    p                                  Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о     }  џџџџ       љ9^  џџ                                       џџ  +  ж   ж   #	    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ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  b  c  d  e  ўџџџg  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  ўџџџ|  }  ~         С <  ї    і   ! Ј       ї   Єі    ! Њ       и    Disable the icon.и        Є! Ќ    Џ   Є( Ў      h џџ  ї   Єі Р       ї    і Р        <р  l џџи  и     Enable an entry in the menu.     и       8    Z ъИ  Z ъи  С <  х   $ Ј .  ї   Єі    ! Њ       и    Enable menu entrys       и        Є! Ќ    Џ  Є( Ў      h џџ  ї   Єі Р        <ј  l џџ№  и   #  Enable an entry in the comand bar.       и       ј    Z ъX  Z ъx  Z ъ  С <  ї    і   ! Ј       ї   Єі    ! Њ       и    Enable the icon. и        Є! Ќ    Џ  Є( Ў      h џџ  ї   Єі Р       ї    і Р        <№   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         	        	    Р      Ш   
   и      ш   
   №   	    џџџџ               	     џџџџ 	 *      R 3 D e l e t e                                                        џџџџ                                    њ   h      R 3 A b o r t                                                        '   џџџџ                                    ,  B      F i l e S a v e                                                  џџџџџџџџџџџџ                                    f        R 3 O p e n D o c u m e n t                                      $   џџџџџџџџ                                    {  Ь
       џџџџ  Hp   џџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ               `џџџџџџџџ џџ        `Иџџџџџџџџ џџ        Кџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ         Є  `Фџџџџџџџџ џџ    8   `"џџџџџџџџ џџ    ved.`Цџџџџџџџџ џџ    N!     џџџџџџџџp   џџџџ№                   џџџџџџџџџџџџџџџџp   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ ј   ME  џџџџџџ    џџ    џџ                                                              ўЪ 5           	     Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Y  Ї  џџџџ       љ9V  џџ                                       џџ  u  ж   ж   э    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџЂ    <  І    < џџ    <џџџџ  џџ      2Щ39Ю   п    џџџџ0  @   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ                џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ
 
            Р   џџџџ    џџџџџџџџ    џџџџ   џџџџџџџџџџџџ               џџџџ    џџџџџџџџ    џџџџ       џџџџџџџџ            iџџџџџџџџџџ             iџџџџџџџџџџ    џџџџ        џџџџџџџџX             $    Єџџџџџџџџx            $   8  џџџџ    џџџџџџџџ    џџџџ    Р  џџџџџџџџ            iџџџџџџџџџџ    џџџџ        џџџџџџџџј             $    Єџџџџџџџџ            $   `џџџџџџџџ џџ        Ај  џџџџ    џџџџџџџџ    џџџџ    x  џџџџџџџџ            iџџџџџџџџџџ            iџџџџџџџџџџ    џџџџ        џџџџџџџџа             $    Єџџџџџџџџ№            $   ВА  џџџџ    џџџџџџџџ    џџџџ    8  џџџџџџџџ            iџџџџџџџџџџ    џџџџ        џџџџџџџџp             $    Єџџџџџџџџ            $   `џџџџџџџџ џџ        Дџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                8  А  џџџџ  Р   ј  џџџџ@   џџџџџџџџџџџџ    h  џџџџа                  џџџџџџџџџџџџџџџџА  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ №  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@ џџЎ  &Save Щ A@ џџџџЎ 
 &SpeichernЩ A@ и  
  Save raw.Ў  FileЩ Ў  Save &raw version Щ A@ . Ў  FileЩ Ў  Sichern &Rohfassung Щ A@   и    Delete.  Ў  FileЩ Ў  Dele&te Щ A@  Ў  Ў  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@     Ў  &Save Щ A@     Ў 
 &SpeichernЩ A@ l џџX  и      Disable the delete entry (STD).  и            С    Ў  FileЩ Ў  D&elete Щ A@       Ў  FileЩ Ў  L&іschenЩ A@       l џџР   и     Diable one menu entry.   и       Р     Z ъ@  Z ъ`  С <x   х   $ Ј .  ї   Єі    ! Њ       и    Diable menu entrys       и        Є! Ќ    Џ   Є( Ў      h џџ    ї   Єі Р @И   <ш  l џџр  и   %  Disable an entry in the command bar.     и           Z ър  Z ъ   Z ъ џџџџ 	 (       	    0   "    @       H       P    	    џџџџ    X       `    	     џџџџ 	    x    
          Ј       И       Р    	     џџџџ 	    Ш    
   р       №    
       	    џџџџ 	          0   6   @      x   	    џџџџ 	       
   А   	    џџџџ     Р       Ш   ,   а                 	     џџџџB                       (   	    џџџџ    0      H   *   h            Ј   2   А      ш      ј   	    џџџџ               	     џџџџџџџџ0  Хџџx   и   "  Send to R/3 the command to deleteи   
  the file.      Z ъ@   Z ъX   С 6    Ў  R3Delete   (B@* и    Ask for validation. File$ К  ' Иichern  ИЄ    Щ  <@   h џџ8   и    Set all as saved.Џ  N( TA@ Џ  N! R( Tw.Џ  V( TЎ  и    Delete and terminate..   `%   '  Ў  DDEExecute    $ М  Ў   delete     (B@* le  Щ Ў  deleteЩ РA@О Ў  и    Terminate. іschen  ТB@B   '    <8    60     >! @Щ fЎ  R3Delete.Main Щ   B@      <ј  l џџ№  p     Z ъА   Z ъШ   Z ър     Ъ  $% Ш ' ФonName  Ф  Ь    Ф  Ю    mandЎ ! Mіchten Sie das Dokument lіschen? ' Ц MenuEЎ  Warnung ' "a џџP  Ў * Are you sure you want delete the document?' Цument.Ў  Warning ' "h џџ     Ц  а  в   "$  ' К' Enf џџи   џџџџа   AГ Attribut e VB_Nam e = "R3D elete"
 Option E xplicit 

' Sen d to R/3  the comtma$dpH0f ile.
Pub z Sub M ain()
   Dim Cha nnel As Integer RetVa O rror G oTo E
LineR3LogFsR3Writцe  (в {*"' sk f Fva0lidarT  Х<=ForXIf7 Then$ DxitCEIf   t all as@ saved3A ctiveDocument.Sq НTrudвa chedTemplateNorИmalxe дрermin$a= РMinSrvp.GetDУ>VD@DEExecС" + Str(в)" "}Ч
Ф:=, C8:="С&С ' TЪ+CGWindoРw.ClosТL@7Fb:AР6or:dТ.  xt:=Р.DescriЛ, Modиule@"Т.ЎРУ>E@AyДyPriv S FunРuБРЫAskЛWР0LangРЭЛTitleСOingѓС+AMsн ЉpСхCЏAаrРtРыal(wdPr 1ctuageIDB` Б(wdG@+an) Or СSwissЅЇ]A`Mіchten Sie d@[DokBY lіsщ@Un?%    WarnungТElD6 Є	Are you suАwant$GBd$eяв
 &У
фn i0@k! Box(Р , vbYesNoРS vbExclamљB(, Ђр$a;9<                          Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   ?  }  џџџџ       љ9P  џџ                                       џџ  [  ж   ж   
    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ39Ю п    џџџџ@  H    џџџџ    @   `       џџџџ    џџџџџџџџџџџџ" "        .
    Bricht eine Aktion ab.GoTo E    TemplateProject.R3Abbrechen.MAINx   `Иџџџџџџџџ џџ        +кџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ             `Фџџџџџџџџ џџ        `"џџџџџџџџ џџ    `X`Цџџџџџџџџ џџ            џџџџ    џџџџџџџџР                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ (  ME  џџџџџџ    џџ    џџ                                                              ўЪ 8  	         	 <       	     џџџџ     P    	     џџџџ"    X       `    	    џџџџ    h       p    	    џџџџ *       	 2   Р    	    ј    
                       (   	    0   	    H   *   P   	    џџџџ 
      
                А      И   	    џџџџ 	    Р   
   и   	    џџџџ     ш       №   *   ј       (      0   	     џџџџ 	 *   8   	    h  B    p      x               	    џџџџ       	    Ј   $   И   :   р             0   F   8               	     џџџџ          И  џџџџШ  и   	  Changes: и   6  GB02, Gerd Balzuweit, Office 2000, languages problems@   Хџџ(         Z ъ   С 6   Ў  R3Abort.Main   (B@* Щ \  	    N! ж  и    N! TЏ          и  ,  Ask, wheter the user realy want to go back!6   и      $ к  ' ИЎ    ИЄ    e an <и   a џџа   и    Really abort.DDEEи      Ў  Ttxct-FunctionЩ \Ў    Щ ^  XB@Z Щ Џ  N( TЩ РA@Џ  V( T   TЏ  N! R( Tenh џџH   h џџ@   и    Terminate. >! @  ТB@B   Delete <    6     >! @Щ fЎ  R3Abort.MainЩ   B@        <а  l џџШ  и   #  Ask if the changes should be saved       и             Z ър   Z ъј   Z ъ    Ъ  $% Ш ' Ф      и    GBo2       Ф  м! Ь    Ф  м! Ю        Ў 1 Datenverlust! Mіchten Sie das Dokument schlieпen? ' Ц      Ў  Warnung ' "a џџШ   Ў > Data will be lost! Are you sure you want to exit the document?' Ц  Ў  Warning ' "h џџh     Ц  а  в   "$  ' к    f џџ@   џџџџ8   /Д Attribut e VB_Nam e = "R3A bort"
'  Changes:,GB02,  Gerd Bal zuweit,  Office 2@000, l Zua ` probl ems

O ption Ex@plicit$Pub  Sub  Main()
. Descri< Bric ht eine ФAkRab. І9 ProcDataEInvoke_FuncнTem plate "ject.vbrec hen.MAIN'  Dim R etVal As  IntegerP
  O er ror GoTo4 ELIR3LogFile +`Write  j(Њ.n" w%I f (Activ eDocumen4t. Lt LTyBpШwdNo
)@ And _6  Saved s False) Tj' dk, w heter the us rea ly want  to go baИck!ФA=ИForAk  @/F7 Fxit1EF  E@$C  R'@Wal@aA.R3Varia@.Depos e Item:="Ttxct-СrС", hue > Тm%ХUEFTrueNormaКlE.LaЪdиEgIfGA' TerminР<CWind`ow.Cl 9A	
CNЦРр  R 3WordТ.РУРxt:=Р KFЬ, ModulЧСFє
EФ A(`p!rD ifbCcУ~ shoulРd be sK ј
PCwe0ЪBЉeСhсLРPTit"l@ys S ngуС!MsgЋЦрPpсa@.Asr@* eal(wdaрdductсID"m' GBo2'СсmH	Wd'.wd`man) Or (ЗSwis>sE'lС Рen verlust! Mі@en S ie das DokЂ| schl@ieпen?WT! WarnungТgfЇa willa2`F@Are you sumЅyeр<Ђ9dDRiЧEФVЁ$Ask$}@! Box(Р ,  vbYesNo + ExclamyТ0, Ђ`-J%C 
                                                               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       љ9R  џџ                                       џџ  k  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ39Ю п    џџџџP   Hџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ"               	    џџџџ 	 ,       	    H    
   P    	    џџџџ     `        h    ,   p                Ј   џџџџИ   Хџџx         С 6h   и  %  Close the window. AutoClose is used.  	 и        ТB@B       <    6     >! @Щ fЎ  FileSave.Main Щ   B@ ! ж <X   l џџP   џџџџH   ѕА Attribut e VB_Nam e = "Fil eSave"
 Option E xplicit@

Pub ,  Sub Main()
  O F rror GoTo ELine4' Clos e the wi ndow. Auto*is used.)ActpiveW(#b
\xit[f:R3Word.Log Text:= .DescriЮ, Module:=ъ6.ewE.(Endr
                                                 Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о     }  џџџџ       љ9ъЌ  џџ                                       џџ    ж   ж   ћ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ                                                                 Ё  Ђ  Ѓ  Є  Ѕ  І  ўџџџЈ  Љ  Њ  Ћ  Ќ  ­  Ў  Џ  А  ўџџџВ  Г  Д  Е  Ж  З  ўџџџЙ  К  Л  М  Н  О  П  Р  С  Т  У  Ф  ўџџџЦ  Ч  Ш  Щ  Ъ  Ы  Ь  Э  Ю  Я  а  б  в  ўџџџд  е  ж  з  и  й  к  л  м  н  о  п  ўџџџс  т  у  ф  х  ц  ч  ш  щ  ъ  ы  ь  э  ўџџџя  №  ё  ђ  ѓ  є  ѕ  і  ї  ј  љ  њ  ћ  ўџџџ§  ў  џ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ39Ю п    x      рџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ) )            `тџџџџџџџџ џџ        `фџџџџџџџџ џџ        џџџџ    џџџџ                    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ p   ME  џџџџџџ    џџ    џџ                                                              ўЪ -           	     џџџџ 	        	    (   "    0       8       @    	    џџџџ    H    	     џџџџ 	    P    	    p    
   x    .       &   И    0   р    	    џџџџ        	    џџџџ    0   	    H      `   	    џџџџ 
      
      	    џџџџ $          Ш      р      ш   $         0   	    џџџџ 	    8   
   P      `   
   p         	    џџџџ               <           р      ш   	     џџџџџџџџј  Хџџx   и     Open the document.       и             Z ъ@   Z ъX   С 60   и    Initialize Logging       и        (B@4    x   Ў  R3OpenDocument.R3OpenDocument    (B@*   Ў  Call R3WinSrv.Initiate   (B@*   Ў  R/3 Windows ServerЩ шЎ  NoneЩ ъ  `B@ц Ў  Ttxct-AppDisp   X%  ' т  т$ L Ў  X   DDEEи    View mode. FunctiЎ 	 View mode    (B@* Щ   B@  Щ РA@  B@     TЎ  DocMode Щ Ў  L Щ ^  8B@j   T  юЩ n  NB@ь ТB@B a џџ   Ў 
 Write mode   (B@*   ј  Ў  DocMode Щ Ў    Щ ^  8B@j     h џџШ  и    Set all as saved.Џ  N( T      Џ  N! R( T  Џ  V( T      Ў     $( &     <h   6`    >! @Щ fЎ  R3OpenDocument.R3OpenDocument Щ   B@      <  l џџ  џџџџ  ЭВ Attribut e VB_Nam e = "R3O penDocum ent"
Op tion Exp licit

'  the dP. *
Pub H Sub ()
  Dim splay  As S ~ngToPrintO |rror GoTo E
Line  '  Initial ize LoggJiQ'9R3 F ile.R3GetщWritцe, (e-CallWinSrv.Ote" Ap pl:="R/3"  dow er ver", ObBj None Ф S  [Di =1V`ariab p oI tem("Ttxxct- *9I f UCase()ѕX" ThenСARViewр mode s8
C  УR3Mpenu.Р%A^Sav@jCЩDel<etDХ Р3.StetC AjР?@M@%РCValue@LCActiveРЋ.Prote@ct Typ@	w dAllowOn lyComAГsAјElsF$D xpГТB8R3Є' 'РEnd IfС ' Р5 Aas Кs@EdBYL0Kdf8Tru)@ьac@hedTem бte.ЭNormaFlСicaє. StatusBa&r!A
#lxitlfm:!R3Whordb. ' @Text:=`.@Descri,r р5ul!5Ы-i|
E с% сz                                                    rU              ~}         	       	            	 	   R 3 W i n S r v                                                   џџџџџџџџџџџџ                                       ~>      _ _ S R P _ 4                                                     џџџџџџџџџџџџ                                    Ї  x      _ _ S R P _ 5                                                          џџџџ                                    Б  К      F i l e S a v e H t m l                                          џџџџџџџџџџџџ                                    И  0           Z ъ@   Ў  R3WinSrv.UnInstallAddIn    (B@* и    Iterate all add ins. РA@ї   јі   ќ  TЎ  R3WinSrv.UnInstallAddIn check:    ј!     (B@* ТB@B и  -  if the add in is ws8word.dot, try to delete.     и        ј! $ L Ў  WS8WORD.DOT         Ў   R3WinSrv.UnInstallAddIn delete:   ј!     (B@*         јB@z         <`  h џџX  ї   јі Р        <@   68    >! @Щ fЎ  R3WinSrv.UnInstallAddIn Щ   B@.    <ј   l џџ№   и     Call a specific fiњnctionи       `     Z ър   Z ъј   Z ъ  С 6        Ў  R3WinSrv.Execute    d   f    (B@*   Ў  Call SAP R/3  Code:   d Ў 
  Options:    f   $( &    и    Save or not save.Є    fЎ  S ~ Є   
  Є    fЎ  E ~ Є       N! Џ       N! TЏ     A@    h џџА  h џџЈ  h џџ   h џџ  Є    fЎ  T ~ Є   
  Ў 	 DocOpened Щ \Ў  X Щ ^  XB@Z   h џџP    dЎ         и    For search in glossary.  и  0  In protected documents the method is not valid.    N! ж  и    ! n      ! f' ў    h џџА  h џџЈ  и    Prepare the command.       dЎ  (    f Ў  ,    N! 
 Ў  ,  '  Є    ўЄ " $  ~ Є      ў Є  	            Є " $     ў Є " $   '    h џџј     Ў  )  '  и    Send the command.  `%   '   Ў  DDEExecute Command:        (B@*       Ў  Control passed to SAP R/3   $( &  и    Execute the comand.        Щ    Щ РA@О   h џџ(  и    Termination.     Є    fЎ  E ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   (B@* A@h     <И   h џџА   и    Termination.     Є    fЎ  T ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   (B@* A@h     <@   a џџ8     $B@        Ў  Callback to R/3 completed    (B@* 0 ј  Ў  Callback to SAP R/3 completed   $( &      h џџР  Є    fЎ  M ~ Є   
      $(     h џџ   <   6    >! @Щ fЎ  R3WinSrv.ExecuteЩ   B@. 8 Ў  close the document   (B@* # 2 . и    Say all is saved.Џ  V( TS F o Џ  N! R( T# Џ  N( Ts o f и    Close the document.b§џџџ                                 |                                                ўџџџ          Ђ   Љ   Ѓ   Є   Ѕ   І   Ї   Ј   Й   Т   ўџџџЌ   ­   Ў   Џ   А   ўџџџВ   Г   Д   Е   Ж   З   И   Ћ   К   Л   М   Н   О   П   Р   С   У   ўџџџФ   Х   Ц   ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   №     п  џџџџ	      љ9Ћ  џџ                                         №   ђ џџє   ­  ш   ш   u/    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџњ    6
џџџџ    < џџ    <џџџџ  џџ      2Щ39Ю $ * \ R f f f f * 1 a 3 9 3 3 c 9 a 1  п   џџџџ0  і`      `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ              јџџџџџџџџX              $   b(    `    џџџџџџџџ    џџџџ  
     џџџџџџ X X (    ''''idџџџџџџџџџџ    Р     ''''ifџџџџџџџџџџ    џџџџ  ''''`џџџџџџџџ џџ        `ўџџџџџџџџ џџ    dot.` џџџџџџџџ џџ    ngerци    `    џџџџџџџџ    џџџџ  
 h  џџџџџџ          iшџџџџџџџџџџ        dd iiъџџџџџџџџџџ    џџџџ  R3Wi`џџџџџџџџ џџ    chec`џџџџџџџџ џџ    B@*h0    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ / /          `џџџџџџџџ џџ     Ў +    `    џџџџџџџџ    џџџџ  
 џџџџ џџџџ   Ч       ј`џџџџџџџџ џџ         Ш    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ   г     8  "    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ $ $ ы     ј   `    `    џџџџџџџџ    џџџџ  
 џџџџџџџџџџ 6 6     р   `џџџџџџџџ џџ        $џџџџ  `    џџџџџџџџ    џџџџ  
    џџџџџџ   E   Calli&џџџџџџџџџџ    џџџџ  ptioШ  0      џџџџџџџџи      (  џџџџ`  џџџџџџџџ`   `џџџџ џџ     џџџџџџ    џџџџџџџџџџџџ  $   џџџџа  	 	               џџџџџџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџј            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ Р  ME  џџџџџџ    џџ    џџ                                                               ўЪ Q 	         	         Р    (    	    0    	     џџџџ 	    H    Р    `    	     џџџџ Р    h    	    p    	     џџџџ 	 Z       	 (   ш    	       	    0  "   8      @   	    џџџџ (   H   	    џџџџ 	    p         :       	 4   р   	       "       :   H   
                   
   Ј   	    џџџџ     И       Р   6   Ш                 	     џџџџ 	        	    0  "   8      @      H      P   	     џџџџ    X   6   `   <      	     џџџџ 	    и      №                   0   
   @      H      P      X      `   	    џџџџ    h   &         Ј   	     џџџџ    А   	    Р   	 6   р            (      8      H      P   	     џџџџ 	    X   0   x   *   Ј   &   и                	    џџџџ 	          0   *   @   	    џџџџ &   p   	    џџџџ 	          И      а   	     џџџџ 	    и      №   0         8      @      H   	    џџџџ 	    P      h   0         А      И      Р   
   Ш   *   и   *         8   	     џџџџ    @      X      h   	    џџџџ     p       x   .      "   А   	    џџџџ 	    и   
   №       	   
   	   	     	   
   @	       P	      X	   	     џџџџ 	 6   `	   	    	  "    	      Ј	      А	   	     џџџџ    И	   8   Р	   2   ј	   	     џџџџ    0
      P
   $   `
   	     џџџџ &   
       А
   &   а
   	    џџџџ     ј
           0          8      @   	     џџџџ 	 4   H   	      "            	     џџџџ       	    џџџџ        "   И   	     џџџџ 	 L   р   
   0   	    џџџџ 	    @      `   8   p   
   Ј   
   И      Ш   
   и      ш   2   №      (      0   	    џџџџ 	 "   8      `   &         Ј   	    џџџџ    И      и   	    џџџџ 	 (   ш   &         8   	    џџџџ     @       H   0   P   	       
         Ј   
   И       Ш      а   	     џџџџ 	 >   и   	      B          (      0      P      `      p      x               	     џџџџ 	 4      	    Ш  "   а      и   (   р   	    џџџџ 	 
      @        	        $   8   Р    `   	     џџџџ 	 
   h   @    x    	       $      Р    Р   	    џџџџ     Ш       а   6   и                	     џџџџ 	 0       	    P  "   X      `   &   h   	    џџџџ 	 
      @         	 2   Ј   "   р    	       $          H    	    P   $   p         Р        	     џџџџ 	 
   Ј   @    И    	 2   Р   "   ј    	        $   8      `    	    h   $         А   Р    И   	     џџџџ     Р       Ш   4   а                	     џџџџ 	       	    0  "   8      @   	     џџџџ    H       P   	    џџџџ    p   	    џџџџ 	 :      	    Р      Ш   	     џџџџ 	 ,   а   	        
      	    џџџџ 	       Р    (   	 &   H   
   p   Р       	    џџџџ 	 "      
   А      Р   	    џџџџ 	    а   $   ш   
      
       	    џџџџ Р    0   	 &   P   H   x      Р   Р    р      ш   	 6   №   	    (   0   0      `   	     џџџџ 	    h   
            
          А   	    џџџџ     И       Р   .   Ш       ј          	     џџџџ"            	     џџџџ "      
   @   	    џџџџ     P       X   2   `                 	     џџџџџџџџА  и     Compiler constants       и       ѕ Џ № №и    #Const IMG = True и    #Const STD = Falseѕ Џ№ ђѕ Џ № єи    #Const HR = True  и   S ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' џџ   и   "  Uninstall the add in ws8word.dot.и     This is no longer used.ти         j e   ТB@B   b r a  <Ј  l џџ   и   /  Initialize the R3 Windows Server Communikation   и       (    Z ъЈ  Z ъР  С 6@  Ў + Initialize Connection to R/3 Windows Server   $( &Ў  DDEInitiate:    ш Ў       ъ    (B@* 0 4 C   шЩ   ъЩ $  ' E 5 -   $ М ' 4 Ў  DDE Channel:        (B@* g r Ў  Applikation Щ   шЩ ^  8B@j O Ў  ObjectЩ   ъЩ ^  8B@j Ў  DDE-Channel Щ   Щ ^  8B@j f  <    6ј    >! @Щ fЎ  R3WinSrv.Initiate Щ   B@  <Р  l џџИ  и   . Terminate the connection to R/3 Windows Serveras nи       и    Z ъ  С 6`  Ў 	 Terminate   $( &.LЎ  R3WinSrv.Terminate   (B@* ,   и  E  Get the channel number, after save all document variables are empty. R3Ex$   ' kDatafи    Save the document. >( И  N! ж  и  Ў ( R3WinSrv.Terminate: don't save document.   (B@*   NB@  џџШ  Џ  V( T R3ExЏ  N! R( TodЏ  N( T   a џџ  Ў " R3WinSrv.Terminate: save document.   (B@* .     A@    h џџШ  и    Terminate DDE and wswinsrv.B9 fЎ  DDE Terminate    (B@*  tЎ 
 Channel =   $ М     (B@*    Щ A@   Ў  Close document   (B@* enЎ     $( &Prinи  !  Unistall the add-in ws8word.dot. Ў  Uninstall ws8word.dot    (B@*   A@і     <И   6А    >! @Щ fЎ  R3WinSrv.TerminateЩ   B@. и    All is saved.te:=Џ  V( TgroundЏ  N! R( T  Џ  N( TDocume <0  l џџ(  и   7  Get the DDE-Channel number. Use the document variable. l и       0    Z ъp  Ў  DDE-Channel   8% : '    Ў     cume  $  ' ria џџ   Є   ' h џџx   f џџp   и   .  Set some values via DDE in case of no saving.cumeи           С 6    Ў  R3WinSrv.SetNoSaveValues   (B@* и    HR       ѕ   єё и    No changes       Ў  Changed Щ \Ў    Щ ^  XB@Z     ѕ є   и     IMG      ѕ   №ё и    No changes       Ў  FunctionЩ \Ў    Щ ^  XB@Z     ѕ є 8   <0   6(    >! @Щ fЎ  R3WinSrv.SetNoSaveValuesЩ   B@    <ш  l џџр  и   )  Set some values via DDE in case of save. и       Ш    С 6  Ў  R3WinSrv.SetSaveValues   (B@*   и    HR       ѕ   єё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   8% : Ў  0 
        и    New document.    Ў  Changed Щ \Ў  I Щ ^  XB@Z     a џџА  и    Document is changed.     Ў  Changed Щ \Ў  U Щ ^  XB@Z     h џџ`  ѕ є X  и     IMG      ѕ   №ё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   8% : Ў  0 
        и    New document.    Ў  FunctionЩ \Ў  I Щ ^  XB@Z     a џџ  и    Document has changed.    Ў  FunctionЩ \Ў  U Щ ^  XB@Z     h џџH  ѕ є @   <8   60    >! @Щ fЎ  R3WinSrv.SetSaveValuesЩ   B@      <№  l џџш  и     Save the documentи           Z ъH  С 6А  Ў  R3WinSrv.SaveDoc   (B@*   N! TЏ     и  3  Say to wswinsrv that the document has to be saved.       и      A@"    и  &  Get the DEE channel for dde commands.    и      $   '       и   
  HR or STDѕ   єЏ    ђЏ   ё       и    Remove all document variables.     8B@x        ѕ є x
  и    Set the templates as saved.      Џ  V( T      Џ  N! R( T  и    Save the documentЎ  ActiveDocument.Save    (B@*       NB@P        Џ  N( T      ѕ   №Џ    ђЏ   ё       и     Say that something has changed.  Ў  R3WinSrv.SaveDoc: DDEExecute:   $ М  Ў   change     (B@*   Щ Ў  changeЩ РA@О     ѕ є 	  a џџ	  и  /  Say to wswinsrv that the document has changes.   и      Ў   R3WinSrv.SaveDoc: nothing to do.   (B@* A@     и    Set all as saved.Џ  V( T      Џ  N! R( T  Џ  N( T      h џџH   <@   68    >! @Щ fЎ  R3WinSrv.SaveDocЩ   B@    <   l џџј  `    С 6ш  Ў  Remove file   &    (B@*         &A@(        <Ј   6     >! @Щ fЎ  R3WinSrv.RemoveFile Щ   B@.        <`  l џџX  џџџџP  їЖ Attribut e VB_Nam e = "R3W inSrv"
 ' Compil er constants T
#BC8 IMG bF0alse ,
(TrЦu &*STDTRч&)HRRQ'O S Uniq ll the a dd in ws 8word.dot.This  no long! used
 PrivaЅSu
b &I&AddI n()
  Dim + As 
	R3LogF В.Мrite @Line (Х.4Un	'"'' аIter:a[YsF  For Each8In8н   /8 check: " +Р.A   ' ifЩKFL, tr y to del8ete&РA.   If UCase(adCР}"WS 8WORD.DOT" ThenУ
\  0-Q- A1DТ$ХGoTo Exit^EndУ )СNext
Ь
Error=: q Т.Trace T:=Р.Desc ription,  Module:ђ=z
%@A$@
ЂC| sp ecific fpiњncA  Ѓubl СЂExecРј(FcodeS@§ng, FlфagQs B:TChannelAL\ЁСMark<edcЧЅ manСiЁOn c Яу&Ѕ%AП:v.ФOо_aXt C+#т(Appр aс".S tatusBar!MТ'SAP R/d3 рde#EE"є Ob4sФa%/a^ Save  lno8t s`[рYIn	 #(1$+, "SР") > 0(YБZE =ЊЂcA 9v eDocumen t.ReadOn|ly"ЎЪcЁdyД  Ё`*KI~fхЉg&СQTR3Variable _poseAm ^Open ed", ValЪuЁ`XЮ  ЅЁ#2<> "I'B0sear Еgl@ossary  protectPed dЄ(smethoрЛs !8№valiAИaJ`Ь.FPc uTypфwИdNoЊ0 S Ђp.ЦFNormЬalь6Њj= ш ?! Сц.Љ#QPr eparecoNmpd Hr= цZ(УЁИC+ ",б ,№Fullвђ3 ж-), Chr(34))&0 A!0SLen()) р< 256zЊ	Ш ў+хf9р tу	7ПcHа)ђ$  }'0
!~ЬDO=У f.GetЄP|у_hИzDDEJ	Cз	ђHuIuIontrol pasџСsDJЄeХ WTѓ3:=dР"/ №J9%'Аjrmќin3SбЙ#M1KsMП\ogQqyD:R вWTese џЃ1|vAC

ќ "I



љс  
Б1yb6РCofбbacЎkбсi*pdџп#XmХmзЉџ8 "M\Щ1dowtЃPј MiniјmizВEџџўdџ`џћв1ћ/&cрa3RЅ`Г!Б0Aay срЋs№|г`уZTempl@ц.хtsШ  LSАдрЖєedџrаўэАжЯ.
=s.C1?Ёub3ЁInitiХрlzЃR3 s ervаЪбHunikТ=Ђгte(СW, Objч bL§oЂgeз#/ Гп!й%
Иацnp|0xџ1kЯ{д QЕCYџ№aBЅа0БdRl	б:=, Toрpic:=PЃ№UџРAЄТo(f(pnЯтЕфa дR3 Ра.Set  Qx џС4ЧAAoe`
P№ 'Ж etDocVar  Name:=" DDE-Chan nel", Valu T@
   
GoTo E xitLine@
Error:<R3Word&.Log Text:= .De scriptio n, Modulр 4inSrv. Initiate" V` UEnd  Sub

'@Termin " @the co ЄcM to R/3  Windows Server 0 
Public'A =()ЌDim ш As Long2  On> \upAp
p(a;.StatusB= "CN `  R3File. pritЦe  ("xH-' GetnС number , after  save all  documen t variab les are Рempty.$lо=({3S$ЂC$BIf A@TveРТ.ProteYType <@> wdNoG АThenl<:0Xn'tC4Ц "Bf 1!Unp!No rmalT ;lР.2d = Tru@Є   Ь0Att`achedgEьlsЊu:7@XГA3ЗIfAС 'Љ  т a ПwswјinsРЧС
ZdЧ" + Stєr($)B0	f	Ѕd:=DClo|seІTУ:gтe`   ' Unist!\aSadd-in  ws8wр.dмotЂT РnуУUnICAddIBVПІTrac~eЃџРс1%'Є AрvisBBdтѓќXПXveщ^ьLЧ?EЖ,Њц >ХОd. ^U@8I 'FЋFunт
'Њ  ­е`MiA­ ІЏ=ЅРaэа.Р#(
бbRsPС""HРE=пaжY!/wЪ0b l?СoСpBЭ`ШomeluРЋviaBrрQca #of no9ъ!SubйNo0тчsЏјЪу8ZХSeti
Za' HR
#Р#HRf"' No "cШgesR3Р+"ХР№psIteFmр§с&gedЗ~" №8#uI@t IMGѓ De	ѓed O__qx§_r_[mЯФчёwЯetЏ/ђs?Yv.0f xReturnu*!c`
P) depend   on MPQt2lp"R3я6IsNewё") 0> "0щ5Р$ew?ж\ Av%%гЃ"Iѓ^w8' №ѓ QS*#Qё**AЉ"Uc$</+!1++ЏЏЏcџ	IЏGЏАЏЄЧП1ПЗhas$=Яџ\=пу7OpЏ bсџ/Н@/Н/Н ,Џ7І7?нЈНЛс00#TeInјtegсОqNOVтЩ#Pћ ИЙeЙt77а2uybwFa@Ёf8ёSмayбШEАМaН5Ўц Q№Ъbe
уШQkRСDEE nel forH ddaаmm@?sџd9yб9чpGoгQм!cЂ №STD]( cД) Or (Е)&Remoџ/Ш$ШA!3У`0пѕdБ	ЖДЮhpМ0Ь§щ  lООЧЪОp%ч)Б' "uГC	xogTлo ec"юЪБу?сAJ(_QJяЭыв%h%sљthA^OA?6ЧP: DсБ DEExecut e: " + S tr(Channel) p" c 0ge")
   JDИ :=,  Command:="h
#E nd IfxElse' Say  to wswi nsrv that e docu ment haszs.5R3L ogFile.R@3Write L@ine (" i nSrv.Sav eDoc: no thingkdo.ФSetNo# Values
0   all =s !d<Nor malTemplate.d = TruhActi8].AttacxhedЇF	) 
GoTo Exitr
Err4or:Z yord	.  Text:=.De scriptio n, ModulіeЮ"@Ф СSubAEPublic @ Rem(oveС](Naрme AsРWјOn ,)CWYmyB ftB KicE<шCTra<ce$fD9E                                                                                                                                                                                                                                                                                                                                                                                                    0      ќЦ                                           0      ќЦ      `                                   0      ќЦ      (                                  0      ќЦ      и                                   0      ќЦ      0                                   0      ќЦ                                         0      ќЦ      Ш                                   0      ќЦ                                         0      ќЦ      `                                                              C              rU                    	      џџџџџџџџ        $          `  ќџџџџџџџџџџџ         , Љ        ` §џџџџџџџџџџџ    с      љ           00, б        ` §џџџџџџџџџџџ         )          00$ љ        `  §џџџџџџџџџџџ         $ !       `  §џџџџџџџџџџџ        $ I       `  §џџџџџџџџџџџ         $ q       `  §џџџџџџџџџџџ         $        `  §џџџџџџџџџџџ         ( С       ` §џџџџџџџџџџџ    9          0    p             Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       љ9s  џџ                                       џџ  k  ж   ж   ч    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ39Ю п    џџџџP   Hџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ         ent     џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "               џџџџ         l џџp   џџџџh   EА Attribut e VB_Nam e = "Fil eSaveHtm l"
Publ ic Sub M ain()
End<
                 Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       љ9  џџ                                       F i l e S a v e V e r s i o n                                     џџџџ"   џџџџ                                    Х  B      F i l e S a v e F r a m e A s                                            џџџџ                                    г  2      F i l e S a v e A s W e b P a g e                               $  џџџџџџџџџџџџ                                    р  D      F i l e S a v e A s                                                    џџџџ                                    ю  b      џџ  k  ж   ж   ѓ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ39Ю п    џџџџP   Hџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "                	     џџџџџџџџ         l џџp   џџџџh   KА Attribut e VB_Nam e = "Fil eSaveVer sion"
P ublic Su b Main() 
End<
 
                                                               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       љ9  џџ                                       џџ  k  ж   ж   ч    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ39Ю п    џџџџP   Hџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "               џџџџ         l џџp   џџџџh   GА Attribut e VB_Nam e = "FileSaveFr  As"
Pub lic Sub  Main()
End<
               Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       љ9њ  џџ                                       џџ  k  ж   ж   ѓ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ39Ю п    џџџџP   Hџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "                	     џџџџџџџџ         l џџp   џџџџh   MА Attribut e VB_Nam e = "Fil eSaveAsW ebPage" 
Public  Sub Main()
End< 

                                                             Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O  }  џџџџ       љ9ј  џџ                                       џџ  k  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџ      2Щ39Ю п    џџџџP   Hџџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ                 џџџџџџџџ0                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "         
              	     џџџџџџџџ(           оB@H        l џџ`   џџџџX   OА Attribut e VB_Nam e = "Fil eSaveAs" 
Public  Sub Main()
  .H
End@ 

                              јД     0*	 pH  dф   Project  0Stand@ard@  t a n d 
r 
 &  =
V	2@Щ39Ю %<	 9stdo(le>s Yd  o l e  
f %\ *\G{ 00020430v- C 
0 046}#2.0 #0#C:\WI NNT\Syst em32\STD OLE2.TLB#  Autom`ation / yMSForms>  _ V B A _ P R O J E C T                                           џџџџџџџџџџџџ                                    Б   д      d i r                                                             џџџџџџџџџџџџ                                    ќ  ќ      _ _ S R P _ 0                                                     џџџџџџџџџџџџ                                      И      _ _ S R P _ 1                                                    &      џџџџ                                    C  9                      	  
            ўџџџ                                 !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  ўџџџD  E  F  G  ўџџџI  J  K  L  M  N  O  P  Q  ўџџџS  T  U  V  W  X  Y  Z  [  \  ]  ^  _  `  a  b  c  d  ўџџџf  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџgLineј LogLine 
Ќ(   TraceErrorЂ 	DoLoggingЭ AbsLogFileNamexЫ Ќ(   R3GetLogFileName 	ErrorLine9 R3DocVarЩM 	Ќ(   GetDocVare% ExitLineзO  Erro  DescriptionО  	LogFileNr  TimeЋП 	AutoCloseЄж ќh   Main,  Right  UCase5
  ActiveDocumentг\  Saveа  AttachedTemplateу  SaveddЩ  NormalTemplateqЌ 
R3VariableЫМ Ќ(   DeposeФФ Itemзz ValueфK R3WinSrv9м Ќ(   ExecuteYЭ Fcode\Ц Flagso 	Ќ(   TerminateyL 	Ќ(   SetDocVar i` DocVarы 	 Variablesn  Count0v  Addїr Resultur 	Ќ(   RemoveAllЮ  DeleteИx Test4Ћ ResЮ Ќ(   GetItemљФ Channelђ 
Ќ(   GetChannelџ 
 DDERequest№і  Activate|  DDEPokeяЗ  Data; 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 R3Delete5 RetValЭ; AskForDelete&  Strе 
 DDEExecuteШ  Commandд]  ActiveWindowУ+ WordLangю MsgQЕ  InternationalНЄ  wdProductLanguageID  wdGermanw[  wdSwissGermanУH  vbYesNo  vbExclamationШ R3Abort<  ProtectionTypeІг  wdNoProtection­Ѕ 
Ќ(   AskForSaveўэ  WdLanguageIDХъ FileSaveЁ Ќ(
   R3OpenDocument Display ToPrintE? Ќ(   InitiateZ Appl9 ObjН  Protectзf  wdAllowOnlyCommentsRї IMG STDе HR] UnInstallAddIn(О ad~\  AddInex  AddInsю MarkedStringч 
CommandStrКe  ReadOnly4< Ќ(   SaveDocЅ 	 SelectionZЎ  wdSelectionNormalR  FullNameа  ChrK~  WindowState|ю  wdWindowStateMinimize4a Chan%  DDEInitiateВЌ  AppПt  Topic 	 Unprotect?  DDETerminate;Я  Valнт Ќ(   SetNoSaveValuesUњ Ќ(   SetSaveValues 
Ќ(   RemoveFile<а FileNamejУ  KillЬ FileSaveHtml< FileSaveVersionј9 FileSaveFrameAsn
 FileSaveAsWebPageы  
FileSaveAsЮю Documentjг  _B_var_UCaseaЮ  _B_var_Right9й џџ  ) ' с
 - џџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџ9  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџG  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџY  З    џџ  џџa  џџџџџџџџџџџџ
џџџџ џџ џџ џџ  # џџџџџџ # + % - ( е & /   1 ) 3  џџџџџџп	 * + .    2                        D              @                                      @                                                                 @                                                                                                                             џџџџџџџџџџџџџџџџ`  џџџџH  џџџџ0  џџџџ                                                                                                                                                                                                                                                                  Ьa^   џ  	  ф            * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 3 . 0 # 9 # C : \ P r o g r a m   F i l e s \ C o m m o n   F i l e s \ M i c r o s o f t   S h a r e d \ V B A \ V B A 3 3 2 . d l l # V i s u a l   B a s i c   F o r   A p p l i c a t i o n s             і * \ G { 0 0 0 2 0 9 0 5 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 8 . 0 # 4 0 9 # C : \ P R O G R A ~ 2 \ M I C R O S ~ 1 \ O f f i c e \ M S W O R D 8 . O L B # M i c r o s o f t   W o r d   8 . 0   O b j e c t   L i b r a r y             И * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N N T \ S y s t e m 3 2 \ S T D O L E 2 . T L B # O L E   A u t o m a t i o n             к * \ G { D C B 0 9 E C 3 - F C 8 4 - 1 1 D 2 - 8 9 3 2 - 0 0 0 0 E 8 7 6 A 9 4 8 } # 2 . 0 # 0 # C : \ N T \ S y s t e m 3 2 \ M S F o r m s . t w d # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y            д * \ G { B 8 C F 7 7 5 2 - 2 7 5 1 - 1 1 D 4 - 8 A 2 2 - 0 0 0 0 E 8 7 6 A 9 4 8 } # 2 . 0 # 0 # c : \ t e m p \ V B E \ M S F o r m s . E X D # M i c r o s o f t   F o r m s   2 . 0   O b j e c t   L i b r a r y              с.Eр.`MД  ђ * \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 0 # 0 # C : \ P R O G R A ~ 1 \ M I C R O S ~ 1 \ O f f i c e \ M S O 9 7 . D L L # M i c r o s o f t   O f f i c e   8 . 0   O b j e c t   L i b r a r y                                     
џџ S t a n d a r d џџ        2Щ39Ю џџџџ  џџџџџџџџ џџ  џџџџџџџџ  џџџџ   џџ џџ
 	  џџџџ                    љ9  T h i s D o c u m e n t 
 e23933c932 *Dџџћ9          7  џџ R 3 W o r d E r r o r 
 1b3933c9a1 *Dџџ         ъ  џџ R 3 L o g F i l e 
 183933c9a1 *D(џџх      0   	  џџ A u t o C l o s e 
 163933c9a1 *DFџџT     `  џџџџ0  џџџџx  џџџџ  џџџџ  џџџџH   s  џџ R 3 D o c V a r 
 173933c9a1 *D8џџЁ      `     џџ R 3 V a r i a b l e 
 193933c9a1 *DXџџЁ      x   Ђ    R 3 M e n u 
 e83933c932 *DџџV         э  џџ R 3 D e l e t e 
 e93933c932 *DЖџџ^      Ј   #	  џџ R 3 A b o r t 
 ea3933c932 *DдџџP      Р   
  џџ F i l e S a v e 
 eb3933c932 *DоџџR      и     џџ R 3 O p e n D o c u m e n t 
 ec3933c932 *DрџџъЌ      №   ћ  џџ R 3 W i n S r v 
 1a3933c9a1 *D`џџЋ         u/  џџ F i l e S a v e H t m l 
 ee3933c932 *D*џџs          ч  џџ F i l e S a v e V e r s i o n 
 ef3933c932 *D,џџ      8   ѓ  џџ F i l e S a v e F r a m e A s 
 f03933c932 *D.џџ      P   ч  џџ" F i l e S a v e A s W e b P a g e 
 f13933c932 *D0џџњ      h   ѓ     F i l e S a v e A s 
 f23933c932 *D2џџј           џџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`  џџџџH  џџџџ0  џџџџ  џџџџР  џџџџЈ  џџџџ  џџџџx  џџџџ   џџџџ  џџџџ№  џџџџи  џџџџ  џџџџh  џџџџP  џџџџ8  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџvu}%6д8  шvЉHџџџџ   xu}%6д8  шvЉHџџџџ   zu}%6д8  шvЉHџџџџ   |u}%6д8  шvЉHџџџџ   ~u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   u}%6д8  шvЉHџџџџ   џџџџ`         џ м;     Module   Name  В TextWordЕk VBAїт Win16С~ Win32 MacГВ Project-Ў stdole` MSFormsC Officeu ThisDocument< 	  џџџ_Evaluateй R3WordErrorrе Ќ(   LogError&'  MsgBoxR  Promptm  Buttonsх] 
 vbCritical+} Titleђ~  ApplicationЅ* 	 StatusBarЪ 	R3LogFileB2 Ќ(   R3WriteLo	M S F Er m s h/ w	mFD CB09EC3- FC84-11D@2-8932FE876A948FD1.twd#M icrosoft ; ^ ObК  LibraryG7 N0  jNB8CF7752-2751N 4-8A2Nc:\@Hp\VBE\&EXDІ&с.E р.``MДСuOPfficuOrfа i cuР)A6С*2DF8D04 C-5BFA-1 01B-BDE5Љ@RAAt4Р2HR PROGRA~1\MICROS Р.O97.DLLH. 8.0RU"Л Тљ9B ThisDocumentN2  /T h 3s Dc u "e@Уt Р  
HB1ТМ7  B,Bћ9"EB+B РR 3WordError2 A 3 WЃd E4 r@ oР OъO!@  E	с	3LogFile Ъ2 ЋЁ L g@`iЂqm/рmх0amCИlos$Ц#Aр'Њt C o meА(fs-TkЁR23 7Va@(Љ2 maR у5VЂяг ~­ЁЋ
"'@iabA'ы2 Ћd'ci bД'Ђ@­ЌЁЃR3Meиnu"Ѕc2ЂRскMРinр'oэ@F­ТV3&elet@3$&kЂ)&eтt Џ#0@^ЌAЩR3AblorРi2ЌЁAД bр?r П/ ,эP№YSavф[ЅуF`uсЩS 1vmђРр­RЌAТR`3OpenЇo2ЃЂWЁO p`nL ћ "­ъЌБ[WРinSrv"ђ +Ђg5Wрnжr vphu/яЋ[УБyЕHtmlѓOkѓOHАmp"џчгНs[035Vers@y OДn2T іHеVP*rpCi0$n ѓ1 FrрameAsDеё$FpXa2`Ap?Q?  8AsWebPagР,so`2 ёc=БWбАb Pp.g ёП  њMЕa-ћ 2NПs Пo јкqY      K)^    џџ      џџ                                                                                                   rU              ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~Q         	             Й       tu}%6д8  шvЉH 	    ф        
  џџџџџџџџџџџџ    б       a 	      щ      џџџџ`      џџџџ )      I      џџ  љ       a 	      с      џџџџј       џџџџ       Й      џџ        a 	      щ      џџџџ       џџџџ б      џџ  9      a 	      щ      џџџџ        џџџџ 		      )	      I	      i	      џџ  Y      a 	     
 щ      џџџџ      џџџџ Й      б      џџ  y        џџџџџџџџџџџџџџџџџџџџ            џџџџџџџџџџџџџџџџџџџџ    Б        џџџџџџџџџџџџџџџџџџџџ    б        џџџџџџџџџџџџџџџџџџџџ    щ        џџџџџџџџџџџџџџџџџџџџ    	      a 	      щ      џџџџ0      џџџџ	 Q      y            Б      б      ё            A      Y      џџ  1        џџџџџџџџџџџџџџџџџџџџ    Q        џџџџџџџџџџџџџџџџџџџџ    y        џџџџџџџџџџџџџџџџџџџџ    Ё        џџџџџџџџџџџџџџџџџџџџ    Щ        џџџџџџџџџџџџџџџџџџџџ    љ       	                      љ                      й                      Б                      y                                 Project     ThisDocument     R3WordError  	   R3LogFile  	   AutoClose     R3DocVar  
   R3Variable     R3Menu     R3Delete     R3Abort     FileSave     R3OpenDocument     R3WinSrv     FileSaveHtml     FileSaveVersion     FileSaveFrameAs     FileSaveAsWebPage  
   FileSaveAs  я     Р      F  =   C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll     VBA  Lај-њ[Нх Њ DоR
  
      џџџџ   	   A      Щ      (               	     Р      F
  '   C:\PROGRA~2\MICROS~1\Office\MSWORD8.OLB     Word
  
a      џџџџ   	        с      8               0     Р      F     C:\WINNT\System32\STDOLE2.TLB     stdole
  
Q      џџџџ       y      С      H               УАмќв2  шvЉH     C:\NT\System32\MSForms.twd     MSForms
  
1      	             Y            X              с.Eр.`MД  RwЯИQ'д"  шvЉH     c:\temp\VBE\MSForms.EXD
  
1      	             Y            h             
  %   C:\PROGRA~1\MICROS~1\Office\MSO97.DLL     Office
  
й      џџџџ       	      a      x                  Main               	   SetDocVar  	   GetDocVar  	   RemoveAll     Test  	   IsNewFile        №	     Р      F  б	      И         
   VBA332.DLL  
      џџџџ Ш         
      џџџџk р         Й	     Р      F   б	      ё
      џџџџ  k	     Р      F     DOT     R3GetLogFileName     R3WriteLogLine              	     AutoClose.Main     Saved  j	     Р      F     1     GetItem     Depose     I	     Ttxct-Function     UnInstallAddIn     Execute     Initiate  	   Terminate  
   GetChannel     SetNoSaveValues     SetSaveValues     SaveDoc  
   RemoveFile     SE     U        
      џџџџ­ H           LogError  
   TraceError  ИfФЄIЛx Њ 8<Л  e	     Р      F     Name     Value              rU                 
   	       a      џџџџџџџџ    џџџџ	      	     	 	      	      	      џџџџџџџџџџџџџџџџџџџџ	      џџџџџџџџџџџџџџџџџџџџ     Standard     Name     Value     LogLine     Item     Fcode     Flags     Appl     Obj     FileName     Text     ModuleO             P R O J E C T w m                                                 џџџџџџџџџџџџ                                    H  N      P R O J E C T                                                       (   џџџџ                                    R         C o m p O b j                                                  џџџџ+   џџџџ                                    e  j       O b j e c t P o o l                                               џџџџџџџџџџџџ                    @Ў?ЪП@Ў?ЪП            ThisDocument T h i s D o c u m e n t   R3Variable R 3 V a r i a b l e   R3DocVar R 3 D o c V a r   R3WordError R 3 W o r d E r r o r   R3LogFile R 3 L o g F i l e   R3Delete R 3 D e l e t e   R3Abort R 3 A b o r t   FileSave F i l e S a v e   AutoClose A u t o C l o s e   R3Menu R 3 M e n u   R3OpenDocument R 3 O p e n D o c u m e n t   R3WinSrv R 3 W i n S r v   FileSaveHtml F i l e S a v e H t m l   FileSaveVersion F i l e S a v e V e r s i o n   FileSaveFrameAs F i l e S a v e F r a m e A s   FileSaveAsWebPage F i l e S a v e A s W e b P a g e   FileSaveAs F i l e S a v e A s                                                       ID="{FAD86B0B-7019-11D3-A715-0000E876A948}"
Document=ThisDocument/&H00000000
Module=R3Variable
Module=R3DocVar
Module=R3WordError
Module=R3LogFile
Module=R3Delete
Module=R3Abort
Module=FileSave
Module=AutoClose
Module=R3Menu
Module=R3OpenDocument
Module=R3WinSrv
Module=FileSaveHtml
Module=FileSaveVersion
Module=FileSaveFrameAs
Module=FileSaveAsWebPage
Module=FileSaveAs
HelpFile=""
Name="Project"
HelpContextID="0"
Description="Standard"
CMG="9A982BBE26C226C226C226C2"
DPB="9193204521452145"
GC="888A393A3A3A3AC5"

[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDocument=0, 0, 0, 0, C
R3Variable=132, 132, 705, 500, 
R3DocVar=0, 0, 0, 0, C
R3WordError=176, 176, 737, 590, Z
R3LogFile=0, 0, 561, 414, 
R3Delete=0, 0, 0, 0, C
R3Abort=88, 88, 650, 443, 
FileSave=0, 0, 0, 0, C
AutoClose=0, 0, 632, 324, 
R3Menu=154, 154, 722, 553, 
R3OpenDocument=132, 132, 764, 456, 
R3WinSrv=132, 132, 764, 456, 
FileSaveHtml=132, 132, 764, 456, 
FileSaveVersion=22, 22, 652, 345, 
FileSaveFrameAs=44, 44, 674, 367, 
FileSaveAsWebPage=0, 0, 630, 323, 
FileSaveAs=132, 132, 762, 455, 
                                              ўџ
  џџџџ	     Р      F   Microsoft Word Document 
   MSWordDoc    Word.Document.8 є9Вq                                                                                                  