аЯрЁБс                >  ўџ	               Д         )      ўџџџ    Е  А  Џ  Ў  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьЅС q 	 П                bjbjt+t+                  	   A A                                џџ        џџ        џџ                ]                                                         Ю       Ю       Ю       Ю       a     m     Ю         Ж   Ю      в       в       в       в       в       в       в       д    \      \      \      \      \      \  $   K  є  ?  D                               в                       в       в       в       в             в                     в               в       Ю       в       в       в       в              в              в       д                      В      Р                                  в       д      в     в               д                                                                            д      в       y     рі>ЪПЮ       Ю       в       д                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            љ            ї                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          Ц Х          ќ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              А. АЦA!А"А# $ %А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ьЅС q 	  П                bjbjt+t+                  	   A A                                џџ         џџ         џџ                 ]   Ж     Ж   9      9      9      9      9             M      M     Y     a      a     m     M        Ж                                                                                            R  є  F                           9                                                          
  [         0  @ёџ 0   N o r m a l       _HmHsHtH	                  < A@ђџЁ <   D e f a u l t   P a r a g r a p h   F o n t                          џџџџ    џџ                     џџ    I X O S A S * C : \ P r o g r a m   F i l e s \ S A P p c \ S A P G U I \ W s 8 h r p a 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 h r p a 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 h r p a 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 h r p a 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 h r p a 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 h r p a 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 h r p a 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 h r p a 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 h r p a 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 h r p a d . d o t џ   V  6 џџ           V  	 џџ           V  
 џџ           V   џџ           V  3 џџ           V   џџ           V   џџ           V  4 џџ           V 	  џџ           V 
  џџ           V   џџ           V   џџ           V    џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V   џџ           V  7 џџ           V   џџ           V   џџ           V   џџ           V   џџ           V  % џџ                 с    (   & S i c h e r n   u n d   z u r ќ c k   z u   R / 3         C t r l + S    ( & Z u r ќ c k   z u   R / 3  C l o s e   N o   S a v e       F i l e C l o s e N o S a v e . M a i n  ) 
}u   С   i      ( S e r i e n b r i e f f e l d   e i n f ќ g e n  M e r g e   F i e l d       I n s e r t M e r g e F i e l d . M a i n                                                                (      Ё                   B   ] й                љ     z      
  С  С       9  љ  -    9              A              )              1              9              !              	A              Щ              	           З               в    $           э    L          	    џџ8   P r o j e c t . I n s e r t M e r g e F i e l d . 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 N o 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 f f   P r o j e c t . F i l e S a v e H t m l . M a i n   P r o j e c t . R 3 W i n S r v . S 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 . D i s a b l e D e l e t e   P r o j e c t . R 3 M e n u . S e t D i s p l a y M o d e O 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 . A u t o C l o s e . M a i n   P r o j e c t . F i l e C l o s e . M a i n   P r o j e c t . F i l e S a v e A s W e b P a g e . M a i n   P r o j e c t . F i l e S a v e F r a m e A s . M a i n   P r o j e c t . F i l e S a v e V e r s i o n . M a i n  % P r o j e c t . R 3 F H a n d l i n g . R 3 R e w r i t e D a t a F i l 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 . F i l e C l o s e N o S a v e . M a i n                               P r o j e c t . R 3 E x e c . R 3 U n L i n k D a t a f i l e        P r o j e c t . R 3 D i a l o g . I n i t M e r g e D i a l o g      % P r o j e c t . R 3 F H a n d l i n g . R 3 G e n T e m p D a t a F i l e                                  % P r o j e c t . R 3 O p e n D o c u m e n t . R 3 O p e n D o c u m e n t                                                       P r o j e c t . 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 . T e r m i n a t e       P r o j e c t . F i l e S a v e . M a i n    P r o j e c t . R 3 D i a l o g . S h o w M e r g e D i a l o g     P R O J E C T . F I L E S A V E . M A I N     P R O J E C T . A U T O C L O S E . M A I N     P R O J E C T . F I L E C L O S E . M A I N     P R O J E C T . F I L E S A V E A S . M A I N     P R O J E C T . R 3 W I N S R V . S A V E D O C     P R O J E C T . F I L E S A V E H T M L . M A I N     P R O J E C T . 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 C L O S E N O S A V E . M A I N   
  P R O J E C T . F I L E S A V E F R A M E A S . M A I N     P R O J E C T . F I L E S A V E V E R S I O N . M A I N     P R O J E C T . 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 . I N S E R T M E R G E F I E L D . 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 . 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 E X E C . R 3 U N L I N K D A T A F I L E     P R O J E C T . R 3 M E N U . S E T D I S P L A Y M O D E O N      P R O J E C T . R 3 D I A L O G . I N I T M E R G E D I A L O G      P R O J E C T . R 3 D I A L O G . S H O W M E R G E D I A L O G      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 F H A N D L I N G . R 3 G E N T E M P D A T A F I L E    % P R O J E C T . R 3 F H A N D L I N G . R 3 R E W R I T E D A T A F I L E    % P R O J E C T . R 3 O P E N D O C U M E N T . R 3 O P E N D O C U M E N T   @          ђ                            `   @     G                       T i m e s   N e w   R o m a n   5                       S y m b o l   3&                       A r i a l   "  0 №а  h    єт)&ѕѓEF    Ќ b                                     $ №                                                                                                                                                                                                                                                                                                                         ЅРД Д  0    d                  ѕ~z?                                                       џџ                I X O S   A S  I X O S A S                       
  [         H  @ёџ H   N o r m a l      ' CJЬOJўPJўQJў_HmH nH sH	tH	u                   < A@ђџЁ <   D e f a u l t   P a r a g r a p h   F o n t                          џџџџџџ   џџ                                  џ@          `  $ @     G                       T i m e s   N e w   R o m a n   5        ўџ                       рђљOhЋ +'Гй0   X                          Ј      И      Ф      м   	   ь      ј   
              ,     8     @     H     P     ф          s         s       IXOS AS        XOS      ws8hrpad.dot  o       IXOSAS d      172       Microsoft Word 8.0  @    ЬL7U   @     њЂХъН@    Ъ]>ЪП                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ўџ                       еЭе. +,љЎD   еЭе. +,љЎL          h      p                                     Ј      А      И      Р      в      ф        iXOS AS                       1                                                     Title             Titel                          6      >         
   _PID_GUID    ф  A   N   { C 6 E 4 E 6 4 0 - B C 7 D - 1 1 D 3 - 8 9 D A - 0 0 0 0 E 8 7 6 A 9 4 8 }                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       CommentFrameЇ      ( х       4      MergeListBox  ю        ѓ   џ                     ўџџџ        ўџ
  џџџџ                   Microsoft Forms 2.0 Form    Embedded Object     є9Вq               :   <   Y   =   >   ?   @   VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DialogForm 
   Caption         =   "Insert Merge Field"
   ClientHeight    =   3870
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4215
   StartUpPosition =   1   V B F r a m e                                                   џџџџџџџџџџџџ                                      .      P R O J E C T w m                                                   8   џџџџ                                    Ё  k      P R O J E C T                                                     џџџџџџџџџџџџ                                    Џ  X       C o m p O b j                                                  џџџџD   џџџџ                                    Щ  j        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                                                          C   A                       Рe~>ЪП`№>ЪП            V B A                                                            џџџџB   	                       Рe~>ЪПPеВ>ЪП            T h i s D o c u m e n t                                                џџџџ                                        М                              	   
                           ўџџџ      ўџџџўџџџ                            !   "   #   $   %   ўџџџ'   (   )   *   +   ,   -   .   /   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   ўџџџf   g   h   i   j   k   l   m   n   o   p   q   ўџџџs   t   ўџџџv   w   x   y   z   {   |   }   ~          Ж џџ    џџџџ    џџ< џџ  цфЦ}Мгк  шvЉH	     Р      F                 цфЦ}Мгк  шvЉH            џџџџџџџџ   џџџџx   њ     8  џџџџ       Ъ№Ш№  џџ#      цфЦ}Мгк  шvЉHцфЦ}Мгк  шvЉHџџ  І  ђ   ђ          џџџџ4   џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(    SLџџџџ   Sџџџџ   Sџџџџ    6"џџџџ  џџ     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 } WыМ8	 $ * \ R f f f f * 2 2 3 8 6 7 9 9 8 7 п   џџџџа   ўџџџџџџџџџ(     џџ        џџџџџџџџ       $   џџџџH   ўџџџџџ џџ`     џџџџџџ    џџџџџџџџ      $    џџџџўџџџ    џџўџџџ    џџџџџџџџ330   $   ўџџџџџ џџР     џџџџџџ    џџџџџџџџ 2   $   џџџџ0                џџџџџџџџџџџџ    џџџџџџџџџџџџџџџџ    џџџџџџџџh              @      џџџџџџџџџџџџџџџџџџџџџџ  0   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 

    rU                    	       	      P                  
      )
      Q
      џџџџй	        4   y
      Ё      Ё
      џџџџџџџџџџџџ  џџџџџџџџџџџџџџџџ  к c                        rU                    	      џџџџџџџџ    @        p        Ж џџ    џџџџ    џџџџџџ                                   _ _ S R P _ 1 a                                                  0   џџџџџџџџ                                       Ў       _ _ S R P _ 1 b                                                        џџџџ                                       @       F i l e S a v e A s W e b P a g e                               $    џџџџџџџџ                                             R 3 L o g F i l e                                                .   џџџџџџџџ                                    &   Е                                   џџџџџџџџ   џџџџx   о   Ї  Ѕ  џџџџ       Ъ№ѓ  џџ                                       џџ  У  ж   ж   K    џџџџ    п џџ      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     < џџ    < џџ    < џџ    <џџџџ  џџ            п    џџџџ   џџџџ   `    џџџџџџџџ    џџџџ|џ  џџџџџџџџџџ                  џџџџџџџџ џџp     џџџџџџ    џџџџџџџџ       $   џџџџ                    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH           џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                                ўЪ  "              	     џџџџџџџџ         l џџp   џџџџh   MА Attribut e VB_Nam e = "Fil eSaveAsW ebPage" 
Public  Sub Main()
End< 

                                     Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Й    џџџџ       Ъ№ѓ  џџ                                       џџ  е  ж   ж       џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP     >
џџџџ    
џџџџ    џџџџ    Lџџџџ     џџџџ    џџџџ    џџџџ    џџџџ  џџ      WыМ8	 $ * \ R f f f f * 2 4 3 8 6 7 9 9 8 7 $ * \ R f f f f * 2 8 3 8 6 7 9 9 8 8  * \ R 0 * # 1 0  * \ R 0 * # 1 6  * \ R 0 * # 1  * \ R 0 * # 1 1  * \ R 0 * # e  * \ R 0 * # f п   (   А  џџџџ  џџџџш   p   џџџџ0         $   џџџџ    + p      `    џџџџџџџџ    `  џk џџџџ џџџџ             8џџџџ  `    џџџџџџџџ       џk А   џџџџџџ       $% i:џџџџ џџџџ    џџџџ  & `<џџџџzџџџ џџ      т    џџ џџ       @    џџџџџџџџ. odтџџџџ џџ џџ     @    џџџџџџџџp   џџџџ џџ      џџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@  p    џџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   (    ` џџџџxџџџ џџ       џџџџ          џџџџ$.4*       @ўџX  tџџџ џџ        @ўџџџџџpџџџ џџ        @ўџџџџџlџџџ	 џџ        @ўџИ  \џџџ џџ        @ўџџџџџLџџџ џџ        @ўџа  <џџџ џџ        @ўџш  ,џџџ џџ        @ўџџџџџџџџ џџ        џџџџџџџџџџџџџџџџА   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџа   џџџџџџџџџџџџа  0  И  џџџџH  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџВ >.4*     @ўџ`  hџџџ џџ        @ўџш  dџџџ џџ        @ўџ   `џџџ џџ        @ўџ  \џџџ џџ        @ўџџџџџXџџџ џџ        @ўџџџџџTџџџ	 џџ        @ўџџџџџDџџџ џџ        @ўџx  4џџџ џџ        @ўџ  $џџџ џџ        @ўџџџџџџџџ џџ        џџџџP             0   џџџџш   џџџџџџџџp   џџџџ  џџџџџџџџџџџџџџџџ8            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ     ME  џџџџџџ    џџ    џџ                                                              ўЪ .                           	     џџџџ 	 :       	 $   X    	       B             	     џџџџ        " " И     	 р      ш     	 №      ј    	    џџџџ  
                        
      	 (   R D 0               	     џџџџ 	 "      	    Р  "   Ш      а     и   	     џџџџ   р   
           $ 8       H     P   	     џџџџ    X       `   P D h       И     Р   	     џџџџџџџџа  Хџџx   Z ъш   Z ъ  и   3  Get the logfile name. Ask for environment variable       и     TEMP. Set a doc variable too.    и       0     С "h   Ў  AbsLogFileName  $% & ' Ў 	 DoLogging   $% & Ў  1         Џ'   a џџ   Џ '   h џџ      '   (№    "ш   Ў   '  Ў   ' Џ '           .! 0Щ ,  4Щ 2Ў # Error in R3LogFile.R3GetLogFileName Щ 6A@*        (p   f џџh   и     write a line of the logfile      и       p     Z ъа   С "      Џ    Ў            $ В   ' <          <Ѓ Ф      < Ъ Ў  [   > Ў  ]    : Ю       <S  h џџЈ   (    "          .! 0Щ ,  4Щ 2Ў ! Error in R3LogFile.R3WriteLogLine Щ 6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              ~}         	       	                  Љ     
 !      q      Љ      С      љ      Y      Й      с            с      A      Y      	        Ь     Kj_ _ S R P _ 2                                                     џџџџџџџџџџџџ                                    e         _ _ S R P _ 3                                                       (   џџџџ                                    r          F i l e S a v e                                                     "   џџџџ                                    u   Е	      D i a l o g F o r m                                               !      џџџџ                                    G   е         Ctџtџ   §ч  /tџ " Ctџtџ   #pџ ћ02 tџpџN  	єџ   Y   	є      
  Cxџ Щ   Cxџ 
 T   	є     Dtџ   lџlџ,  'џ',џ:Lџ N<џ<џѕ   >tџF\џ
  lџ6 \џ<џ,џџ       ` Ь (       Щ              xџ (          tџ pџ lџ \џ <џ ,џ џ $  а     K     єџЦ   ћ0УФ  'hџ	  pzџ5hџ   kzџєџў]  8
   1Xџkzџ§2 >Xџ#dџ*#`џ *#\џ *Fhџ§92 dџ`џ\џ5hџ kzџ§=  Ъ  Ddџ   TџTџ,  'џ'$џ:Dџ N4џ4џѕ   >dџFhџ
  Tџ6 hџ4џ$џџ          h а $       Ъ                0     	     dџ `џ \џ Xџ Tџ hџ 4џ $џ џ        f                                                rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ        ( Љ        ` §џџџџџџџџџџџ    С           0       p                                                Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   І  D  џџџџ       Ъ№>Ђ  џџ                                                                                                                        ўџџџ             Ё   Ђ   Ѓ   Є   Ѕ   І   Ї   Ј   Љ   Њ   Ћ   Ќ   ­   Ў   Џ   А   Б   В   Г   Д   Е   Ж   З   И   Й   К   Л   М   Н   О   П   Р   С   Т   У   Ф   ўџџџЦ   Ч   Ш   Щ   Ъ   Ы   Ь   ўџџџЮ   Я   ўџџџб   в   г   д   е   ж   з   и   й   к   л   м   н   о   п   р   с   т   у   ўџџџх   ц   ч   ўџџџщ   ъ   ы   ь   э   ю   я   №   ё   ђ   ѓ   є   ѕ   і   ї   ј   љ   њ   ћ   ќ   §   ў   џ      џџ  Т  ж   ж   в    џџџџ    п џџ    ( џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      6
џџџџ    <, џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    <  џџ    <$ џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 8 1 3 8 b c e b 5 1 п      р  џџџџ   `    џџџџџџџџ    џџџџHџ@ џџџџџџџџџџ             `Bџџџџxџџџ џџ            џџџџ@џџџџ џџ     џџџџџџ    џџџџџџџџx      $   џџџџ@  џџџџџџџџ@   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0  џџџџџџџџ    HL.Nџџџџ џџџџџџ   tџџџ џџ    , џџ@ўџ   pџџџ	 џџ    џџџџ@ўџ   `џџџ џџ    џџџџ@ўџ   Pџџџ џџ      @џџџџ(   Lџџџ џџ    @   @ўџ   Hџџџ џџ    џџџџџџџџ                    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ`             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ X   ME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	 J       	 &   X    	       "                    	    џџџџ        * ! Р    	    џџџџ 	    №    
     	    џџџџ 	 0      
 + H   	    џџџџ    X       `   , 4 h               џџџџА  Хџџx   и   C  Save and back to R/3. Do the same in case of a protected document.       и      That's no problem. See R3Close.  и             Z ъ@   С "`   Ў  FileSave.Main    B@8   Ў  Save and back to R/3, wait...   D( F      и    Unlink data file.  HB@J  "ш   и  )  Close the window, AutoClose is executed.   LB@B   # Erro (     "     .! 0Щ fЎ  FileSave.Main Щ   NB@P h    (`   l џџX   џџџџP   пБ Attribut e VB_Nam e = "Fil eSave"
 Option E xplicit 

' l a nd back  to R/3.  Do the sin case  of a pr otected  document.That's no blem . See R3 Close"
Pub w Sub  Main() 
  Dim DataІ As RS ТngO Љr ror GoTo E
LineAR3Log5.R3Write Љ (y.3"3Apya.StatusBar, wait.$..  6'  Unlink dЁ U fili  oExec @Un =~kc~Єw indow, Auto
is e зd  Ac tiveW.##xitn
:}ord	.  Text:=Р.Descri}, Modрule:=ЬG@E  h
            Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Ё    џџџџ       Ъ№ѓ  џџ                                       џџ  Н  ж   ж   ѕ    џџџџ    п џџ    џџџџџџџџџџџџџџџџџџџџџџџџџџ! n! pB@r       и    Hide the form.     џџB@V        l џџА   џџџџЈ   В Attribut e VB_Nam e = "Dia logForm"D

Bas0 {167D746 B-3625-1 1D4-8A38-0  E876A948}J5FJdCreatabliFalse Predecla Id ЏTru"РExpose@ Template DerivCu@stomizD 

Option  2licit	' Cance l, do no thing.
0'
P15 SubButton_C k()Р
  ' D@Me.Hid jEnd0Show  the comment/Mer geListBox/ 0 associLd by!at m fPieldA! !CLabel.C"a>= _Т  R3У.GetТ-Ф(	#.%Index + 1Р<С6elect67@item a@>addШ%м<DblAUByValФ[  As MSГs. ReturnBo`oleanФ^аU 7џ>bЮ>  P' AR8  Act@ІDocuzMailS.Fgs.СФ`Range:=жSТPЅ.,hСєФ:=ЩiAdrBоhїЧQ"1f`@0Т#0T}Хs k"7J7Oўka1QUQQђ 1ve1@	1@5y1oxFУ1СџџџџџџџЈ            fш    `    џџџџџџџџ    џџџџџ@ Р   џџџџЌ       erge)iџџџџ џџр       џџџџ   Є    $   zџџџџ `    џџџџџџџџ    џџџџ џ@ џџџџџџџџА   !         ўџX  џџџџP    џџ(      џџџџџџџџ       $   ўџџџџџџџџџ    џџX      џџџџџџџџ      $   @   џџџџR 3 W o r d E r r o r                                             +   )   џџџџ                                       
      _ _ S R P _ 8                                                     џџџџџџџџџџџџ                                    Х   ъ      _ _ S R P _ 9                                                          џџџџ                                    Э   Ў       R 3 D o c V a r                                                     ,   џџџџ                                    \   y      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP     6
џџџџ     џџџџ    џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    
џџџџ  џџ      WыМ8	 $ * \ R f f f f * 2 7 3 8 6 7 9 9 8 8  * \ R 0 * # 1  * \ R 0 * # 1 1  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 c  * \ R 1 * # c 0 $ * \ R f f f f * 2 4 3 8 6 7 9 9 8 7 п   џџџџ  P      `    џџџџџџџџ    @  ,џo @   џџџџџџ            ifџџџџ џџџџ    `         iџџџџ џџџџ    џџџџ      |џџџџ  `    џџџџџџџџ    И  xџo Р   џџџџџџ   
        ifџџџџ џџџџ    р         iџџџџ џџџџ    џџџџ      џџџџџџџџ       Nџџџџ џџ8    џџџџџџ    џџџџџџџџџџџџ   $   џџџџ`   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@   џџџџџџџџџџџџX      џџџџј  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр  џџџџџџџџ4*D           @ўџџџџџlџџџ џџ    $@ўџ(  \џџџ џџ    џџџџ@ўџ@  Lџџџ џџ    џџџџ@ўџџџџџ<џџџ џџ    џџџџ@ўџp  8џџџ џџ    џџџџ@ўџ   4џџџ џџ    џџџџ@ўџџџџџ0џџџ	 џџ    џџџџ@ўџџџџџ,џџџ џџ    џџџџџџџџр   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР   џџџџџџџџџџџџp  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX  џџџџџџџџ  џџџџџџџџџџџџ џџ@ўџџџџџxџџџ џџ    џџџџџџџџp                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ                                                               ўЪ     Ж џџ    џџџџ    џџџџџџ  цфЦ}Мгк  шvЉHцфЦ}Мгк  шvЉHsцфЦ}Мгк  шvЉH              џџџџџџџџ   џџџџx   о   |  b  џџџџ       Ъ№	W  џџ                                      џџ    ж   ж   L    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@   SPџџџџ   Sџџџџ   Sџџџџ   Sџџџџ   <џџ      <T џџ    <X џџ    < џџ    < џџ    <  џџ    <$ џџ    <( џџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <@ џџ    <D џџ    <H џџ    <L џџ    <P џџ    <\ џџ    <` џџ    <d џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ    j   0 { 1 6 7 D 7 4 6 B - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 } { 1 6 7 D 7 4 5 F - 3 6 2 5 - 1 1 D 4 - 8 A 3 8 - 0 0 0 0 E 8 7 6 A 9 4 8 }        п   8    T@     `    џџџџџџџџ    џџџџ|џ@ џџџџџџџџЄ             X    `    џџџџџџџџ    џџџџ<џ@ џџџџџџџџЈ            fш    `    џџџџџџџџ    џџџџџ@ Р   џџџџЌ       erge)iџџџџ џџр       џџџџ   Є    $   zџџџџ `    џџџџџџџџ    џџџџ џ@ џџџџџџџџА   !         ўџX  џџџџP    џџ(      џџџџџџџџ       $   ўџџџџџџџџџ    џџX      џџџџџџџџ      $   @   џџџџ       ш   џџџџџџџџ    ўџџџџџ џџа    џџџџџџ    џџџџџџџџџџџџ  $    Rџџџџўџџџ     џџўџџџ    џџџџџџџџџџџџ  $   ўџџџџџ џџ0    џџџџџџ    џџџџџџџџџџџџ  $     А  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџи  џџџџџџџџ   RemoveContro WWџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџИ   Zџџ ^цPerc tWџџџџ    xџџџ	 џџ    zeWW@ўџ   hџџџ џџ        @ўџ   Xџџџ џџ             Hџџџ џџ    ј  @ўџ   Fџџџ џџ    џџџџџџџџ(   @џџџ	 џџ        џџџџ   <џџџ џџ        џџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      iџџџџxџџџ     џџџџ  $   џџџџx   Fџџџџџџџџ`  ZvlV     џџџџџџH  tџџџ	 џџ       @ўџ   dџџџ џџ        @ўџ   Tџџџ џџ       А     Dџџџ џџ    џџџџ@ўџ   Bџџџ џџ    џџџџџџџџа   <џџџ	 џџ    џџџџp     8џџџ џџ    џџџџ@ўџ   4џџџ	 џџ       @ўџ   0џџџ	 џџ    И  @ўџ   ,џџџ	 џџ    џџџџ@ўџ   (џџџ	 џџ    џџџџ@ўџ   $џџџ	 џџ    `  @ўџ    џџџ	 џџ     џџџџџџ   џџџ џџ        џџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(  џџџџџџџџ`  ZvlV$џџџ џџџџџџH  xџџџ	 џџ     џџ@ўџ   hџџџ џџ    џџџџ@ўџ   Xџџџ џџ    џџџџИ     Hџџџ џџ    џџџџ@ўџ   Fџџџ џџ    џџџџџџџџа   @џџџ	 џџ    џџџџx     <џџџ џџ    џџџџ@ўџ   8џџџ	 џџ    џџџџ@ўџ   4џџџ	 џџ        @ўџ   0џџџ	 џџ        @ўџ   ,џџџ	 џџ        @ўџ   (џџџ	 џџ        @ўџ   $џџџ	 џџ        џџџџ    џџџ џџ        џџџџh                 џџџџџџџџ(  џџџџш   џџџџџџџџX  џџџџџџџџи            џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                              ўЪ ,  	     џџџџ 	     џџџџ          	     џџџџ 	        	    (   "   0    	    8    
  P      `    	     џџџџ 	    h    	       "       	 6       0 T Ш      ј    	     џџџџ 	 4       	    8  "  	 @   	    H   0 T `   	    џџџџ 	       J Ѕ А   	    џџџџ 	        
       (   	     џџџџ 	 $   0   	    X  "   `   	    h   0 T    	    џџџџ 	    А   J Ѕ а   	    џџџџ 	        
  8     H   	     џџџџџџџџX  Хџџx   и     Cancel, do nothing.      и             и    Do nothing         џџB@V        l џџ   и     Show the comment.и       @     и  0  Show the comment associated by that merge fieldve      џџ! b! dЄ     ^% `   џџ! Z( \l џџ    и   -  Select the the item and add the merge field.     и            и    Show the comment.      џџ! b! dЄ     ^% `   џџ! Z( \и    Add the merge field.             v! tЩ t  џџ! b! dЄ     ^% x Щ   l! n! pB@r       и    Hide the form.     џџB@V        l џџа  и     Add the selected mergefield.     и       ш     и    Show the comment.      џџ! b! dЄ     ^% `   џџ! Z( \и    Add the merge field.             v! tЩ t  џџ! b! dЄ     ^% x Щ   l	         	       "          (    . - 0    * ? `    "       
 И      а    	     џџџџ"   и      р    "  ш     
      (  џџџџ8  и     Errorhandler l, dи             С  P     fЩ ,  4Щ 2Ў 	 Error in     Щ 6A@*   Ў 	 Error in     Ў  :    f   D( Fџџ    Ў 	 Error in     Щ :  B@8       fЩ :  B@8 џџр   l џџ(        С     Ў 	 Error in     Щ :  B@8         fЩ :  B@8       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              ~}         	       	     	             Y      i8      Щ      Ё8      	      с      q      Љ      ф        Kџџ -'<џ'Lџ  *F\џѕ   l Mlџ@
   6 \џLџ<џ ?  *#8џ *#4џ *#,џ0џ"   $   0џ 2 8џ4џ,џ0џ   *§Ч8џ
  /8џ 
l 
            P  $                       (          8џ 4џ ,џ 0џ \џ Lџ <џ `   ,     Kџџ   *§Чxџ
  /xџ 
l 
             , $                                 xџ        f                            rU                    	      џџџџџџџџ        ,          ` §џџџџџџџџџџџ    A     Y          00, Љ        ` §џџџџџџџџџџџ    A     Y          00    p                        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 tGрЏO@рЃ,Db"	"bИ"T1@CТ|л2ТA=-("AbsаLogFр "B%ШNot 5stСсxРa1~А      `    џџџџџџџџ    X  0џk @   џџџџџџ            iџџџџ џџџџ    `         iџџџџ џџџџ    џџџџ      `@   zџџџ џџ    Erro`џџџџtџџџ	 џџ    B@8+&X    `    џџџџџџџџ      (џk №    џџџџ          iџџџџ џџџџ    џџџџ      `№   vџџџ џџ        `џџџџpџџџ	 џџ        `И  lџџџ џџ        А    `    џџџџџџџџ       Hџk џџџџџџџџџџ _ _ S R P _ a                                                    џџџџџџџџџџџџ                                    а   о      _ _ S R P _ b                                                          џџџџ                                    ф   я       R 3 M e n u                                                       2   7   џџџџ                                    e   В&      _ _ S R P _ c                                                    џџџџџџџџџџџџ                                    ш   в      rU              ~}         	       	           
       Щ      	      с      й	      1      Y      y      С                 
 С      с      	      Љ     
 )      i      D  ќ     ?єzџhџlџpџ"    $ 4  pџ  lџ   lhџф) pџlџўcdџЛ  >PџzџMTџ@lџpџ"    $ 4  pџ  lџ0  QPџtџ) pџlџ tџW@џ  FTџ]ћ/0џ5@џ\Џ   FTџ%tџў  ј   
zџddџA  =Pџl MTџ@ lџpџ"    $ 4  pџ  lџ4  ) pџlџPџ        L ќ (       ј               tџ            pџ lџ Pџ @џ 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џ (џ Ш        <lџpџtџ"    $ 4  tџ  pџ   llџѕ    л) tџpџ  BHџ(Lџ pџtџ"    $ 4  tџ  pџ0  Hџ8  ) tџpџHџ5Lџ         4  $                                 tџ pџ Hџ Lџ А   t      
 Cpџpџ Ctџtџ
	  2 tџpџ   Cpџpџ Ctџtџ
	  2 tџpџ  Ctџtџ  1xџ/tџ  Ctџtџ  1xџ/tџ           t (                       xџ           tџ pџ              \      џџџџџџџџџџџџџџџџ(            џџrU                    	     
 џџџџџџџџ        ,      
    ` §џџџџџџџџџџџ    й      ё           00( Љ     
   ` §џџџџџџџџџџџ    й          0$ б     
   `  §џџџџџџџџџџџ         $ љ     
   `  ќџџџџџџџџџџџ             p       ?                      	  
    ўџџџ            ўџџџ                           !  ўџџџ#  $  %  &  '  (  )  *  +  ,  -  .  /  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  f  g  h  ўџџџj  k  ўџџџm  n  o  p  q  r  s  t  u  v  w  x  y  z  ўџџџ|  }  ~                  ўЪ            	     џџџџ 	 "       	    0   "   8      @    	    H    .   `    .         Р      и    	    џџџџ 	    №    ,       .   0   	    џџџџ 	    `   "   p   "        Р   	     џџџџ 	 &   Ш   	    №  "   ј         0      4   8     p              	     џџџџ 	 &   Ј   	    а  "   и     р   "   ш   "        8   	     џџџџ 	    @   	    `  "   h      p      x   	    џџџџ      	    џџџџ  .         	    А   	    а     и   
  ш     ј   
      	    џџџџ             	     џџџџ 	 ,       	    P  "   X      `      h      p   	    џџџџ   x   	    џџџџ  $         	    А   	    Ш     а   
  р     №   
  ј   
     	    џџџџ              	     џџџџ 	 $   (   	    P  "   X Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   $  j  џџџџ       Ъ№;ѓ  џџ                                       џџ  @  ж   ж   ќ    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP     >
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    Lџџџџ    Lџџџџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 2 8 3 8 6 7 9 9 8 8  * \ 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 п   џџџџ8  ~А      `    џџџџџџџџ    X  0џk @   џџџџџџ            iџџџџ џџџџ    `         iџџџџ џџџџ    џџџџ      `@   zџџџ џџ    Erro`џџџџtџџџ	 џџ    B@8+&X    `    џџџџџџџџ      (џk №    џџџџ          iџџџџ џџџџ    џџџџ      `№   vџџџ џџ        `џџџџpџџџ	 џџ        `И  lџџџ џџ        А    `    џџџџџџџџ       Hџk џџџџџџџџџџ 
 
 -         `џџџџzџџџ џџ        џџџџ  `    џџџџџџџџ    H  pџk џџџџџџџџџџ 	 	 7         `џџџџxџџџ џџ    ј  џџџџ    А  џџџџА   X  џџџџ    $џџџџ џџP    џџџџџџ    џџџџџџџџџџџџ   $      џџџџџџџџџџџџ`   џџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ  и  џџџџЈ  џџџџ@  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX  џџџџџџџџџџџџџџџџџџџџј  p  џџџџl                 @ўџ(  pџџџ	 џџ        @ўџР  lџџџ	 џџ        @ўџџџџџhџџџ џџ        @ўџ  fџџџ џџ          X  	       @ўџџџџџdџџ џџ            	       @ўџџџџџTџџџ џџ        @ўџџџџџPџџџ	 џџ        @ўџ№  @џџџ џџ        @ўџџџџџ0џџџ џџ    ј  џџџџ           џџџџџџџџџџџџџџџџ@  џџџџџџџџџџџџџџџџџџџџ(  џџџџџџџџџџџџџџџџџџџџџџџџј  Р  џџџџ  џџџџ(  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@  џџџџџџџџџџџџџџџџИ  р  а  `&џџџџxџџџ џџ       X  И         џџџџl                 @ўџ  hџџџ	 џџ        @ўџЈ  dџџџ	 џџ        @ўџџџџџ`џџџ џџ        @ўџh  ^џџџ џџ          @         @ўџџџџџ\џџ џџ        №  h         @ўџџџџџLџџџ џџ        @ўџџџџџHџџџ	 џџ        @ўџи  8џџџ џџ        @ўџџџџџ(џџџ џџ        џџџџh  %         џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ    џџџџ   џџџџш  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџl                 @ўџа  tџџџ	 џџ        @ўџ0  pџџџ	 џџ        @ўџџџџџlџџџ џџ        @ўџџџџџ\џџџ џџ        @ўџџџџџLџџџ џџ        @ўџџџџџHџџџ	 џџ        џџџџџџџџџџџџџџџџ№  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш  џџџџџџџџ~&               @ўџ  tџџџ џџ        @ўџџџџџpџџџ џџ        џџџџШ                  џџџџџџџџџџџџџџџџА  џџџџџџџџџџџџџџџџџџџџџџџџ(            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ   ME  џџџџџџ    џџ    џџ                                                              ўЪ @           	     џџџџ 	 8       	 &   @    	    h   "   p       x           	    џџџџ  ?      > Ј      Р      а      р      ш    
 
 №    	     џџџџ  =               (   	     џџџџ 	 6   0   	 $   h   	      B                Ј      А   	    џџџџ   И   	     џџџџ  ? Р    > р     ј                   
 
 (   	    џџџџ     8     @     H   	     џџџџ 	     P   	    p  "   x         	    џџџџ  <     B       И     Р   	     џџџџ 	    Ш   	    и  "   р      ш   	    џџџџ    №           0     H     `   	     џџџџџџџџp  Хџџx   и   1  Set a document variable for the active document, и     the value is always an string.   и             Z ъ   Z ъ   ї   і Є    l! !        х     l! %  .   !         (      (   h џџ   ї   і Р         Щ   Щ   l! B@r    (и   l џџа   и   0  Get a document variable of the active document,  и     the return value is a string.    и       А     Z ъ  Z ъ(  Z ъ@  Ў   ' ї   і Є    l! !        х     l! %  .   !       ! '      (р  h џџи  ї   і Р        (Р    ' &f џџА  и     Remove all doc variables и       X    Z ъ    l! ! Є   
 ь     Є    l! %  B@  ы џџ@  l џџ8  и     Test     и       А    Z ъ№  Ў  TestЩ Ў  T1Щ A@~     Ў  TestЩ Ў  T2Щ A@~     Ў 
 AbsLogFile$ & ' Ў  NotExist$ & '   l џџ   џџџџ   yВ  Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Д  ђ  џџџџ       Ъ№   џџ                                       џџ  а  ж   ж   H"    џџџџ    п џџ    $ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ     (LџџЊ   (L  Ў    >
џџџџ    џџџџ    Lџџџџ    Lџџџџ    Lџџџџ    "џџџџ    Lџџџџ    <( џџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 2 9 3 8 6 7 9 9 8 8  * \ R 4 * # 4 9  * \ R 4 * # 4 b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 4 * # 4 8  * \ R 4 * # 4 a $ * \ R f f f f * 2 2 3 8 6 7 9 9 8 7  * \ R 1 * # c 6 п   џџџџ@  @      `    џџџџџџџџ    X  tџo џџџџџџџџџџ             Є     `    џџџџџџџџ    @  tџo џџџџџџџџџџ 
 
          ІР     `    џџџџџџџџ    (  tџo џџџџџџџџџџ   !            `    џџџџџџџџ      Pџk    џџџџџџ   )    raw.iџџџџ џџџџ         rsioiџџџџ џџџџ    џџџџ  Ў   Ј   xџџџX      Щ    $    Ќџџџџtџџџx      File  $    8    `    џџџџџџџџ      Xџk Р  џџџџџџ   =        iЂџџџџ џџџџ    џџџџ  ave  Јџџџџxџџџј             $    Ќџџџџtџџџ      Ў    $   `р  pџџџ џџ     Жј    `    џџџџџџџџ    0
  Pџk x  џџџџџџ   S    &Saviџџџџ џџџџ        rnЩ iџџџџ џџџџ    џџџџ  le t Ј  xџџџа      ).     $    Ќџџџџtџџџ№      File  $   ИА    `    џџџџџџџџ    Ј  Xџk 8  џџџџџџ   g        iЂџџџџ џџџџ    џџџџ  nu e Јџџџџxџџџp             $    Ќџџџџtџџџ      $   $   `X  pџџџ џџ        Кџџџџ  `    џџџџџџџџ    P  tџk џџџџџџџџџџ   }     Ќ(    8  А  џџџџ  Р   ј  џџџџ@   џџџџџџџџџџџџ        џџџџ џџP    џџџџџџ    џџџџџџџџџџџџ  $   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј  џџџџџџџџ                @ўџ(  xџџџ џџ        @ўџџџџџtџџџ џџ        џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр  џџџџџџџџ                @ўџ  xџџџ џџ        @ўџџџџџtџџџ џџ        џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ  џџџџџџџџ                 @ўџј  xџџџ џџ        @ўџџџџџtџџџ џџ        џџџџџџџџџџџџџџџџџџџџџџџџ@  џџџџџџџџџџџџџџџџџџџџ   џџџџ`  џџџџџџџџ`  Ш  џџџџџџџџр  џџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџА  (  џџџџА                 @ўџј  pџџџ	 џџ        @ўџџџџџ`џџџ џџ        @ўџџџџџ\џџџ	 џџ        @ўџ8  Xџџџ	 џџ        P    0       @ўџџџџџTџџO	 џџ        x  8  0       @ўџџџџџPџџџ џџ        џџџџ8  6       Р  џџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџј	  @	  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX	  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(	  p	  џџџџ                 @ўџџџџџlџџџ	 џџ        @ўџ	  hџџџ	 џџ        	  X	  D       @ўџЈ	  dџџO	 џџ        Р	  	  D       @ўџа	  `џџџ	 џџ        ш	  Ј	  E       @ўџџџџџ\џџO	 џџ        
  а	  E       @ўџџџџџXџџџ џџ         
  а	  K       џџџџ	  L       џџџџџџџџџџџџџџџџџџџџџџџџИ  џџџџџџџџџџџџџџџџџџџџx  џџџџи  џџџџџџџџ  ш
  џџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ0  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџа
  H  џџџџА                 @ўџ  pџџџ	 џџ        @ўџџџџџ`џџџ џџ        @ўџџџџџ\џџџ	 џџ        @ўџX  Xџџџ	 џџ        p  0  Z       @ўџџџџџTџџO	 џџ          X  Z       @ўџџџџџPџџџ џџ        џџџџX  `       8  џџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџx  џџџџџџџџ  `  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH    џџџџ                 @ўџџџџџlџџџ	 џџ        @ўџ   hџџџ	 џџ        И  x  n       @ўџШ  dџџO	 џџ        р     n       @ўџ№  `џџџ	 џџ          Ш  o       @ўџџџџџ\џџO	 џџ        0  №  o       @ўџџџџџXџџџ џџ        @  №  u       џџџџ   v       џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№  џџџџџџџџЖИ               @ўџ   xџџџ џџ        @ўџџџџџtџџџ џџ        џџџџР                  џџџџџџџџџџџџџџџџА  џџџџџџџџџџџџџџџџџџџџџџџџ(            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ №  ME  џџџџџџ    џџ    џџ                                                        `      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 ъ   С (  ї   Јі   ! А       ї   Ќі   Ј! В       и    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Я
                                                                                                                                                                                                                                                                                                                                              rU              ~}         	       	                  љ      ]      с]      	^      !     i^      ^      б^      )_      _      Й_      	`      q`      ё`      Щ      	      с      !a      Ia      qa      X       	      й	      I     q     (  №     Kџџ   Ctџtџ Cxџxџ
   2 xџtџ   Ctџtџ Cxџxџ
   2 xџtџ  Cxџxџ
  /xџ  Cxџxџ
  /xџ   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џ        № $                                 xџ tџ Ј   p     Kџџ   Ctџtџ Cxџxџ
   2 xџtџ   Ctџtџ Cxџxџ
   2 xџtџ  Cxџxџ
  /xџ  Cxџxџ
  /xџ        p $                                 xџ tџ    L     Kџџ   Ctџtџ Cxџxџ
   2 xџtџ  
 Ctџtџ Cxџxџ
   2 xџtџ          L $                                 xџ tџ и        K  .\џ F`џ%pџ"   $   pџH  Q\џxџpџ pџxџ  Qpџ[XџtџўTџ   Pџtџ  lPџ ћ0/Pџz  є tџЄ    tџўTџ S        ,  4                      Xџ Tџ xџ tџ           Pџ pџ \џ ф        K  $lџ"   $ 0 Qlџ[hџxџўdџ   lџxџ  Qlџ[`џtџў\џ   Xџtџ  lXџ ћ0/Xџp  є tџЄ    tџў\џ I  xџўdџ +         $  @            (          hџ dџ `џ \џ pџ xџ tџ           Xџ lџ и        K  .\џ F`џ%pџ"   $   pџH  Q\џxџpџ pџxџ  Qpџ[XџtџўTџ   Pџtџ  lPџ ћ0/Pџz  єџtџЄ    tџўTџ S        ,  4                      Xџ Tџ xџ tџ           Pџ pџ \џ ф        K  $lџ"   $ 0 Qlџ[hџxџўdџ   lџxџ  Qlџ[`џtџў\џ   Xџtџ  lXџ ћ0/Xџp  єџtџЄ    tџў\џ I  xџўdџ +         $  @            (          hџ dџ `џ \џ pџ xџ tџ           Xџ lџ   L      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џ  Cxџxџ
  /xџ  Cxџxџ
  /xџ   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џ  
 Ctџtџ Cxџxџ
  2 xџtџ         L$                                  xџ tџ                          H                                                    rU                    	      џџџџџџџџ        $          `  §џџџџџџџџџџџ         $ Љ        `  §џџџџџџџџџџџ         $ б        `  §џџџџџџџџџџџ         , љ        ` ќџџџџџџџџџџџ    A     Y          00( !       ` ќџџџџџџџџџџџ    y    _ _ S R P _ d                                                           џџџџ                                            F i l e S a v e V e r s i o n                                     $   
   џџџџ                                            R 3 V a r i a b l e                                              %      џџџџ                                    "  n      _ _ S R P _ e                                                    џџџџ   џџџџ                                    \  &            0, I       ` ќџџџџџџџџџџџ    A     Y          00( q       ` ќџџџџџџџџџџџ    y          0$        `  §џџџџџџџџџџџ             p                                          Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Ї  Ѕ  џџџџ       Ъ№ї  џџ                                       џџ  У  ж   ж   K    џџџџ    п џџ      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     < џџ    < џџ    < џџ    <џџџџ  џџ            п    џџџџ   џџџџ   `    џџџџџџџџ    џџџџ|џ  џџџџџџџџџџ                  џџџџМџџџџ џџp     џџџџџџ    џџџџџџџџ       $   џџџџ                    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH           џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                                ўЪ  "              	     џџџџџџџџ         l џџp   џџџџh   KА Attribut e VB_Nam e = "Fil eSaveVer sion"
P ublic Su b Main() 
End<
 
                                       Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   y  /  џџџџ       Ъ№	ѓ  џџ                                       џџ    ж   ж   ]    џџџџ    п џџ    ( џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      6
џџџџ    
џџџџ  'CenterOwner
   TypeInfoVer     =   12
End
              ThisDocument T h i s D o c u m e n t   R3DocVar R 3 D o c V a r   R3Lang R 3 L a n g   R3LogFile R 3 L o g F i l e   R3Variable R 3 V a r i a b l e   R3WordError R 3 W o r d E r r o r   InsertMergeField I n s e r t M e r g e F i e l d   DialogForm D i a l o g F o r m   R3Dialog R 3 D i a l o g   FileSave F i l e S a v e   R3Menu R 3 M e n u   R3WinSrv R 3 W i n S r v   FileSaveHtml F i l e S a v e H t m l   FileSaveAs F i l e S a v e A s   File  
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    
џџџџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 2 b 3 8 6 7 9 9 8 8 $ * \ R f f f f * 2 4 3 8 6 7 9 9 8 7 $ * \ R f f f f * 3 3 3 8 6 7 9 9 8 8  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 c  * \ R 1 * # c 0  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 7 3 8 6 7 9 9 8 8 п   џџџџШ  +Р      `    џџџџџџџџ    h  `џk @    џџџџ            iџџџџ џџџџ    џџџџ      `Тџџџџtџџџ џџ        `џџџџpџџџ џџ        Ьџџџџ  `    џџџџџџџџ    Ј  hџk а   џџџџџџ           iџџџџ џџџџ    №     џџџџiџџџџ џџџџ    џџџџ  џџ`Т№   xџџџ џџ    џџџџ       џџџџџџџџОџџџџ џџ`    џџџџџџ    џџџџџџџџџџџџ   $   џџџџџџџџџџџџџџџџ`   x   џџџџ@   џџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџH    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  0     `Рџџџџxџџџ џџ       џџџџ   џџџџџџџџФШD.N     џџ@ўџ`  lџџџ џџ    џџџџ@ўџx  hџџџ џџ    џџџџ@ўџџџџџdџџџ џџ    џџџџ@ўџџџџџ`џџџ	 џџ    џџџџџџџџџџџџџџџџџџџџ  џџџџџџџџа   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH  Ј  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx  џџџџ@ўџ`  tџџџ џџ    џџџџ@ўџ  pџџџ џџ    џџџџџџџџФЮD.Nџџџџ џџ@ўџџџџџlџџџ џџ    џџџџ@ўџџџџџhџџџ	 џџ    Ш  џџџџ8                   џџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџ8            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ (  ME  џџџџџџ    џџ    џџ                                                              ўЪ +           	     џџџџ 	        	        B   (       0       8    	    џџџџ   @    	    џџџџ (  H     
 p          0 )      	     џџџџ 
  а      р    	    џџџџ    ш        №      ј    0 4         0     8   	     џџџџ 	    @   	    X  "   `      h   	    џџџџ   p   	    џџџџ 6 ) x    
 А   , ) Р     №   
     	    џџџџ            (   0 4 0       `     h  џџџџx  Хџџx   и     Get R/3 Value.   и             Z ъ`   Z ъx   С "8   Ў  Get item via DDE:       B@8   Ф% Ц  ' Т    ТЩ Т  Щ $ Ш '       Ў  DDERequest     Ў           B@8   DB@Ъ          ' Р (    "   Ў   ' Р  .! 0Щ fЎ  R3Variable.GetItemЩ   NB@|  (Ш   f џџР   и     Set R/3 Value.   и            Z ъ  С "   Ў  R3Variable.Depose    Ў           B@8     Ф% Ц  ' Т  Ў  DDEPoke    Ў           B@8       ТЩ Т  Щ   Щ аA@Ю    DB@Ъ         (и   "а    .! 0Щ fЎ  R3Variable.Depose Щ   N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:"ю" ;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              ~}         	       	                  Љ      Љ"      !     Щ      	      с      	$      I$      q      С      љ      Љ      Й      a$      С$      !%      Y%         и     K    *§Чlџ
   /lџ 
^   qtџ lџ ltџ"   $ ш  >lџ1pџ )  *#lџ *#hџlpџ*§Чdџ
   2 lџhџdџ `џ"   $   `џЌ `џ lpџCxџ е  	 Cxџ 4lџ
   `џ`џ,   Cdџdџ>lџ§Чhџ
  2 hџdџ`џ        и ,       е              xџ pџ           lџ hџ dџ `џ   и     K  )  *#tџ *#pџ *§Чlџ
   2 tџpџlџ 
^   qxџ )  *#tџ *#pџ *§Чlџ
   2 tџpџlџ   lxџ"   $ ф   hџ"   $   hџЌ hџ г  4tџ
   hџhџ,   Clџlџ>tџ§Чpџ
  2 pџlџhџ          и $       г                          tџ pџ lџ hџ        f                                rU                    	      џџџџџџџџ        (          ` §џџџџџџџџџџџ    Q         0, Љ        ` §џџџџџџџџџџџ    Q     ё           00    p                                   Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Ї  Ѕ  џџџџ       Ъ№ё  џџ                                       џџ  У  ж   ж   ?    џџџџ    п џџ      џџџџџџџџџџџџџџџџџџџџџџџџ_ _ S R P _ f                                                     џџџџџџџџџџџџ                                    i  Ѕ       F i l e S a v e F r a m e A s                                     џџџџџџџџџџџџ                                    l        I n s e r t M e r g e F i e l d                                 "  џџџџџџџџџџџџ                                    {        R 3 L a n g                                                       џџџџџџџџџџџџ                                      С      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     < џџ    < џџ    < џџ    <џџџџ  џџ            п    џџџџ   џџџџ   `    џџџџџџџџ    џџџџ|џ  џџџџџџџџџџ                  џџџџвџџџџ џџp     џџџџџџ    џџџџџџџџ       $   џџџџ                    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH           џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                                ўЪ  "             џџџџ         l џџp   џџџџh   GА Attribut e VB_Nam e = "FileSaveFr  As"
Pub lic Sub  Main()
End<
                                                        Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   O    џџџџ       Ъ№Мѓ  џџ                                       џџ  k  ж   ж   O    џџџџ    п џџ      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ                                                  ўџџџ             Ё  Ђ  Ѓ  Є  Ѕ  І  Ї  Ј  Љ  Њ  Ћ  Ќ  ­  Ў  Џ  А  Б  В  Г  Д  Е  Ж  З  И  Й  К  Л  М  Н  О  П  Р  С  Т  У  Ф  Х  Ц  Ч  Ш  Щ  ўџџџЫ  Ь  Э  Ю  Я  а  б  ўџџџг  ўџџџе  ж  з  и  й  к  л  м  н  о  п  р  с  т  у  ф  х  ўџџџч  ш  щ  ъ  ы  ь  ўџџџю  я  №  ё  ђ  ѓ  є  ѕ  і  ї  ј  љ  њ  ћ  ўџџџ§  ў  џ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      <( џџ    <, џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    <  џџ    <$ џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <џџџџ  џџ            п    x   А  џџџџ   `    џџџџџџџџ    џџџџhџ@ џџџџџџџџџџ                 џџџџдџџџџ џџp     џџџџџџ    џџџџџџџџ       $   џџџџ(  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџ   l^.Nџџџџ џџџџџџp   xџџџ џџ      @ўџ   tџџџ	 џџ    ј  @ўџ   pџџџ џџ    џџџџџџџџ(   lџџџ џџ    џџџџ@ўџ   hџџџ џџ    џџџџџџџџ                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH           џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ"             &      	    џџџџ  - @    
  P    
  `      p    	    џџџџ    x            4 4         Р      Ш   џџџџи   Хџџx         С "h   Ў  InsertMergeField.Main    B@8     ж  l! и    ^B@к          ^B@м        h џџ    (     "x     .! 0Щ fЎ  InsertMergeField.Main Щ   NB@P џџџџ (8   l џџ0   џџџџ(   :Б Attribut e VB_Nam e = "Ins ertMerge Field"
 Option E xplicit@

Pub ,  Sub Main()
  O F rror GoTo ELine4R3LogFi le.R3WriLte 6 (p.P"P9If w dNoProte"c= A ve Document.Type Then9  R3 Dialog.IniвShowxEnd If
fxitfk: gord	.i Text:=.Descri, Mo@dule:=y<
E2,@Ў
                                                     Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   Я    џџџџ       Ъ№#ѓ  џџ                                       џџ  ы  ж   ж   	    џџџџ    п џџ    ( џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      6
џџџџ     џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ     џџџџ    џџџџ    Lџџџџ    
џџџџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 2 e 3 8 6 7 9 9 8 8  * \ R 1 * # e  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 c  * \ R 1 * # c 0  * \ R 1 * # 5 b  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 7 3 8 6 7 9 9 8 8 п   џџџџH  +рџџџџ   `    џџџџџџџџ       џk џџџџ џџџџ             `тџџџџhџџџ џџ        џџџџ    оџџџџ џџ     џџџџџџ    џџџџџџџџx      $   џџџџџџџџџџџџџџџџџџџџ0  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@   џџџџџџџџј  p    џџџџШ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ0  X  H  `рџџџџxџџџ џџ   `  И  0     џџџџџџџџцDъ.N  џџџџ   @ўџџџџџdџџџ	 џџ    џџџџ@ўџџџџџTџџџ џџ    џџџџ@ўџџџџџDџџџ џџ    џџџџџџџџ    џџџџџџ@ўџр  4џџџ џџ        @ўџџџџџ$џџџ џџ        @ўџ   џџџ џџ        @ўџ(  џџџ џџ        @ўџџџџџџџџ џџ        џџџџИ                  џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ`             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ X   ME  џџџџџџ    џџ    џџ                                                              ўЪ   	 J        	 J   P    	     џџџџ          	     џџџџ 	    Ј    	 *   Ш    	    ј   B             	     џџџџ      	     џџџџ  -     	 0     8   
  H     X   
  h     x   
          	    џџџџ               
  Ј   0 4 И       ш     №  ј     и   D  Changes: In Office 2000 german first release an error occured while      и   D  calculatin the language. In that case the english template is used.! ХџџX   и     Return the laguage.! и   #  "d" or "e"; more is not supported!   і и             Z ъ@   С "ш     ц! ш  D% ф ' т    тт     ъ! ьH Q t vaЎ  d ' рthe ac  ъ! юH Q t,  Ў  d ' р returP џџ   Ў  e ' рg.    k џџh    (`    "X   Ў  e ' ръ@    .! 0Щ fЎ  R3Lang.GetLanguageЩ   NB@|  (   f џџ   џџџџ    *В Attribut e VB_Nam e = "R3L ang"
' Ch $es: I n Office  2000 ge rman fir st release   erro r occured while calculat in the lA Јuage.Ќt`hat c?e nglish temp 0e is  used.
 
Option  Explicit' ReturWgVr"d"  "e"; morHnot s upported! %
Pub%  Func-Get~#() As S ng
   Dim WordVariabnB  O K}G oTo ELin ~= Ap]on.Internal(WdIndex. wdProducQJID)(S ЙcИt C. 	гRbID!GжЌ  qіd z   УSwissgИEls@<NeB0End .#
БKxitУJM:3Ь)CR3;
.Trace Text:=Р.Descri, MЁРNle:=Д.=Р#E@&Х
                                                                rU              ~}         	       	     '      &    
   Щ      	      с      q      !b      9b      љ      Љ      Й      Qb         а     K  -Tџѕ   dџ"    $   dџР  Tџќіhџdџ 	hџ§ Dџ DџўС4џ  ]ћ/$џ\]   Cxџ  DџўС4џ  ]ћ/$џ\}   Cxџ    Cxџ 5Dџ Э   Cxџ 4 џ   dџdџ,  	 Cџџ> џ§Чџ
  2 џџdџ       d а 0       Э   _ _ S R P _ 2 6                                                  џџџџџџџџџџџџ                                    Ъ  Ш      _ _ S R P _ 2 7                                                      *   џџџџ                                    в  e       R 3 D i a l o g                                                  џџџџџџџџџџџџ                                    Ђ   Ј%      A u t o C l o s e                                                џџџџџџџџџџџџ                                    Е   д                 xџ Dџ hџ             џ џ џ dџ Tџ     k                                                              rU                    	     & џџџџџџџџ        $      &    `  §џџџџџџџџџџџ            p                                   Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   _  Ѕ  џџџџ       Ъ№§  џџ                                       џџ  {  ж   ж       џџџџ    п џџ      џџџџџџџџџџџџџџџџџџџџџџџџ  и     р   	    џџџџ    ш       №     ј   6 4         8     @   	     џџџџ 	    H   	    `  "   h   	 D      	    Ш      а      р      ш      №   	    џџџџ 	    ј    	     	       (   	    џџџџ 	     0     P    ) h                        	    џџџџ 
  Ј     И     Ш     а     р   
 
 ш     ј   	     џџџџџџџџ	  Хџџx   и   "  The merge fields and the commentsи     in a collection object.  Z ъ0  Z ъX  и     The merge dialog.Z ъ  и     Show the dialog form.! и       `     С "H   и    Set the counter of the listbox e Є     і! b( dи    Show the dialog.   іB@ј         (р    "и     .! 0Щ fЎ  R3Dialog.ShowMergeDialogЩ   NB@P    (   l џџ   и   "  Initialize the mail merge dialog.и             Zър   Z ъј   Z ъ  Z ъ(  Z ъ@  Z ъX  С "    и    Initialize the objects.    њЏ                   	  
              ўџџџ                               !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  ўџџџC  D  E  F  G  H  I  ўџџџK  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z  [  \  ўџџџ^  _  `  a  b  ўџџџd  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  ўџџџ~       И  Ў , InitMergeDialog: Initialize new merge dialog   B@8     х О  . і      х О   . №      х О   . є      Џ' њ  a џџp  Ў  InitMergeDialog: nothing to do   B@8    (8  h џџ0  и    Open the file.   $ В   '         !   Ѓ Ф          $   ь   и    Read the line.       ќ       и    Process the line.  ќЩ ќ  ўЩ    Щ A@
   и  8  Assign the values to the collection and the dialog box.    ўЩ   №B@r         ў  і! bB@          Щ   єB@r  ј  ы џџ№  и    Close the file     S  и    Change the some captions.  ш  D% ф ' т        т  ь    т  ю        Ў 	 Abbrechen   і! ( \      Ў  Serienbrieffeld einfќgen    і( \  Ў 	 Kommentar   і! ( \      h џџ   (    "ј  Џ ' њ    .! 0Щ fЎ  R3Dialog.InitMergeDialogЩ   NB@P    (А  l џџЈ  и   )  Get the comment line by using the index. и       p    С "`    Є   
    є!           є%  ' `      a џџ   Ў   ' `h џџ   (   "   Ў   ' `  .! 0Щ fЎ  R3Dialog.GetLabelCommentЩ   NB@|    (И  f џџА  и   (  Get the merge field by using the index.  и       а    С "h    Є   
    №!           №%  ' x      a џџ(  Ў   ' xh џџ   (   "  Ў   ' x  .! 0Щ fЎ  R3Dialog.GetLabelCommentЩ   NB@|    (Р   f џџИ   и     Split a string.  и             0        и   =  Splitt the string in two strings; the field separator is "|"     и       ZЎ  | ъа    Z ъш  Z ъ   Z ъ  и    Initiate the strings.    Ў   ' Ў   ' Џ '   и    Iterate the whole buffer.ї   і Є    ќ        ќ  Є  $ ќ  '             Ў   ' Џ'   h џџX    Џ              '   a џџ0       '   h џџ  ї   і Р       l џџ   џџџџј  ЇЖ Attribut e VB_Nam e = "R3D ialog"
 Option E xplicit 

' The  merge f ields and t (commentsHin  a collecobj .
 Dim AdrF1t As#Laиbel{dЃPMLBKЗForТmЉShow, f  1'
Pub б Sub Mg()
  O zrror GoTo E0Line' Setyunter oflisАtboxI.+BL	Box.Iаndex В0"P9M  I
Б?xit?D:@R3Word	.Log Text:=.Descriс, Mo@dule:=я.л|{EФ EРt@G!УQInit[izТe9mailDFaЫTЮTStatiPc IsdAmBРoolean4АBuff TS ЇtngХAKLRInFileAbI@ggerСKLјang|-BA%CДsТlIf5= `FalseСЪ6 X R3@hA%.@mriteСt ("HK: HnewuZ"Ї Т@N;@	О   AЇй= Чт;Шкk5=а Trub`E`У	пgeЃ: nothi`/to d&o\  !OIfЁa ' Open=.f@:Ѓ-Ѓ;`,reeA*dvR3Glob`/Р,GetT<abBр +puNt?сЅWhСENot EOF(ЃGA-' Reaуl   "7In	2#У,   Ж џџ    џџџџ    џџџџ                                                                џџџџџџџџ   џџџџx   о   y  П  џџџџ       Ъ№Џ  џџ                                       џџ    ж   ж   §    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@    <џџђ    <џџR    <` џџ    <d џџ    < џџ    < џџ    < џџ    < џџ    < џџ    <  џџ    <$ џџ    <( џџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <@ џџ    <D џџ    <H џџ    <L џџ    <P џџ    <T џџ    <X џџ    <\ џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ              п       8    $          V          $   @      Nџџ8             $        xџџџ	 џџ          $   м       `    џџџџџџџџ    џџџџLџ@ џџџџџџџџџџ             кp    `    џџџџџџџџ    џџџџџ@ џџџџџџџџџџ : :         рњџџџџ  џџ џџ        `ќр   xџџџ џџ    р `ўџџџџtџџџ џџ        ` џџџџpџџџ џџ        `џџџџnџџџ џџ        `тџџџџlџџџ џџ        +`а    `    џџџџџџџџ    џџџџDџ@ А   џџџџ   V        iџџџџ џџџџ    џџџџ      +x0    `    џџџџџџџџ    џџџџDџ@    џџџџ   h        iџџџџ џџџџ    џџџџ      
џџџџ  `    џџџџџџџџ    џџџџ,џ@ p  џџџџџџ   z        iќџџџџ џџџџ            iџџџџ џџџџ    А        iџџџџ џџџџ    џџџџ      `џџџџP
  H џџ        `џџџџzџџџ џџ        `џџџџtџџџ џџ        `   rџџџ џџ        ЂёX    џџ          @    џџџџџџџџ    Ђѕ   џџ8        @    џџџџџџџџ    Ђіџџџџ џџX        @    џџџџџџџџ    `       0  X    џџџџџџџџа  џџџџp  џџџџ0  џџџџ    ^џџџџ џџ      џџџџџџ    џџџџџџџџџџџџX
  @  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ    џџџџџџџџp   hџџџ џџ        џџџџX   Xџџџ џџ        џџџџ@   Tџџџ џџ        @ўџ   Pџџџ џџ        @ўџ   Lџџџ џџ             џџџџџџџџџџџџџџџџџџџџ(  џџџџџџџџ@  џџџџџџџџј   X  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh  џџџџџџџџш   №єВ 
   џџџџа   hџџџ џџ        @ўџ   Xџџџ џџ        @ўџ   Hџџџ џџ          @   8џџџ џџ        @ўџ   (џџџ џџ             $џџџ	 џџ        Р     ью.N       џџџџ(    џџџ џџ        @ўџ   џџџ џџ        џџџџ   P  џџџџџџџџџџџџџџџџџџџџџџџџА  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP  h     џџџџа   xџџџ џџ       џџџџ   N             џџџџ    tџџџ џџ        џџџџ   dџџџ џџ        џџџџp   Tџџџ џџ        џџџџX   Pџџџ	 џџ        џџџџ@   Lџџџ џџ        @ўџ   Hџџџ џџ        @ўџ   Dџџџ џџ    џџМџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ  №  р  џџџџр   xџџџ џџ     D џџџџ   h       џџџџИ   Nџџ   єџџ џџџџ    tџџџ џџ        џџџџ   dџџџ џџ      џџџџp   Tџџџ џџ    Ќж џџџџX   Pџџџ	 џџ        џџџџ@   Lџџџ џџ     ЬЧ@ўџ   Hџџџ џџ      @ўџ   Dџџџ џџ        ш     џџџџА  џџџџџџџџа  џџџџџџџџџџџџџџџџџџџџ  p  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ
  p
   |џЈ  џџџџа   pџџџ џџ    Ќж 
         ЬЧЈ
     nџџ џџ             џџ    џџџџp   H  	        џџџџX   \џџџ џџ      @ўџ   Lџџџ џџ     џџџџ(   <џџџ џџ       @ўџ   ,џџџ џџ    ќ џџџџ     Ќж џџџџШ              `   џџџџџџџџџџџџџџџџ0  џџџџџџџџџџџџџџџџџџџџџџџџр          џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                              ўЪ            	     џџџџ 	 (       	    0        P        X    	     џџџџ 	    `        x    	     џџџџ 	        	        "   Ј      А    	    џџџџ 	 &   И     " р    	    №    
     	    џџџџ               6 4 (       `     h   	     џџџџ 	 (   p   	      "          Ј      А      И      Р      Ш      а   	    џџџџ   и   	    џџџџ 	    р   
      <     
  P   
  `   
  p             .       Р     Ш   	    џџџџ 	    а   
  ш     ј   	    џџџџ      	        
 
 8   	    H     `   	    џџџџ 	 >       & Р    ( и    & №        	    џџџџ 	         (   	    џџџџ 	     0    0 P     h        &  Ј     а     №   	    џџџџ    ј                6 4        H     P   	     џџџџ 	 0   X   	      B           	    џџџџ   !      ! Р     и     р     ш   	    џџџџ    №       ј         6 4        @     H   	     џџџџ 	 .   P   	      B           	    џџџџ   !     ! И     а   WA
   ' Process"S ЉttcX	$:=#, FiЄrsa:=],<rc :=\у
ЅAssigУ"valєueрoBHЎХВct Р%C.Addр ItemуcСяQХa ACЧFУ(eWendСa р' Clo `УЁ7Пa#c&сa рhrЩЃsoРаcaТЃkav= Ap!брo$n.A{rnbal(wd .ductС{uageID"8@s(wdGer man) Or СSwissЅмw"CancelаButtрCc@o "Abbrech|enЇсncBСSРerienb @ ld einfќNgРYЩцFr я.хHKуarbbZТџ-vТa,ХПbЗb,J0	_ПbГb@7(Т Б/ `by usЂ?`iЧ1p ('cFunSРТ%CУ('NrШZо)Б г3A?[r9ЁЧ1 Б$> 0А@m(и+CoР{ >=ёB0Nr)шZаxп1Д	2&чPo"џ"/}"}щTraќceЯ~Я~Ш~|5ї[xOxOбЂ F?C-}d (цKя8q  8ї sђlOO7~oЂ&E%аrўrпл'Є0re Зs2rivaАНSQЎpliugЦ(ѓfЇ4, _c1LС> ByRefЖi_чOSSel7р2/АГВRBу
 аТtwdo г s;ЂТХ separatИ`is "|``C Р ConstСА@ЇзС!  Єi9ќchз!qfDмonВЂЈБ'tїlФ	  Чрв 	бџrх #D БєТЩсwhPЏ bТЎ311 ЧLenTF  = MidT, i, ў1ДP2тАсЇkd)Au	uй  A
|  аъHQХ ў+Р	ЃwP$ XPXNext i"
бmSubЁG                                                                                        F i l e C l o s e N o S a v e                                      1      џџџџ                                    Р         F i l e S a v e A s                                              џџџџџџџџџџџџ                                    д  r      R 3 W i n S r v                                                  џџџџџџџџџџџџ                                    О   ЙN      _ _ S R P _ 6                                                     џџџџџџџџџџџџ                                    ђ   |      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     < џџ    < џџ    < џџ    <џџџџ  џџ            п    x   8  џџџџ   `    џџџџџџџџ    џџџџ|џ@ џџџџџџџџџџ                  џџџџ`џџџџ џџp     џџџџџџ    џџџџџџџџ       $   џџџџА   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџ                џџџџ                  џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH           џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                                ўЪ  "        
            	     џџџџџџџџ(           @B@    8  Gl џџ`   џџџџX   OА Attribut e VB_Nam e = "Fil eSaveAs" 
Public  Sub Main()
  .H
End@ 

џџџџџџџџџџџџџџrU                    	      џџџџџџџџ        $          `  ќџџџџџџџџџџџ         , Љ        ` §џџџџџџџџџџџ    i    џ (  H   	    џџџџ 	    p    $    : $     	 4   р   	       " 2     : $ H   
 
               
  Ј   	    џџџџ    И       Р   6 4 Ш                	     џџџџ 	        	    0  "   8      @      H      P   	     џџџџ   X   6   `   < ?    	     џџџџ 	    и     №         *      * 0   
  @     H     P     X     `   	    џџџџ   h   &        Ј   	     џџџџ   А   	    Р   	 6   р    -     - (    ' 8     H     P   	     џџџџ 	    X   0 T x   * H Ј   & K и              	    џџџџ 	        
 0   *  @   	    џџџџ & ! p   	    џџџџ 	         И     а   	     џџџџ 	    и     №   0       8     @     H   	    џџџџ 	    P     h   0       А     И     Р   
  Ш   *  и   * !      8   	     џџџџ   @    # X     h   	    џџџџ    p       x   . 4    "  А   	    џџџџ 	    и   
   №    1  	   
   	   	     	   
 + @	       P	     X	   	     џџџџ 	 6   `	   	    	  "    	      Ј	      А	   	     џџџџ   И	   8 ! Р	   2 ) ј	   	     џџџџ   0
     P
   $  `
   	     џџџџ &  
      А
   &  а
   	    џџџџ    ј
           0 4        8     @   	     џџџџ 	 4   H   	      "            	     џџџџ      	    џџџџ  !     "  И   	     џџџџ 	 L   р   
 
 0   	    џџџџ 	    @    - `   8  p   
 $ Ј   
   И    1 Ш   
   и     ш   2  №     (     0   	    џџџџ 	 "   8     `   & 2      Ј   	    џџџџ   И    ! и   	    џџџџ 	 (   ш   &       8   	    џџџџ    @       Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   ~  ф  џџџџ       Ъ№D  џџ                                       џџ    ж   ж   2    џџџџ    п џџ    H џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@    6
џџџџ    <L џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    <  џџ    <$ џџ    <( џџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <@ џџ    <D џџ    <P џџ    <T џџ    <X џџ    <\ џџ    <` џџ    <d џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 7 d 3 8 b c e b 5 1 п        џџџџ   `    џџџџџџџџ    џџџџўD џџџџџџџџџџ  8 8          `Bџџџџxџџџ џџ            џџџџџџџџ џџ     џџџџџџ    џџџџџџџџx      $   џџџџx  џџџџџџџџ@   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџи   $жH,   џџџџР  tџџџ	 џџ    цD№     pџџџ џџ    џџџџ@ўџ   `џџџ џџ    џџџџ@ўџ   Pџџџ џџ    џџџџ@ўџ   @џџџ џџ       @ўџ   0џџџ џџ     џџ  (    џџџ џџ     џџј     џџџ џџ    ј  @ўџ   џџџ џџ        0     ФD.N       џџџџа   џџџ џџ        @ўџ   јўџџ џџ        @ўџ   шўџџ џџ        @ўџ   иўџџ џџ        Ш     Шўџџ џџ        @ўџ   Иўџџ џџ        џџџџ@   Јўџџ џџ        @ўџ   ўџџ џџ        џџџџ   ўџџ џџ        џџџџш                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ`             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ X   ME  џџџџџџ    џџ    џџ                                                              ўЪ =           	     џџџџ 	 4       	    @    	    X   "   `       h      p    	     џџџџ 	 8   x    	     А    $ X а       P   
   ј       `             	     џџџџ      	    џџџџ 	    8   	    P   " # X   0     	    А    - Ш   
 $ и     ш   	    џџџџ 	    №   
     	    џџџџ 	       
   0    1 @   
   P     `   *  h   	       
  А     Р   	    џџџџ 	 "   Ш    
 №   T p     .  X                     Ј   	    џџџџ 	 "   А   
  и    ! ш   	    џџџџ    ј           , 4        8     @   	     џџџџџџџџp  Хџџx   и   .  Close the file. Save is in R3WinSrv.Terminatecollи     if needed. ъ    и             Z ъ@   С "   и  2  If you have opened the template, this is used forи    customizing the template.  l! $ " Є  $   Ў  DOT        lB@$  џџј    (№   h џџш   Ў  AutoClose.Main   B@8 џџи    Check the mode.џџи      Ў  DocMode   $% & Ў  X    џџ    Ў  AutoClose.Main: view/print mode    B@8 и    Say all is saved.  l! и  ж    lB@&        h џџ   и    Unlink data. ј    HB@J        и    Set all as saved.Џ  l( (      Џ  l! *( (  Џ  ,( (      a џџ  Ў  AutoClose.Main: write mode   B@8       и    Unlink data.       HB@J        h џџ8  и    Remove the temp. data file.        ! .' B        Є    B$ " Ў  TD.SAP~ Є   
  Є    B$ " Ў 	 ~DATA.SAP ~ Є   
        Ў  AutoClose.Main: Remove    B    B@8   С  p     BЩ 2A@0   С "X   h џџP   и    Terminate and back to R/3.         ФB@4        Ў     D( F     (     "ј    .! 0Щ fЎ  AutoClose.MainЩ   NB@P      (Р  l џџИ  џџџџА    l! (Џ     h џџ8  џџџџ0  Г Attribut e VB_Nam e = "Aut oClose" 
Option  Explicit@

' p  the file . Save i s in R3W inSrv.Terminate` if needed. 
Pub  Sub Ma in()
   Dim DataF R As S ngO rro r GoTo E1
Lin X'  If you hopened templ , !s us for6custom`izing Q )Right(U Case(Act iveDocument.), 3)DOT" №Then+dFalse   #End B#{xitz  R3LogТ. Нrite д (у.В"В! рheckzmo4deB<'ARNot q:Var.GЄetC("РMР
"Т<XI<f : v iew/print $  '@ y allsРqСGР#LHProte@conType  <> wdNoЧGЪWЬUnpC:	GQ  У' UnРlink d@ЁТDB @BExecVUzn UkСЇМSФet.as .ЬёTru ЎС6@т@achedT­.ONormalюE%hdwAF1п  $Х Ua' Reмmo !p.Ђ)у&|=`+GlobпbР+M
сXn !`?(In (1, Уp`o"TD.SAPРQ> 0)р Or _ +р~DATAщчv&seтh:E" +bk  &Resa@ Nex@ІЁ=KBi [Patha:=%cT' ЦЊ$ a baСxo R/3VБЏ  A
pЗaЙ.StaРtusBarAрЛ7_ьЌ:Ё@
or:db.@ xt:=`.Desc$riФ,  ule:=-
EЄ#@
FSub!Щ                                             Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   №   Ы    џџџџ       Ъ№Щ  џџ                                         b   d   f џџч  ш   ш   Џ?    џџџџ    п џџ    ` џџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@   (Lџџl    >
џџџџ    
џџџџ    џџџџ    Lџџџџ    Lџџџџ    џџџџ    џџџџ    Lџџџџ    
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    
џџџџ     џџџџ    Lџџџџ     џџџџ     џџџџ    Lџџџџ    Lџџџџ    џџџџ    
џџџџ    џџџџ    <d џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 3 3 3 8 6 7 9 9 8 8  * \ R 1 * # 1 3 2 $ * \ R f f f f * 2 4 3 8 6 7 9 9 8 7  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 3 3  * \ R 0 * # c  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 7 3 8 6 7 9 9 8 8  * \ R 1 * # 1 7 c  * \ R 1 * # c 0  * \ R 1 * Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     ф  џџџџ       Ъ№ол  џџ                                       џџ  Њ  ж   ж   j    џџџџ    п џџ    L џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@    >
џџџџ    <P џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    <  џџ    <$ џџ    <( џџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <@ џџ    <D џџ    <H џџ    <T џџ    <X џџ    <\ џџ    <` џџ    <d џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 7 e 3 8 b c e b 5 1 п      (  X      `    џџџџџџџџ    џџџџ0џ@ џџџџџџџџџџ  / /          `Tџџџџzџџџ џџ        #Vџџџџ  `    џџџџџџџџ    џџџџ,џ@ џџџџ џџџџ   3         `тh  xџџџ џџ     Ў `6џџџџtџџџ џџ    e in`Xџџџџpџџџ џџ    ! (    џџџџX   џџџџRџџџџ џџ    џџџџџџ    џџџџџџџџџџџџ   $   џџџџј  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџ   lVDжH, џџџџџџш   tџџџ џџ       @ўџ   pџџџ џџ    ј  @ўџ   lџџџ	 џџ        @ўџ   jџџџ џџ        @ўџ   dџџџ џџ          (   Tџџџ џџ        @ўџ   Dџџџ џџ        Р     N             џџџџ(   4џџџ џџ        џџџџ   0џџџ џџ        џџџџ   А   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh      џџџџА   zџџџ џџ       џџџџ   3       џџџџ   ьюZ\*     џџџџp   lџџџ	 џџ        @ўџ   \џџџ џџ        @ўџ   Lџџџ џџ        @ўџ   <џџџ џџ    ј  џџџџ   ,џџџ џџ        џџџџи                  џџџџџџџџџџџџџџџџX   џџџџџџџџџџџџџџџџџџџџџџџџ№             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ р   ME  џџџџџџ    џџ    џџ                                                              ўЪ E           	     џџџџ 	 (       	    0   "   8       @      H    	     џџџџ $  P    	    џџџџ 	    x    	          #     	    И     * и    	 .   ш    
 
    	    џџџџ   (   	    8     H     P     X     `   	    џџџџ 	 "   h     !    	    џџџџ 	    А    - Ш   
 $ и     ш   	    џџџџ 	    №   
     	    џџџџ 	       
   0    1 @   
   P   	    џџџџ 	    `   	       
 +    	    џџџџ               2 4 Ј       р     ш   	     џџџџB   №      ј                	    џџџџ  0      (   H  H              F  Ј     №         	     џџџџ  3      (   	     џџџџ 	     џџџџџџџџ8  Хџџx   и   "  Close the document. Ask for save.и             Z ъ@   С "0   Ў  FileCloseNoSave.Main   B@8     и    Check the mode.џџи      Ў  DocMode   $% & Ў      и    We are in write mode.     l! (Џ   џџи  '  Ask if the user realy want to go back! 8 $ V  ' TD      TЄ    v e и    Go out.   (А   h џџЈ   h џџ    h џџ   и    Terminate and back to R/3. 1     Ў  Back to R/3, wait...  D( Fи    Say all is saved.  l! и  ж    lB@&        h џџ   и    Unlink data. ј    HB@J        и    Set all as saved.Џ  l( (      Џ  l! *( (  Џ  ,( (      и    Close the document.      и        LB@B          (`   "X    .! 0Щ fЎ  FileCloseNoSave.MainЩ   NB@P        (  l џџ  X     Z ъ   Z ъА   Z ъШ     ш  D% ф ' т        т  ь    т  ю        Ў ? Datenverlust! Wollen Sie wirklich abbrechen, ohne zu speichern? ' XЎ  Warnung ' 6a џџX   Ў > Data will be lost! Are you sure you want to exit the document?' X  Ў  Warning ' 6h џџј    X  Z  \   6$ * ' V    f џџа  џџџџШ  Д Attribut e VB_Nam e = "Fil eCloseNo Save"
O ption Ex plicit

'  th e docume nt. Ask  for s n. H 
Pub f S ub Main( )
  Dim RetVal 1  Integer%O drr @GoTo E
Linep  R3Log.R3WriLte  (В.j"jU ЋhecBkЋmode   'If Not,DocVar.Get("M")" Then  We  are in JwC )   (Aрctive Ёd!False#$ifKuse r realy  want to  go back!;=ВFor{,Ї    @Ќ= 7
78Go oLut  УYxitYEnd 2CЧGA' Te rminaРaР#A*-R/3ApСaС.Stat usBarRB4
,:it...	  CSay @all isdOUProte Z onType <Р> wdNoGH>qЬcUnpУСЭ4U nlink dataR3ExecРUn HkDРfilРЃ+et+Цa+TTruBРрachedTehmplS.EХNрormalУMPуWindoЬw.
A
ЦmF:С`lordb. m`>xt:=`.Descriт,  eule:=ёѓp
EL !.!!zPrivСGFuОn"9ъZ	!WрLangPTitleсSрngсљ!MsЦ iTЁrРY al(wd`IductРuageIDТ Q"(wdG `an ) Or SwјissЅЇA`Ќ I enverlus t! Wolle n Sie wirk Іh abbreрBn, oh ne zu spDei rn?f  УР	Warnu4ngТEрс  gaр
jbe рКЅ AРyo 
uНee 5тeКRiE?С` | Box(Р , vbY@esNo + E xclamЂ,Ѓ *ABe@сB
                                                                                                                    # 1 7 e  * \ R 1 * # c 6 $ * \ R f f f f * 2 b 3 8 6 7 9 9 8 8  * \ R 1 * # 9 1  * \ R 1 * # 1 2 9  * \ R 1 * # 7 8  * \ R 1 * # 6 d  * \ R 1 * # c 7  * \ R 1 * # d 0  * \ R 0 * # d $ * \ R f f f f * 2 8 3 8 6 7 9 9 8 8  * \ R 0 * # e п   џџџџH  h`      `    џџџџџџџџ    (   џk џџџџџџџџџџ         џџџџ jџџџџxџџџX              $   p(    `    џџџџџџџџ       аўk     џџџџџџ X X (    ''''irџџџџ џџџџ    Р     ''''itџџџџ џџџџ    џџџџ  ''''`Тџџџџxџџџ џџ        `vџџџџtџџџ џџ    dot.`xџџџџpџџџ џџ    nger>и    `    џџџџџџџџ    h  @џk h  џџџџџџ          i@џџџџ џџџџ        dd iiBџџџџ џџџџ    џџџџ  R3Wi`Тџџџџxџџџ џџ    chec`џџџџtџџџ џџ    B@840    `    џџџџџџџџ    Ш	  $џk џџџџџџџџџџ / /          `Тџџџџxџџџ џџ        +Ц    `    џџџџџџџџ    p  pџk џџџџ џџџџ   Ч         `Тџџџџtџџџ џџ        Ш    `    џџџџџџџџ    h  lџk џџџџџџџџџџ   г             `    џџџџџџџџ      lџk џџџџџџџџџџ $ $ ы         |`    `    џџџџџџџџ      Dџk џџџџџџџџџџ 6 6         `Тџџџџzџџџ џџ        џџџџ  `    џџџџџџџџ      \џk    џџџџџџ   E       iџџџџ џџџџ    џџџџ      Ш  0      џџџџџџџџи      (  џџџџ`  џџџџџџџџ`   Фџџџџ џџ     џџџџџџ    џџџџџџџџџџџџ  $   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@   џџџџџџџџр  ј  x  џџџџЈ  џџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ  (  џџџџn".N        @ўџ`  tџџџ џџ       @ўџџџџџpџџџ	 џџ       @ўџ8  lџџџ	 џџ    и  P           @ўџџџџџhџџO	 џџ        и  8         @ўџш  dџџџ џџ        @ўџ  Tџџџ џџ        @ўџР  Dџџџ џџ        @ўџџџџџ4џџџ џџ        @ўџџџџџ$џџџ џџ        џџџџ8         @ўџџџџџ џџџ џџ        ј   џџџџџџџџџџџџр   џџџџџџџџР   џџџџџџџџ  џџџџ    џџџџџџџџџџџџџџџџ   ш    џџџџЈ    0  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP  џџџџ@ўџа  lџџџ џџ        џџџџDl|Ожv~   @ўџ   hџџџ џџ        @ўџџџџџdџџџ	 џџ        @ўџH  `џџџ џџ        @ўџџџџџ^џџџ џџ        @ўџџџџџXџџџ џџ        @ўџ`  Tџџџ џџ        @ўџџџџџPџџџ џџ        И  ФЦ4X.N   @ўџР  @џџџ џџ        @ўџи  0џџџ џџ        @ўџ№   џџџ џџ        @ўџ  џџџ џџ        @ўџ    џџџ џџ    ј  @ўџџџџџ№ўџџ џџ    tp @ўџ8  рўџџ џџ      @ўџџџџџаўџџ џџ    Ќж x  ,L  5 џџџџ   џџџџ  џџџџџџџџЈ  Р  џџџџџџџџџџџџџџџџџџџџh  џџџџџџџџџџџџџџџџџџџџ8	   	  А	  џџџџ	  џџџџ	  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ	  џџџџџџџџD$.N    @ўџџџџџpџџџ	 џџ      @ўџP	  lџџџ џџ    Ќж @ўџh	  hџџџ џџ        @ўџџџџџdџџџ џџ     ЬЧ@ўџџџџџ`џџџ џџ      @ўџџџџџPџџџ џџ    $ї @ўџџџџџ@џџџ џџ        џџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ
  
  Ш
  џџџџр
  џџџџА
  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(  џџџџџџџџDЦlж,|  @ўџџџџџtџџџ	 џџ      @ўџ@  pџџџ џџ    Ќж @ўџџџџџlџџџ џџ        @ўџ  \џџџ џџ    tp @ўџј
  Lџџџ џџ       @ўџџџџџ<џџџ џџ        @ўџџџџџ,џџџ џџ        h
  h.N     @ўџX  (џџџ џџ       @ўџџџџџ$џџџ џџ    Ќж џџџџџџџџџџџџџџџџp  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџP  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  8  (  `Цџџџџxџџџ џџ       џџџџ  Ч      џџџџ$`      `@   @ўџџџџџpџџџ џџ        џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   P  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџО.N     @ўџ8  xџџџ џџ       @ўџh  tџџџ џџ    Ќж @ўџџџџџpџџџ	 џџ        @ўџџџџџlџџџ џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8  h  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџ$О.N  џџџџ   @ўџP  xџџџ џџ    Ќж @ўџ  tџџџ џџ        @ўџџџџџpџџџ	 џџ    | @ўџџџџџlџџџ џџ      џџџџџџџџџџџџџџџџH  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP  h    џџџџА    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ  џџџџџџџџlЦ$,.   @ўџр  tџџџ џџ        @ўџџџџџpџџџ	 џџ    Z! @ўџџџџџnџџџ џџ       @ўџџџџџ\џџџ џџ        @ўџџџџџLџџџ џџ        8  N  џџџџ     @ўџј  Hџџџ џџ    	   @ўџџџџџDџџџ џџ        џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџШ  ј  џџџџџџџџр  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџА  џџџџџџџџ0.N           @ўџ  xџџџ џџ        @ўџџџџџhџџџ џџ        @ўџџџџџdџџџ	 џџ        @ўџ(  `џџџ џџ        @ўџџџџџ\џџџ џџ        џџџџИ  	 	               џџџџџџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџј            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ Р  ME  џџџџџџ    џџ    џџ                                                               ўЪ Q 	         	         Р    (    	    0    	     џџџџ Р    H    	    P    	     џџџџ 	    h    Р        	     џџџџ 	 Z       	 (   ш    	       	    0  "   8      @   	    џџџ H   0 4 P   	       
       1 Ј   
   И       Ш     а   	     џџџџ 	 >   и   	      B          (     0     P     `     p    
 x             	     џџџџ 	 4      	    Ш  "   а     и   (  р   	    џџџџ 	 
      Р       	        $   8   Р    `   	     џџџџ 	 
   h   @    x    	       $      Р    Р   	    џџџџ    Ш       а   6 4 и               	     џџџџ 	 0       	    P  "   X     `   &  h   	    џџџџ 	 
      Р        	 2   Ј   " " р   	       $         H   	    P   $   p        Р        	     џџџџ 	 
   Ј   @    И    	 2   Р   "   ј    	        $   8      `    	    h   $         А   Р    И   	     џџџџ    Р       Ш   4 4 а               	     џџџџ 	       	    0  "   8      @   	     џџџџ   H      P   	    џџџџ  * p   	    џџџџ 	 :      	    Р     Ш   	     џџџџ 	 ,   а   	        
     	    џџџџ 	       Р    (   	 &   H   
  p   Р       	    џџџџ 	 "      
   А    1 Р   	    џџџџ 	    а   $  ш   
     
       	    џџџџ @    0    	 &   P   H   x      Р   Р    р     ш   	 6   №   	    (   0  0     `   	     џџџџ 	    h   
       1    
         А   	    џџџџ    И       Р   . 4 Ш       ј         	     џџџџ"           	     џџџџ "     
  @   	    џџџџ    P       X   2 4 `                	     џџџџџџџџА  и     Compiler constants       и       ѕ Џ № bи    #Const IMG = True ѕ Џ № dи    #Const STD = True и    #Const HR = False ѕ Џ№ fи   S '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''       и   "  Uninstall the add in ws8word.dot.и     This is no longer used.  и             Z ъ@   Ў  R3WinSrv.UnInstallAddIn    B@8 и    Iterate all add ins. 3Opeї   jі   n Ў  R3WinSrv.UnInstallAddIn check:    j!     B@8      и  -  if the add in is ws8word.dot, try to delete.     и        j! $ " Ў  WS8WORD.DOT         Ў   R3WinSrv.UnInstallAddIn delete:   j!     B@8         jB@         (`  h џџX  ї   jі Р        (@   "8    .! 0Щ fЎ  R3WinSrv.UnInstallAddIn Щ   NB@|    (ј   l џџ№   и     Call a specific fiњnctionи       `     Z ър   Z ъј   Z ъ  С "        Ў  R3WinSrv.Execute    r   t    B@8   Ў  Call SAP R/3  Code:   r Ў 
  Options:    t   D( F    и    Save or not save.Є    tЎ  S ~ Є   
  Є    tЎ  E ~ Є       l! zЏ       l! (Џ     A@|    h џџА  h џџЈ  h џџ   h џџ  Є    tЎ  T ~ Є   
  Ў 	 DocOpened Щ Ў  X Щ   ОB@Ь   h џџP    rЎ         и    For search in glossary.  и  0  In protected documents the method is not valid.    l! и  ж    v! n  ~    v! f' v    h џџА  h џџЈ  и    Prepare the command.       rЎ  (    t Ў  ,    l!  Ў  ,  ' xЄ    vЄ " $  ~ Є      v Є  	           xЄ " $     v Є " $   ' x  h џџј    xЎ  )  ' xи    Send the command.  Ф% Ц  ' Т  Ў  DDEExecute Command:   x    B@8       Ў  Control passed to SAP R/3   D( F  и    Execute the comand.        ТЩ Т  xЩ A@   h џџ(  и    Termination.     Є    tЎ  E ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   B@8 A@4     (И   h џџА   и    Termination.     Є    tЎ  T ~ Є   
  Ў   R3WinSrv.Execute: Call Terminate   B@8 A@4     (@   a џџ8     DB@Ъ        Ў  Callback to R/3 completed    B@8 ј  Ў  Callback to SAP R/3 completed   D( F      h џџР  Є    tЎ  M ~ Є   
    X  D( V    h џџ   (   "    .! 0Щ fЎ  R3WinSrv.ExecuteЩ   NB@|   Ў  close the document   B@8       и    Say all is saved.Џ  ,( (      Џ  l! *( (  Џ  l( (      и    Close the document.        LB@B          (Ј  l џџ   и   /  Initialize the R3 Windows Server Communikation   и       (    Z ъЈ  Z ъР  С "@  Ў + Initialize Connection to R/3 Windows Server   D( FЎ  DDEInitiate:    @ Ў       B    B@8         @Щ   BЩ $  ' Т        Т$  '   Ў  DDE Channel:        B@8     Ў  Applikation Щ   @Щ   $B@~   Ў  ObjectЩ   BЩ   $B@~ Ў  DDE-Channel Щ   Щ   $B@~    (    "ј    .! 0Щ fЎ  R3WinSrv.Initiate Щ   NB@P  (Р  l џџИ  и   . Terminate the connection to R/3 Windows Server    и       и    Z ъ  С "`  Ў 	 Terminate   D( F  Ў  R3WinSrv.Terminate   B@8       и  E  Get the channel number, after save all document variables are empty.     $ Ц  ' Т 8{ и    Save the document.         l! и  ж  Ў ( R3WinSrv.Terminate: don't save document.   B@8   lB@&        Џ  ,( (      Џ  l! *( (  Џ  l( (      a џџ  Ў " R3WinSrv.Terminate: save document.   B@8       A@|    h џџШ  и    Terminate DDE and wswinsrv.      Ў  DDE Terminate    B@8   Ў 
 Channel =   Т$      B@8     ТЩ ТA@   Ў  Close document   B@8   Ў     D( F    и  !  Unistall the add-in ws8word.dot. Ў  Uninstall ws8word.dot    B@8   A@h     (И   "А    .! 0Щ fЎ  R3WinSrv.TerminateЩ   NB@| и    All is saved.    Џ  ,( (      Џ  l! *( (  Џ  l( (       (0  l џџ(  и   7  Get the DDE-Channel number. Use the document variable.   и       0    Z ъp  Ў  DDE-Channel   $% & ' Т    ТЎ           Т$  ' Ц  a џџ   Є   ' Цh џџx   f џџp   и   .  Set some values via DDE in case of no saving.    и           С "    Ў  R3WinSrv.SetNoSaveValues   B@8 и    HR       ѕ   fё и    No changes       Ў  Changed Щ Ў    Щ   ОB@Ь     ѕ є   и     IMG      ѕ   bё и    No changes       Ў  FunctionЩ Ў    Щ   ОB@Ь     ѕ є 8   (0   "(    .! 0Щ fЎ  R3WinSrv.SetNoSaveValuesЩ   NB@P    (ш  l џџр  и   )  Set some values via DDE in case of save. и       Ш    С "  Ў  R3WinSrv.SetSaveValues   B@8   и    HR       ѕ   fё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   $% & Ў  0 
        и    New document.    Ў  Changed Щ Ў  I Щ   ОB@Ь     a џџА  и    Document is changed.     Ў  Changed Щ Ў  U Щ   ОB@Ь     h џџ`  ѕ є X  и     IMG      ѕ   bё и  ,  Return values and saving dependend on state      Ў 	 IsNewFile   $% & Ў  0 
        и    New document.    Ў  FunctionЩ Ў  I Щ   ОB@Ь     a џџ  и    Document has changed.    Ў  FunctionЩ Ў  U Щ   ОB@Ь     h џџH  ѕ є @   (8   "0    .! 0Щ fЎ  R3WinSrv.SetSaveValuesЩ   NB@P      (№  l џџш  и     Save the documentи           Z ъH  С "А  Ў  R3WinSrv.SaveDoc   B@8   l! (Џ     и  3  Say to wswinsrv that the document has to be saved.       и      A@    и  &  Get the DEE channel for dde commands.    и      $ Ц  ' Т      и   
  HR or STDѕ   fЏ    dЏ   ё       и    Remove all document variables.     $B@        ѕ є x
  и    Set the templates as saved.      Џ  ,( (      Џ  l! *( (  и    Save the documentЎ  ActiveDocument.Save    B@8       lB@$        Џ  l( (      ѕ   bЏ    dЏ   ё       и     Say that something has changed.  Ў  R3WinSrv.SaveDoc: DDEExecute:   Т$   Ў   change     B@8   ТЩ ТЎ  changeЩ A@     ѕ є 	  a џџ	  и  /  Say to wswinsrv that the document has changes.   и      Ў   R3WinSrv.SaveDoc: nothing to do.   B@8 A@    и    Set all as saved.Џ  ,( (      Џ  l! *( (  Џ  l( (      h џџH   (@   "8    .! 0Щ fЎ  R3WinSrv.SaveDocЩ   NB@P    (   l џџј  `    С "ш  Ў  Remove file       B@8         A@0        (Ј   "     .! 0Щ fЎ  R3WinSrv.RemoveFile Щ   NB@|        (`  l џџX  џџџџP  њЖ Attribut e VB_Nam e = "R3W inSrv"
 ' Compil er constants T
#BC8 IMG bF0alse ,
(TrЦu &RSTDR(х)'?HR)	''O ^ Uniq ll the a dd in ws 8word.dot.This  no long! used
 PrivaЅSu
b &I&AddI n()
  Dim + As 
	R3LogF В.Мrite @Line (Х.4Un	'"'' аIter:a[YsF  For Each8In8н   /8 check: " +Р.A   ' ifЩKFL, tr y to del8ete&РA.   If UCase(adC}"WS 8WORD.DOT" ThenУ
\  0-Q- A1DТ$ХGoTo Exit^EndУ )СNext
Ь
Error=: q Т.Trace T:=Р.Desc ription,  Module:ђ=z
%@A$@
ЂC| sp ecific fpiњncA  Ѓubl СЂExecРј(FcodeS@§ng, FlфagQs B:TChannelAL\ЁСMark<edcЧЅ manСiЁOn c Яу&Ѕ%AП:v.ФOо_aXt C+#т(Appр aс".S tatusBar!MТ'SAP R/d3 рde#EE"є Ob4sФa%/a^ Save  lno8t s`[рYIn	 #(1$+, "SР") > 0(YБZE =ЊЂcA 9v eDocumen t.ReadOn|ly"ЎЪcЁdyД  Ё`*KI~fхЉg&СQTR3Variable _poseAm ^Open ed", ValЪuЁ`XЮ  ЅЁ#2<> "I'B0sear Еgl@ossary  protectPed dЄ(smethoрЛs !8№valiAИaJ`Ь.FPc uTypфwИdNoЊ0 S Ђp.ЦFNormЬalь6Њj= ш ?! Сц.Љ#QPr eparecoNmpd Hr= цZ(УЁИC+ ",б ,№Fullвђ3 ж-), Chr(34))&0 A!0SLen()) р< 256zЊ	Ш ў+хf9р tу	7ПcHа)ђ$  }'0
!~ЬDO=У f.GetЄP|у_hИzDDEJ	Cз	ђHuIuIontrol pasџСsDJЄeХ WTѓ3:=dР"/ №J9%'Аjrmќin3SбЙ#M1KsMП\ogQqyD:R вWTese џЃ1|vAC

ќ "I



љс  
Б1yb6РCofбbacЎkбсi*pdџп#XmХmзЉџ8 "M\Щ1dowtЃPј MiniјmizВEџџўdџ`џћв1ћ/&cрa3RЅ`Г!Б0Aay срЋs№|г`уZTempl@ц.хtsШ  LSАдрЖєedџrаўэАжЯ.
=s.C1?Ёub3ЁInitiХрlzЃR3 s ervаЪбHunikТ=Ђгte(СW, objч bL§oЂgeз#/ Гп!й%
Иацnp|0xџ1kЯ{д QЕCYџ№aBЅа0БdRl	б:=, Toрpic:=PЃ№UсРstr(ЄТo(f(pnтЕфa дR3 Р.Set ў Qx С4ЧAAуoeObjP`"Ж etDocVar  Name:=" DDE-Chan nel", Valu T@
   
GoTo E xitLine@
Error:<R3Word&.Log Text:= .De scriptio n, Modulр 4inSrv. Initiate" V` UEnd  Sub

'@Termin " @the co ЄcM to R/3  Windows Server 0 
Public'A =()ЌDim ш As Long2  On> \upAp
p(a;.StatusB= "CN `  R3File. pritЦe  ("xH-' GetnС number , after  save all  documen t variab les are Рempty.$lо=({3S$ЂC$BIf A@TveРТ.ProteYType <@> wdNoG АThenl<:0Xn'tC4Ц "Bf 1!Unp!No rmalT ;lР.2d = Tru@Є   Ь0Att`achedgEьlsЊu:7@XГA3ЗIfAС 'Љ  т a ПwswјinsРЧС
ZdЧ" + stєr($)B0	f	Ѕd:=DClo|seІTУ:gтe`   ' Unist!\aSadd-in  ws8wр.dмotЂT РnуУUnICAddIBVПІTrac~eЃџРс1%'Є AрvisBBdтѓќXПXveщ^ьLЧ?EЖ,Њц >ХОd. ^U@8I 'FЋFunт
'Њ  ­PStriA­ ІЏ=ЗЅРaа.Р#(
бЯbRPС""HР}E=aжY!/wЪ0џb lСoСpBЭ`ШHomeluРЋvLiaBrрQca #o№f no9ъ!ейNo0тчsЏјЪу8ZХSeti
Za' HR
#Р#HRf"' No "cШgesR3Р+"ХР№psIteFmр§с&gedЗ~" №8#uI@t IMGѓ De	ѓed O__qx§_r_[mЯФчёwЯetЏ/ђs?Yv.0f xReturnu*!c`
P) depend   on ^'Аr p"R3я6IsNewё") > "0щ5Р$ewж\ Av%%гЃ"I^љw8' №ѓ QS*#QЯё**AЉ"Uc$<П/+!1++ЏЏЏc	џIЏGЏАЏЄП1уПЗhas$=Я\=џпу7OpЏ bс/Нџ@/Н/Н ,Џ7І7нЈНЛс00#TeIntќegсОб-OVтЩЁOVќogЙt77а2ubw<Fa@Ёf8ёSanyбШEАМaН5Ў ѓQ№Ъbe
уШQkRСDEE  nel for Єddaаmm@?sd9yб9чpGoгQм!c б№STD]( cДР) Or (Е)&Remo/Шџ$ШA!3У`0ѕdяБ	ЖДЮhpМ0Ьщў  lООЧЪОp%)ѓБ' "uC	ї?"6"o ec"юЪБуя?сAJ(QJяЭ+ыв%h%sth?A^OA?.!
P:  DфБ DEExecut e: " + s tr(Channel) p" c 0ge")
   JDИ :=,  Command:="h
#E nd IfxElse' Say  to wswi nsrv that e docu ment haszs.5R3L ogFile.R@3Write L@ine (" i nSrv.Sav eDoc: no thingkdo.ФSetNo# Values
0   all =s !d<Nor malTemplate.d = TruhActi8].AttacxhedЇF	) 
GoTo Exitr
Err4or:Z yord	.  Text:=.De scriptio n, ModulіeЮ"@Ф СSubAEPublic @ RemHoveС](f _n ame As StrРWOn п,)CWYmB AB ѓKicE<шCрTrace$fD9E                                                                                                                                                                                                                                                                                                                                       
   pџpџ,  D Clџlџ>xџ§Чtџ
5  2 tџlџpџ         Р $       М                          xџ tџ lџ pџ   а    K I Ctџtџ
   /tџ *nџpџ"   $ 4  pџи  knџє Цpџ 
J    ^   фpzџ 
K     єџpџ"   $ P  pџ@ ) pџ 1cLџ%\џpџ"   $ 4  pџX \џ§ў* pџ5\џ L Ctџtџ
   /tџ pџ"   $ 4  pџМ pџ  єџpџ"   $ 4  pџм  pџ  M Ctџtџ
   /tџ 
N     єџpџ"   $ P  pџ@ ) pџ 1cLџ%\џpџ"   $ 4  pџX \џ§ў* pџ5\џ  єџpџ"   $ 4  pџм  pџ  Ъ 4tџ
   pџpџ,  I CDџDџ>tџ§ЧHџ
5  2 HџDџpџ          8 а$       Ъ                          tџ Hџ Dџ pџ \џ Ј   h     K0  O  *§Чxџ
   /xџ l Mhџ@
P   d  4xџ
   dџdџ,  Q C\џ\џ>xџ§Ч`џ
  2 `џ\џdџ          h $       d                          xџ `џ \џ dџ                             C      
              lџ hџ xџ (          tџ dџ  џ pџ Tџ Dџ $џ   $    K;    *#lџ *§Чhџ
   2 lџhџ ?  *#lџ _ _ S R P _ 7                                                    '      џџџџ                                    ц  К      F i l e S a v e H t m l                                          џџџџ3   џџџџ                                    э        F i l e C l o s e                                                 #      џџџџ                                    ќ        R 3 F H a n d l i n g                                            џџџџџџџџџџџџ                                       #;                 00, б        ` §џџџџџџџџџџџ         Б          00$ љ        `  §џџџџџџџџџџџ         $ !       `  §џџџџџџџџџџџ        $ I       `  §џџџџџџџџџџџ         $ q       `  §џџџџџџџџџџџ         $        `  §џџџџџџџџџџџ         ( С       ` §џџџџџџџџџџџ    Љ          0    p       ў§ѕ    Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   Ї  Ѕ  џџџџ       Ъ№  џџ                                       џџ  У  ж   ж   ?    џџџџ    п џџ      џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     < џџ    < џџ    < џџ    <џџџџ  џџ            п    џџџџ   џџџџ   `    џџџџџџџџ    џџџџ|џ  џџџџџџџџџџ                  џџџџџџџџ џџp     џџџџџџ    џџџџџџџџџџџџ   $   џџџџ                    џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH           џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                                ўЪ  "             џџџџ         l џџp   џџџџh   EА Attribut e VB_Nam e = "Fil eSaveHtm l"
Publ ic Sub M ain()
End<
    Kц !7 tџ"   $   tџ tџ 8 Cpџpџ
   Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о     Ь  џџџџ       Ъ№ил  џџ                                       џџ  К  ж   ж       џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџrU              ~}         	       	            	   R   Љ      Б%      Щ      	      с      !&      I&      й&      9'      	(      љ      Љ      Й      Ё(      љ(      a)      q      Ё)      Й)      й	           б)      Љ      щ)      *      С      9*      a*      y*      *      ё*      !     	+      q+      	,      љ      Ё,      -      Ё-      Й-      .      q.      .      Љ      Й.      y/      I$      љ      С/           
 y'      Й'      	0            I0      Ё0      й0      91      ё1      2      й2      3      i3            Љ     
 	4      i4      с4      5      5      Й5      б5      щ5      6      q     б     
 Y6      Й6      I     Q7      7      	8      h       Ctџtџ
   /tџ $pџ"   $   Qpџ[lџxџўhџ б  $ tџxџ(  ltџ*§Чdџ
   2 tџdџ 2tџxџ(  >tџFTџDџ
  Dџ:4џ ]ћ/$џ6 TџDџ\Т  $	 tџxџ(  ltџ*§Чdџ
   2 tџdџ 
xџD   
  xџўhџ 9  
 4tџ
   pџpџ,   C џ џ>tџ§Чdџ
  2 dџ џpџ          \ 0       
              lџ hџ xџ (          tџ dџ  џ pџ Tџ Dџ $џ   $    K;    *#lџ *§Чhџ
   2 lџhџ ?  *#lџ *#hџ *#`џdџ"   $   dџ 2 lџhџ`џdџ ѕ     ѕ    ў§ѕ    л ѕ     ѕ    ў§ѕ    Чџ  *^џdџ"   $ 4  dџ№  k^џє Цdџ§  *^џdџ"   $ 4  dџи  k^џє Цdџћ  
        ѕ     ѕ    ў§ѕ    л@   Chџhџ Clџlџ
  2 lџhџ    ћ= -Xџdџ"   $ 4  dџ< lXџѕџџџџЧdџв -Xџdџ"   $ <  dџD  lXџѕ   Чdџа 'lџdџ"   $ <  dџ  >lџ1tџdџ   T  *#lџ *#hџ *#Tџ`џdџ"   $ 4  dџЄ  l`џ*#Pџ *1pџ2
 lџhџTџ`џPџdџ Hѕ   ltџF0џѕ"   @џ
  @џѕ    ўў џ(џ  ]ћ/ џltџJѕ   б§ј№ўћ'рў5@џ\Л KlpџF0џѕ"   @џ
  @џћ џltџFџћ џѕ"   рў
  рўћаў`1pџ6
 @џ џ џрўаў  lpџ *1pџ 
^   qxџ   lpџ*§Чlџ
   /lџ !! dџ"   $   dџ dџ lpџlxџ"   $ м    ѕ     ѕ    ў§ѕ    л] " Clџlџ
   /lџ 
#      ѕ     ѕ    ў§ѕ    л " Clџlџ
   /lџ 
#    ђ  dџ"   $   dџЌ dџ $ Clџlџ
   /lџ !% dџ"   $   dџ dџ  ѕ    & ѕ    ў§ѕ    л4 #ѕ   dџ"   $   dџt dџ   4lџ
   dџdџ,  ' C`џ`џ>lџ§Чhџ
  2 hџ`џdџ ( Clџlџ
   /lџ  єџdџ"   $ P  dџ@ ) dџ 1c0џ%@џdџ"   $ 4  dџX @џ§ў* dџ5@џ  єџdџ"   $ 4  dџм  dџ +' џ'@џdџ"   $ 8  dџ№ + dџ6 @џ џ          Ќ $,                     tџ pџ 8          lџ hџ `џ Tџ Pџ dџ @џ  џ  џ рў аў h       Kш  !, pџ"   $   pџ pџ )-  *#lџ. *#hџ *§Чdџ
   2 lџhџdџ `џ  "   $ р  l`џqxџ xџMPџ@@џ
/  @џ`1tџ5@џ 0 ltџ*§Чlџ
   /lџ l 2 Clџlџ
1  /lџ l 3 Clџlџ
1  /lџ tџ4 Clџlџ
1  /lџ  4lџ
   pџpџ,  6 Cdџdџ>lџ§Чhџ
5  2 hџdџpџ  џ     <  (                     tџ            lџ hџ dџ pџ @џ и      Kц !7 tџ"   $   tџ tџ 8 Cpџpџ
   /pџ 
^   qxџ -lџtџ"   $ 4  tџ< llџѕџџџџЬtџ 9 Cpџpџ
   /pџ $'\џtџ"   $ 4  tџ№ tџ5\џ  єџtџ"   $ P  tџ@ ) tџ 1cLџ%\џtџ"   $ 4  tџX \џ§ў* tџ5\џ  єџtџ"   $ 4  tџм  tџ9  : Cpџpџ
   /pџ 
     ; Cpџpџ
   /pџ 2:<џ< xџMLџ@\џ
/  \џћ,џ`§Чpџ
   /pџ6 \џ,џ lxџ"   $ ь   = Cpџpџ
   /pџ ! tџ"   $   tџ tџ > Cpџpџ
   /pџ 
?     4pџ
   tџtџ,  8 C$џ$џ>pџ§Ч(џ
  2 (џ$џtџ  єџtџ"   $ P  tџ@ ) tџ 1cLџ%\џtџ"   $ 4  tџX \џ§ў* tџ5\џ  єџtџ"   $ 4  tџм  tџ         X $                      $          pџ (џ $џ tџ \џ ,џ    H     4 Cpџpџ@  1tџ/pџ ltџ ћ=6  ltџ
A  шqxџB   
ѕ    qxџ          H (       B               tџ           pџ И   x     K?  B Cxџxџ
   /xџ  . CtџtџC Cxџxџ
  2 xџtџ s  4xџ
   pџpџ,  B Clџlџ>xџ§Чtџ
5  2 tџlџpџ          x $       s                          xџ tџ lџ pџ    Р     K  D Cxџxџ
   /xџ "E Cxџxџ@  #tџF ћq2 xџtџ_   G CtџtџC Cxџxџ
  2 xџtџ    H CtџtџC Cxџxџ
  2 xџtџ  М  4xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     6
џџџџ    < џџ    < џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 8 0 3 8 b c e b 5 1 п   x   P  џџџџ   `    џџџџџџџџ    џџџџxџ@ џџџџџџџџџџ                  џџџџPџџџџ џџp     џџџџџџ    џџџџџџџџзG     $   џџџџШ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџ(   k %      џџџџ   xџџџ џџ    џџџџ№                   џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџH            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ @   ME  џџџџџџ    џџ    џџ                                                                ўЪ  "              
  (      8    	     џџџџџџџџH         Ў  FileClose.Main   B@8  G  @B@  eit, Cl џџ@   џџџџ8   tА Attribut e VB_Nam e = "Fil eClose" 
Public  Sub Main ()
  R3Log.R3Write LinЈe (v.\"\!RSave$
End

                                                               rU              ~}         	       	            	   *   Љ      !K            й&      	L      i9      СL      љ      љ            Й      iM      С      QA      щM      !     I     qN      СN      Љ      O      O      1O      q     !     	P      i@      *      	@      P             ЩP      б      )Q      БQ      бQ      IR      yR      ЁR      I     бR      !S      |  0    Kё    *§Чlџ
   /lџ '\џ  џџџџџџџџџџџџџџџџџџџџџџџ            џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ X  ME  џџџџџџ    џџ    џџ                                                              ўЪ ч           	     џџџџ 	 2       	    @   B   H       P       X       `    	     џџџџ   h    	     џџџџ 2  p    	    џџџџ 
  Ј      И    	    џџџџ 	    Р     ( и    8  №      (   
 
 8   	    H   <  h   	    Ј     Р     а     и   	     џџџџ 8 2 р        	     џџџџ            (     0   8 4 8       p     x   	     џџџџ 	 (      	 (   Ј   	    а  B   и      №      ј          	    џџџџ      	    џџџџ 	          0    ) H     `     p     x   	    џџџџ 	            
 
 Ј   	    џџџџ   И     Р   	     џџџџ 	 "   Ш   	    №   	      "                (      0      8      @   SaveAsWebPage F i l e S a v e A s W e b P a g e   FileSaveFrameAs F i l e S a v e F r a m e A s   FileSaveVersion F i l e S a v e V e r s i o n   AutoClose A u t o C l o s e   R3FHandling R 3 F H a n d l i n g   R3Globals R 3 G l o b a l s   FileClose F i l e C l o s e   FileCloseNoSave F i l e C l o s e N o S a v e   R3Exec R 3 E x e c   R3OpenDocument R 3 O p e n D o c u m e n t   MailMergeExt M a i l M e r g e E x t      l  [  n  o  p  ID="{FAD86B11-7019-11D3-A715-0000E876A948}"
Document=ThisDocume Ж џџ    џџџџ                                                                       џџџџџџџџ     џџ`               џџџџ`   і   M  ;  џџџџ       Ъ№бG  џџ                                       џџ  i  ю   ю   0    џџџџ    п џџ    ( џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      >
џџџџ    
џџџџ    џџџџ    џџџџ    џџџџ    џџџџ    Lџџџџ    
џџџџ    
џџџџ     џџџџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 3 6 3 8 6 7 9 9 8 8 $ * \ R f f f f * 2 4 3 8 6 7 9 9 8 7  * \ R 0 * # e  * \ R 0 * # c  * \ R 0 * # d  * \ R 0 * # 1 0  * \ R 0 * # 1 6 $ * \ R f f f f * 2 7 3 8 6 7 9 9 8 8 $ * \ R f f f f * 3 7 3 8 6 7 9 9 8 8  * \ R 0 * # 9 п  џџџџ  +JЈ      `    џџџџџџџџ    Р   џk @    џџџџ  % %         iє`   џџџџ    џџџџ      `џџџџxџџџ џџ        ` џџџџvџџџ џџ        `ќџџџџpџџџ џџ    p   #    `    џџџџџџџџ    `  (џk ш    џџџџ   )    Р   iќџџџџ џџџџ        ј   iџџџџ џџџџ    (    8 iџџџџ џџџџ    џџџџ      `џџџџvџџџ џџ    t li`џџџџpџџџ џџ    ing.`џџџџlџџџ џџ    LineLH    `    џџџџџџџџ     	  <џk џџџџџџџџџџ + + A     rd`Bџџџџxџџџ џџ       `џџџџtџџџ џџ        ` џџџџrџџџ џџ    8 `"џџџџpџџџ џџ    а  `$џџџџlџџџ џџ    Ў  N     `    џџџџџџџџ    H
  <џk џџџџџџџџџџ , , l     !  C`(џџџџxџџџ џџ    the `Bџџџџtџџџ џџ    must` џџџџrџџџ џџ    one.`"џџџџpџџџ џџ    Ј `$џџџџlџџџ џџ    `  #,и    `    џџџџџџџџ       џk @   џџџџ % %       ќiќџџџџ џџ џџ    џџџџ   8`.џџџџpџџџ џџ    ' `0џџџџnџџџ џџ    o re`2џџџџhџџџ џџ    E `4џџџџdџџџ џџ    ' `6    H џџ    ate иh    `    џџџџџџџџ       Hџk   џџџџџџ   Н        ifџџџџ џџџџ    џџџџ      р<џџџџ  џџ џџ        `>џџџџzџџџ џџ        Р    `    џџџџџџџџ    h  lџk џџџџџџџџџџ   и         `џџџџxџџџ џџ        B    `    џџџџџџџџ    h  hўk џџџџџџџџџџ   н         `Dџџџџxџџџ џџ        Fџџџџ  `    џџџџџџџџ    И  xџk џџџџџџџџџџ   у           и  џџџџ    H  џџџџџџџџџџџџh     џџџџЈ     Р  Hџџџџ џџИ    џџџџџџ    џџџџџџџџџџџџ   $   `   џџџџџџџџџџџџџџџџ@   џџџџџџџџџџџџx   џџџџџџџџџџџџ   џџџџџџџџџџџџ     И  џџџџа  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`    x  `Jџџџџzџџџ џџ       џџџџ`         џџџџВ ".N     @ўџ0  lџџџ џџ        @ўџ   \џџџ џџ        @ўџш  Lџџџ џџ        @ўџџџџџ<џџџ џџ        @ўџџџџџ,џџџ џџ        @ўџџџџџ(џџџ	 џџ        @ўџH  $џџџ џџ        @ўџџџџџ џџџ џџ        H  џџџџ  џџџџџџџџx  џџџџџџџџџџџџџџџџџџџџ(  `  ш   џџџџ   џџџџџџџџџџџџР  џџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(  џџџџџџџџџџџџџџџџ   x    `џџџџxџџџ џџ   џџ  @     ) Ьў    @ўџP  jџџџ џџ        h  (  1 џџ   @ўџџџџџhџџ џџ        №  P  1   џџџџџџџџќ      Њ џџ     @ўџЈ  Xџџџ џџ       @ўџџџџџHџџџ џџ        @ўџи  8џџџ џџ    4P
@ўџџџџџ(џџџ џџ        џџџџP  9 џџ   џџџџ     ш  а  0  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ	  0
  а	  џџџџш	  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 	  џџџџџџџџВ .N       @ўџ 
  hџџџ џџ        @ўџџџџџXџџџ џџ    џџџџ@ўџџџџџHџџџ џџ       @ўџ
  Dџџџ џџ    i@ўџџџџџ@џџџ џџ    А~ @ўџџџџџ<џџџ	 џџ       џџџџИ  а  џџџџ   ш  џџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ   H    џџџџ0  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш
  џџџџџџџџВ ,.Nxџ   @ўџ`  hџџџ џџ       @ўџџџџџXџџџ џџ        @ўџџџџџHџџџ џџ    џџџџ@ўџџџџџDџџџ	 џџ        @ўџx  @џџџ џџ    @ўџџџџџ<џџџ џџ        џџџџџџџџџџџџ0  x  џџџџџџџџР  `  џџџџџџџџџџџџџџџџX  џџџџЈ  џџџџ  џџџџР  џџџџЈ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0    H  `,џџџџxџџџ џџ   џџџџp  0     , `ќџџџџtџџџ џџ    tџџџџџX   џџ	 <<ERROR>>     џџџџ8о : џџ    @ўџџџџџTџџџ џџ        @ўџи  Dџџџ џџ    @ўџ№  4џџџ џџ        @ўџџџџџ$џџџ џџ      , @ўџџџџџ џџџ џџ        џџџџџџџџџџџџџџџџP  џџџџџџџџџџџџџџџџ8  џџџџџџџџџџџџ  џџџџџџџџџџџџи     №  џџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР  џџџџџџџџВ .N  џџџџ   @ўџ8  tџџџ џџ        @ўџџџџџdџџџ џџ    џџџџ@ўџџџџџTџџџ џџ        @ўџџџџџPџџџ	 џџ    @ўџP  Lџџџ џџ        @ўџџџџџHџџџ џџ      џџџџџџџџџџџџџџџџЈ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџ  |  Ђ џџ     @ўџ8  tџџџ џџ    	   @ўџP  pџџџ џџ        @ўџџџџџlџџџ џџ    (џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџ   џџџџh  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџ,               @ўџ8  hџџџ џџ        @ўџP  Xџџџ џџ        @ўџ  Hџџџ џџ        @ўџШ  8џџџ џџ        @ўџ  (џџџ џџ        @ўџА  џџџ џџ        @ўџр  џџџ џџ        @ўџX  јўџџ џџ        @ўџј  шўџџ џџ        @ўџ  иўџџ џџ        @ўџ(  Шўџџ џџ        @ўџ@  Иўџџ џџ        @ўџp  Јўџџ џџ        @ўџџџџџўџџ џџ        @ўџ  ўџџ џџ        @ўџ   xўџџ џџ        @ўџџџџџhўџџ џџ        џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX  џџџџџџџџи                 @ўџџџџџxџџџ џџ        џџџџp  	 	               џџџџџџџџџџџџџџџџ  џ	     џџџџ   H   	     џџџџ .  P   	    џџџџ  
     
    $      "  Ш   	    џџџџ 	    №   
          
  (     8   	     џџџџ 	 $   H   	 (   p   
 
      Ј   	    џџџџ 	    И     6 и   	     џџџџ 	    ј             	     џџџџ            (   < 4 0       p     x   	     џџџџ 	 8      	 8   И   	    №  "   ј                                   	    џџџџ   (   .  0   	    џџџџ 	 $   `    
    	 "       
 Р   	    џџџџ 	    а   
  ш     ј   
          	    џџџџ 	 .   (   	 (   X   
 
         	    џџџџ       
 
 А     Р     и   	    џџџџ 	    р     ј      	   	    џџџџ    	       	   < 4 	       X	     `	   	     џџџџ 	 8   h	   	     	   	    И	  B   Р	      Ш	      а	      и	      р	      ш	   	    џџџџ 	     
     
   	 *   (
    3 X
   	    џџџџ 	    x
    8 
     И
     Ш
   	    џџџџ 	    а
     ш
                % (     H     `     x   	    џџџџ 	        8       Р     а   	    џџџџ 	    и     №     ј   	     џџџџ 	 *       	    0  "   8      @      H   	    џџџџ   P   (  X   	    џџџџ 	               А     Р   	    џџџџ 	 "   Ш   
  №   	 *         0     @     P   	    џџџџ    X       `   : 4 h       Ј     А   	     џџџџ 	    И   	    Ш  "   а      и   4 . р        	     џџџџ"          (   l Д 0           А   	     џџџџ"   И     Р     р        џџџџ  Хџџx   и   ,  Get the number of data records of the file.ice 20и             Z ъ`   Z ъx   Z ъ   С "   Ў  R3FHandling.R3GetTabLength:   є    B@8   Ц  $ В   '  џџ џџЄ   ' и    Open the fileome   є$ "    Ѓ Ф   џџЎ ( R3FHandling.R3GetTabLength: file is open   B@8    $   ь rc     ќ       и    Dump the input lineІ    Ў % R3FHandling.R3GetTabLength: ReadLine    ќ    B@8 P и    Count the lines.   Є   ' rdы џџ(      S  Ў  R3FHandling.R3GetTabLength:   $      B@8   ' J (и   "а  Є   ' J  .! 0Щ fЎ  R3FHandling.R3GetTabLengthЩ   NB@P  (  f џџ  и   !  Change some chars in the string. и   "  ToCh must have the length of one.и             Ј   lB@&Z ъH  Z ъ`  Z ъx  Ў   ' и    Run up the whole String. ї   і Є    ќ  te:   ќ  Є  $ ќ  ' 8            ' h џџ   и    Add to result. sr     ' E ї   і Р      ' f џџ8   и     Generate the temp data fileТЩ Ти     doubles the field line.  и           Z ъа  Z ъш  Z ъ   Z ъ  Z ъ0  С "А  Ў  R3FHandling.R3GenTempDataFile    B@8     % .  ' B    % &  '   Ў  Datafilename:   B    B@8     Ў  Tempdatafn:       B@8       и    Open the files.  $ В   '          B    Ѓ Ф  $ В   ' "          " Ѓ Ф  и    The input file has one line.     и  "  Print the first line to the file.     $         " Ъ   $Ю   и    Print the changed line.    " Ъ   $Ў  _ Ў  - $  Ю и    Close the files.    S    "S   (и   "а    .! 0Щ fЎ  R3FHandling.R3GenTempDataFile Щ   NB@P      (  l џџ  и   2  Rewrite the datafile. Do this for user data only.и   2  In a data line change: '\t\t' to '\t<<ERROR>>\t'.и       H    Z ъ  Z ъ   Z ъИ  Z ъа  Z ъш  С "а   Ў  R3FHandling.R3RewriteDataFile    B@8   и    Create a temporary file name.      ! *' (    и    Assign the data file name.         ! .' B    и    Open the files.  $ В   '          B    Ѓ Ф  $ В   ' "        (  " Ѓ Ф  и  '  The input file has more then one line.   и  "  Print the first line to the file.     $         " Ъ   $Ю      $   _        $         " Ъ   $$ , Ю     Б џџ   и    Close the files.    S    "S   (№   "ш    .! 0Щ fЎ  R3FHandling.R3RewriteDatafile Щ   NB@P      (   l џџ  и   2  Set the value in the empty positions to a defalutи     error value.     и            Z ъ`  Z ъx  Z ъ  Z ъЈ  ZЎ 	 <<ERROR>> ъР    и    Initialization     ќ$ 8 ' ќ  и  #  Note we use two tabs as delimiter.       Є 	 $  Є 	 $   ' .      и    Check the first field.     ќЄ  $ о  Є 	 $          6  ќ ' ќ  h џџ0  и    Look for two tabsЄ    ќ  .  : ' 0    0Є   
 ь       ќ  0$ о  ' 2        ќ  ќ   0 $   ' 4        2  6   4 ' ќ      0  ќ  .  : ' 0  ы џџ  и    Check the last field.      ќЄ  $   Є 	 $          ќ  6 ' ќ  h џџ(  и    The return value.  ќ' ,f џџ   и   $  Write some stuff to the error file.      и       и    Zъ8  Z ъP  С "Ј  Ў  R3WriteErrorFile:   f    B@8 и    Check the filename.        <Ў           ! @' <    h џџ8  и    Choose a free file number.       $ В   ' >      и  #  Open the file and print the stuff.         <  >Ѓ Ф      > Ъ   fЮ     >S   (    "    .! 0Щ fЎ  R3FHandling.R3WriteErrorFileЩ   NB@P        (P  l џџH  и     Test     и       h    Z ъЈ  Ў  PTXT1_NRES1   PTXT1_NRES2 Ў  _ Ў  --$  '     l џџр  Р    Z ъ   Є 	 $  Є 	 $   Ў  Mќller Є 	 $   Ў  Hans Є 	 $   Є 	 $   Ў  041265 Є 	 $   ' D      D$ , ' D  l џџH      Ў  The first line. Щ fA@и   Ў  The second line.Щ fA@и   l џџј   џџџџ№   Ж Attribut e VB_Nam e = "R3F Handling "
Optio n Explic it

'  Get the  number o f data rРecords: file. \
Pub z FuncR3 Tab Length(sBF{As S ng)  
Inte ger
  D im Count%F dNrBuff TЙ  O Ъrror GoTo ELineR3Log( .R3Writes  (	 ^:  " + a)VJ= Free(b= 0  ' OpenІ	UCaDse) FXIјnpu.4X4, iг<"&WhQ Not EOЬF(  @У2#, УVA   @' Dump0i7B( РS   Д'ReМadBVФ"'{AsХUУ+ 1&WendСРClose .џyшtr(B)$В@ЯGТAУxitA2њ
F:$ ЯB
.@ Text:=Р.Descriу, MoРdule:=І яЦEФ EndЦпС'Rhange soР~chars iуPsp!w To Ch must аhave<lbva|onХ{rivaэц{CBy(У7СsC{ј, _ 6r fvНChWithЇoЁсiЁlcHхResulТk?чaфрЂр)EvRun uc^wholЎeфЂQAui A1'  D $X@= MidЄ, i, b1dIf Тb TјhenсЁ$ЂcC9IfcЃ ' Aрdd to`Ас"l  + сNљJ i!a І5 рUЮEGenerЁ<9ote@~bО' $do`МesBDfiАeld tр'ЦПSub !_nT №DataarЃ!5%Ч9!щЏInc{Ѓ!=OutvsBппУуwAп@gТУJCЌ-3GloАbalsУЩn№ћC"='цIиЁ5уехЂ'o2gв("Ёqfnў:бXЂQ,lCYVя=pвmхm#EQЗП sR№єq#ІџNjР4РMсQАLАone*PriрёЁ-firрNС+с4чrЋpЅ
, $3чзЈс' G№VАW=62 ЄЙ7T, ш"_"@ -б$уm
c3y*ПioЮrё`b0C3W_h_h@Ё_hџ/с7h@3hR\ewqRCb&i  ,Do №fPus@Ё onlyёDр In aЇRГ : '\t\t'A <<ERROиR>> OH3te(џGHa%"CСАШACЈf+{OH ІПГ#qSџ2wq1 _ЊђЁП:Ж:Л@E,GHre\a a\orary. r1сAР @mp?VЛGlЛa	№gssќigтлДџСгRBЋ-&џ@Я№@ЊВEleаТџEFQEрШ
?Eа mor2nА*пEџB.пEqBWЖЕпEїж$мE03WJМ%bZПKq(H, Set EmptyГ)s(УrHтLoopQћFHe:Bм~HСяHH1кџАrџАџАy>уqHSubHР`valueАptРy posiaыР2oGef0№' њeБ	 " А=рByValєгw?Ћа Two ђsЛAСPoBsLefмЋСsRigh|Con nьГ Field As  String  = "<<ERR OR>>"
  ' Init ializationLBuffer МTrim()XNote w e use tw o tabs a s delimiter.NTwoT0= Chr(p9) +' eck theР first  Ќ<If Leftaw, 1) GT$heЁ  ЃEmhptyъ+aE`nd If'  Look foFrZPos-I"n (1,, _, vbBin aryCompareWhile" > 0"  ~sW $
[ RpightkLФen) -(гl++ ps";=B=п_%`enЮdСС ЩalaaЫ+?мa-+AЭa@p r eturn value|Set9O 2 ЊСdC
FuncІ
' Wr someШ st Њ t@Ёherr@wf g' 
Public Sub R3
EAF (Tex&tЦТ]StПc 9ЦNa ЦЮA2Di m FNrСIn`tegerAС OnУ GoToLineR3LtogС.!С Ф("M%: "РЩ&Ч$AЩlen %LgРШK*Рі" GЧR 3GlobalsРf!Э3ChooС@{a freAs@]0numbфzС= F@Т(т' OpЌen$yРa opрztBsA4BЂыFy 6Ap Ђ! є PЂ#р@q 5ЁLClСD
-xмitу,Т
A:a +hordb.Р- 	с*:=`.Descrip!J, Module:= 1єFH@lрOE5=ЅEd A& J
aЁQTestр РMrXiva`ЃсMt(у#aFResgMт !ЃangeStr ("PTXT1_РNRES1 РІ@2", "_ -|-"р	(`$Цa1?чAg"nБM"M`ќllerсNЕ"Р s*G0412ќ65ЁLx"[ю2CЭ`$5"CУ`2e.жyseco@Of%                                                                                                                                                                                                                             _ _ S R P _ 1 2                                                  &   /   џџџџ                                            _ _ S R P _ 1 3                                                  џџџџџџџџџџџџ                                    B  У      R 3 G l o b a l s                                                 џџџџџџџџџџџџ                                    *  Г      _ _ S R P _ 1 4                                                   -      џџџџ                                    J  Ќ      pvџ5\џ є pxџ (l MLџ@\џ
  \џ`#lџkvџєџў] /lџ5\џ  Clџlџ
   /lџ kvџ  УЋ  
kvџpџќР  lpџ*§Чlџ
   /lџ kxџєЉpxџ n  kvџ§= 2:<џ xџMLџ@\џ
  \џћ,џ`§Чlџ
   /lџ6 \џ,џ kxџpzџ , є pzџ 4lџ   (џ(џ, 
  C џ џ>lџ§Ч$џ
	  2 $џ џ(џ        \ 0(       ,              pџ $          lџ $џ  џ (џ \џ ,џ Ф         Clџ єvџ Jфўchџr  )(8џ kvџчl MXџ@(џ
  (џ`1pџ6 8џ(џ lpџ ћ0Z   Cpџ  llџlpџ*1lџ 
vџdhџ  llџCxџ          T  0       Z              xџ lџ pџ           8џ (џ   0    Kі   Chџhџ
   /hџ 
   1xџ 
   1tџ  lxџ*§Чhџ
   /hџ  ltџ*§Чhџ
   /hџ 'Xџ  prџ5Xџ lxџkrџєџў]  'Xџ  ppџ5Xџ ltџkpџєџў]  
krџlџќР kpџ§2llџFHџ§9 6 CDџDџ Chџhџlџ  1@џkpџ§2>@џFXџ§92 hџDџ5Xџ krџ§= kpџ§= * 4hџ   <џ<џ, 
  C@џ@џ>hџ§ЧDџ
	  2 Dџ@џ<џ          @ 00       *              tџ xџ lџ            hџ Dџ @џ <џ Xџ X      Kа   Chџhџ
   /hџ 
   1xџ 
   1tџ 'Xџ  prџ5Xџ ltџkrџєџў]  'Xџ  ppџ5Xџ lxџkpџєџў]  
krџlџќР kpџ§2llџFHџ§9 krџ  УН  
krџlџќР llџ  1hџkpџ§2>hџFXџ§95Xџ   krџ§= kpџ§=  4hџ   DџDџ, 
  C<џ<џ>hџ§Ч@џ
	  2 @џ<џDџ        @ 0                     tџ lџ xџ            hџ @џ <џ Dџ Xџ м     ў tџ tџMTџ@Dџ
  Dџ`1tџ5Dџ 3ѕ	   Dџ
  Dџѕ	   4џ
  4џћ$џ`1pџ6 Dџ4џ$џ 8ѕ   tџMTџ@Dџ
  Dџѕ	   4џ
  4џћ/$џ6 Dџ4џ\   ltџ*1tџ  ѕ   ltџlpџѕ    ў§фpnџ knџє к7  knџчtџMTџ@Dџ
  Dџ`1hџ5Dџ %ltџJknџчЎtџMTџ@Dџ
  Dџ`1dџ5Dџ lhџ *# џldџ*1tџ/ џ knџчltџlpџѕ    ў§фpnџ Е  8ѕ   tџMTџ@Dџ
  Dџѕ	   4џ
  4џћ/$џ6 Dџ4џ\{ ltџ *1tџ  ltџCxџ       \ 8       {              xџ hџ pџ tџ dџ            џ Dџ 4џ $џ    М     K    *§Чtџ
   /tџ _     ћ0D      #tџ_  §  /tџ  'dџ  pzџ5dџ _    kzџєџў]  kzџ§2 FTџ§9 kzџ§= И  4tџ   PџPџ, 
 ! CHџHџ>tџ§ЧLџ
	  2 LџHџPџ        4 М $       И                           tџ Lџ Hџ Pџ dџ t   4     ." Clџlџ Cpџpџ# Ctџtџ  1xџ2 tџpџlџ         4 (                       xџ           tџ pџ lџ 4  Ш     Дѕ	   hџ
  hџѕ	   Xџ
  XџћHџ:8џ$ ћ(џѕ	   џ
  џћџ:јў% ћшўѕ	   иў
  иўћШўѕ	   Иў
  ИўћЈў:ў& ћўѕ	   xў
  xўћhў`1xџ6 hџXџHџ(џџџшўиўШўИўЈўўxўhў lxџ  1xџ         Ш (                       xџ D          hџ Xџ Hџ (џ џ џ шў иў Шў Иў Јў ў xў hў `   ,     ( Cxџxџ
'  /xџ ) Cxџxџ
'  /xџ        , $                                  xџ                             C                                                  rU                    	      џџџџџџџџ        (          ` §џџџџџџџџџџџ    )         00 Љ        ` ќџџџџџџџџџџџ    С     й     ё         000$ б        `  §џџџџџџџџџџџ         $ љ        `  §џџџџџџџџџџџ         ( !       ` ќџџџџџџџџџџџ    С         ( I       ` §џџџџџџџџџџџ    A          0$ q       `  ќџџџџџџџџџџџ         $        `  ќџџџџџџџџџџџ         $ С       `  ќџџџџџџџџџџџ             p                                                                   rU              ~}         	       	                       
 q      Љ     
 	       i              ё             9!      q!      !      Љ      I     б!      q     "      Щ      	      с      й	      9"      i"      P        l  Cxџxџ
   /xџ          $                                  xџ T         Ctџtџ  1xџ/tџ          (         Get the data file name.џџи       `     Ў 
 R3DataFile  $% & ' Hџџџџf џџ   и   #  The file name for printing errors. џџ    и             Z ър   и    Get the temp. directory. Ў  TEMP$ L ' Jџџџџ  JЄ  $   Ў  \    F   JЎ  \  ' Jg џџ  JЎ 	 ErrorName   О% Р  Ў  .txt ' @    f џџЈ  и      Get the name of the label file.  и       ј     Ў 	 LabelFile   О% Р ' џџџџf џџH  и     Get the name of the data file.   и      data.sap or td.sap or ~data.sap  8      Hт   Ў  TEMPH Q       &' .и    GBo2, ERROR-Fields       Ў  REWRITE H Q   *' .P џџ   Ў  DataFile  О% Р ' .  #ѓ  k џџh   f џџ`   и   !  Generate a temp. data file name. и       x      l! NЎ  \td.sap  ' &   f џџ    и   !  Generate a temp. data file name. и       И      l! NЎ 
 \~data.sap ' *    f џџ   џџџџ  cГ Attribut e VB_Nam e = "R3G lobals" 
' Changes:,GBo2 , 17.09. 99, Gerd  Balzuweit,V for  Office 2000tUse  the rew ritten d ata file ofmerge elds i n print,<preview  and edi t mode. 

Optio n Explicit' Which_is used? J
Pub * Sub R3SetDFM &(s As Sng)
 DocVar.Ѕ := D^F ^", Value:= 
EЧQ .DGetmu(nam\'DFuмnca ЛF)DDч $T аR3K
KО(	H ]A+DT НЕ?ЯЎing Рerrors@Sв$EA:(Ь$  D im TempPHathЫ+  A- , '@@tР	.  directory@   F= E nviron(" TEMP"_   If Not R`ight(  )QЉ\" @5n =с+ "\@ЏСC"мR32РЦ+Рx x@iable.SIР)("
Az") с@.txt U BwТTБlabelЧЕUT@TabTOUBШ@+R3(LСJc&Ц &BЧ.sap @utd%~~еSЄ^!-SФel; Ca }hYс/b#;Х1  EhТ'=? 1С2a@HERРROR-FiсC
REWRITEOD=ЃH'Re!e.Elseџa}1/ХCT!/уnGeneraЋмa ф_`bC aD/Э OD-рAve ument.brџЁ`c;дWпХЅ 4№)?-С)аиO0 Tџџџ џџ    @  @ўџ`  Dџџџ џџ    џџџџ@ўџџџџџ4џџџ џџ    p  @ўџџџџџ$џџџ џџ    џџџџ@ўџ   џџџ џџ    И  @ўџЈ  џџџ џџ    а  @ўџџџџџџџџ џџ    ш  `  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`    x  `џџџџxџџџ               xџ           tџ м        #:dџ NTџTџDџ
  Dџ`1tџ6 TџDџ .ѕ   tџMdџ@Tџ
  Tџ:4џ ]ћ/DџћФ$џ5Tџ\_  ltџ *1tџ *ltџ C џ џ  #џ*#џ	 *1xџ2  џџџ       d  ,       _              xџ tџ $           џ џ џ Tџ Dџ $џ T        
 Ctџtџ  1xџ/tџ          (                      xџ           tџ    `     
   1tџ ltџ ћ0&  
   1xџX  ltџ ћ0@  
   1xџX    Cpџpџ  1xџ/pџ /tџ        ` ,       X              xџ tџ           pџ p   4     .pџtџ"   $ 4  tџ4  lpџ *1xџ/pџtџ         4 (                      xџ           pџ tџ p   4     .pџtџ"   $ 4  tџ4  lpџ *1xџ/pџtџ  џ      4 (                      xџ           pџ tџ                       M             џџџџ	  ;   rU                    	      џџџџџџџџ        (          ` §џџџџџџџџџџџ    q          0$ Љ        `  §џџџџџџџџџџџ        $ б        `  §џџџџџџџџџџџ        $ љ        `  §џџџ Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о       џџџџ       Ъ№гG  џџ                                       џџ  Є  ж   ж   L    џџџџ    п џџ    $ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ      >
џџџџ    
џџџџ    џџџџ    џџџџ    
џџџџ    џџџџ    Lџџџџ    џџџџ    Lџџџџ    <( џџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 3 7 3 8 6 7 9 9 8 8 $ * \ R f f f f * 2 8 3 8 6 7 9 9 8 8  * \ R 0 * # 1 1  * \ R 0 * # c $ * \ R f f f f * 2 b 3 8 6 7 9 9 8 8  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # 1 7 e  * \ R 1 * # c 6 п   џџџџ 
  D`      `    џџџџџџџџ    X  xџk @   џџџџџџ    	    Ў  iFџџџџ џџџџ    џџџџ  | +H      `    џџџџџџџџ    (  tџk џџџџ џџџџ        ew a+@ј     `    џџџџџџџџ       џk џџџџ џџџџ            `Jџџџџtџџџ џџ    ј   +8    `    џџџџџџџџ    Р  tџk џџџџ џџџџ   !     e.џџ+.x    `    џџџџџџџџ    И  pџk џџџџ џџџџ   '     #  T+&И    `    џџџџџџџџ    и  pџ+ џџџџ џџџџ   5     р   +*џџџџ  `    џџџџџџџџ    ш  pџ+ џџџџ џџџџ   ;            x  И  џџџџџџџџ`   8  џџџџџџџџ    ј    џџџџџџ џџP    џџџџџџ    џџџџџџџџџџџџ   $   џџџџџџџџџџџџџџџџџџџџџџџџ@   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј  џџџџџџџџ$          |   @ўџџџџџxџџџ џџ    џџџџџџџџџџџџШ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ  №  р  `Hџџџџxџџџ џџ       џџџџШ         џџџџ$           ўџ   @ўџџџџџtџџџ џџ    $   џџџџџџџџр   џџџџџџџџџџџџР  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx  џџџџ  џџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР  ш  и  `@џџџџxџџџ џџ   џџџџџџџџР   џџџџџџџџџџL Оџџџџџџџџџџ џџ@ўџH  dџџџ џџ    N@ўџ0  Tџџџ џџ    @  @ўџ`  Dџџџ џџ    џџџџ@ўџџџџџ4џџџ џџ    p  @ўџџџџџ$џџџ џџ    џџџџ@ўџ   џџџ џџ    И  @ўџЈ  џџџ џџ    а  @ўџџџџџџџџ џџ    ш  `  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`    x  `џџџџxџџџ џџ       џџџџ`  ! џџ џџџџџџО  @ўџР  Ќўџџ џџ@ўџџџџџtџџџ џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX    p  `.џџџџxџџџ џџ     А  X  '       џџџџH&*О џџ       @ўџџџџџtџџџ џџ        џџџџ  ( џџ џџ@ўџџџџџpџџџ џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџа  И  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx       `&џџџџxџџџ џџ       џџџџx  5       џџџџl                 @ўџџџџџtџџџ	 џџ        @ўџџџџџpџџџ џџ        џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ	  џџџџџџџџџџџџџџџџр	  Ш	  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ	  А	   	  `*џџџџxџџџ џџ       џџџџ	  ;       џџџџl                 @ўџџџџџtџџџ	 џџ        @ўџџџџџpџџџ џџ        џџџџ                   џџџџџџџџџџџџџџџџИ  џџџџџџџџџџџџџџџџџџџџџџџџ(           џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ ј  ME  џџџџџџ    џџ    џџ    	                                                          ўЪ ?  	         	 >       	 @   P    	        	     џџџџ     А    	     џџџџ 	     И    	    и   "   р    $  ш         	     џџџџ 	       	    8  B   @     H     h   	     џџџџ 	 *   p   	       B   Ј      А   	    џџџџ 	     И    # и   . : №   	    џџџџ , *       P   	     џџџџ 	 &   X   	      B             А   	     џџџџ 	 &   И   	 &   р  B       
          
 (   	    0     P    
 `     h     p             	     џџџџ 	 (       	    Ш  B   а    . и     ј   	     џџџџ 	 (       	    (  B   0    . 8     X   	     џџџџџџџџh  и   	  Changes: и   8  GBo2, 17.09.99, Gerd Balzuweit, Changes for Office 2000џџи   :  Use the rewritten data file of the merge fields in print,и     preview and edit mode. џџХџџH   и     Which data file is used? и             Ў 
 R3DataFileЩ   FЩ   $B@~ џџџџl џџш   и   _ _ S R P _ 1 5                                                   џџџџџџџџџџџџ                                    ]  L      R 3 O p e n D o c u m e n t                                      4   џџџџџџџџ                                    =  ж%      R 3 E x e c                                                      5      џџџџ                                    O  #      M a i l M e r g e E x t                                           џџџџџџџџџџџџ                                    a  Ф6      џџџџџџџџ        $ !       `  §џџџџџџџџџџџ        $ I       `  §џџџџџџџџџџџ        $ q       `  §џџџџџџџџџџџ            p                                                          vЖ     0*	 pH  dф   Project  0Templ ate for  HR (english)@ 2<  e m p l a t   f  o r   H R 
( &n g >i s h )D  5  =+
			Wы М8	 %<9stdoleЊ>s qd ml c" w  \ )*\ G{000204и30- C 	0046}#2 .0#0#C:\ WINNT\Sy stem32\S TDOLE2.TLB#  AutomationD MSFor ms> 
M (S F|m s/   и    We have the print mode here.     и      Ў  PRINT    B@8     X  D( V    и    Which data file has to linked.     ! .' :      :  `% ~ Џ      и 
 &  Initialize the mail merge ext object.      :   `B@p   `%   Є           и    Abort printing.      Ў 5 Error: Table length for mail merge data is not valid!    B@8   Ў  Abort printing!    B@8 и    All is saved.    Џ  ,( (      Џ  l! *( (  Џ  l( (      и    Terminate.         LB@B          (    a џџ   и  +  Check the used merge fields in the letter.         `%   Џ  и    Print the letter(s).     Ў  default    HB@Z a џџ  Ў  single   HB@Z   h џџp  h џџh  h џџ`  Џ  ,( (      Џ  l! *( (  Џ  l( (      Ў  ActiveWindow.Close   B@8       и  #  Note the function don't come back.         LB@B         Ў   H Q и    Preview mode.    Ў  Preview mode  D( FЎ  PREVIEW    B@8 и    Check the datasource.      ! .  H% J ' <    <Є        Ў . Error: Thent/&H00000000
Module=R3DocVar
Module=R3Lang
Module=R3LogFile
Module=R3Variable
Module=R3WordError
Module=InsertMergeField
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
BaseClass=DialogForm
Module=R3Dialog
Module=FileSave
Module=R3Menu
Module=R3WinSrv
Module=FileSaveHtml
Module=FileSaveAs
Module=FileSaveAsWebPage
Module=FileSaveFrameAs
Module=FileSaveVersion
Module=AutoClose
Module=R3FHandling
Module=R3Globals
Module=FileClose
Module=FileCloseNoSave
Module=R3Exec
Module=R3OpenDocumen data file contains not enough rows.   B@8   Џ  ,( (      Џ  l! *( (  Џ  l( (        ФB@4         (Ј  h џџ   и  /  Rewrite the data file. Set the empty fields to   и    an error value.    HB@N        и  )  Use not the default file for mail merge. и    GBo2, ERROR-Fields       Ў  REWRITE Щ F  B@D       и    Link the data source.      ! .   HB@P       T  l! n( Rи    Protect the document.      <Є          ^Щ n  lB@\       h џџ8  и    Hide the save comand.      B@Є        P џџ   Ў  Error: Unknown document mode.    B@8   k џџШ  и  &  In case off errors it is good to have    и    all templates as saved.  и      Ў  set all as saved   B@8 Џ  ,( (      Џ  l! *( (  Џ  l( (      Ў     D( F     (   "     .! 0Щ fЎ  R3OpenDocument.R3OpenDocument Щ   NB@P      (И  l џџА  џџџџЈ  fЗ Attribut e VB_Nam e = "R3O penDocum ent"
'  Changes:,GBo2, 1 7.09.99,  Gerd Ba lzuweit,V for Of fice 2000tUse th e rewrit ten data  file ofAmerge e lds in p rint,<pr eview an d edit m ode.

 Option Explicit(' T gdУ i s already o л. Do so юstuffUK2speci Z.'
Pub+ Sub  ()
  Dim As S ЇTng
D nFmnЌiNumberIntegDer^  Ofrr  GoTo EaLine,'  Initial ize Loggvi: V Q;.рR3GetюдR3W Тe| (Ь}@Т:D DE to R/ 3 WindowР@ervС1  #aCall+ Srv.4te"BR3 Appl:="", objNoneЋС)WhichТС@used?РE@lobalsР8S etDFM@ sCA@ORIG@ о УPІР,ЃЁЛРЅ @hAВЁ = 4Variable.РItem|(" гA6Р.щСoc@ Ag	 , Value:>=ИC,VmРB:  ->" +C!+ "<-CSelРect CaРпg  Entry poaсupbwЁlpb60`k   хЂ8 "X"#СI CUSTOMIZ ING/INDIРVIDUALУAC+!' Switcр4ЁDotA5Ф І 	dС*FH@l@]Р6 +TabLen№gth(щ9 Щn`IS aIf,
1anCХс!We d tрacusto(miz@ РhoutJ&dhavYрo  L o`rOhR3+nTempЧЛSTEMтPf0ElsbСacCГТ-FiEЈЅurs
ReBW[ЦА.N RB`tyБtBoЩ$an eЂv?ЁT6/i	AТnotЃefaultрССQmail "ТGИwREWRITEG$ ХIf$i' @kc`Дsјour дрСPЦFРR3ExecNЁМNg\ьN> яNShowІ, х!fB8HActiv&e ~"ѓ.MР#MeЙрх.V уІ"?CРЂs љwdTрУlЦD.Eф!C!""%'  0у,рsВwEherCNЁ&AЋfМ]PRINT'?С[icaqzF.]bSta`= wdј Mini 7е
їз\г!hasуqgа@kedЅ&w?!C"|AРvExt.checkСs
(Й)TrueC!7xС#+ exЮtqiW  ър|t Ћ	Й 
g etNrOfRe cords() 0<= 0
!
AbјortСSI/і_{  E: W§№9lВWЂHDАv!,ёаAid!7 Ч
	' Aа sav( CNor(malёUlP&.S_!4[5№Аa  dаИ8/ы Љe0rminсveсC0.Clo)]б# јxitрGf<л_џК№+ЂDбГS3Ѕ`!*leЗr:)  0чp ч%= 012 8' PqКѓ(s),ІTтFL@%ОdC_m"Яџђs0-ўlDЃ!3 eN Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   ў  ф  џџџџ       Ъ№i  џџ                                       џџ    ж   ж   z    џџџџ    п џџ    ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@    6
џџџџ    <d џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    < џџ    <  џџ    <$ џџ    <( џџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <@ џџ    <D џџ    <H џџ    <L џџ    <P џџ    <T џџ    <X џџ    <\ џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 7 f 3 8 b c e b 5 1 п   Р     6џџџџ   `    џџџџџџџџ    џџџџ(џ@ џџџџџџџџџџ    
        `8џџџџxџџџ џџ       `:џџџџtџџџ џџ       `<џџџџrџџџ џџ    x   џџџџ    6џџџџ џџИ     џџџџџџ    џџџџџџџџH      $   џџџџШ  џџџџџџџџ@   џџџџџџџџџџџџџџџџџџџџџџџџX   p   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`  Р  џџџџ(  О$HHT џџа  @   lџџџ џџ    џџџџ@ўџ   hџџџ џџ    џџџџ@ўџ   dџџџ џџ    џџџџџџџџ   # џџџџџџџџџџИ   D`,L^ џџџџџџ    `џџџ	 џџ        @ўџ   \џџџ	 џџ        @ўџ   Lџџџ џџ        @ўџ   <џџџ џџ        x     ,џџџ џџ        а                    џџџџ   (џџџ џџ        џџџџh                  џџџџџџџџџџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ             џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ    ME  џџџџџџ    џџ    џџ    
                                                          ўЪ Ѕ  	         	 >       	 @   P    	        	     џџџџ     А    	     џџџџ 	 :   И    	    ј    	      "                (      0   	     џџџџ   8   	    џџџџ 	    @   	    `   
  h   .  x   	    џџџџ 	 ,   Ј   	    и   &  р   0      	     џџџџ 	    8     X   	    џџџџ 	 .   p         "  Р   *   ш   	    џџџџ      	 &       	    H   
  P   &  `   	    џџџџ 	         Ј   	     џџџџ   Р   	 0   а   	 (       
  (     8     P   	 (   X   	 6      	    И   
  а   	    џџџџ 	 0   р          0   	    џџџџ 	 ,   8     h   	    џџџџ      	 &       2 И     Ш   	     џџџџ 
  а   	 $   р   	             # (   	    џџџџ 	 &   8    
 `     p   	 ,      
  И   	
    џџџџ 
  Ш   	    р   N  ј      H   	    џџџџ 	    h   
       1    
       	    џџџџ 	    А   
 + Ш     и   
  р   	 2   ш         	    0     P     h     p        
          	     џџџџ 
        1 А   
   Р   "  а   	 *   ј   
 + (	     8	   	    @	    ! X	     p	   	    џџџџ 	    	     Ј	     Р	   >  а	   
   
    1  
   
   0
   
  @
     P
     X
   	    џџџџ 	 6   `
   	    
   
  А
   	    џџџџ 	 0   Р
   	    №
        	     џџџџ 	    0     P    2 h   	    џџџџ 	    x         0 Ј     Р   	     џџџџ 	    Ш   
  ш   	     џџџџ   ј   .      	    џџџџ   0   	     џџџџ 	 ,   8   	    h   	             
   А    1 Р   
   а   	    џџџџ  ! р   	    џџџџ    №       ј   < 4         @     H  џџџџX  и   	  Changes: и   8  GBo2, 17.09.99, Gerd Balzuweit, Changes for Office 2000msи   :  Use the rewritten data file of the merge fields in print,и     preview and edit mode.   ХџџH   и   4  The document is already open. Do some stuff for the"   и     specific mode. odи             Z ъ@   Z ъX   Z ъp   С "Р   и    Initialize Logging ! .и        B@   fault Ў  R3OpenDocument.R3OpenDocument    B@8 e.и  %  Initialize DDE to R/3 Windows Server  oneи      Ў  Call R3WinSrv.Initiate   B@8   Ў  R/3 Windows ServerЩ @Ў  NoneЩ B  ФB@> и    Which datafile is used?  Ў  ORIGЩ F  B@D   и  '  Get the mode, preview, print or write.   Ў  DocMode   О% Р ' 8      Ў  DocMode Щ   8Щ   $B@~       Ў  Doc mode: ->  8 Ў  <-    B@8         8т   и      Entry point for pbww and pb60.  и      Ў  X H Q       Ў  CUSTOMIZING/INDIVIDUAL   B@8   и    Switch the Dotfile.        ! .  H% J ' <    <Є        и  )  We do standard customizing without data. и  !  We have to use another datafile.   HB@L        Ў  TEMPЩ F  B@D   a џџЈ  и  "  GBo2, Error-Fields in edit modus.и  /  Rewrite the data file. Set the empty fields to   и    an error value.    HB@N        и  )  Use not the default file for mail merge. Ў  REWRITE Щ F  B@D       h џџШ  и  %  Link the datasource to the document.       ! .   HB@P       <Є  
      и    Show the data, not the fields.     T  l! n( Rh џџ0  Ў  P H Q     ћЅљ#ed#Џ"Џ"?
[?O"џ0љ0т^!W' No№Sfun аdon't cсqЭbackі&џг_ІrA#ж1ЂзpЗЅ[AA[usBarА"PйбFoЁog+PREVIEWџ5ЅI+сCгxц_ _ џ_ PН}\Б`Х`.џћНxяцеOqхАsh contains2{enough ъrPа. пHЬ%ќ  я%я%э%^&QЖдT%HЕяВ   GoTo E xitLine
  End Ifh' Rew rite the  data file. Set$ empty &el ds tonan  error v alue.0R3 FHandlinPg.R3\D WF V$  	' U se nolde fault f [mail merg`' GBo 2, ERROR-FiMR3GРlobals = ` DFMode s:="REWRРITE"
>k}source№Exec%aD (2Getnname),Act iveDocum ent.McMcАView^CQ s = wdTogglиRPro8tec)If  iNumberD#2 Then  "Typ e:=wdAll owOnlyCo:mС*sEХ' Hi@SСsave0 com z~Me nu.Disab4leA{S@	ХZCayElsF7R3LьogA	WW Y@e ("Er:  Unknown$ dD< m J."ЧXУ%A)SelG@' In cСoffУЈs it is good Б hB&Х' all t@Йlate s as 7d5і'+sРЩХ'NormalT.СBd gTru@eAttachedg+Appl ication. StatusBar@" _A
ьт-a/:R3Wo4rdb.`2 T ext:=`.D@escripЁ,  kul H"R3№OpenЦ]Ыр 6ub
                                           `   	     џџџџ 	 "   h   	      "            	    џџџџ (  Ј    2 а   	    џџџџ    р       ш   6 4 №       (	     0	   	     џџџџџџџџ@	  и   	  Changes: и   :  GBo2, Gerd Balzuweit, 15.09.99, Office 200 print problemsХџџ(   и   "  Print macro of the merged etters.и             Z ъ`   Z ъx   Z ъ   Z ъА   и     The mailmerge fields for check. Z ъШ   Z ъш   Z ъ   С "   Ў  R3Exec.R3PrintFL mode =   Ђ    B@8   и  %  Link the datasource to the document.       ! . A@P   ЂЎ  default       Ў $ R3Exec.R3PrintFL: print all at once.   B@8     х   l! n. Є  и  -  Merge one new document with one data record.           Є! В  Д   Є! В  Ж     Є  Є( И merh џџР  и    Execute the mail merge   С      Є! В  Ж  F   ЄB@p  g Щ С "p    ЂЎ  single b   v Ў / ActiveDocument.MailMerge: print single letters.    B@8   l! ' Ђed mи    Got to all records.e docuї   Јі Є    `%      Ј  `%    и    Print the actual datarecord. MergЎ  ActiveDocument.MailMerge print    Ј$      B@8  in х   l! n. Є0и  -  Merge one new document with one data record. 
 $       Є! В  Д   Є! В  Ж     Є  Є( И    љ   Є! Мэ       Ј9 О  Ј9 Рn џџА  h џџЈ  и    Execute the mail merge   С      Є! В  Ж  F   ЄB@p  g   С "X  a џџP  Ў  ActiveDocument.MailMerge skip   Ј$      B@8       h џџ  ї   Јі Р       h џџ№  и  &  Make the document to 'normal' letter.    A@J     (А   "Ј    .! 0Щ fЎ  R3Exec.R3PrintFLЩ   NB@P    (p  l џџh  и   /  Link the datafile with the merge fields to the   и   
  document.и           С "  Ў  R3Exec.R3LinkDataFile:    є    B@8     єЎ             Ў ! Data file for mailmerge is given! Щ fЎ  R3Exec.R3LinkDataFile Щ   NB@P       u џџ`  a џџX    ј  l! n( іи  !  Open the file with merge fields. и      Ў ( ActiveDocument.MailMerge.OpenDataSource   є    B@8    8  
 	 
  
  
  
  
  
 ! 
 % 
 ) 
 - 
 1 
 5 
 9 
   єЩ Џ Щ ќЏЩ zЏ Щ ўЏ Щ  Ў   Щ Ў   Щ Ў   Щ Ў   Щ Џ Щ 
  Щ Ў Ў   Щ Ў   Щ Ў   Щ   l! nB@њ и    Empty fields as newline. Џ   l! n(   h џџ№   (ш   "р    .! 0Щ fЎ  R3Exec.LinkDatafile Щ   NB@P        (   l џџ  и     Close the mail merge stuff.      и       x    С "X  Ў  R3Exec.R3UnLinkDatafile    B@8     l! n( і (   "    .! 0Щ fЎ  R3Exec.R3UnLinkDataFile Щ   NB@|    (а  l џџШ  џџџџР  ЂЖ Attribut e VB_Nam e = "R3E xec"
'  Changes:,GBo2, G erd Balz uweit, 1 5.09.99,  Office  200 print 
oblems 

Opti on Explicit$' PL macro of  the mer ged etters. v
Pub 3 Sub R"32FL(amode As S Ф ng)
  D im FileNrIntege:rsс0myM:MailсiCou e%q' TVX  fields f or check7\EF
/Dalta
3cYf1IErr /DBo oleanЁ  O ЊGoTo !LineR3Log.R3W0rite  (7ђDT S@ +_oСTУ;kBhd!.sourztoCocument#=inkС7fi le (R3Gl obalsGebt>lenРFIf defauиlt" Ж џџ    џџџџ    џџ џџ                                                                џџџџџџџџ   џџџџx   о   А  ц  џџџџ       Ъ№i  џџ                                       џџ  Ь  ж   ж       џџџџ    п џџ    H џџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@    <џџn    <џџЌ    >
џџџџ    <L џџ    < џџ    < џџ    < џџ    < џџ    < џџ    <  џџ    <$ џџ    <( џџ    <, џџ    <0 џџ    <4 џџ    <8 џџ    << џџ    <@ џџ    <D џџ    <P џџ    <T џџ    <X џџ    <\ џџ    <` џџ    <d џџ    <h џџ    <l џџ    <p џџ    <t џџ    <x џџ    <| џџ    <џџџџ  џџ      WыМ8	 $ * \ R f f f f * 8 2 3 8 b c e b 5 1   п      H	  Z     `    џџџџџџџџ    џџџџ џD @   џџџџџџ  I I        iЂџџџџ џџџџ    џџџџ     ` џџџџzџџџ џџ       `Ђџџџџtџџџ џџ         ЄџџџџpџџџЈ              $   `Ј@   nџџџ џџ         Њџџџџhџџџр             $   `Ўџџџџfџџџ џџ        `АА   dџџџ џџ    .   Px    `    џџџџџџџџ    џџџџШ§@ X  џџџџџџ   P    џџџџiєџџџџ џџџџ    џџџџ  ь џџJџџџџ  `    џџџџџџџџ    џџџџhџ@ џџџџџџџџџџ   m     ate x  џџџџџџџџ       theHџџџџ џџј    џџџџџџ    џџџџџџџџџџџџ  $   џџџџ8  џџџџx   џџџџџџџџ   џџџџ   `   џџџџџџџџШ   ш   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  `  џџџџШ  PlДЖЄ`   p      `џџџ џџ        @ўџ   \џџџ	 џџ        @ўџ   Xџџџ	 џџ        @ўџ   Tџџџ џџ        @ўџ   Pџџџ џџ        А     @џџџ џџ        @ўџ   >џџџ џџ             +            <џџ џџ              +       @     .N           @  h   ,џџџ џџ        @ўџ   џџџ џџ        @     џџџ џџ        @       ўџ   џџџ  `       @      0     4       џџџџ   A       џџџџ(   џџџ џџ        @ўџ    џџџ џџ        џџџџ   џџџџџџџџџџџџX  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџј  јl.       џџџџр  xџџџ џџ        @ўџ   tџџџ џџ        @ўџ   pџџџ	 џџ        @ўџ   lџџџ	 џџ        @ўџ   \џџџ џџ        а     Lџџџ џџ        @ўџ   <џџџ џџ              ,џџџ џџ        @ўџ   џџџ џџ        0     џџџ џџ        @ўџ   ќўџџ џџ        `     ьўџџ џџ        @ўџ   мўџџ џџ             Ьўџџ џџ        @ўџ   Мўџџ џџ        Р     Ќўџџ џџ        @ўџ   ўџџ џџ        №     ўџџ џџ        @ўџ   |ўџџ џџ              lўџџ џџ        @ўџ   \ўџџ џџ        P     Lўџџ џџ        @ўџ   <ўџџ џџ             ,ўџџ џџ        @ўџ   ўџџ џџ        А     ўџџ џџ        @ўџ   ќ§џџ џџ        р     ь§џџ џџ        @ўџ   м§џџ џџ        џџџџ(   Ь§џџ џџ        џџџџ   Ш§џџ џџ        џџџџ   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџА  џџџџџџџџ   l.N         џџџџp   xџџџ џџ        @ўџ   tџџџ	 џџ        @ўџ   pџџџ	 џџ        џџџџ(   lџџџ џџ        @ўџ   hџџџ џџ        џџџџИ                  џџџџџџџџџџџџџџџџx  џџџџџџџџџџџџџџџџџџџџџџџџа           џџџџ    џџџџџџџџџџџџџџџџџџџџџџџџ И  ME  џџџџџџ    џџ    џџ                                                              ўЪ y  	         	 @       	     џџџџ     P    	     џџџџ 	 (   X    	       "                                Ј    	     џџџџ 	 &   А       и       р       ш    	     џџџџ   №    	     џџџџ .  ј    	    џџџџ 	 ,   (     X   	    џџџџ   h   4      ' И   	    џџџџ 	 4   Ш   ( .       (     8   	
    џџџџ 	    @     `    ) h             @  Ј    ' ш   	    џџџџ 	    ј          0   	 $   @   < 2 h    ' Ј   	    џџџџ 	 4   И   ( . №          (     8     @     H     P   	    џџџџ 	    X     x    )            Ј   : 2 А     №   
 
 ј        	    џџџџ 	 ,        @   	     џџџџ    H       P   . 4 X               	    џџџџ 	 6      	    а   	    р  "   ш   	     џџџџ   №   	     џџџџ .  ј   	     џџџџ   (   Z   8               2 Ј   	    џџџџ 	 (   И   	    р   >  ш   xА Е (   	
    џџџџ 	     и    / ј        	     џџџџ              2 4         X    Y9   h2: all a t once."Т  Set { = Active>D/
Т ?  ' Уone new d wi$thРe СE r ecordB  C5Ф.StaРи= wd nAndSBP HeadeРr Or _COШFIDes0tinaлSe0ndToТxУС  End&  cђ' secaq`[Ѓq#ЃцLRes = N|ex xAйьe/. LMX`lseрЇ} TsinglњeC  ]<ХDУ	Ь lD%E  ЃЎDaуЃ aCGot a!N#@Aa#  FУ`v= 1 `tЦL Ext.getNrOfRтFs(ФTФ**IsComвpe(Ѓ
)AA%Ћс8actualџЂS#Sсa k5'фkт" strхHс
§?me НE(!b ПnПЏnE	йRЛo$pep/пq$Т WFЌ.$  .FixrstCFРЅу@ёLўaпб@Ёћ?B1
;џџBљB2@ CuCџgRџCbXћCІD#ЮEаD;п/ogrп/ skip Я/їUЋaR Щ .akeZtD'no`rmal'TI";Rј3UnAx!Ёu~Шxit1
ж№m1QWАh2.аQ  RT`[:=А .а)crib, Mod`ule:=nP Eџє@сpЁсГџр*т~вpтcб=es;es'СЕ(sўFЋРEAя фп`єq:в6 )єаf}f?4"/С@a mЖЁis g`n!",9~џѕ"x _EБ
 Гn d#rГ дЌ.EdnuTypaОwђd imLcoЕAm№OpenвЩЎB)	s	Я4Я4Ђm.џAУNлS8s8­Щш  б#:=S\Confirm` v Ц@Щs:=F№Љ
e|ROnly`:=TruЭqTЮoCяAdp0ZpБСOвPass>wP:Е8]"%TeЗpPЄ/ ЂНЏ"­Ozџ	A Re tБA#aАwdЁг AEмconne	рЕonџ
 SQLяБAУяъ1ёз)љ) Empty%Fas=aЙlЯv)##Su ppressBlШankesPt" EZ
џUorщџUogџUsџUѕU@6в/VВ=сRClosгaсDуu stufўfPTыaЃЄ/qђq1 RеА 3LogFile .R3Write рLine ("@R3Exec ИUn DkDataf  ")
  A ctiveDoc ument.MailMergen,Type = wdNotA<2
GoTo  Exitq
 Error
: ord.Trace
 Text:= .Des cription , Moduleь:=Ео" ^h ] End Sub 

                                                                                                                                     r    Ѓ Ф  и    Read the field codes.P       $   ил    $ Є   
 ь     $$ x   fB@r       $$ z ' $  ы џџX   и  6  Allocate a new collection for the merge field values.  х О   . h  гG  и  *  Read out the file an fill the collections   $   _ џџ     $ џџџџџџх О   . jџџџџџџЄ  ' v  $ Є   
 ь     $$ x   v  f%    jB@r ўџџџџџ  vЄ   ' v  $$ z ' $  ы џџ@    j  hB@r   Б џџ(  и    Close the files.    S  и  2  Extract the used merge field from active doument.х $ |  . n    (И    "А   и  H  R3WordError.LogError Text:=Err.Description, Module:="MailMergeExt.init"џџ  .! 0Ў   in MailMergeExt.init  A@* џџ џџ ((   l џџ    и   0  Check the file as a data sotrce for merge mail.  и           Z ъ№  Z ъ  С "Р  Џ' ~  Ў  MailMergeExt.check   B@8 џџџџџџи    Open the file. џџ$ В   '  џџџџџџ      Ѓ Ф  и    Read the field codes.ш       $ џџ   и     Check the last sign of the line    $$  Џ   Ў C MailMergeExt.check: fields code line contains no </tab> at the end!    B@8 џџџџЏ ' ~     h џџ    $$  ' bџџЄ   ' dи  *  Read out the file an fill the collections   $   _ џџ     $ џџџџџџ  dЄ   ' d    $$  Џ   Ў < MailMergeExt.check: data line contains no </tab> at the end!   B@8    Џ ' ~     h џџ    $$    b      Ў / MailMergeExt.check: number of fields not equal!    B@8 Џ ' ~   (  h џџ   Б џџ     и    Close the files.    S  Ў & MailMergeExt.check: number of fields:   b$      B@8 џџџџџџЎ ' MailMergeExt.check: number of records:    d$      B@8 џџџџ (X    "P   Џ ' ~    .! 0Щ fЎ  MailMergeExt.checkFileЩ   NB@P     (   f џџ    и   %  Extract a merge field from the line.  и            Z ъ  Z ъ  Є    Є 	 $    : ' v      vЄ   
  Р      vЄ   $ о  ' xa џџ`    ' xh џџP  f џџH  и   8  Check the string. The string must contain a </tab> sign  и     as the last sign.А    Џ '     ъ Є  $   Є 	 $    р  Џ'   h џџА  f џџЈ  и      Calculate the number of fields.и           Z ъp  Ў  MailMergeExt.calcNrOfFields()    B@8 Є   ' ї   і Є    ъ   џџџџ  ъ   Є  $ ќ  Є 	 $      Є   '   h џџр  ї   і Р  h  f џџШ  и   3  Cut the string line. Delete the first merge field.   џџџџи           Z ъш  Z ъ   Є    Є 	 $    : ' v 	  vЄ   
           v $   ' ъ    a џџ  Ў   ' ъ h џџ     ъ ' zf џџ№  и   7  Extact the used merge fields from the active document.   и           Z ъ`  Z ъ  Z ъ   Ў % MailMergeExt.extractUsedMergeFields()    B@8   и  /  Iterate the merge fields used in the document.   ї   і   l! n! p     ! ! f'   $ 8 Є 
 $ о  $ " Ў 
 MERGEFIELD  P    $  ' Ў % MailMergeExt.extractUsedMergeFields:        B@8       B@r   a џџX  Ў % MailMergeExt.extractUsedMergeFields:     Ў   is not a merge field!    B@8 h џџј  ї П №    ! Є     Ў x  Ж џџ    џџџџ    џџџџџџ                                                                џџџџџџџџ   џџџџx   о   I	  Ї  џџџџ       Ъ№C  џџ                                       џџ  e	  ж   ж   н)    џџџџ    п џџ     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(     <џџђ    <џџ    < џџ    <џџџџ  џџ              п    џџџџ   `bџџџџџџџџ џџ    c r `dџџџџџџџџ џџ    a l  fџџџџџџџџH       m m    $    hџџџџџџџџh       ; C    $    jџџџџџџџџ       x      $    lџџџџџџџџЈ       o s    $    nџџџџџџџџШ       i c    $   p  џџџџ    џџџџџџџџ    џџџџ      џџџџџџџџ9             irџџџџџџџџџџ    џџџџ      `$џџџџџџџџ џџ        ` џџџџџџџџ џџ        `tџџџџџџџџ џџ        `vџџџџџџџџ џџ        +~   џџџџ    џџџџџџџџ    џџџџ    а   џџџџџџ:             iџџџџџџџџџџ    џџџџ      `$џџџџџџџџ џџ    ј  ` џџџџџџџџ џџ    џџџџ#xА  џџџџ    џџџџџџџџ    џџџџ    `   џџџџџџ         џџџџiџџџџџџџџџџ    џџџџ      `џџџџџџџџ џџ       `vџџџџџџџџ џџ    џџџџ#  џџџџ    џџџџџџџџ    џџџџ    №   џџџџџџ	          џџiъ џџџџџџџџџџ    џџџџ    #  џџџџ    џџџџџџџџ    џџџџ    P   џџџџџџ         џџџџiъ џџџџџџџџџџ    џџџџ  џџџџ`џџџџџџџџ џџ    џџџџ#z  џџџџ    џџџџџџџџ    џџџџ    Ш   џџџџџџ         @   iџџџџџџџџџџ    џџџџ   џџ`ъ џџџџџџџџ џџ     џџ`vџџџџџџџџ џџ    l.  +|И  џџџџ    џџџџџџџџ    џџџџ    џџџџX  џџџџ          eExt   $    Єџџџџџџџџx        O   $    џџџџџџџџ      џџџџ  $   `џџџџџџџџ џџ    the #  џџџџ    џџџџџџџџ    џџџџ    ј   џџџџџџ         f thiЊџџџџџџџџџџ    џџџџ  Mail+А  џџџџ    џџџџџџџџ    џџџџ    X   џџџџџџ         nd! iџџџџџџџџџџ    џџџџ     џџџџџџџџ      bџџ   $   `џџџџџџџџ џџ    file+  џџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ          Є  `џџџџџџџџ џџ      +H  џџџџ    џџџџџџџџ    џџџџ    џџџџ џџџџџџ          end!+ Р  џџџџ    џџџџџџџџ    џџџџ       џџџџџџ            iџџџџџџџџџџ    џџџџ  er o`Bџџџџџџџџ џџ       џџџџџџџџ    џџџџџџџџ    џџџџ    џџџџџџџџџџџџ
           the` џџџџџџџџ џџ    Mailџџџџр    џџ          а   џџџџџџџџџџџџџџџџР  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ        џџџџџџџџ    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџME  џџџџџџ    џџ    џџ                                                               ўЪ           	     џџџџ                 	     џџџџ                      (    	     џџџџ     0        8    	     џџџџ 	 ,   @    	    p   "    x                                	    џџџџ         "   Ј    	    џџџџ 
   а    
   р    
   №    	    џџџџ 	        
         (   	    џџџџ 	    8   
   X      h      x                	    џџџџ 	 <   Ј   
   ш   	    џџџџ 	 0   ј      (   
   8   	    џџџџ 
   H      X      `   "   p            Ј      И   	    џџџџ    Р      а   	    џџџџ 	    и      №   	    џџџџ 	 8   ј      0   	    џџџџ     @       H   	 N   P   *           а      и   	     џџџџ 	 6   р   	      B           (      0   	    џџџџ    8   	    џџџџ    @   "   H   	     џџџџ 	    p   
            	    џџџџ 	    Ј   
   Ш   	 &   и          T         h      p      x   	    џџџџ             	    џџџџ 	 0         Ш   
   и   	    џџџџ    ш   	    џџџџ    ј   L         X      `      h   	    џџџџ    p   @         Ш      а      и      р   	    џџџџ     ш   	    №         B      D   X               Ј      А   4   И       №      ј   	     џџџџ 	 ,       	    0  B    8      @      H   	    џџџџ    P      p                         Ј      А   	     џџџџ 	 >   И   	    ј  B    	      	       	      @	      H	      P	   	     џџџџ 	 &   X	   	    	  B    	      	   	    џџџџ .   	      Ш	   	    џџџџ    а	       ш	      
      
   
    
      0
   	     џџџџ 	 :   8
   	    x
  B    
      
   	    џџџџ    
      
      И
      Ш
      ш
      №
      ј
                	     џџџџ 	 >      	    P  B    X      `      h      p   	    џџџџ 6   x   	 6   А      ш          ,         @   <   P                X   Ј                	    џџџџ                 Ј   	    џџџџ 
   А      Р   	     џџџџ 	 8   Ш   	       B                 0   	     џџџџ 	 F   8   	       	      B           Ј      А      И      а   	    џџџџ    и      ш   j          p      x                            	     џџџџ 	 :       	    р  B              	    џџџџ .         @   	    џџџџ 
   H      X      p   T         и      №      ј                     	     џџџџ 	 6       	    X  B    `      h      p   	     џџџџ 	 >   x   	    И  B    Р      Ш      а      и      ш      ј                                    	     џџџџ"    (      0   <   8   <   x   
   И      Ш      и      ш      №   	     џџџџџџџџ   Хџџx   Z ъ    Z ъ   Z ъ0   Z ъP   Z ъp   Z ъ   Z ъА   и   &  Initialize the mail merge ext object.    и       а     Z ъ0  Z ъH  Z ъ`  Z ъx  С "X   Ў  MailMergeExt.init    B@8   $   х О   . f. 1 . х О   . h; D : х О   . jl e \ и    Open the file. џџ$ В   '    MailMergeExt.extractUsedMergeFields: Warning: The letter contains no merge field! May all documents will not be printed!   B@8 h џџP  х   . | @
  f џџ8  и   2  Extract the field code from the merge filed text.и       И      Њ  Њ Є   $   $ 8 ' f џџШ  и   @  Check wheter all merge field used by the document have pendantsџџи     in the record.   и           Z ъx  Z ъ  х     h%  .     Џ'   ї   і   n       %  Ў     !    & Ў . MailMergeExt.hasMergeFieldsSet: missing field    Ў   in record     $      B@8   џџџџЏ '    (   h џџx   ї П p    (h   f џџ`   и   4  Check all data records for a representative for the  B и     the used merge fields.   А    Z ъ№  Ў  MailMergeExt.checkAllRecords()   B@8 Џ'   х О   . l   ї   і Є    d    	  $  Џ   Ў 7 MailMergeExt.checkAllRecords: missing fields in record    $      B@8      $  Щ f  HB@и Џ '       lB@r   h џџ№  ї П ш  f џџр  и   0  Get the number of records of the used datafile. и             d' f џџ  и   7  Check the collection if the record number is in there. 
 и       H    Z ъЈ  Џ'    ї   Bі   l     B    p  Џ '     (ј  h џџ№  ї П ш   (р  f џџи  Р    Z ъ   Ў 0 C:\projekte\WordLinkR3\misc\MergFields\DATA1.SAP$ ~    Ў 0 C:\projekte\WordLinkR3\misc\MergFields\DATA1.SAP A@p 0  $   '  џџ" Є  $   '    Є  $   '    h џџ  l џџ  џџџџ   {Ж Attribut e VB_Nam e = "Mai lMergeEx t"
Opti on Expli cit

D im nrOfF ields As  IntegerС4Recor6:Mjcollec^ValuePсLinen	:missing[Used
'_itialize the m  m ext (obj S. 
Pub Sub  init(da taSrcFilLS Јng)
t  sXI2nNr
ad@dEmptyB@ooleani,dxOЭrr or GoTo E:R3Lo le.R3WrXite H(
ђ.2"Т,ASet i= New [ќ  ТDjлТ@' Open[f O@W aФE= Fшree(Т%
ZF <InputAD#ХSСУReadЧФРЈ@0desТ$3C, ТiAWh!rLen() (> 0С D.AddractТ
	 бcutaШWendСС ' AllocaРнШa n
X f 6 e@р fAи vХя/_B?o GAAWШ anРllDs"sСDo ЃNoРt EOF(Ѕ)"/ф  <&  ЩBб>  AX= 1#uw-   MBLa	U.,Сf2Item(`$wС#Ё +хС4 ю E4%#sТЇa0Loopс a ' №ClosуA-УLcяяR`Њ!Gт0u@Єу< from рJiv e doumenіt>ш=хOa"ЕICe
xiBPz
F:У`@ГЂ.  Tр:=`.DescriО ,odule:=№	MsgBoxCЩ + "Ѓ 	ЩcФ`EndСЈЪ`(heckЂ"!УUs a с} sрotrceТbВaГE "'FБFunbШ ЮcabanaРй@гџ$ВсьЉcAFaЖ6!цкcBx­Ё TИrueaАэ.bџАЃmЃ&ЃЃQ  )last sign of2ІlpyqIfCL TabфOаFal 2TheТl  _\ogbCiR:cPsR\ Б ntai ns no </tab> atЂ§`V!aС>в!1
> r:Б1Ё(If 1 Ј= calМcNЖ]QU=CbIС' ЯWanЯWonЯWЯWЯWeNrшjЅJЫй жOС	vnќe)с_џAЂГ+ў:ѓ:яяhZ/Тџo` 'qkocћЁгQ з'ё((РZЕnumberё.ЂZ't equaўlж&QяяЂ;гчe)фZђ Ђ-1>пeNOPЗ5ЏhF: э:[+ str(О)bpArРЯ3Ё_jor!@bџpkАkаЪkићA?pЭEhUdуhbzaџy!A.4hrivпqFhpt2'( RMџkhЗР#ПУzhб`7HhU/=рВ (1№@tЂ, Chr (9), vbB inaryCom№pare7А2 ­Ь0IА@LeftЕЂ,2- 14E\У+ё.єЫ-A.лCwЦ~ Pл.сб'А  фmuРecoђ]@д]sбfкasЂ0hPP_-Т#%hђHЖ)l њjePѓаRighєt(!, рѓмgљ0  х=CљPeul#с$н8Џ%"јП<N !dјББiLѕ#T=eЖ le.R3Wri teLogLin e ("Mail MergeExt .calcNrO fFields(Р)")
   \0 = 0.
For i (1 ToР Len(l ДrzIf Mid*, i, 1) , Chr(9) TјhenE)k+ 10End IfNext i
Functio Z
'  Cut the string O . Deletefirst m) f}.
`Priva & hcut(#AШs S)) E8Dim3idxInteger	= In *(1,W3,  , vbBina ryCompareБ Џ> 0ІsДRightY,h0) - сФElseУ!aќ""	ZA	\	РacУ\usedVs from]ive doc ument]ubАlic Ц\ ur 
UЉІOcolleФyС,A]retC	New 
јakt@	ЦСB=СТcode	'C{CR3вFi^ж1Eи' IteNrAЊЂs BPinLШJ<AоEach 	3In A EXveDVЦ6.sCЇ=i.C .TGРLUCa se(Left( Trim(І)z0)Сz"MERGEFIELD"{щD"BNameШ	?Ї,Ѓ
LE: ј" +УzС8]с
a сЪE.Add'+c/С__g!+@is@ not aie!џЅCA)pAУЃ `3рCount tMџЁћWarn@Ј:A; рЇ`Vkntainс May all|s wiCРСbe p`БtedfщЃSetў s: ъtТfB-Џ  xІellрtРџtОЇTтТ'юП­ "fcБGУБч!В12)TС! 
Ђиheck wh жrт*ТуUby haРЋpendHant~' TDrрecordџV s0іsxV (гСФjвРBooleaД{Rlvc!Vm
rV8ari з0=  MValues.Э PmФD:haМbўuTjc&P3РOё?ђѓxN 2vcrЂJJ<  2Ў	: pmissсAG_?#
б;? #b@n єpz$UЏ= Fa|ЁGo јExirзЙ6ГD5:Џ4№'Ђ<ata
|pб presх№{aёt f@ l+WlюP'P,~cсAxllRb)`Ї$ў%iџQъѓ^ХUћ?& Hд%0oь  Б(АnpДѓp((iб(Тs)oЏЛЃЛKь(sЁ?%i)<%R3FHan
d@guТErroJrс С:=)iџlџ(Х1уrvКХ,7я(лOGР`%number off(Ы  &d№)fiа№'у М&getбЭz&%яPJO	CA2WwOј ifдє
р}УWreWqWуIsБНЩt?H/oWaWobjЯ1ЊUНTreSSпрR-*=d)яP HRБл`GTJHиSubР test((ё>bбЪB06")a+(" C:\proje`kte\WPoеkШR3\Pc\n) \DATA1.SAP"=щinitО !ѓyЗb п\2%Ссю1X6№te(2q  Б                                                                                                                                                                                                                                                                                                                            _ V B A _ P R O J E C T                                           џџџџџџџџџџџџ                                      e+      d i r                                                             џџџџџџџџџџџџ                                    c  z      _ _ S R P _ 0                                                     џџџџџџџџџџџџ                                      Ы.      _ _ S R P _ 1                                                    6      џџџџ                                    }        NцфЦ}Мгк  шvЉHџџџџ   PцфЦ}Мгк  шvЉHџџџџ   RцфЦ}Мгк  шvЉHџџџџ   TцфЦ}Мгк  шvЉHџџџџ   VцфЦ}Мгк  шvЉHџџџџ   XцфЦ}Мгк  шvЉHџџџџ   ZцфЦ}Мгк  шvЉHџџџџ   \цфЦ}Мгк  шvЉHџџџџ   ^цфЦ}Мгк  шvЉHџџџџ   `цфЦ}Мгк  шvЉHџџџџ   ,0 Sягњ  шvЉH     dцфЦ}Мгк  шvЉHџџџџ   fцфЦ}Мгк  шvЉHџџџџ   hцфЦ}Мгк  шvЉHџџџџ   цфЦ}Мгк  шvЉHџџџџ   lцфЦ}Мгк  шvЉHџџџџ   nцфЦ}Мгк  шvЉHџџџџ   pцфЦ}Мгк  шvЉHџџџџ   rцфЦ}Мгк  шvЉHџџџџ   цфЦ}Мгк  шvЉHџџџџ   џџџџ         `fџ `[      џ  b  t  џ  line   Module   Name  В TextWordЕk VBAїт Win16С~ Win32 MacГВ Project-Ў  stdole`  MSFormsC  Officeu ThisDocument< 	  џџџ_Evaluateй FileSaveAsWebPageы  Main, 	R3LogFileB2 	DoLoggingЭ AbsLogFileNamexЫ R3GetLogFileName 	ErrorLine9 R3DocVarЩM 	GetDocVare% ExitLineзO  MsgBoxR  Promptm  Erro  DescriptionО   Buttonsх] 
 vbCritical+} Titleђ~ R3WriteLogLineј LogLine 	LogFileNr  TimeЋП FileSaveЁ DataFile/  ApplicationЅ* 	 StatusBarЪ R3Execo R3UnLinkDatafileQ%  ActiveWindowУ+ R3WordErrorrе LogError&' 
DialogForm&Ј CancelButton_ClickЄ  Hide9z MergeListBox_Click2 CommentLabelкR  Captionx R3Dialog}# GetLabelCommentв< MergeListBox№ 	 ListIndexїQ MergeListBox_DblClick§C Cancelё  ReturnBooleanщe  ActiveDocumentг\ 	 MailMergeЄВ  Fields7Љ  Addїr  Rangeк 	 SelectionZЎ GetAdrFieldЮ OkButton_ClickЖf 
TraceErrorЂ 	SetDocVar ValueфK i` DocVarы 	 Variablesn Count0v Itemзz Resultur 	RemoveAllЮ  DeleteИx test4Ћ ResЮ R3MenuЩ8 SetDisplayModeOnIщ DisableMenuEntryЖj MenuЌB 	MenuEntryі DisableCommandBarEntryуА CommandBarIconNameР DisableFileSaveC DisableDeleteёC cbЦ\ 
 CommandBar cbc^}  CommandBarControlPХ  CommandBars
  ControlsЬK  EnabledлЊ EnableMenuEntryНт EnableCommandBarEntryНX SetDisplayModeOff0 FileSaveVersionј9 
R3VariableЫМ GetItemљФ Channelђ R3WinSrv9м 
GetChannelџ 
 DDERequest№і  Activate| DeposeФФ  DDEPokeяЗ  Data; FileSaveFrameAsn
 InsertMergeField8y  wdNoProtection­Ѕ  ProtectionTypeІг InitMergeDialog  ShowMergeDialogЇ R3LangЙ] GetLanguageХs WordLangю  InternationalНЄ  WdInternationalIndex?1  wdProductLanguageID  WdLanguageIDХъ  wdGermanw[  wdSwissGermanУH AdrField
м 
 collectionщW 
LabelField1 MLBIД  Showѕ IsInitialized]Љ Buffer-Ы AStr@J LStrЧШ InFile} 	R3Globals R3GetTabFileName`ф  EOFє SplittStringЁ FirstStrё9 SecStrУ$  AddItem  CancelButtonђ CommentFrame ItemNrљ8 sepStr. chЬ\ fDonel 	AutoCloseЄж  Right  UCase5
  Saveа 	 Unprotect?  SaveddЩ  AttachedTemplateу  NormalTemplateqЌ R3GetDataFilenameЈ  KillЬ  PathName' 	TerminateyL R3OpenDocument modeЄv DataFilenameлЋ iNumberData,p InitiateZ Appl9 objН R3SetDFModeBc sModeіч R3Ft
Module=MailMergeExt
HelpFile=""
Name="Project"
HelpContextID="0"
Description="Template for HR (english)"
CMG="24268575852389238923892389"
DPB="D6D477C79BCB4CCC4CCC4C"
GC="888A292A2A2A2AD5"

[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDocument=0, 0, 0, 0, C
R3DocVar=0, 0, 0, 0, C
R3Lang=66, 66, 735, 434, 
R3LogFile=66, 66, 680, 381, 
R3Variable=0, 0, 0, 0, C
R3WordError=88, 88, 650, 443, 
InsertMergeField=0, 0, 0, 0, C
DialogFoЬ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 { 2 7 D F 8 2 6 2 - B 7 C C - 1 1 D 3 - 8 9 D 5 - 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                                            
џџ2 T e m p l a t e   f o r   H R   ( e n g l i s h ) џџ    џџ  WыМ8	  џџ џџџџџџ  џџџџ џџџџ  	  џџ     џџ      
 џџ                   Ъ№  T h i s D o c u m e n t 
 2238679987 *DџџШ№            џџ" F i l e S a v e A s W e b P a g e 
 9138bceb5e *Dџџѓ         K  џџ R 3 L o g F i l e 
 2438679987 *Dџџѓ       џџџџ0     џџ F i l e S a v e 
 8138bceb51 *D@џџ>Ђ      H   в  џџ D i a l o g F o r m 
 8938bceb5e *DSџџ	W      `   L  џџ R 3 W o r d E r r o r 
 2738679988 *DNџџѓ     0  џџџџx   ѕ  џџ R 3 D o c V a r 
 2838679988 *D$џџ;ѓ         ќ  џџ R 3 M e n u 
 2938679988 *Dџџ         џџџџЈ   H"  џџ F i l e S a v e V e r s i o n 
 9538bceb5e *DМџџї      Р   K  џџ R 3 V a r i a b l e 
 2b38679988 *DОџџ	ѓ     0  џџџџ  џџџџx  џџџџи   ]  џџ F i l e S a v e F r a m e A s 
 9338bceb5e *Dвџџё      №   ?      I n s e r t M e r g e F i e l d 
 8738bceb5e *DдџџМѓ         O  џџ R 3 L a n g 
 2e38679988 *Dоџџ#ѓ     x  џџџџ    	  џџ R 3 D i a l o g 
 8b38bceb5e *D^џџЏ      8   §  џџ A u t o C l o s e 
 7d38bceb51 *DџџD      P   2    F i l e C l o s e N o S a v e 
 7e38bceb51 *DRџџол      (   j  џџ F i l e S a v e A s 
 8f38bceb5e *D`џџ§           џџ R 3 W i n S r v 
 3338679988 *DФџџЩ     0  џџџџx  џџџџи  џџџџ  џџџџ   Џ?  џџ F i l e S a v e H t m l 
 8d38bceb5e *Dџџ      А   ?  џџ F i l e C l o s e 
 8038bceb51 *DPџџил             R 3 F H a n d l i n g 
 3638679988 *DHџџбG     0  џџџџx  џџџџј  џџџџр   0  џџ R 3 G l o b a l s 
 3738679988 *DџџгG       џџџџи  џџџџј   L    R 3 O p e n D o c u m e n t 
 7f38bceb51 *D6џџi      @   z  џџ R 3 E x e c 
 8238bceb51 *DHџџi      Ш     џџ M a i l M e r g e E x t 
 8538bceb57 *D`џџC      h   н)  џџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@  џџџџШ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh  џџџџ   џџџџH  џџџџ0  џџџџx  џџџџ`  џџџџЈ  џџџџ  џџџџи  џџџџР  џџџџ  џџџџ№  џџџџ8  џџџџ   џџџџџџџџџџџџP  џџџџ  џџџџ  џџџџџџџџџџџџА  џџџџј  џџџџр  џџџџ(  џџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDцфЦ}Мгк  шvЉHџџџџ   FцфЦ}Мгк  шvЉHџџџџ   HцфЦ}Мгк  шvЉHџџџџ   JцфЦ}Мгк  шvЉHџџџџ   LцфЦ}Мгк  шvЉHџџџџ   HandlingW R3GetTabLengthl R3GenTempDataFile9Е R3RewriteDataFile5 R3LinkDatafile.о  ViewMailMergeFieldCodesоz  wdToggleЎ  WindowState|ю  wdWindowStateMinimize4a 	R3PrintFLm   Protectзf  wdAllowOnlyCommentsRї 
FileSaveAsЮю IMG STDе HR] UnInstallAddIn(О ad~\  AddInex  AddInsю ExecuteYЭ Fcode\Ц Flagso MarkedStringч 
CommandStrКe  ReadOnly4< SaveDocЅ  wdSelectionNormalR  FullNameа  ChrK~ 
 DDEExecuteШ  Commandд] Chan%  DDEInitiateВЌ  AppПt  Topic  strе  DDETerminate;Я  Valнт SetNoSaveValuesUњ SetSaveValues 
RemoveFile<а filenamejУ FileSaveHtml< FileNr	э sNamed myMergex 	iDataSizeО iCountl 
mergeFieldМP  MailMergeDataFieldн cFieldЭЁ fMailMergeErrorA  Stateљ  wdMainAndSourceAndHeaderw  wdMainAndDataSourceЌ#  DestinationаЛ  wdSendToNewDocumentW 
 DataSource   FirstRecordш 
 LastRecordэ-  Findn№  ClearFormattingФ)  ReplacementЦ  ForwardЉт  WrapWy  wdFindContinueBP 	 MatchCaseЮ  MatchWholeWordВX  MatchWildcardsў  MatchSoundsLikeџ0  MatchAllWordFormsп R3WriteErrorFileћ  EndOfy  ActivePrinterуp  PrintOut.Ќ  wdPrintAllDocumentOј  wdPrintDocumentContent|>  Copies?  PagesУ  PageType;X  wdPrintAllPages>  Collate 
 BackgroundУ.  PrintToFileoћ 	 DocumentsМ sFNameд  MainDocumentTypeєЦ  wdFormLetters   OpenDataSourceK  ConfirmConversionsД  LinkToSource	  AddToRecentFilesБV  PasswordDocument8ь  PasswordTemplateЖ  WritePasswordDocumentЙ  WritePasswordTemplateu  Revertмn  wdOpenFormatText' 
 connectionки  SQLStatementЗ"  SQLStatement1N  SuppressBlankLinesхЃ  wdNotAMergeDocumentќ5 	ChangeStroм ToChRо ChWithћх TempDataFileЃ InFileNr6 	OutFileNrb^ sLineu R3TempDataFilenameи TempFileNameI R3RewriteDataFileName SetEmptyStringsCм TwoTabs(Ћ PosдФ sLeft7э sRightџэ 
EmptyField  Trim@я  vbBinaryCompareЬ ErrorFileNameЩв FNr4 R3ErrorFileц Test1іc Buff~ Test2їc R3GetDFMode TempPathЂ  Environ,  Path2 	FileCloseИ_ FileCloseNoSave. RetValЭ; 
AskForSaveўэ MsgQЕ  vbYesNo  vbExclamationШ Module1b MailMergeExt 
nrOfFields< nrOfRecordsXс MFieldsФ MValuesЋ7 
MValueLine
 missingFieldsР4 
UsedFields)V init\[ dataSrcFileю addEmpty_ idxг extractField;Л cutLinecH extractUsedMergeFieldsе 	checkFileИ checkLastTab  	CloseFile calcNrOfFields  strLineњ fieldќ3 retCollectionQ aktiveField4i  MailMergeFieldЄ 	fieldcodeдф  CodeњН extractFieldNameћИ hasMergeFieldsSet recordј vc_ checkAllRecordszK getNrOfRecordsF recordIsComplete` 	printmodeж  wdSendToPrinterщ Documentjг UserFormN OkButtonа|   џ Clickу   џ DblClickЋ  _B_str_TimeЧ 
 _B_var_StrЈ  _B_var_Environ/  _B_var_Right9й  _B_var_UCaseaЮ 
 _B_var_Chr\;  _B_var_LeftQс  _B_var_TrimmT 
 _B_var_Midэp џџt  џџџџџџџџџџџџa 1 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџ  џџџџџџџџџџџџџџџџџџџџ
џџџџ џџ џџ џџ  <     џџџџџџ    џџџџџџџџџџџџџџџџџџ%    џџџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ7 ) A  Н ( П	 ' џџџџџџI * Х , џџџџџџO - I 0 S / џџџџџџг
 0 е 3 џџџџџџџџџџџџ_ 4 Q 9 п 7 S 8 џџџџџџa : џџџџџџ >    Т                                        @                                                   D                     @                                                                                                                                                                                                                                                   A                          @                                                                                                                                                                                       w	mFDCB 09EC3-FC 84-11D2-8932FE87р6A948FD1 .twd#Microsoft ;" ^ Obд LРibrary7 h0 j>2 7DF8262-PB7CC3 D"5c:\ @p\VBE\EEXDfс.Eр .`MДACmOfficDmO@jf i c=BmР).Т**D0 4C-5BFA- 101B-BDEЉС*AA@l4Р2J PROGRA~1\MICROS Р.O97.DLLH. 8.0M"Р ТЪ№ThisDocumentNh2  /T ЕЖD@c u Уe nЕ ІР  С1ДZмBС,BШ$№" +B РFileSa veAsWebPage2 СVFRРS рvTAEРWРb P@gC@O"K  -ѓ,!b%	 R3HLogС Ъ2 Ё 3 L Jg _i |e /в/ѓ+`	eФ Љ2 a,MЏв э>ЂЋ
a 	Dial Рvb ы2 с aн o ЅyЏL­T	Wу8(  І9 R3WordE@rror 2E@ РЄ3 Wр(rа d E@Їrbяѕ@#эp)R3`VМVaРa)Ѕc)R`6е#UV Cr06ќ@P­;ЌAИR3MenluВc2"d!Mm Nn`aoHР$­ +5 &хAVerRsрЎ 2`X ЋfOх_V`r``i (6n№q_їl_aCR3с@(iablРoыcEЋсc(i )bє_] иэ	Ќ)IFramЏ ыѓF FaЂk!/.?p}ёќQ6I nsertMer geFieldВ7]2 }  INRsrt Бr№2eepd_ O #}М_% GangэU%LА W%LpЁ?іаIн#мД0@SFЏ1в 1Бl#g?Ш §ПLЏЛ+aRссClos#ъ SSЊAp1tCop*1_S  2 §Dч_2Q2NocW#HЛ[#WN053j@)9олQ1u:As/Uї S2пis q §<*ѓWinИSrvѕг їW№["nr v_ Џr?џЩ;Ї5HxtmlSS}Hmџ7  ў[a"1bГvц S#Wѕ_#РR ѓ_ и<hFHand\li6iFАa5p>dPip 1  $0бGПR3РGlobal@"Ёц ГTGPo bM>l01_LгqИR3Openл7?2!1O`ЫБ'ѓpzпiУ{3qExecеKБ QзKE xSc) 6рН6мq)MaфilђYExдЈs)^MБWYqt_ dн)?C9Qa         rU              ~  ~  ~  ~  ~  ~  ~  ~o      
   	       a      џџџџџџџџ    	      џџџџ	      џџџџџџџџ	     	 	      	      џџџџ	      џџџџџџџџ	     ' џџџџџџџџџџџџџџџџ	     №	     Р      F  Ё              Й	     Р      F   Ё      с      џџџџ  e	     Р      F     Name     Value  f	     Р      F     T1     Test     T2  
   AbsLogFile     NotExist     FileSave.Main     Save and back to R/3, wait...  p	     Р      F  	   R3PrintFL     R3LinkDatafile  
   TraceError     R3Exec.R3PrintFL mode =      R3SetDFMode     R3GetDFMode     R3ErrorFile     R3GetTabFileName     R3GetDataFilename     R3TempDataFilename     R3RewriteDataFileName     default  $   R3Exec.R3PrintFL: print all at once.   	     Р      F     single  /   ActiveDocument.MailMerge: print single letters.     init  	   checkFile     extractField     checkLastTab     calcNrOfFields     cutLine     extractUsedMergeFields  gФЄIЛx Њ 8<Л     extractFieldName     hasMergeFieldsSet     checkAllRecords     getNrOfRecords     recordIsComplete                          й      џџџџe 8           ActiveDocument.MailMerge print   	     Р      F     ActiveDocument.MailMerge skip 
     R3Exec.R3PrintFL       R3Exec.R3LinkDataFile:      R3Exec.R3LinkDataFile  !   Data file for mailmerge is given!  (   ActiveDocument.MailMerge.OpenDataSource      R3Exec.LinkDatafile     R3Exec.R3UnLinkDatafile     R3Exec.R3UnLinkDataFile  
   R3DataFile     SaveDoc  
   RemoveFile    й      џџџџ P           TEMP  й      џџџџk h           \     GetItem     Depose  	   ErrorName     .txt  	   LabelFile     REWRITE     DataFile     \td.sap  
   \~data.sap     Get item via DDE:      UnInstallAddIn     Execute     Initiate  	   Terminate  
   GetChannel     SetNoSaveValues     SetSaveValues       DDERequest            R3Variable.GetItem     R3Variable.Depose      DDEPoke 
     R3Variable.Depose     R3WinSrv.UnInstallAddIn  ~	     Р      F     R3WinSrv.UnInstallAddIn check:   й      џџџџ А           WS8WORD.DOT     Applikation     Object                   R3WinSrv.UnInstallAddIn delete: 
     R3WinSrv.Execute      Call SAP R/3  Code:   
    Options:      S     E     T     X  	   DocOpened  u	     Р      F     (     ,  й      џџџџ` Ш           )     DDEExecute Command:      Control passed to SAP R/3        R3WinSrv.Execute: Call Terminate     Callback to R/3 completed     Callback to SAP R/3 completed     M
     R3WinSrv.Execute     close the document  j	     Р      F     Saved  +   Initialize Connection to R/3 Windows Server     DDEInitiate:      DDE Channel:      DDE-Channel
     R3WinSrv.Initiate  	   Terminate     R3WinSrv.Terminate  (   R3WinSrv.Terminate: don't save document.  "   R3WinSrv.Terminate: save document.     DDE Terminate  
   Channel = 	     Close document     Uninstall ws8word.dot   ?ЯFѕЮЮ Њ `    й      џџџџE р           R3WinSrv.SeK)^ @   џџ      џџ                                                                                    	       	                                                                                                              rU              ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~    ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~^         	             Й       *0 Sягњ  шvЉH 	    ф      
  a 	      С
      џџџџ  џџ  б         џџџџџџџџџџџџџџџџџџџџџџ  љ       a 	      q      џџџџ№       џџџџ       I      џџ  )        џџџџџџџџџџџџџџџџџџџџџџ  I         џџџџџџџџџџџџџџ  i      a 	      љ
      џџџџШ      џџџџ б      с      џџ        a 	     
 љ
      џџџџ      џџџџ       Й      й      	      џџ  Љ      a 	      љ
      џџџџ      џџџџ 	\      9\      a\      \      Й\      ё\      ]      Q]      џџ  Щ        џџџџџџџџџџџџџџџџџџџџџџ  с      a 	      љ
      џџџџ      џџџџ 	!      !!      џџ  	        џџџџџџџџџџџџџџџџџџџџџџ  )        џџџџџџџџџџџџџџџџџџџџџџ  Q      a 	     & љ
      џџџџh      џџџџ b      џџ          џџџџџџџџџџџџџџџџџџџџ           џџџџџџџџџџџџџџџџџџџџџџ  Й        џџџџџџџџџџџџџџџџџџџџџџ  с        џџџџџџџџџџџџџџџџџџџџџџ        a 	      љ
      џџџџ      џџџџ	 	#      1#      I#      i#      #      Љ#      б#      Б      Щ      џџ  !        џџџџџџџџџџџџџџџџџџџџџџ  A        џџџџџџџџџџџџџџџџџџџџџџ  С      a 	      )J      yS      p            	 љH      !I      AI      qI      ЁI      ЩI      	      љI      J               a 	      љ
      џџџџр      џџџџ       Ё      С      с            A      q      џџ  Ё        џџџџџџџџџџџџџџџџџџџџџџ  й        џџџџџџџџџџџџџџџџџџџџџџ  i        џџџџџџџџџџџџџџџџџџџџџџ  !       	                      љ                      й                      Б                      	                                 Project     ThisDocument     FileSaveAsWebPage  	   R3LogFile     FileSave  
   DialogForm     R3WordError     R3DocVar     R3Menu     FileSaveVersion  
   R3Variable     FileSaveFrameAs     InsertMergeField     R3Lang     R3Dialog  	   AutoClose     R3OpenDocument  
   FileSaveAs     R3WinSrv     FileSaveHtml     R3Exec     R3FHandling  	   R3Globals  	   FileClose     FileCloseNoSave     Module1     MailMergeExt  я     Р      F  =   C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll     VBA
  
I      џџџџ   	   q      љ      x               	     Р      F
  '   C:\PROGRA~2\MICROS~1\Office\MSWORD8.OLB     Word
  
a      џџџџ   	        с                     0     Р      F     C:\WINNT\System32\STDOLE2.TLB     stdole
  
Q      џџџџ       y      С                     УАмќв2  шvЉH     C:\NT\System32\MSForms.twd     MSForms
  
1      	             Y            Ј              с.Eр.`MД  bп'ЬЗге  шvЉH     c:\temp\VBE\MSForms.EXD
  
1      	             Y            И             Lај-њ[Нх Њ DоR
  %   C:\PROGRA~1\MICROS~1\Office\MSO97.DLL     Office
  
щ      џџџџ       	      i	      Ш               k	     Р      F  цфЦ}Мгк  шvЉH  	     Р      F  цфЦ}Мгк  шvЉH  і	     Р      F     Document    @              Main                  R3GetLogFileName     R3WriteLogLine                	   SetDocVar  	   GetDocVar  	   RemoveAll       test	     AbsLogFileName  	   DoLogging     1        
   VBA332.DLL  й      џџџџ­ (        й      џџџџS @        ИfФЄIЛx Њ 8<Л  #   Error in R3LogFile.R3GetLogFileName  й      џџџџ X        й      џџџџc p           [     ]      R3UnLinkDatafile  b	     Р      F     LogError    !   Error in R3LogFile.R3WriteLogLine  tNoSaveValues     Changed     R3WinSrv.SetSaveValues  	   IsNewFile     0     I     U
     R3WinSrv.SaveDoc     ActiveDocument.Save      R3WinSrv.SaveDoc: nothing to do.     Remove file   й      џџџџ ј             R3WinSrv.RemoveFile  	   Error in      : 
     MailMergeExt.init  gФЄIЛx Њ 8<Л    9      Љ      џџџџ  й      џџџџ;             in MailMergeExt.init     MailMergeExt.check#  C   MailMergeExt.check: fields code line contains no </tab> at the end!  С{lЏЮF Њ WJO     CancelButton   <   MailMergeExt.check: data line contains no </tab> at the end!  /   MailMergeExt.check: number of fields not equal!  &   MailMergeExt.check: number of fields:   '   MailMergeExt.check: number of records:      MailMergeExt.checkFile
  
ЩG      џџџџ       џџџџ                     й      џџџџi (        й      џџџџ @           MailMergeExt.calcNrOfFields()  й      џџџџx X        %   MailMergeExt.extractUsedMergeFields()  	     Р      F  ^	     Р      F  
   MERGEFIELD  %   MailMergeExt.extractUsedMergeFields:       is not a merge field!>  x   MailMergeExt.extractUsedMergeFields: Warning: The letter contains no merge field! May all documents will not be printed!  .   MailMergeExt.hasMergeFieldsSet: missing field       in record      MailMergeExt.checkAllRecords()     CommentLabel  !ш-ЌЂ6ЯS Њ `	њ     |  7   MailMergeExt.checkAllRecords: missing fields in record      R3GetTabLength  	   ChangeStr     R3GenTempDataFile     R3RewriteDataFile     SetEmptyStrings     R3WriteErrorFile     Test1     Test2               0   C:\projekte\WordLinkR3\misc\MergFields\DATA1.SAP     R3FHandling.R3GetTabLength:   цфЦ}Мгк  шvЉH  "АдЮП- Њ ?@а    (   R3FHandling.R3GetTabLength: file is open  %   R3FHandling.R3GetTabLength: ReadLine      R3FHandling.R3GetTabLength     R3FHandling.R3GenTempDataFile	     Datafilename:      Tempdatafn:     -     _     R3FHandling.R3RewriteDataFile  цфЦ}Мгк  шvЉH  sцфЦ}Мгк  шvЉH     R3FHandling.R3RewriteDatafile  	   <<ERROR>>     R3WriteErrorFile:      R3FHandling.R3WriteErrorFile     --     PTXT1_NRES1   PTXT1_NRES2     Mќller     Hans     041265	     The first line.
     The second line.                 цфЦ}Мгк  шvЉH  цфЦ}Мгк  шvЉH       CommentFrame  "вBьЮ Њ `ѓ     MergeListBox  Ш[qJІ  eР     UserForm  цфЦ}Мгк  шvЉH  	   F3Dynamic
  
ЩT      џџџџ      џџџџёT      А                 OkButton     CancelButton_Click     MergeListBox_Click     MergeListBox_DblClick  q#АМЕЯ  Щ t     OkButton_Click    T              ShowMergeDialog     InitMergeDialog     GetLabelComment     GetAdrField     SplittString                     #вBьЮ Њ `ѓ  СYlЯЋ| Њ РЯ  	     Р      F     R3Dialog.ShowMergeDialog  ,   InitMergeDialog: Initialize new merge dialog     InitMergeDialog: nothing to do  	   Abbrechen  ФYlЯЋ| Њ РЯ     Serienbrieffeld einfќgen   	   Kommentar  pjИ).ѕЮЮ Њ `     R3Dialog.InitMergeDialog     R3Dialog.GetLabelComment     SetDisplayModeOn     DisableFileSave     DisableDelete     DisableMenuEntry     DisableCommandBarEntry     EnableMenuEntry     EnableCommandBarEntry     SetDisplayModeOff     &Save final version     File     &Sichern Endfassung     &Save  
   &Speichern
     Save &raw version     Sichern &Rohfassung     Dele&te     L&іschen       &Save and back to R/3     &Sichern und zurќck zu R/3     D&elete       Р      F       Р      F       Р      F     InsertMergeField.Main     GetLanguage     d     e     R3Lang.GetLanguage     DOT	     AutoClose.Main     DocMode     AutoClose.Main: view/print mode       AutoClose.Main: write mode     TD.SAP  	   ~DATA.SAP     AutoClose.Main: Remove   
   AskForSave     FileCloseNoSave.Main     Back to R/3, wait...!  ?   Datenverlust! Wollen Sie wirklich abbrechen, ohne zu speichern?     Warnung     CUSTOMIZING/INDIVIDUAL!  >   Data will be lost! Are you sure you want to exit the document?     Warning	     FileClose.Main     R3OpenDocument.R3OpenDocument     Call R3WinSrv.Initiate     None     R/3 Windows Server     ORIG     Doc mode: ->     <-     P     PRINT    5   Error: Table length for mail merge data is not valid!	     Abort printing!     ActiveWindow.Close     Preview mode     PREVIEW  .   Error: The data file contains not enough rows.     Error: Unknown document mode.
     set all as saved                                                                                                                                                                                                                                                                                                                            џџџџџџџџ	      	      џџџџџџџџџџџџ     Template for HR (english)  	љ      y
                 LogLine     Name     Value  	   printmode     sFName     Text     Module     sMode     dataSrcFile     filename     strLine     line  		      Љ              
   mergeField     record     Item     Fcode     Flags     Appl     obj     Buffer     ToCh     ChWith  	Б?      бK      (        	Б?      Б;      8        	Б?      б3      H        	Б?      1T      X        	U      T      h        	Б      !V      x           Cancel     ItemNr       FirstStr     SecStr     Menu  	   MenuEntry     CommandBarIconNamek                                                  ( H   @  џџ      }    Њ          RуЮу Њ KИQ   DB Tahoma     А       $ х       4     OkButtonи  д  (     OK  r  {    u     Ѕ     Tahoma    (     Cancel  r  {    u     Ѕ     Tahoma    `      Є  rm=0, 0, 0, 0, C, 22, 22, 814, 511, C
R3Dialog=0, 0, 0, 0, C
FileSave=0, 0, 0, 0, C
R3Menu=0, 0, 0, 0, C
R3WinSrv=44, 44, 713, 412, 
FileSaveHtml=0, 0, 0, 0, C
FileSaveAs=0, 0, 0, 0, C
FileSaveAsWebPage=0, 0, 0, 0, C
FileSaveFrameAs=0, 0, 0, 0, C
FileSaveVersion=0, 0, 0, 0, C
AutoClose=110, 110, 672, 465, Z
R3FHandling=88, 88, 702, 424, 
R3Globals=0, 0, 0, 0, C
FileClose=22, 22, 636, 358, 
FileCloseNoSave=0, 0, 614, 336, 
R3Exec=44, 44, 658, 359, 
R3OpenDocument=22, 22, 636, 337, 
MailMergeD i a l o g F o r m                                              џџџџџџџџ:                       PеВ>ЪП@/м>ЪП            f                                                                џџџџџџџџџџџџ                                            o                                                                9   ?   џџџџ                                              i 0 5                                                             џџџџџџџџ=     n`єЮЭ Њ `    №[Д>ЪПАН>ЪП                        x                ўџџџ    Њ                               Ё  Ђ  Ѓ  Є  Ѕ  І  Ї  Ј  Љ  ўџџџЋ  Г  Ж  Б  §џџџ§џџџ§џџџ'   ўџџџ&   (   §џџџўџџџИ  Й  ўџџџЛ  ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ                	  
  §                                   ўџџџ3         !  "  #  (  %  &  '  ўџџџ)  4  +  ,  -  .  /  0  1  2  $  w    6  8  ~  9  :  ;  <  G  >  ?  @  A  B  C  D  E  F  5  H  ўџџџJ  K  L  M  N  X  P  Q  R  S  T  U  V  W  I  Y  Z  ўџџџ\  ]  ^  _  `  m  b  c  d  e  f  g  h  i  j  k  l  [  n  o  p  q  r  s  t  u  v  ўџџџ­  y  z  {  |  }    Ќ    џ                                                                        Ў   Џ         В            Ё   Ќ   Ѓ   Є   Ѕ   І   Ї   Ј   Љ   Њ   Ћ      ­   ўџџџю   А   я   В   Г   Д   д   Ж   З   И   Й   К   Л   М   Н   ўџџџП   Ъ   С   Т   У   Ф   Х   Ц   Ч   Ш   Щ   ўџџџЫ   Ь   Э   Ю   Я   а   б   в   г   Б   е   ж   з   и   й   к   л   м   н   о   п   р   с   т   у   ф   х   ц   ч   ш   щ   ъ   ы   ўџџџэ   ўџџџ  №   ё   њ   ѓ   є   ѕ   і   ї   ј   љ   ь   ћ   ќ     ў     7  f                                                                 џџџџџџџџџџџџ                                      Љ       o                                                                <   >   џџџџ                                      ,        C o m p O b j                                                   џџџџџџџџџџџџ                                      p        C o m p O b j                                                  ;   @   џџџџ                                      a                             ўџџџ          ўџџџўџџџ    ўџџџўџџџ    ўџџџ  ўџџџ         ўџџџЂ  Ѓ  Є  Ѕ  І  Ї  Ј  Љ  Њ  Ћ  Ќ  ­  Ў  ўџџџА  Б  В  Г  Д  Е  Ж  З  И  Й  К  Л  М  Н  О  П  Р  С  Т  У  Ф  Х  Ц  Ч  Ш  ўџџџЪ  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ўџ
  џџџџ  n`єЮЭ Њ `   Microsoft Forms 2.0 Frame    Embedded Object    Forms.Frame.1 є9Вq                                  њ  ф    5     Ѕ      Tahomat                      8 H   Р       џџ      }  Ђ  Ъ          Comment RуЮу Њ KИQ   DB Tahoma   4        , ѕ       2   ,      CommentLabelд   д        ѓ                          C    5     Ѕ      Tahomat                                      ( х       8     CancelButtonи  "    ( е       #R o o t   E n t r y                                              џџџџџџџџ   	     Р      F    PђжЉ:О і	>ЪП*   РВ      1 T a b l e                                                      џџџџџџџџџџџџ                                       F      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                           (       џџџџ                                                                   З  	   
                                    К                       ўџџџ       !   "   #   $   %   ўџџџ   М  -   ;   +   ,   .   8   /   0   1   2   3   4   5   6   7   9   C   :   <   Y   =   >   ?   @   D   B   ўџџџU   E   F   P   H   I   J   K   L   M   N   O   A   Q   R   V   T   ўџџџ|   W   X   w      [   n   ]   ^   _   `   a   b   c   d   S   f   g   h   i   j   k   l   m   Z   o   p   q   r   s   t   u   v   ўџџџx   y   z   {   }      ~         Ext=88, 88, 705, 403, 
                                         ўџ
  џџџџ	     Р      F   Microsoft Word Document 
   MSWordDoc    Word.Document.8 є9Вq                                                                                                                                                                                                                                                                                                                                                                          9      9                                                        9            9                                  M      M      9      9      9      9                                            9      9                                                      S                 y     рі>ЪПM      M                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        А. АЦA!А"А# $ %А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   S y m b o l   3&                       A r i a l   "  0 №а  h                                                                 №                                                                                                                                                                                                                                                                                                                         ЅРД Д  0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 O b j e c t P o o l                                               џџџџџџџџџџџџ                     і	>ЪП і	>ЪП                                                                                џџџџџџџџџџџџ                                                                                                                    џџџџџџџџџџџџ                                                                                                                    џџџџџџџџџџџџ                                                