ࡱ                >  	               8          :          7   ~               }    v               	@		                 bjbj5*5*                     W@ W@                                                                    J      J  J      J                                                       y<     <           7                                                    W  2  
7      
7      
7      
7      
7      
7  $   ?8  R  :  :   .7                                                                        .7              J      J                         C7     '      '      '           J  8                                  '                                                            W              '              '                                                                         '            <     Jc                
   '                    Y7  0   7      '      :           :      '                        J      J      J      J                      :                    '  `                   '                                                                        .7      .7              D                 '                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ho  hU                 p#  v:                            p#  v:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     . A!"#$n%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   @  @ @           S t a n d a r d       _HmHnHsHtH                  J A  J          A b s a t z - S t a n d a r d s c h r i f t a r t     \ i  \          N o r m a l e   T a b e l l e     :V   4   4 
l a      0 k  0           K e i n e   L i s t e                                                                                           "&                                              P    }A0                  P     8                         @                           0    (    	                    
          B    
        S              	   ?                                                                    J P 	 l \ `9, <I Ym }X a : w o U & a S 6    A c t i v e D o c _ f u l l _ n a m e S A c t i v e D o c _ p a t h T
 E H S R e l e a s e 4T p _ R e s u l t DT c : \ t e m p \ l e h s f i l 0 . W W I  c : \ t e m p \  2 0 0 5  O K F   V              V  2            V  )            V  :            V              V  $            V               V ! #            V " '            V # 3            V $ *            V %             V & ;            V ' .            V (             V )             V * 	            V +             V , H            V - %            V .             V / (            V 0             V 1             V 2 I            V 3 &            V 4 -            V 5             V 6 
            V 7 1            V 8             V 9             V :             V ;             V <             V = /            V >             V ?             V @             V A             V B              V C             V D >            V E !            V F 5            V G 8            V H <            V I =            V J ?            V K "            V L             V M 4            V N 9            V O ,            V P 6            V Q             V R             V S             V T F            V U             V V +            V W             V X              V Y 0            V Z A            V [             V \ @            V ] D            V ^             V _ 7                  "   "z         @    
                        
                          J  % T e m p l a t e P r o j e c t . w w i S y m L O n O f f . M a i n _ o f f  # T e m p l a t e P r o j e c t . w w i T e x t b o x E d i t . M a i n   T e m p l a t e P r o j e c t . w w i S t a r t U p . m a i n  " T e m p l a t e P r o j e c t . w w i S c a n L a y o u t . M a i n  , T e m p l a t e P r o j e c t . w w i B o o k m a r k s . D e l e t e _ s e l e c t e d  + T e m p l a t e P r o j e c t . w w i T e x t b o x E d i t . C h e c k t e x t b o x  . T e m p l a t e P r o j e c t . w w i T e x t b o x E d i t . I n s e r t T e x t f i e l d  # T e m p l a t e P r o j e c t . w w i D o c P o s i t i o n . M a i n  * T e m p l a t e P r o j e c t . w w i S y n c r o W o r d W i t h T r e e . M a i n  " T e m p l a t e P r o j e c t . w w i E d i t S y m P h r . M a i n  # T e m p l a t e P r o j e c t . w w i S h o w A n d H i d e . m a i n  % T e m p l a t e P r o j e c t . w w i S h o w A n d H i d e . s e t D l g  $ T e m p l a t e P r o j e c t . w w i E d i t R e p G r o u p . m a i n  ! T e m p l a t e P r o j e c t . w w i N N G r o u p . I n s e r t  ! T e m p l a t e P r o j e c t . w w i S e r i e n N o . C h e c k  $ T e m p l a t e P r o j e c t . w w i I n s e r t P h r a s e . M a i n   T e m p l a t e P r o j e c t . w w i N N G r o u p . M a i n  $ T e m p l a t e P r o j e c t . w w i S a v e D o c u m e n t . M a i n  $ T e m p l a t e P r o j e c t . w w i S y m L O n O f f . M a i n _ o n   T e m p l a t e P r o j e c t . w w i C l o s e . M a i n  ' T e m p l a t e P r o j e c t . w w i T e x t b o x E d i t . S e t S h a p e  % T e m p l a t e P r o j e c t . w w i E d i t T o o l s . D o c S a v e d  $ T e m p l a t e P r o j e c t . w w i D e f i n e R G r o u p . M a i n  1 T e m p l a t e P r o j e c t . w w i E d i t T o o l s . P r e p a r e _ f o r _ a n a l y s e r  $ T e m p l a t e P r o j e c t . w w i I n s e r t S y m b o l . M a i n  % T e m p l a t e P r o j e c t . w w i X E x p o r t M a k r o s . M a i n  # T e m p l a t e P r o j e c t . w w i S e t E n v 3 2 . S e t P a t h  # T e m p l a t e P r o j e c t . w w i L a b e l W i z a r d . M a i n  * T e m p l a t e P r o j e c t . w w i S c a n L a y o u t . R e s o l v e _ F i l e  ! T e m p l a t e P r o j e c t . w w i B o o k m a r k s . J u m p  " T e m p l a t e P r o j e c t . w w i I n s C o n d T x t . M a i n  * T e m p l a t e P r o j e c t . w w i S c a n L a y o u t . S a v e S e t t i n g s  - T e m p l a t e P r o j e c t . w w i S c a n L a y o u t . R e s t o r e S e t t i n g s  ' T e m p l a t e P r o j e c t . w w i B o o k m a r k s . D e l e t e _ a l l  ' T e m p l a t e P r o j e c t . w w i S t a r t U p . S e t _ a p p _ n a m e   T e m p l a t e P r o j e c t . w w i V e r s i o n . M a i n   T e m p l a t e P r o j e c t . w w i R e s o l v e . M a i n  " T e m p l a t e P r o j e c t . w w i O l e G r a p h i c . M a i n  # T e m p l a t e P r o j e c t . w w i O l e G r a p h i c . S t a r t   T e m p l a t e P r o j e c t . w w i W i z a r d . C h e c k  " T e m p l a t e P r o j e c t . w w i X T e x t R e s e t . m a i n   T e m p l a t e P r o j e c t . w w i W i z a r d . M a i n    T e m p l a t e P r o j e c t . w w i W i z a r d . s y m b o l  + T e m p l a t e P r o j e c t . w w i W i z a r d . G e t _ S y m b o l _ F o r m a t  ) T e m p l a t e P r o j e c t . w w i W i z a r d . G e t _ H e a d _ F o r m a t  # T e m p l a t e P r o j e c t . w w i O l e U s e r E x i t . M a i n  ! T e m p l a t e P r o j e c t . w w i I n i t L o c a l . M a i n  $ T e m p l a t e P r o j e c t . w w i O l e U s e r E x i t . S t a r t  - T e m p l a t e P r o j e c t . w w i W i z a r d . F i l l _ i n t e r n a l _ t a b l e  # T e m p l a t e P r o j e c t . w w i S t a r t U p . E x c h a n g e   T e m p l a t e P r o j e c t . w w i E r r o r . M a i n    T e m p l a t e P r o j e c t . w w i S e r i e n N o . m a i n  ( T e m p l a t e P r o j e c t . w w i D y n t e x t . c h a n g e D y n T e x t  ' T e m p l a t e P r o j e c t . w w i D y n t e x t . c h e c k D y n T e x t  * T e m p l a t e P r o j e c t . w w i E d i t S y m P h r . c h e c k _ s y m b o l  3 T e m p l a t e P r o j e c t . w w i O l e D y n T e x t . r e m o v e E m p t y P a r a g r a p h s  ' T e m p l a t e P r o j e c t . w w i I n c l u d e . c h e c k I n c l u d e  ( T e m p l a t e P r o j e c t . w w i I n c l u d e . c h a n g e I n c l u d e   T e m p l a t e P r o j e c t . w w i I f G r o u p . M a i n  ! T e m p l a t e P r o j e c t . w w i I f G r o u p . I n s e r t  ' T e m p l a t e P r o j e c t . w w i L i b D l l 3 2 . D e l D V S F i l e s  ' T e m p l a t e P r o j e c t . w w i S t a r t U p . d i s a b l e S t u f f  % T e m p l a t e P r o j e c t . w w i X I m p o r t M a k r o s . M a i n  ' T e m p l a t e P r o j e c t . w w i S t a r t U p . I n t e r n a l I n i t  / T e m p l a t e P r o j e c t . w w i S c a n L a y o u t . C h e c k L a y o u t F o r m a t  . T e m p l a t e P r o j e c t . w w i O l e D y n T e x t . r e m o v e E m p t y L i n e s          / T e m p l a t e P r o j e c t . w w i W o r d X P . w o r d X P S p e c i f i c O p t i o n s      + T e m p l a t e P r o j e c t . w w i S a v e D o c u m e n t . F o r m a t L a b e l      " T e m p l a t e P r o j e c t . w w i O l e D y n T e x t . M a i n  # T e m p l a t e P r o j e c t . w w i O l e D y n T e x t . S t a r t  F   T E M P L A T E P R O J E C T . W W I C L O S E . M A I N     T E M P L A T E P R O J E C T . W W I E R R O R . M A I N     T E M P L A T E P R O J E C T . W W I W I Z A R D . M A I N     T E M P L A T E P R O J E C T . W W I I F G R O U P . M A I N     T E M P L A T E P R O J E C T . W W I N N G R O U P . M A I N     T E M P L A T E P R O J E C T . W W I R E S O L V E . M A I N      T E M P L A T E P R O J E C T . W W I S T A R T U P . M A I N   !  T E M P L A T E P R O J E C T . W W I V E R S I O N . M A I N   "  T E M P L A T E P R O J E C T . W W I W I Z A R D . C H E C K   #   T E M P L A T E P R O J E C T . W W I S E R I E N N O . M A I N   $   T E M P L A T E P R O J E C T . W W I W I Z A R D . S Y M B O L   % ! T E M P L A T E P R O J E C T . W W I B O O K M A R K S . J U M P   & ! T E M P L A T E P R O J E C T . W W I I F G R O U P . I N S E R T   ' ! T E M P L A T E P R O J E C T . W W I I N I T L O C A L . M A I N   ( ! T E M P L A T E P R O J E C T . W W I N N G R O U P . I N S E R T   ) ! T E M P L A T E P R O J E C T . W W I S E R I E N N O . C H E C K   * " T E M P L A T E P R O J E C T . W W I E D I T S Y M P H R . M A I N   + " T E M P L A T E P R O J E C T . W W I I N S C O N D T X T . M A I N   , " T E M P L A T E P R O J E C T . W W I O L E D Y N T E X T . M A I N   - " T E M P L A T E P R O J E C T . W W I O L E G R A P H I C . M A I N   . " T E M P L A T E P R O J E C T . W W I S C A N L A Y O U T . M A I N   / " T E M P L A T E P R O J E C T . W W I X T E X T R E S E T . M A I N   0 # T E M P L A T E P R O J E C T . W W I D O C P O S I T I O N . M A I N   1 # T E M P L A T E P R O J E C T . W W I L A B E L W I Z A R D . M A I N   2 # T E M P L A T E P R O J E C T . W W I O L E D Y N T E X T . S T A R T   3 # T E M P L A T E P R O J E C T . W W I O L E G R A P H I C . S T A R T   4 # T E M P L A T E P R O J E C T . W W I O L E U S E R E X I T . M A I N   5 # T E M P L A T E P R O J E C T . W W I S E T E N V 3 2 . S E T P A T H   6 # T E M P L A T E P R O J E C T . W W I S H O W A N D H I D E . M A I N   7 # T E M P L A T E P R O J E C T . W W I S T A R T U P . E X C H A N G E   8 # T E M P L A T E P R O J E C T . W W I T E X T B O X E D I T . M A I N   9 $ T E M P L A T E P R O J E C T . W W I D E F I N E R G R O U P . M A I N   : $ T E M P L A T E P R O J E C T . W W I E D I T R E P G R O U P . M A I N   ; $ T E M P L A T E P R O J E C T . W W I I N S E R T P H R A S E . M A I N   < $ T E M P L A T E P R O J E C T . W W I I N S E R T S Y M B O L . M A I N   = $ T E M P L A T E P R O J E C T . W W I O L E U S E R E X I T . S T A R T   > $ T E M P L A T E P R O J E C T . W W I S A V E D O C U M E N T . M A I N   ? $ T E M P L A T E P R O J E C T . W W I S Y M L O N O F F . M A I N _ O N   @ % T E M P L A T E P R O J E C T . W W I E D I T T O O L S . D O C S A V E D   A % T E M P L A T E P R O J E C T . W W I S H O W A N D H I D E . S E T D L G   B % T E M P L A T E P R O J E C T . W W I S Y M L O N O F F . M A I N _ O F F   C % T E M P L A T E P R O J E C T . W W I X E X P O R T M A K R O S . M A I N   D % T E M P L A T E P R O J E C T . W W I X I M P O R T M A K R O S . M A I N   E ' T E M P L A T E P R O J E C T . W W I B O O K M A R K S . D E L E T E _ A L L   F ' T E M P L A T E P R O J E C T . W W I D Y N T E X T . C H E C K D Y N T E X T   G ' T E M P L A T E P R O J E C T . W W I I N C L U D E . C H E C K I N C L U D E   H ' T E M P L A T E P R O J E C T . W W I L I B D L L 3 2 . D E L D V S F I L E S   I ' T E M P L A T E P R O J E C T . W W I S T A R T U P . D I S A B L E S T U F F   J ' T E M P L A T E P R O J E C T . W W I S T A R T U P . I N T E R N A L I N I T   K ' T E M P L A T E P R O J E C T . W W I S T A R T U P . S E T _ A P P _ N A M E   L ' T E M P L A T E P R O J E C T . W W I T E X T B O X E D I T . S E T S H A P E   M ( T E M P L A T E P R O J E C T . W W I D Y N T E X T . C H A N G E D Y N T E X T   N ( T E M P L A T E P R O J E C T . W W I I N C L U D E . C H A N G E I N C L U D E   O ) T E M P L A T E P R O J E C T . W W I W I Z A R D . G E T _ H E A D _ F O R M A T   P * T E M P L A T E P R O J E C T . W W I E D I T S Y M P H R . C H E C K _ S Y M B O L   Q * T E M P L A T E P R O J E C T . W W I S C A N L A Y O U T . R E S O L V E _ F I L E   R * T E M P L A T E P R O J E C T . W W I S C A N L A Y O U T . S A V E S E T T I N G S   S * T E M P L A T E P R O J E C T . W W I S Y N C R O W O R D W I T H T R E E . M A I N   T + T E M P L A T E P R O J E C T . W W I S A V E D O C U M E N T . F O R M A T L A B E L   U + T E M P L A T E P R O J E C T . W W I T E X T B O X E D I T . C H E C K T E X T B O X   V + T E M P L A T E P R O J E C T . W W I W I Z A R D . G E T _ S Y M B O L _ F O R M A T   W , T E M P L A T E P R O J E C T . W W I B O O K M A R K S . D E L E T E _ S E L E C T E D   X - T E M P L A T E P R O J E C T . W W I S C A N L A Y O U T . R E S T O R E S E T T I N G S   Y - T E M P L A T E P R O J E C T . W W I W I Z A R D . F I L L _ I N T E R N A L _ T A B L E   Z . T E M P L A T E P R O J E C T . W W I O L E D Y N T E X T . R E M O V E E M P T Y L I N E S   [ . T E M P L A T E P R O J E C T . W W I T E X T B O X E D I T . I N S E R T T E X T F I E L D   \ / T E M P L A T E P R O J E C T . W W I S C A N L A Y O U T . C H E C K L A Y O U T F O R M A T   ] / T E M P L A T E P R O J E C T . W W I W O R D X P . W O R D X P S P E C I F I C O P T I O N S   ^ 1 T E M P L A T E P R O J E C T . W W I E D I T T O O L S . P R E P A R E _ F O R _ A N A L Y S E R   _ 3 T E M P L A T E P R O J E C T . W W I O L E D Y N T E X T . R E M O V E E M P T Y P A R A G R A P H S   @          G                             `   @      U n k n o w n                                   G  z                  T i m e s   N e w   R o m a n   5                       S y m b o l   3&  z                  A r i a l   "        ҷf                                            !                                                                                                                                                                                                                                                                                                                             4    d                  	B                                                           C                              X      ?    J                 H u n d  H u n d                                    X  @ X           S t a n d a r d      + CJOJPJQJ_HaJmH nH sHtHu                   J A  J          A b s a t z - S t a n d a r d s c h r i f t a r t     \ i  \          N o r m a l e   T a b e l l e     :V   4   4 
l a      0 k  0                       Oh +'0   T                                                     	                    (     4     <     D     L                                 Hund                              wwilayt.dot       Hund          15        Microsoft Word 10.0 @    g@    JJc                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ՜. +,0            h      p      |                                                                                              
                                                 Titel                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          
                                                                      !   "   #   $   %   &     (   )   *   +   ,   -   .   0   1   2   3   4   5   6   9   >   x   <   =   ?   [   W   A   B   C   D   E   F   Q   H   I   J   K   L   M   N   O   P   @   R   S   T   U   V   X   Y   Z   o   u   ]   ^   _   `   a   b   l   d   e   f   g   h   i   j   k   \   m   n   p   q   r   s   t         w   y   "  z   {   |   }         R o o t   E n t r y                                                 	           F            pBŒJc;   r     1 T a b l e                                                                                           	   @      W o r d D o c u m e n t                                                                                            S u m m a r y I n f o r m a t i o n                           (                                           '           D o c u m e n t S u m m a r y I n f o r m a t i o n           8                                     /          M a c r o s                                                                                   ᶊJcJc            V B A                                                             ?                       ᶊJcJc            T h i s D o c u m e n t                                          .   L                                                                         	   
                                                             !   "   #   $   %   &   '   (   )   *   +   ,   -   .   /   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   i   j   l   m   n   p   q   r   s   t   u   v   w   x   y   z   {   |   }   ~             L       z             X  #               <   Q:#PMa`c6	           F                    Ea|B               x    Ea|BQ:#PMa`c6    ME                   (    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 }        (                  %   H    `               %                 %   `                                h   8           @           tVH $ * \ R f f f f * 1 0 4 9 1 d 9 5 e d      4                                                                 	      	      	      	        x      Attribut e VB_Nam e = "Thi sDocument"

Bas0{00020P906- 0C $0046}|GlobalSpacFalsedCreatablPredecla Id TruBExposeTempl ateDerivBustomi&zD2
                                                       rU                    	       	     #                    1      	      Y              4   Y      a                0`                      rU                    	     "     @          n    _ _ S R P _ 2 2                                                                                                 _ _ S R P _ 2 3                                                                                               B       w w i S t a r t U p                                               l                                          G   W-      _ _ S R P _ 2 4                                                                                         L                                                                      rU              ~|         	       	     %      $        !                  	            1      Q      y                             $ A      y                 $                   9                 	                 $       I           q!      !      "              h     H  $   H  H ,c(%8H  $ 4  HX 8C H58 ,H  $   HH  @  ) H     	        	 6       	       	       	 <   0   	 J   p   	              	     "                                           	     	 L       
  p   	     	       	 t      	 ,      	 "   @    , h    , x   	                	          	      	 B            E     	     	    @     `   	     
  h   
  x   
     	     	        /    	          	      	     "                        	      	 (      * N      H     `   	     . l p   	           	      	     "      	 J                                      	      	 *   (   
  X   	     	    h   	 (      	      	 J      :     ,  8   F N h   	      	        v    	           	          ,       H   	       X   	    `     p        	          	      	 2     "           	            	 *    	     0	     8	     @	   	    H	     h	   	    p	     	     	   
  	   	    	    / 	   	      	 J   	   	 B   (
    1 p
   
  
     
   	       
   	      	 @   
  "   
   * f 
   
        0   	     @     D ********************************************************************             Name:       wwiStartUp    '    Issue:      TechniDATA GmbH/Markdorf      (                Felix Ardelean 26.09.2002            /    Purpose:   AutoStart Macro for initialisatin                 Changes:          6    [ Date ]-[ Name   ]-[Action                       ]       D ********************************************************************          force declare variable             ] @   ] X   ] p   ]    ]    ]      F -- program logic -----------------------------------------------------       (( *         Verborgen einfgen  m CommandBars("Formatting").Controls.add(Type:=msoControlButton, ID:= 2225, Before:=7).style = msoButtonCaption       % weitere sachen einfgen - siehe Spezi        MsgBox (ActiveDocument.Name)        ,! .( 0    (! 2( 0    WordOptions    4B@6      
 WWIOptions   4B@8       A@:      ;  delete the document variable p_result during the save time             p_Result  ,% < B@>         disable useless stuff     A @      BB@D          ,( 0        (( *         set page layout view        J  F! H( lo 0       ]   ] (  ] @    ! erzeuge globale Dokumentvariablen   ActiveDoc_full_name   ,% < ! L'           \   N% P '        '         $     ActiveDoc_name  ,% < ( L  o X  X      D -- local variables -------------------------------------------------      ]   ]   ]   ]   ]      #  First call the standard init macro         B              start the resolve   "  logic implemented in wwiRes32.DLL  C -- program logic --------------------------------------------------             \% ^ ' T '   Name + Path SymbolChangefile             \% ^ ' " 1   name of WWI.INI      ActiveDoc_full_name   ,% < ! L' V M   path + name RTF-File       save file as RTF   V    ,         s%         X                                                                                        x                                       ME                   X @    >
    
       *L    
    
         
        
    L    L         
    L    L    
    L    L    L    L        <\     <`     <d     <h     <l     <p     <t     <x     <|     <           
          `               o   ( (      `x         @h         ` f     x   `"`     f   @$P      Fel`&   N     02  :X    `            `  k    5     `x         @h         ` f         R    `               \k  $ $ D     PTx         P"t         PVp         @X`         PZ\     x @P    `             
  lo    h       `            X  Hk             P  X                       %       P  X       @      X      p   0          (,4:@BJF   @  H	        @8        @   (     @   @        @H  	        @        @	       (  @      `  H       ,N       @   @0  `	        @x  \	     @   @  L     (   @  <        @8	        @4     X   @2        @           @          @         @               P           \,fhl   @  X	        @8  T	     @   @h  D     (   @  4        @0	        @,        @          @          @          @          @          @          @(          @@          @X          @p          @  |        @  l        @  \        @  L        @  <        @ 	  ,        @	          @0	          @H	          @`	          @x	          @	          @	          @	          @	          @	          @
  |        @l        @\     @  
  
  
    p,JF(~     @(  x	                t  `   (     %   
      @p	        @l     (      p    ,         @@  x	        @t        @X  p	        @  l	     (   @\                   `  @L         @H	         h                    P                     tVH $ * \ R f f f f * 1 1 4 9 1 d 9 5 e d $ * \ R f f f f * 1 H 4 9 1 d 9 5 e d  * \ R 0 * # 1 0  * \ R 1 * # 1 6 6 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d $ * \ R f f f f * 1 < 4 9 1 d 9 5 e d  * \ R 1 * # 4 3 $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 1 * # 1 5 8  * \ R 1 * # d 0  * \ R 1 * # 1 a 7 $ * \ R f f f f * 1 E 4 9 1 d 9 5 e d  * \ R 1 * # c c  * \ R 1 * # c d $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 7  * \ R 1 * # c 6  * \ R 1 * # c 0  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                              	 J        	     P    	 .   p    	 .   b  f d  ,B@`         V  T  "  h% j ' X      X              \% ^ ' Z .   name of Report       Z  lB n   d     
 give error  ERR##425  lB n   k p  o h     + disable some (for generation) useless stuff                   CH 2005-05-02       p   #  disable grammar and spell checking        9 r   9 t   9 v     don't create wbk files     9 x     disable fast save  9 z  q h     ,( |         set page layout view        J  F! H( l  D CH 2004-07-13 disable messagebox about markups starting with Word XP        ; this caused Word to hang when called from generation server         (! $ ~  
       B         k `  o X     9  WA270106: internal init macro to allow offline debugging P      ,!   ActiveDoc_full_name   ,, <         B         o       ڷ Attribut e VB_Nam e = "wwi StartUp"0
'*@    z : IssueTec hniDATA  GmbH/Markdorf)@ Felix Ar delean 2 6.09.2002 *-PurpoBsYAuto  Macro fo r initialisatin Changes:!![ Da ]-[` < ActilonB] * # Rce dec lare var iable
Op?Explic it

PuBb Sub pi n()
  D im app_n!As SngapathJTemp  
IntegerEchWWIIniBAl@IiInd2e@fs '- - progra m logic f-1 Ap> no n.ScreenHUpdng FHalsI  V erborgen einf  CommandB ars("Formatg"). Controls .add(Typ@e:=msoDB utton, I D:= 22250, Be j 	7).styl
CajBweitBe rsachH#  - siehe  SpeziB
Ms@gBox (v eDocumen|t.v db.Saved BXTruAIKN:l
showAn dHideb	 ( "WordNs"bResto WI
a
SetF_%QU  'Zlje@kt d$f\  p_result` duri:s! timBOnp Errx # HNex a  L#Vf`<p_Alt <D@t'd@ k usss stuf   Call SAetEnv32.`Ph0Ve5"set pag e layout` viewWindow.V.S =wdP!
Enda-?	1Ç!'erzeu globa``DokV5  =4(_full@6ValcYŔ= 0Lib.F!Reverse(eL, "\T%+ 1c$E -Midd
 bW.ExcB-Aalocalf]schFile$Rtfn g)caPpRTF `g @First 0
l r7tpRards| ms10.MaQtAW'4 Q`<olv6'$_i0mpleLJinA`9`4DLLA_b?_b	1wiC".Get:(14, 1)aH + Q SymbolfcD3P?(1sv' !# of `.I|NIu%22./XJ'/2'pAth b0-q "R as AI ~Q	:=s	,lep:=w>d #DllLrJa$(- $, $"dIf 91 Tq} e)Q5$(19GRepor`[ *EdiXtTo}`U_f_CJ_v1E
eB	SE"give >efc	u/oj"ERR##425sHYIBeBgsoJ(  er)?iXYiEqq'CH `5-0    Wi$4z3x4pgmar  ?0 speock0x.CheckNGSPll!z= v  jAsYouj>Odon'Hreqwbk -sbBackup@"9faLq1$AllowF@09q=3u
Rs'zzzez$4-07-13 messP}babaU1Fw XPthis[d rto g w!!]!`Wfromh& sers8a(s) >= 109u0aXP.w XPPcif,ic%/bJ'  WA270106:en0qi f ЗowTf%aqbuggP
Irts0UocF`PgEUpDn!Sub                                                                                                                                                                           C
  / 	 C

  / 
    K E:( N88H  $ 4  H  0  8  ) H58 
    
    H  $ 4  H  H H  $   H  H /   H  $ 8  H  ,  ) H       p h4                      x ` h P             H   8 <       N48:L N<<\`  $ 4  `  \0  8,  >41x) `\85<  +2 C44x  pf/4 kfpf l'<kfxML@
  48:  N\`  $ 4  `  \0  80  /4) `\86 <         ,                      x h (          4 ` \ 8 <     L    
      1x   1t N,0:D N44TX  $ 4  X  T0  0,  >,1p) XT054 v'\'|''''''<'\'|''''4   pMD@X  $ 4  X X6 4|\<|\ txp^  iD` `(D ]32   1\ l\  1,/,D     1,/,            L8                       t x ` \ p X          , X T 0 4     | \ <      | \ ,       K x  $   Qxt  t   t   t   t    t   ct  x  $ 4  x x /   px  $ 8  x  p,  ) xp 1lx  $   x  ll
  
/lx  
               (                      t           l x p    t     ftx  $ 4  x  ltH:\ NLLlp  $ 4  p  l0  H0  /t) xplH5L 
            4 t $                       $          t x p l H L                 W                                                          rU                    	     $         $      $    `           $      $   `           $      $   `           $      $   `           $ !    $   `                 n           rU              ~|         	       	                _ _ S R P _ 2 5                                                     $                                       ;          w w i S h o w A n d H i d e                                      "                                          c   ,%      _ _ S R P _ 4                                                    -                                       ?   
      _ _ S R P _ 5                                                                                               k          ***************       F ***** External Function Declarations (DLLs) **************************       F ***** Shared Variables ***********************************************       F ***** Sub MAIN *******************************************************        *  called Subroutines:        *    F **********************************************************************        force declare variable    X           M -- toggle current settings --------------------------------------------------      (( *        F! H     5 5        9    9    9   d   9   9   9   k   q     (( *      o h     F ----------------------------------------------------------------------           Name: setDlg             C    Purpose: Set the Options of the Dialog ExtrasOptionenAnsicht for          -             manipulating the document correct               F ----------------------------------------------------------------------    @       @ -- set default values for options-------------------------------    F! H     9   9   9   q     ;  WA030603: we do not want any "intelligent" blank insertion          p(          5   Options.PasteSmartCutPaste = False  'only XP Method     o     setDlg    5  WA271101: save current setting to given registry key               ]     9 HKEY_CURRENT_USER\Software\TechniDATA\WWI\LayoutSettings\    '   F! H! X       ShowAll   ,        F! H! X       ShowHiddenText  ,          F! H! X       ShowHyphens   ,    F! H! X      
 ShowSpaces  ,      F! H! X       ShowTabs  ,        F! H! X       ShowOptionalBreaks  ,      F! H! X       ShowParagraphs  ,          F! H! X       ShowFieldCodes  ,          p! xX       CreateBackup  ,        p! zX       AllowFastSave   ,      X        OptionsSaved  ,    , CH 2005-04-15 save Word XP specific settings        (! $ ~  
         B    k   o      5  WA271101: restore last setting in given registry key            h  ] X   9 HKEY_CURRENT_USER\Software\TechniDATA\WWI\LayoutSettings\    '        OptionsSaved  %    X              ShowAll   %  X,  F! H(            ShowHiddenText  %  X,  F! H(              ShowHyphens   %  X,  F! H(        ShowParagraphs  %  X,  F! H(             
 ShowSpaces  %  X,  F! H(          ShowTabs  %  X,  F! H(            ShowFieldCodes  %  X,  F! H(              CreateBackup  %  X,  p( x           AllowFastSave   %  X,  p( z    / CH 2005-04-15 restore Word XP specific settings     (! $ ~  
         B    k   k   o       b Attribut e VB_Nam e = "wwi ShowAndH ide"

'*B     : kIssue 14-08 -1995-Pe ter Hug- TechniDA TA GmbH/ Markdorf >APurposC  Togge ls between s ing  and hidfield f unctions/#Rd text.Cha nges:[ Da ]-[s  A*]07. 09.95 Jrg&Stolz : programmFconvenD F$ ExA nal F; Declara  (DLLs) 
E$ Shar ed Varia0blesub MAIN-EA$@  call#S ubroutin=Ce*+ ) fo rce dKe v>
OpN@V@plicitPub @# Main()  '-- t le curry seBt@+gs -. 
  Apa .Scr@Upd@= FalseA	  AWith veWin dow.View!  If .!~\T\ OrC All Then FafCod>A
ETru+E@}I   ?! Aa '
 9!87    d	     (  W
  [         X                                                                                        x                                       ME                   (      6
    
        L    L   *L    L    L    L        <,     <0     <4     <8     <<     <               @      `              lk               `            0  pk    2     6     `            H  do       A    i           `x         8  `            x  ho 8     Y    i       nges`x     ate @             1   4                %   @                        (F    @   @  x	         @t	     `       p  `   (     %         @  n        @l           8  Fp    @   @   x	        @t	          p0  `        %               `     0    Fp(~@   @  t	        @H  p	     (   @n        @h	        @d     X  8  X  H  0    Fp(~   @x  t	        @p                e  @  l	         @h	         @                                          tVH $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d $ * \ R f f f f * 1 H 4 9 1 d 9 5 e d  * \ R 0 * # 1 0  * \ R 1 * # f f  * \ R 1 * # 1 6 6  * \ R 1 * # 1 5 8  * \ R 1 * # d 0  * \ R 1 * # c 0  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                            r  	      	 L        	 $   P    	 B   x    	        	 L       	 &      	    @   	    H   	 &   `   	 8      	       	 L      	 L      	 L   h   	 L      	       	    (   	 L   0   	              	     "      	      	 T      
     	      $     " (     8     @     H     P     X     `     h     p     x   	     
     	           	      	 L      	       	        	 J      	 4   X   	       	 L     "      	     	 F       $ 8     H     P     X     `   	 B   h   
     	      	 <      	            	 <     "   P     X      `   H  h   , Y    2 Y    0 Y    . Y H   , Y x   6 Y    2 Y    2 Y 	   	     , L P	   . L 	   	      ( ' 	   	 2   	    1 
    
 (
     8
   	       @
   	 <   H
  "   
     
      
   H  
   	     , 5 
   , V    2 V H   0 V    2 V    . V    , V    2 V H   	     , I    . I    	 6       1     
 0     @   	       H   	        P   	     `     F **********************************************************************        Name:       wwiShowAndHide       <    Issue:      14-08-1995-Peter Hug-TechniDATA GmbH/Markdorf&          E    Purpose:        Toggels between showing and hiding field functions                        and hidden text.                 Changes:              [ Date ]-[ Name   ]-[Action]      1    07.09.95 Jrgen Stolz: programming conventions           F *******************************************************4?`Ic?Dlg Ɨ Set the !Ks ofDialogxrascenAnsicxht  TC manipulB	 documNcouOcU'@_?--
^_OA_`gfaultgLluG@ ogs\5a75XWR'@M[= lKFD' W A030603: wo not  want@y  "intellit" blank inser!rA7.SmartCutPas`Ć_5eb@onl y XP MethodQS='I271101`: sav gipf regi stry keyS`(ch`(IAs S ngL   On Err@or Res$ N CDim c hRegKey &VPHKEY _CURRENT _USER\So(ftwd\}\WWI\Lay\Ep\" & aSym.PrivwProfile!
("",, B"ll")CInt(Pb" "aOV|(euypX~sOLc=SpacecRSTab14alBreak_\Pph}wM_r?2&&CpteBackupss.__Y`5owFOE_x
d"XPSCH 20 05-04-15!PWordTspecific&1!pVal(Versp) >= 10C  PXP.V ST	hTRq[ȅqf%[r estore l	Pe/[+[Xa_[pł_[x   _[~r %_[_[A_[s_[Ҩ/V/V$VyX"\^^Bool(\(")B0 *l\?hhow)cwҹ\p b Window.V iew.Show Paragrap hs = CBo ol(Syste m.Privat eProfile String(" ", chReg@Key, "" ))
   ActiveSpace6=bTab6`/FieldxCodb 5O ptions.Cre Backupȉ1.All owFastSaveq
'CH  2005-04 -15 rest ore Word  XP spec ific set
t sC<If V al(ApplicaA?.Vers@A) >= 10  Then
   Call wwiXP.CSa9(chSDģEnd If E
ASub
 
                                                                                                                                                                                                                      !                  	                  !      #      	$      q      9$      a$      $      $      1%      i%      %      &      i&      &      &      '      "                          x  $   x  x $tx  $ 8  x  Qtpx "np  knlp@  kl   pL    p    pD     pL   p   pD    cp x  $   x  x         (                      p           x t    t     $tx  $ 8  x  Qtpx pL   p   pD   cp  x  $   xx x  e       t (                      p           x t        K   *1x Ynpt  $ 8  t  p@  kn#d lx	 h  $ T  hT 
 /d) tph Ynpt  $ 8  t  p  kn#d lx	 h  $ T  hT 
 /d) tph Ynpt  $ 8  t  p  kn#d lx	 h  $ T  hT 
 /d) tph Ynpt  $ 8  t  p  kn#d lx	 h  $ T  hT 
 /d) tph Ynpt  $ 8  t  p  kn#d lx	 h  $ T  hT 
 /d) tph Ynpt  $ 8  t  p kn#d lx	 h  $ T  hT 
 /d) tph Ynpt  $ 8  t  p  kn#d lx	 h  $ T  hT 
 /d) tph Ynpt  $ 8  t  pH  kn#d lx	 h  $ T  hT 
 /d) tph Lnt  $   t  kn#d lx	 p  $ T  pT 
 /d) tp Lnt  $   t  kn#d lx	 p  $ T  pT 
 /d) tp '  lx	 t  $ T  tT 
 t 1dt  $   t  ld
  
/dt 
l 
     E       (                      x           d t p h   x    K   *1x 5p lx	 t  $ T  tP 
 lp 0/ptq Vp lx	 t  $ T  tP 
 lpWhl  $ 8  l  hD  /p) tlh Vp lx	 t  $ T  tP 
 lpWhl  $ 8  l  h  /p) tlh Vp lx	 t  $ T  tP 
 lpWhl  $ 8  l  h  /p) tlh Vp lx	 t  $ T  tP 
 lpWhl  $ 8  l  h  /p) tlh Vp lx	 t  $ T  tP 
 lpWhl  $ 8  l  h  /p) tlh Vp lx	 t  $ T  tP 
 lpWhl  $ 8  l  h  /p) tlh Vp lx	 t  $ T  tP 
 lpWhl  $ 8  l  hL  /p) tlh Ip lx	 t  $ T  tP 
 lpWl  $   l  /p) tl Ip lx	 t  $ T  tP 
 lpWl  $   l  /p) tl 1pt  $   t  lp
  
/pto 
l 
            x(                      x           p t l h              \                        rU                    	              $          `           $         `           (         `                0(         `                0      n                              rU              ~|         	       	     '      &     w w i T e x t b o x E d i t                                                                              [:      _ _ S R P _ 2 6                                                                                      o         _ _ S R P _ 2 7                                                     E                                                 w w i S c a n L a y o u t                                         a   O                                          ES         -    	      
     
     	 Z      	      	 &   x   $ K    	     	 4      " <     	     	 *   (   ( g X    I    ( j     I          I         	     	 *       
 0 0   	     	     @   $ K `   	     	 Z      	 "       #     #     	      
  0   	 Z   @   	           	     "                        	     
     	      	     P     	        (   	      F 0    9 H    < `     x    /         	               	     , Z    	          	 L      " < @   	        h     p        	          	     	 B      	 .      	 4   	   	 N   H	   	    	   	     	     	 V   	   	     " 9  
    E (
     H
   , W P
   	      	                                                                                                                                                                                                                                                                                                                                                                            T   
   	     	        
   	      
  
    9 
    <           / (     8     @   	     
  H   	      	        X   	    `   	 Z   h   	      "                  	     	 .      	 ^      	 L   x   	      
     	      	 6       F     9 (    < @     X    / `     p     x   	      	      	 V            E     E           	     	         (    / 0   	     
  H   	     " 9 X   	     $ F     E         	          	     
     	      	 T      	      	          @   	      
  H   	        X   	      	      	      	      	     "   `      h      p      x   	      
     	       F     9     <          /         	                	       h      	 <   p   	 2      	      	 L      	    8   	 B   H   	 8      	       	      	      .     .    	     4 g     D @   
 ! X   	      
  h   	      	        x   	      	          D **********************************************************************        Name:       wwiTextboxEdit       '    Issue:      TechniDATA GmbH/Markdorf      (                Felix Ardelean 05.04.2002          =    Purpose:    Macro for edit Texfield Data in a new Document                   Changes:          6    [ Date ]-[ Name   ]-[Action                       ]       D ********************************************************************          force declare variable                  F! H( l  S -----------------------------------------------------------------------------------       ] @   F       ! %  .       ] X   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------          Schaue am Anfang des Dokus nach           1    B@        . Markiere erstes Zeichen um grsse zu ermitteln               B@         $ Setze Zoom anhand der Schriftgroesse        ! !    
   ! !         F!                     v                                                                                                                                                                                                                                                                                                                                                                          -         XP=                                                                                        x                                       ME                   x   @   (L    6
    L    L    L              L    L    L    
    L    
              L    L    L              L              L    
    L    L    L             <|     <           p
  
  p      `            h  k   - -      `p	     5  W`,	     t se     `              k  D D ;     `z     rdel`t         `p         p    `              k  7 7      `x          th             %     `              k  ) )      `x         `t         `  r                p   p       @              %          p   p  @   X   @        P  (    F4(   @8  x	        @@  t	        @h  `     (   @  P        @  @        @  0        @          @          @        @     X         i c    @p          @X  	        @	        @                    @            (FJ\l   @X  l	        @p  h	        @x  d	     p   @`     X   @^        @  L     (   @0  <        @`  ,        @(     p   (  ,  n g @   @H       @   @     (   @        @  	        @	     P  8  `      @      H    (FJ,   @x  p	        @  l	        @h	     (   @d        @X  T        @p  D        @  @	     	 0          @<O	              @:        @  (        @          @          @          @        @       (     	  
  @
  	  (
  (FJ   @	  l	        @	  h	        @
  d	        @`        @
  P     X   	  ,          @   @X
  @     (   @0                   x  @          @	     d%P
                    p                   H  tVH $ * \ R f f f f * 1 3 4 9 1 d 9 5 e d  * \ R 1 * # 1 5 5  * \ R 1 * # d 4  * \ R 1 * # 1 5 6  * \ R 1 * # 1 5 2  * \ R 4 * # 2 a  * \ R 1 * # b 6  * \ R 1 * # c a  * \ R 1 * # c b  * \ R 1 * # c 6 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 1 * # 1 5 3 $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # 7 3  * \ R 1 * # 1 a 7  * \ R 1 * # 1 5 9  * \ R 1 * # d 2  * \ R 1 * # e 3  * \ R 1 * # a 4  * \ R 1 * # 1 e  * \ R 1 * # 1 2 9  * \ R 1 * # 2 0  * \ R 1 * # 1 f  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # 1 5 8  * \ R 1 * # d 0  * \ R 1 * # c 1  * \ R 1 * # 1 7 b  * \ R 1 * # 7 1                                                              	 J        	 $   P    	 .   x    	 .       	        	 D       	    (   	    0   	 <   H   	 J      	              	      	     "       	       /    	      	 Z      " 7 x   " 7     -   ! H! (   ! !   
   ! !     e     F! ! H! ( d     n   F! ! H! ( k      $ Makiertes Zeichen wieder demarkieren        B@            goto the top of the page         1    B@        S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o X  p     ]    ]    ]       (( *       H HKEY_CURRENT_USER\Software\TechniDATA\WWI\LayoutSettings\WWICheckOptions'  '     F! ! H! l  J    F! H!           J  F! ! H( l    d      J  F! H( lk h   '   k X           \%    ! !            OK   lB@n          F    Probleme wenn der Anwender nur auf den Rahmen des Textfeldes klickt               B@       d     ERR##610   lB@n  p  k h     ;  Save the Index of the selected Textfield into the registry          (   If Selection.ShapeRange.Count = 1 Then     .     chShapeName = Selection.ShapeRange(1).Name       H     System.PrivateProfileString("", chRegKey, "ShapeName") = chShapeName        End If     O  begin - WWI 3.2 SP 1 - C5038495 - 3.09.2003 ----------------------------------    
 WWITEXTFLD  ,! %           
 WWITEXTFLD  ,%  B@>    k     !   
 WWITEXTFLD   ,! B@        M  end - WWI 3.2 SP 1 - C5038495 - 3.09.2003 ----------------------------------      F               F! H!             F! ! H( l    d       F! H( lk   k     (( *      o             S  This Macro will be called, if we return to the main document from the "Ausschnitt"                   ] 8  ] P     (  get the name of the Shape from Registry     W   chRegKey = "HKEY_CURRENT_USER\Software\TechniDATA\WWI\LayoutSettings\WWICheckOptions"      F   chShapeName = System.PrivateProfileString("", chRegKey, "ShapeName")       (( *         /  Set the view in the normal mode for the Shapes     F! ! H! l  J    F! H!           J  F! ! H( l    d     J  F! H( lk   k      O  begin - WWI 3.2 SP 1 - C5038495 - 3.09.2003 ----------------------------------        
 WWITEXTFLD  ,%  B@H     
 WWITEXTFLD  ,%  B@>                ,!           B@H         
 WWITEXTFLD  ! %              
 WWITEXTFLD   B@       
 WWITEXTFLD  ,%  B@>     0  k (                M  end - WWI 3.2 SP 1 - C5038495 - 3.09.2003 ----------------------------------           (( *      o    p    ]   ]   ]      (( *        F! ! H! l  J    F! H!           J  F! ! H( l    d       J  F! H( lk    '   k         Y   If WordBasic.Call("wwiLibFile.validCmd", 21) Or'    Selection.ShapeRange.Count = 1 Then    6     'ActiveDocument.Variables("p_Result").value = "OK"       ,     wwiEditTools.set_doc_global_value ("OK")         F       Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend          Else       <     'ActiveDocument.Variables("p_Result").value = "ERR##610"         2     wwiEditTools.set_doc_global_value ("ERR##610")      End If      % 
 '           % 
 '                    T@       T@  ,!  %  B@H        ! ! ! B@H      B@          (( *      o   x    V Attribut e VB_Nam e = "wwi TextboxE dit"
'*@     : Issue TechniD ATA GmbH /Markdorf)DFeli x Ardele an 05.04`.2002 *-P urposYMa cro for 
e  ufiel d Data i n a new  Document!Changes
:([e ]-[i C ActionI] D] ce decla re variable
Op?Explici ]

Pub  Sub MaiHn()
  Uv eWindow. View.TypwdNormafl
'-? M 
  Dim o rgDlg As  Object: SetE= W ordBasic .DialogRec@.Tool
sC;s)(False@6BeaD"A!CurValues -76A #CXCall Show AndHide.set 1Apsav.ScreenUpdngB>A	i<?Sch aue am A,nf`@Os dkus nach6l7_.GoTo  What:=wdPage, ichENext",="1`  ba|ieZers@tes Zee n um gr sse zu e rmittelnMoveRight Uni`v racter, Coun`1, Extend!#a ' Oze Z@oom an}d	r rift0groeIfFont.SiQ > 0#dr<= 6 TheCËo#qPanep.Perc '`<h500E`\v6y1215',11ndl I`=k<I<wieder@.m[a@b%S@.;LefD got o the top ofBp &QToQ/b?<I' { o`d a%s-nTrupc  CoCEPg xhChepckte2hS[b\Sv`B0^|b chRegKey%SPngShapepdSq1 &@HKE Y_CURREN T_USER\SPoftwv\w\ WWI\LayoutCtings?!iM= 6[=C4x5by<> wdqT1<	.SbtSpec sCneNoneo<ive7H綀5
  H ?rO@~@?;  5("B`qL ibFile.v alidCmd( 21) Or _cg>2 R!.^~1 12v_7_global_0n("OK"ŀ' Pro`@wenn`An QJnur auf@n Rah stfkk@kJ aELjjj'oocmERR##610bPXcSavpTTIndexT2sWedRinDWregistry]H a ch;=Pp(1).ym.Priva4te`f !s>("", A, "") 6Bb0n - p< @3.2 SP
-  C503849B53.093~ NA1 F95.Lkams.Ex@s("TEXTFLD
10*3@{.Dt[1Add*:=W33H	[' p{0
100ԡ p@XvQM=RQMM12MMnNgggSOaASub(!)This!wiPbe ced, if  we return0m  Vfr"Ausstth'ZjR2w 
  Dim c hShapeNa me As St ringmyp` \
'  get the 2nhofPfr om Regis8tryT  Ke y = "HKE Y_CURREN T_USER\S oftware\ TechniDA TA\WWI\L ayoutSet
t sChec kOptions"Ys= Sy stem.Pri vateProfile("",, "6")
 i Applica-.Scre enUpd ngAZFalse' Guview innorma l mode f,or	0s,If  ActiveW@indow.P ane.V ".T ype <> w dPage	 Then  S UtSpeci:=neNonze  :E}9  
-B*nd)EDJbn -  s 3.@2 SP 1C5038495 3.09.2003 - On Err@XGoTo _old_s`chool,D ocument. Bookmarks(" TEXT FLD").SePlect(D ty   9A*
!:F(Each Inc&Ǉ E
&  C,4.Ex cL6Tru  =0What0:=wd$, i:=%_+B+'%aH"%	 FNextGeHFFaJ!

a 3}'!!Sub Pub    InsertTfield(@PosTopALo'LeftbajChang㢮0lea~σ4`lIЄ$GI&= 6  6I
f!5'Word Basic.Ca ll("wwiLibF.val idCmd 21) Or _bIdsRA3.Count !1  'aVariableqp_Resu<lt qOK	  EditT s.set_ doc_global_("C"Move"IUniwGracter, :=1, Ext ha{#ERR#P#610lal ("6p0"MT2zrX!IInpsmw(wdV5xliyRel0veTor0  OEHorizontaog6CyY.Add>b@ox(mso Ori@e, ?, 80#B yf\%AFr. &a	'Collap`}KOJK                                                                                                                                                                                                                                                                                                                                                                                                                                       !                              I      	      Y      J            	      S      YB            ш            !      !     Y                        ي                  A      i                          8    /   tx  $ 8  x  t,  ) xt  5f`%x  $ @  xW@ B0  4px6 @0  5f`%x  $ @  xW@ B0  4,x6 @0 -p	@x  $ @  xW0   x50 -,	@x  $ @  xW0   x50 
	     x  $   x 
 x Kt: N'0   @   x  $ <  x ) xt6 @0 <   (0 @   x  $ <  x  x6 @0 gtx  $ <  x<  t  n   $ <  <    n) xtW I  tx  $ 8  x(  tH  p  ,  ) xtU gtx  $ <  x<  t  n  $ <  <    n) xt
 I   tx  $ 8  x(  tH  p  ,  ) xtU  In   tx  $ 8  x(  tH  p  ,  ) xt  0''0'@x  $ <  x x6 @0 Kt: N'0   @   x  $ <  x ) xt6 @0 #p	@x  $ @  x  x #,	@x  $ @  x  x x  $   x 
 x        8,                      , p ,          x t   @ 0          l  $   l 
 l  Ct  pz F`dhl  $ 8  l(  hH  d(  l`   ) lhd& 9`hl  $ 8  l  h l`    ) lh  <   dhl  $ 8  l(  hH  d,  ) lhd  /   hl  $ 8  l  h,  ) lh  pz  Z+^L
  L`hl  $ <  l0 h(  l`   <,) lh6 L<    1(/( <`   (, L   l  $ <  l l6 L,     1(/(   9^ hl  $ 4  l8  hH  k^) lhh Ed:< NLLhl  $ 4  l8  h@  dP  ) lhd5L  Whl  $ <  l  QhoL d  $ 4  d8  D  ) ld5L  kzy 9`hl  $ 8  l  h l`    ) lhF <   dhl  $ 8  l(  hH  d,  ) lhdw  /   hl  $ 8  l  h,  ) lh   l  $   l 
 l        ,   \                  t p 0     	     ( l h d   L ,   
 <       p  $   p 
 p Fdhlp  $ 8  p(  lH  h(  ld   ) plh 9dlp  $ 8  p  l ld    ) pl  <   hlp  $ 8  p(  lH  h,  ) plh  /   lp  $ 8  p  l,  ) pl   K Eh:T NDDlp  $ 4  p8  l@  hL  ) plh5D Eh:T NDDlp  $ 4  p8  l@  hP  ) plh5D  /lp  $ 4  pD Ql[@tp<  'Dt 5D 9: lp  $ <  p  lH  k:) pl Fl:( N''Dp  $ <  p ) pl6 D Eh:T NDDlp  $ 4  p8  l@  hP  ) plh5D   t<  p  $   p 
 p          4                       @ < t x (          p l h D      d     l  $   l 
 l F`dhl  $ 8  l(  hH  d(  l`   ) lhd 9`hl  $ 8  l  h l`    ) lh  <   dhl  $ 8  l(  hH  d,  ) lhd  /   hl  $ 8  l  h,  ) lh  pr  .P   l  $ <  l  P"qxl5P .P   l  $ <  l  P"qtl5P g' d'P      T@7      T@7lx7lt7   hl  $ 4  lD hX  d ) lhd6 P  Ddhl  $ <  l0 h  dP  | ) lhd !'Pl  $ <  l< l5P l  $   l 
 l       ` d$                       $          l h d  P                \                              rU                    	     &         $      &    `           $      &   `           $      &   `           $      &   `                 n                                                rU                    	              $          `           (         `     
         0$         `           $         `          $ !       `           $ I       `           $ q       `            0  * \ R 1 * # e 3  * \ R 1 * # 1 5 9  * \ R 1 * # f f  * \ R 1 * # 1 2 9  * \ R 1 * # 1 a 7  * \ R 1 * # d 2  * \ R 1 * # c 0  * \ R 1 * # 1 5 8  * \ R 1 * # d 0  * \ R 1 * # 7 2 $ * \ R f f f f * 1 < 4 9 1 d 9 5 e d $ * \ R f f f f * 1 E 4 9 1 d 9 5 e d  * \ R 1 * # 1 2 5  * \ R 1 * # 4 e  * \ R 1 * # 1 6 6 $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 1 * # 4 3 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d $ * \ R f f f f * 1 C 4 9 1 d 9 5 e d  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                              	 J        	 "   P    	 .   x    	 .       	        	 F       	    (   	    0   	 <   H   	       	 J      	               	     "      	                           (      0      8      @      H      P      X      `   	     D N h           e  A         X'D                                                                                        x                                       ME                   x    @   (L   (L    >
    L         L    L    L    L         L    L    L    L         
    
    L         L    
    
         
    
    L    L    L    L        <|     <           0  H     `            x  Dk   - -      `z         `t         ` X   p     x   `"l         `$h         `&d         `(@   `         `*\         @,L         `.   J         `0D         8    `            x  $o     3 3 ;    Y<           `Xj         `>  d         `"`         `@\       `BX     X   `D  T        `FP        `HL     0  `J  D     ame `L   @     P  \    `              pk    n     `^z       ``t     % 6+b    `              o   = = ~     `Xx     $ 8`"t     9.20`0p     rd S`fl     e Re`h`  h      `jH  f     LD  `l`       `n  ^       `pX         `rV         `tT         @v8  D         @x8  4         @z  $         `|  "         :    `            `  Zo         `x         `    `              `o         `x             `               tk         `z         `x         +H    `              \+           t(             %   `^r         +  `              \k          t            %   `^r         `p           H            H  `     8              %     H            H  `                  p      0    0  x  `    ,2Nf8:l   @H  @	     @   @  <	     (   @  ,        @          @	        @        @          @	          @ 	          @8	          @P	          @h	          @	          @	          @	          @	  t        @	  d        @	  T        @
  D        @(
  4        @@
  $        @X
          @p
          @
          @
          @
          @
          @
          @           @          @0          @H  t        @`  d        @T     @D       P      8    h      h        P  0  @8l       @      	      \NpR,Bh   @  <	        @8        @4	     @$           h  lb\     @p     P      h           P  x           0    8  H  P  `bz     0`  8    	      F\,Bh(l   @  	     @   @  	     (   @        @        @	        @        @        @       p  J     `      0     F     @H  t	        @p        @x  l	        @h        @  d	        @  `	        @\	     H  @Z     H      x  F      @   @  t	        @p        @  l	        @  h	        @  d	     @`	             l @t         0    `          `z             	 (       ,         @   @  l	        @h	     	 @8  d	      wP      @`O	     x  8   @\     8  
     (      x       (  `  @  `z       P  (    	        N,  @   @  l	        @h	     	 @  d	         
  @`O	         
      
   @\                    	 	                 H                  @  tVH $ * \ R f f f f * 1 4 4 9 1 d 9 5 e d  * \ R 1 * # 1 0 7  * \ R 1 * # 1 5 5  * \ R 1 * # 1 5 4  * \ R 4 * # 2   	     	 .      
     	          	     * S    	      v (   
  H   	        X   	        h   	 6   x   
               .               	              @  (   	       .  h   	           	      	 J     B      	            	                              	               (      0      8      @   	      	 L   H   ,     0     	     2     2  0   	     	 B   h    
                        	     	 V       	 *   X    
     
          $           3          3               	     
     *      *   P   	                	       	 f      	     	  "   	   	         	      	   	 6    	     X	   	       
 h	   	 `   p	   	 &   	     	    
 
   	         
   	      	     B   (
   	 J   0
      
      
      
      
      
      
      
      
      
      
      
      
      
      
      
   	     	 J   
     H    / P     `   	      	     h   ,     2     H N    	      
  8     H   	        h   	 (   x   
      8     E     E    	      ,     	 <         `   	 T   p   	 (      	 @       < 0    / H    9 X   
  p        `     	          	     	           	           	      	       	 @       	    `  "   h      p     x   P     ( L    & L    0 Y     6 s P   0 f    	 ,           	      	       	 V      	    P  "   X      `     h   P  p   	     	 <      ( H     & H (   0 U P   6 o    	 @      0 c    	        (   	      	 (   0   	 D   X   	      "      	                  	     
 
    	     
 
    	      
     	 ^         `   
  x   	 4                                	      	      	 R     B   `      h      p   	       x   	 2       /     #              
     	     	             	           	      	      	 4   (   	 4   `  B                        	          	       
     	     
      /           ' (   	 "   @   
  h     p     x   
          	     	            	          	      	          D **********************************************************************        Name:       wwiScanLayoutt       '    Issue:      TechniDATA GmbH/Markdorf      (                Felix Ardelean 19.09.2002          ?    Purpose:    Scan the Layout and create the lehsfil0.chk File "               Changes: i o .    6    [ Date ]-[ Name   ]-[Action                       ]W I           D ********************************************************************stry      force declare variableRENT        ] @   ] X   ] p   ]    ]    ]    ]    ]    ]    ]   ] 0    ActiveDoc_full_name   ,% < ! L'  P  ActiveDocument.Name he v   '  Delete all the old WWI Error Bookmarks   2B@4  J        META  N% 6  
 METACOLOUR  ,, <      b  f d  ,B@`     ,( 0in - W  $ 8 ' C5      9.20   0    Save the Word Screen Settings in the RegistryIT  B@:  %    OK   lB@n TFLD  d       ERR##603   lB@n  3  Fehler beim Scan  k            ERR##601   lB@n  1 ! Fehler beim Sichern des Dokuments  F     i am not allowed to use end :-(   o `     D --------------------------------------------------------------------      H    ]   ]   ]   ]   ]   ]    ] 8  ] P  ] h  ]     F -- program logic -----------------------------------------------------          \% ^ ' " /   name of WWI.INI            \% ^ ' @ /   name of wwilayt.INI 	     \% ^ ' > .   path + name structure            \% ^ ' B .   path + name structure         <  write value in structure file only if the layout is a label        N% N        	 EHS_LABEL ' D      d     
 EHS_REPORT' D      k      P  WA160201: in some cases PageHeight and PageWidth seems to have incorrect values    $  ignore overflow resulting from this         ' F   ' H  `     p! P' L      R  p( P      ,! T! V' J  J  ' F    ,! T! X' J  J  ' H    L  p( Px   BB@D              WA160201: reset error handling         <  >  "  B  D  F  H  h% Z ' X        X' 8i p            _  Nach dem Check wird die *.chk Datei von Resolve bearbeitet und es wird eine neue *.WWI erzeugt              ]   ]     / ActiveDocument.Variables("p_Result").value = ""         lB@n   b' ^   Y  WA110700: set document saved to be able to return successfully to R/3 and to keep status         ActiveDocument.Saved = True         \% ^ ' `    `  \B@d   o          D -- local variables -------------------------------------------------      ] H  ] `  ] x  ]   ]   ]   ]   ]   ]   ]    ] 8  ] P  ] h  ]   ]     C -- program logic --------------------------------------------------               F! H( ~ ' |     -- Call checkLayout -----       \% ^ ' " 0   name of WWI.INI          \% ^ ' h 0   Name + Path checkfile    ActiveDoc_full_name   ,% < ! L' 0 H  ActiveDocument.FullName   BB@D         0  h  "  h%  ' X  '     X     Tec  " -- Empty the File and insert C.rtf   (( * Ardel  F! H! l' v  F! ! H! ' xpose  F! ! H! ' zfor       \% ^ ' f 2   name of Report       5 ActiveDocument.Variables("p_Result").value = chChkRTF       f   lB@n   M  WA070800: set layout view, show hidden, otherwise errors cannot be displayed vari  " ActiveWindow.View.Type = xViewType  9 ActiveWindow.ActivePane.View.ShowHiddenText = xViewHidden   x  F! ! H( ----  J  F! H( l  F! ! H(         (( *orgen d x    ERR##607   lB@n  3 A Interner Makro Fehler: Fehler beim berprfen der Berichtsvorlage k  	  If nErrValue = 1  |' bi    DoCheck           :  bevore we close the Document we have to save the Settings           ]         H HKEY_CURRENT_USER\Software\TechniDATA\WWI\LayoutSettings\WWICheckOptions'   ! X       PosBegin  ,    !  X       PosEnd  ,      F! H! lX       DocViewType   ,    F! ! H! ! X      	 ZoomLevel   ,      F! ! H! X,       ViewType  ,     &  ideal waere noch die Panes zu setzten    o             O  After we load the new Document with the bookmarks, we have to set the Settings              ] H       H HKEY_CURRENT_USER\Software\TechniDATA\WWI\LayoutSettings\WWICheckOptions'   5 CH2006-08-29 tidied up this sub and use VB type casts            PosBegin  %  X  (        PosEnd  %  X  (           DocViewType   %  X  F! H( l      	 ZoomLevel   %  X  F! ! H! (     9 CH2006-08-29 the Show all was not correctly set up to now        ViewType  %  X,  F! ! H( o      ! check layout for formating errors    > having styles with attribute hidden might cause errors in Word        CH 2006-06-20     `    ]   ]   $   '       $   '                   X having styles with attribute hidden may result in severe errors during report generation    ERR##623   lB@n    e         - shape groups cause errors in label generation       ERR##624   lB@n d      OK   lB@n       k    o 
     L CH 2006-06-20 having styles with attribute hidden might cause errors in Word          ]   ] 0   ' ^    , check for styles which have attribute hidden            ,!          ! !    ' ^  k 
                singel exit point   ^' i 	     . CH2007-08-31 check for shape groups for labels       . shape groups are not supported by WwiLabel.DLL    H    ]   ]   ]    ' ^     check if it is a label    $ N  '                       ,!           ! l      ! !    
       
  found grouped shapes/textbox      ' ^  k   k              k h     singel exit point   ^' i @  8     Attribut e VB_Nam e = "wwi ScanLayout"
'*@     : 
Issue TechniDA TA GmbH/ Markdorf)CFelix  Ardelea n 19.09.02002 *-Pu0rposY the  and` crea
l ehsfil0. chk File"Changes":)[ D]-[j D ActilonJ]$Df orce dec lare varHiabVOpAE xplicit@

Pub  Sub Main@()
  D im Resul t As Integerp_A?)lRfSng?AvIn"iQErrRe portC@UgoryHeigh	"LoI"WidtFhnRe@?  9nSavedA9chOriginalDocKG2:p@= wve
ument."VD]s("F_f ull_n") lueF'VAD@all¦old WWI Kor BootkmsAV._  OnGoToH/METACOL`OUR") @Lib.Get@(""F	+G:A:=p&,h Format:=wd#RTF0	d TrunS= v!(p@	IfX= 1 Thena*  !!)Word@re en Setti@ngs inbRegistry	  `A.EditToo ls.set_d oc_global_va=("OKc%Els?
ERR##603@0'Fehlepr be taE% I  B;10a{D@_C1N@icherns0 Dok[M
 10: 'i a@m not Lowhto use e :-(@SubA'- >qFunc ?chE$?"| !V/O+'tre|C mҕchTM>P4oC
Ty*pPl3ldTempDo IalCurrMeasure!a/ progr@6logic 1-cht=A1 AAAPath( 1, 1)M '" !O ofaK.I<NI0, 02lay~tUY9' p 
 +	=uctceo`4oos' wriZ?Df R
only ifEp is a labelK`QVL!InfoV|()K'A$ E HS_LABEL  WEREPxORT#8B~'  WA16020$1:QOsoca ses PageD) (seem4s >hs@correct0Nh@' ignoo verflow rU fromMiU/=  K > . j^`	Ne&xb{n.= s./Un!PoRdwdPoint5n|A@^up. 1w* 100"rr= mtPa1 0#
Env32. 8aK0#`et err0dlQn0c3S0Dllƿ(V, 6T A $5 QO, t TZU[
Am5^0{!a{Nachhm  Check wi{die *"Qi vP #olvRe@rarrt0up/@-"eine dne*.
zeug%'ekqQBaVb࣡UͰlPechQPa@Iȕp_-ltB=R:{ﬄ=yBaa=1070 zP 3PR{ sp;be& !<re Pn successbyaR/3k eep stat:u2'G=   vTT2bcêq܃D>o"Q}qnlocalsnmE0˃q Vpǿ Chk`{"b>^06Tx;nS2FOc @MsgKiLV Integer 
  Dim n Mode As xViewType@Chars
"Hidden$bAbortBoolea08 '-- prog ram logic -. GOn  Error Re sume NextActiveWindow. .Seek = wdMainhDoc 5nU= Fals s#S Call che ckLayoutTchWWIIni)wiLib File.Get Path(1, 1)  ' naPof .INbI!Chk!4, 2!' N!l+ 0If 9$Originali &o.Variables("@_full_J") lue '&F@
ww iSetEnv3.2SB9n@`VaǁVADllK 7(chH&,@-D<O)If 1 ThC  a Empty the Kand inseC.rtfA"  Appl ication. ScreenUpdngDvdJɊŹ  G
CJPaneėhowAll!C
&T®ch@IRTnF@@]8˖R<ep sȀp_lt ~v$7%cAEditTvs .set_doc _global_#:C7!*' W A070800:R   lev,$ s# hB, o`8rwise eAws cann ot be disp ed*M3",4DQ3G,## ;fMcA wdPagfe.S#Tru¬YEa06("ERR##607") 'a rner Mak ro Fehler: 1be rprfen d Berichtsvorl  Eq x'xae DoC#c~Fun )on '$'
'@  e we clo Fehave to s @0ting`Pub Sub S e("VchR egKeyStr Auʦ= " HKEY_CUR RENT_USE R\Softwa re\Techn@iDATA\\OeA Opas"System .PrivatePro("", "PosBe7= CLng(Sele'.Startb
	
 n.`	 ]1/A05.ZoomLevel2~SX.Percent*k}(z1<0B`'  ideal w aere noc
hPMe{nes zuQztqm)1.Aft 6.loadrnnew .ithRbook@marks,0et&3
0^tore?0?0 &0<?0?0?09?0q0'CH200 6-08-29  tidied uppis sP<1u`@VB tc|stL0	15le5y5"V5a6D")#0O
??5M)<0T7GW}was.t  corr IlyRopwz
4A
6?L:@

Sub5rfp0 mÇp2@d_ sty$ wq6at`buteD migha'Tin W,or@ s+6-20Z7^`For߀q7g_S7a$hape_gro0)uCSr>xՄS!Gs	p{/,)o oayd rlt  vs1Pduv ,gepo"  ǯ23"(aQMs BqAlabelwi4_o("OKT*(CH$ ??)w)$ )z" ) As Boo lean
   Dim sstylebRethX= FalsT'check  for |s  which ha ve attri bute hiddeF REa ! s In Act iveDocument.Ssg   If s.Fo H< ThAF   Tru 0 End 19Next C'si ngel exit pointCZ+9 = )
%Fun Mo Y

'C H2007-08-31 yhap e groupsAlabel >'sare noJupporte d by WwiL.DLL
`Priva ; QS"G/({\b5i f it is ,a 4b= InfoGet() kFek|8kvB}Ty@U= mso>J~Items.C ount > 0	  'fdg# ]ds/t box,A BM= MHrܚ                                                                                                                                                                                           _ _ S R P _ 6                                                                                                 _ _ S R P _ 7                                                    ,                                                   w w i N N G r o u p                                               7   ^                                          k      _ _ S R P _ 8                                                                                                    l  pr   t`1 O   krpz          0                       d ` t           l h                             C      <@ $ 4  @  <0  ,  >1t) @<5 
    K S 	  #:,
 N<@ $ 4  @  <0  0  /) @<5 v'D'd''''''$'D'd''''   tM,@@ $ 4  @ @6 dD$dD @ $ 4  @  @ t
  Upz5 kz$        `          $        `                n      @           (          L l h drU                    	              $          `           $         `           $         `           (         `     !
         0       n       1      Q      C              d         B	         X6                                                                   f * 1 5 4 9 1 d 9 5 e d  * \ R 1 * # d 4  * \ R 0 * # 1 0 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 1 * # d 4 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 1 * # b 5  * \ R 1 * # d 6  * \ R 1 * # c 6 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # d 8  * \ R 1 * # 1 2 9  * \ R 1 * # a 4  * \ R 1 * # 1 e $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * #              R         X_                                                                                        x                                       ME                   P   @   (L    >
        
    L    
        *L    L        L    L              
    L    
    L            <T     <X     <\     <`     <d     <h     <l     <p     <t     <x     <|     <                  %   0   H           `            x   k   G G      Px         @h     x   @X     OSHU@X   H         @   8      addP4     arou@$         P       28.P      rU              ~|         	       	            	   3   9      !                        y                 ( I8                        !                 9      q            q     A            !                        q                                   	      ш            !      YB      I      9$                              )                a            я            i      S      J      N:,  N<@ $ 4  @  <0  ,  >1t) @<5 
    K S 	  #:,
 N<@ $ 4  @  <0  0  /) @<5 v'D'd''''''$'D'd''''   tM,@@ $ 4  @ @6 dD$dD @ $ 4  @  @ t
  Upz5 kz~ 
       1/     1/      1/        8@           (          L l h d p t D X           @ <       d D $      d D  
         1`     1\ 	  1d   1X 
   O   CTY    CT  
    qP 
    qL K $8< $   <p  l8q@<     < $   <t  < 384< $ 4  <  4X  n8tD) <4 oDqP 384< $ 4  <  4P  n8tD) <4 oDqL l@< $   <t  < 
    K  lLlPlTlXl`ld ^  pj kjD$l   +     X <            $         l ` d T \ X           < 4 p   8        1p/p 
   pz   1t 
t
    e      8 (                      t           p       K /     $ 8      )   p"   1t   1h N:  N $ 4    0  ,  >1p) 5 
    ltlhlp^  px kx   $      8 $ 8    (  liD)  E $ 8  (  H   @  k4)  E $ 8  (  H     k$)    1l ll  1/ <4V $ 8  (  H   D  )  /    $ 8    ,  )  9 $ 8  (  H     )   $       !   1/  k"pz  C5      H            0     	     ` h t 4 $ l X D p                 (      K " Cx Lpt $ <  t, # lp#h$ lx l $ T  lT % /h) tl Lpt $ <  t4 # lp#h& lx l $ T  lT % /h) tl Yplt $ 8  t  l(  lp#h' lx d $ T  dT % /h) tld sp`dlt $ 8  t(  lH   dp  `( ( lp#h) lx \ $ T  \T % /h)
 tld`\ fZdlt $ 8  t(  lH   d@  kZ#h* lx ` $ T  `T % /h) tld`       $ (                      x $          h t l d ` \       K " Cx Hp$ lx t $ T  tP % lpPl $ <  l0 # /p) tl Hp& lx t $ T  tP % lpPl $ <  l8 # /p) tl Up' lx t $ T  tP % lpPhl $ 8  l  h,  /p) tlh op) lx t $ T  tP % lpP`dhl $ 8  l(  hH   dp  `, ( /p)
 tlhd` cp* lx t $ T  tP % lpWdhl $ 8  l(  hH   dD  /p) tlhd           (                      x $          p t l h d `    l     
+   pz 
,   px kz4  -   1t/td  kxR  .   1t/td      1t/t            l $                                 t    |      pr /hl $ 4  l  Qh[dtl`/ q  #\ltd / l< 0 l\Rlb  pr  t`/ 8  krpz         | 0                       d ` t           l h          pr    Qpp kp  /hl $ 4  lD Qh[dtl`1   \t 1 l\     '\ltH 1 l( 2 l\  an  P        ****`        ****P     ****P     + cr                         @H       8   @        @           @        patP`           P     B @x       uctu@      val@        onl@        lab`|	         `@  4	         8    `            `	  k  X     Px     d Pa@h     e in`d	     $  i``	     ting`^     ' F`  \     ! PP@  X         PT      @  D     ' J`@       p`<     ****@,     ****`  *     ****`0  $        `        oup @X        18-@      OSHU`         `        add`H       arouP(           `  	      28.``  	     an      `              k  - - l    `,x        `.t     put  0p      ialo   %   ``	     ''''`\	     ''''+  `            (   k 8         i6       X   `8t        `:p        `<l     0  `>h       i`@d     e ol``     ted •          @             8                          8      p   (    X          p  0    `    x  0	    H	  	                                  4(   @x	        @  h     (   @  X        @  H        @	  8        @$        @        '    @        @         H            p              x          H  
  `
  0
  H  
    
    
  4(   @   	        @H
       (   @
          @x
          @
          @x          
  &      @           @`       (   @|        @  x	        @t	     @    
  ,l     @  p        @P  `        @  ^        x  >      @\         >      \    @  X          `  T  `   X    %       o    @8  D        @h  4        @  $        @          @          @          @          @          @          @(          @@          @X          @p          @  t        @  d        @  T        @  D        @  4        @   $        @          @0          @        @        @            x  `        %     `            `   (     %           @        0  N$~&     x        P             ,    @   @  l	     H  @h        @d	        @  L     @   @h  <        @8  ,        @          @       @   @          @          @          @       @   @        @          @        @     X        p  8      `           `x                      X              @   @0  P     (   @@                     @x  0         @          (                        0                 X  tVH $ * \ R f f f1 0                                                             	      	 J        	     P    	 @   p    	        	 D       	 .       	    0   	 J   8   	      	 2      	 J      	           0   	          8   	     "   @      H      P      X      `      h      p      x                           	     $      "      6     *   (   ,   X   *      2      &                8   	      	 Z   P   " 7    " 7     -      -    	      
  0   
  @   	 Z   P   	      	     	 (           	      	     	    (       	 (     0   " < P     x   &                    	     	            	     	 0         0   	         8   	 Z   @   	 "       #     #    	      
     	 Z      	        X   	      	    `   	 F   h   	       	     "      	                                                                   	    
   	       	        	       (	       0	       8	       @	       H	       P	       X	       `	       h	   	      	 Z   p	   " 7 	   " 7 	    -  
    - 8
   	      
  P
   
  `
   	 Z   p
   	      	 (   
     
   	      	         (       	 H     P   " < p        &          	            	      	       )    	           	      	 ,       0  P   
 0              	      , F    	      #    	              &       8   	      	    P     p    &         	     	 &            &          	     	          8    & H   $  `   	     	 *            &          (            .      (     0   
 
 8   	     	       H   	       ! h   	      	     	 P      	 B      	        	     	    @   	     	    `   
     < <         	       $          
                     l    	    0     @     X     `     h   	     	 N   p   	     	            ( o    	     
     	      	 >   (    * h   	      	 &      2 T    	      	 2      
 +    	       (   	     	    @     `     x   L               	
     	
     	       	 >         @   	      $ X     h    
 p     x              g    	     	 B      .     
 !     	     	    @   
* S X   
 !    	
     
 $          
                    g    	     	 :      	 (   8   
 0 `   	     	    p         !    
     	      	       
 0         
 0       0     8   	     
  @   	
       H   	       P   	     	    X     h   	     
     
.     	
     	       
     
 +    	
     
                     	     	 &       ) 0   	 4   @   	 X   x     0    	          	     ( *      0   	       8     P   * S p             	     	 F      8     	     
  H   	       X     p        2 T    2 T          
2 T      H     P   ( C h        	     	       * $         L       H     P   	       X   	         p   	       x   	            	 Z      	 "       #      # 0   	      
  @   	 Z   P   	           	       	 T      	      "          (      0      8   	      $ $ @    $ h    $ x   	                 	     , F    	          	       ^     .    	     & m    
 0 8     H   4 ) P   * z         	 H      .        H    
 0 P      `    	     	    h    	 $       	 4       	 X       
 
 @!    
 P!   	      1 X!   	       x!   	    !   	 v   !   	      "   	     "  B   ("   	 N   0"      "      "      "      "      "      "   	      	 N   "      #   	     
 	 #     #     0#     H#   	        X#    2 p#     #    ) #     #     #     #     #   	       #   	        #   	      	      $     D ********************************************************************       Name:       wwiNNGroup    9    Issue:      18-02-98-Amit Goswami BOSHU TECHNICS CORP.           >    Purpose:    adds the NotNull group around the selected text       (    Changes:    28.10.2002 Felix Ardelean            D ********************************************************************      + creates the input string for notNull dialog          C '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''           force declare variable     ]        ] X   ] p   ]    ]    ]    ]    ]    ]    ]   ] 0  ] H  ] `      includes the if fielde ol] x      selected condition J    d      "   list with all inserted symbols   ]       number of inserted symbols in - W]       return value of dialog boxes e th]         begin, end of markingB@:]   (      left, right symbol delimiter 03   ] @  X      colour of symbolsDo] p      colour of grafics]       counter'   S ----------------------------------------------------------------------------------- l' v]   F       ! %  . H! ]   F       ! %  .   nam    ! B@  5 Ac    ! B@ bles("  4B   .value   (( *F       S ----------------------------------------------------------------------------------- displa  !  checking, if marking is in table     %  ' veWind '           K T  $   complete table selected'      K T  $   end of cellF!            B@ x     K T  $   OK n    K T  $   marking isn't in table imS @   8  n 0      check markingErrV     %  '      * from current selection create this string.A           S ----------------------------------------------------------------------------------- WWI\La    set old document attributes!     B@ Po    B@    (( *     S -----------------------------------------------------------------------------------       o             ?  wird gestartet beim Einfgen von Leertextunterdrckung im word              ]   ] (  ] @  ] X  ] p  ]   ]   ]   ]   ] D         ]    ]   ] 0  ] H  ] `  ] x  ]   ]   ]   ]   ]     S -----------------------------------------------------------------------------------       ]   F       ! %  .       ]    F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------         !  checking, if marking is in table     %  '        '           K T  "   complete table selected'      K T  "   end of cell               B@          K T  "   OK        K T  "   marking isn't in table   S      	 GoTo Ende n     ! '          %  '         &  probleme bei markierten Absatzzeichen         ! !         $       B@         '   k `     sym_output_table  ,! %  ! .             !  !           Wert 1 = Anfang der Gruppe               !  %  .     %  '          Wert 2 = Ende der Gruppe       e          !  %  .     %  '          Wert 3 = Und - Oder Verknpfung        e          !  %  .     %  '          Wert 4 = insert oder edit      e          !  %  .     %  '  *  "x" oder ""       # Wert 5 - n = Symbole 1:1 bernehmen       d @       !  %  .                 %   ' d        ,      %   ' k    k                   X     	 Edit mode       000(      )  '   I TODO Begin -------------------------------------------------------------*   ; suche nach dem Anfang der Leertextunterdrckung wie bei den          Wiederholungsgruppen         Seek of 13BNG backward       detele the selection                           B@  F  WordBasic.CharRight     k (    !       9 
  C@     9   9     9   13BNG  7              Error       ERR##619   lB@n    k   q     H ToDO Ende -------------------------------------------------------------*         STEP 1 - Begin      %  '         ! d    ! d     $   '             8 Read the counter / Rauslesen des Counters fr die RepGrp        $   '      Set old Counter into the Symbol       $               $   '         , Delete the entry and note the begin position        B@>          <      >  '     insert the new RepGrp           B        d     ERR##613   lB@n  5 . Fehler beim Einfgen der Leertextunterdrckung     (  k           STEP 2 - ELSE ZWEIG      7 seek forward of CASE repgrp with the same rgno 13CNGxxx     13CNG    '       !      9 
  C@     9   9     9    7           <  we have no else --> seek the end group and fill else before            CNG    /  fill with else twig     <         >  '    
  seek end of Group     $     E      $    '         <         >  '     !      9 
  C@     9   9     9    7          4 dont mark it - because the sekk ist the whole Symbol        " bTemp = wwiLibText.checkMarking(0)  B@            insert the new RepGrp           B                    B        B@            go to the end of NNGroup    B@             %  '         B@         "  k   q   k   d      mark it        %  '                       CNG    1  fill with else twig     
 do nothingd (    B@>        k   k   k    q       go back to the selected Symbol     ! '       . WordBasic.SetSelRange selStartPos, selStartPos      R CH2007-01-22 using Start and End doesn't work properly in TextBoxes, so use Ranges         ,%  B@H  d    insert mode       <      000(      )> '    '       CNG         <      000> '           $     E      $    '       k X    <      000> '         @ '''''''*********************************************************                                   4B           NGROUP  N% 6 '   $ $ '     $ $ '       $            	   $   '           $            	   $   '                     $            	   $   '       k     $ ~    '       000   $ & $ $    $  '   NGROUP    NB (     Symbole einfgen                    B *       d     ERR##613   lB@n  5 . Fehler beim Einfgen der Leertextunterdrckung       k   k  	  edit/insert mode "    OK   lB@n        F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o H            M  Read the select Symbols an put them into the Collection Table (here R3Table)            8    ] x  ]   ]     ! ' , #   Markierung merken      !  ' .       ! . 0  ]   ]      sym_input_table   ,! %  ! .       !  B@2    $         G   B@  j   !       .	       <       !    .	        B@              >   B     WordBasic.ExtendSelection ">"         01        02                !  ! .          A      if found the right Symbol then delete the [D:] in the symbol           $   $      ,    k     B@              Dim newRange As Range        Set newRange = Selection.Range      . newRange.SetRange Start:=startPos, End:=endPos      R CH2007-01-22 using Start and End doesn't work properly in TextBoxes, so use Ranges  0B@H          . 0 	 ON_CHANGE   ,! B 4     o             o  This Function search for "[" and "]" and delete the ambit(Deut. Geltungsbereich) - a new Word in my vocabulary        Felix Ardelean 18.12.2002              H  Declaration -----------------------------------------------------------  ] X  ] p  ]   ]   ]   ]      H  Implementation --------------------------------------------------------    6' @  @ ' >          6  [  ' 8        6  ]  ' :      :  8 ' <    8   
   :   
     6    8   $   ' @      >  : ' <    :    <$   '                @   ' @  k    k     @' i         Attribut e VB_Nam e = "wwi NNGroup"

'*@     : AIssue1 8-02-98- Amit Gos wami BOS HU TECHN ICS CORP. ;>Purpos@adds t he NotNull g a ndselecDte ext C@hanges@2 8.10.200 2 Felix Ardan  C $createUinput sng for n^dialog                	  
      !                                     8  Q  g  $  %  &  '  (  )  *  6  ,  -  .  /  0  1  2  3  4  5  #  7  9  :  ;  R  =  >  ?  @  A  J  C  D  E  F  G  H  I  <  K  L  M  N  O  P  \  S  T  U  V  Z  X  Y  [      ^  _  `  a  b  c  d  W  f  h    i  j  k  l  v  n  o  p  q  r  s  t  u  e  w  x  y  z  {  |  }  ~      '? " -ce  declare  variable 
Option  Explici E
Dim b IsEntireT	 As BooleB
Pub  Sub M ain()
  AmarkTXT$lntha1F2EiRe@rgno_E	NewBegin¦@ElsendbT {SE~I2dis`play$ ' includkf field`condiAP'N ƚReIs ymList__@$(100)' l  with ainserCAbolsa`nzSym	*'  number of .rc! ' return1Clue!cP b(oxe(f f, Ende' bq4, emaAin X;doc_L@$, ARA left, ridgh`ymTl2i@erACoplLbl`    ' colou,$DGraKgrafic*kcunt'- ?+orgDlgmObj`@: Set =  WordBasic.DRec) .T`ss#ysView(Fa@cr8Bea

onsE\
CurVaEsn !  CA_ ShowAnd Hide.setS	Apaan.S`enUpd = "44-Hheck@\ , if ] irsn tGm= `Li.c*,C5  c; Aa@$seH rcCa-3U Xmple? " Trua2 ? '?cellWe.MoveL0>  Unit:=wd wra`xr, DCop5:=1DxvtCE 1C' OK0'n'tLrd To"NNs 7CgMPr`#(0:'from currenPjyÂ%cЏQB2GetIStr 
Y: O0O/?r$`Ild\uma5T'?IALI@>>u*_>ub '`yrd i ta`yt0oEinfges$Le{xtcdrckuIPwZwI~!txemp0Qq R3FCarowwb#iIjgjG*"T2' chMo~pU&5░S1Po P1mpQ_p@c@lTwirqIVerrbS7`ڤAw5$q68{A$ مT߅K? ??6A</s]-``7qWocotX ed
  bI sEntireT able = TrueCase -2' e nd of cellSelec tion.Mov eLeft Un it:=wdCh aracter,  Coun &1, Ext D	wR1wOK'0&  ' markin g isn't 0in t;Elst  'GoT`o End 	d
   se lStartPos r
bTe$xted wwiLi
.checkME(0) ' pro me beiUer  AbsatzzeinVIf s. A Es6.A1Ch r(13) The :Il NLFaDKAGIf1Set R3A@~ veDocument@!ntainer.s("s ym_output_Bb")A For i-@cp.RowD4jW	I 1	Anfa@wder Gru|ppsK99t0 row@It0em(idNe wBeginGroup
@.C@l(1Dm2  Be  2HY( WA(I@3 U@- O!VerknpfungC	H"3p"In4StrgTemp$!E4 insa3oedi$I4Ds.l2chE@	M
Ke '"x" "" 'bE 5 - nSymbo@1:1 berneh U##_5<5J  &N+AQK	)!2+ "," 	 CtA J cN@ i`  `q+"X"\. m`*a   cB000(AP")@3	 'TODO m - 7*	su  na4chrm`ƃLeRerdrDckd wicd!e'Wie`WholsgbĤ)Seek13B NG backwarDdet  theA#C .rORigh 'WordBasic.EAWith" dFinT  >.XQP3_!.ClearmattAMatchWen#WraVwdaStop. Execute(#u:="B")7'Error  0xa,Too ls.set_d oc_globa l_value  ("ERR##6H19"F`  Ҁ104 1 qS 'To,P_*t,
'STEPPn-2}#mqQchSeddMid(, 2, P(Len|)R2)c3+r*BRead.cax/ RauslPesen8se rs fr d@7RepGr
ŋ!, 6, 3	old%0to^uK([, 5)Tnt`B4k86
D@teR	!`ry aYno$b posiaEuu ;0\"<aWl Y>p : '@bzInew Call3ūI2}WWIA#"e3ko7o7d73<`'Fehl`#`m Einfg#r o[pYuJ:):0 52-ELSE ZWEIG's]forO CA repgr.p@b@R\arg no 13CNG8xxx tTwiga$ncWWRW.WϵW .WЂ W=W&&@A we have e -->psj g20fi 'BbeP'd!GIn@(3,чPM$, " #HwlbtSs	`1)Q2?cH4K%S##-nWF2F"E"N1
, 4X>C'
   With S election .Find
  .Forwar d = TrueApClear Bm@atting:M atchWholeWoFalsC$CaseaWHrap wdStopcIf . Execute(!Text:=N ewEndGroup$)W Th$en<  'd ont mark  it - becau Mthe sek
st wj SymboBl"bTemZwiLi xt.c`heckM+(0)Move0Left'  inserFnew RepGr   Call wECIWWI(@dJ, ""&" ", V erb, col@our, 16T ypeParag th
3go t  Zend opf NN%
JR8ighJ_Go`To OK#@ IfIWKE
'Gi9G b InStr(3, hCCNG")  'fiKe twiaj nothL)C;D`tjI
+'  a'0c' Mback%N2sed
zStartPos@'	Basic.Set@Rang!l%, CH2007-01-22 us"2  a _do esn't woproperl
y} nBoxeJs
o@e sA`veDoc@ument.B(i":=,%*)! !3<Dmod"1BBegin@#"<" +E+ "000(!Input@J $")>"		QU`Q`*e *\ , 2)EMid4䝁6ŀ#u' * 3%(a)1<> AK_`m
 /!~c#@8tbShowHide.s0etDlAwrgno$i.G ocVar$("NGROUPhP9= LTrimg\Vw1, 6 3+ Cb.(LenL)@9)	't1, eM`320=a)3Fh	6n
r_Val(B1!D8ci)), 3?ȊXP$$, G '_e einfgXW.@QGRPX#ri,  wxa`e8d, w8p6. bI sEntireTablehR5P3 EditToolsA6_doc_g lobal_va lue ("ER@R##613P{'@Fehler iHm E4 dLePPunterdrckuB<10C7   'eP/bOK:A'1 

OK>
10b'- 'xt oXld Rr r<ibBt|OpQsViorgLOs BeaBApplicarScreenUpd ngp/ԟ?@Sub
'   Readb` (.s  ym(Col ( (her3 6  Private   [b(8DP&sœAs Lo3%q!\  pg #F= d3' RerP+ merk;DY a TC
Rq	ObjprowKu= C`ainer.Bs("sym_i_tQ>")1 .Rows.RemPAl]f&())A|1乧Whil`AEų nd + 3 <  endPos)
   (Whi le (InSt r(Select ion, "<" ) <> 1 A 0.E @ MoveRight Call Hxt ("> g'WordBa`sic.E&  >If01 >= 2 Or 02) The
n# At ro w = R3Ta ble.Rows.Add
'f if fout the rf S@ymbol  n$ d te [@D:] ins20.Cell(1)4checBk6(Mid	2 , Len) 0- 2)сIf7)
W'D im newRange As тSetG=a.
B Sta`rt:=s ,r #:=  BC H2007-01 -22 usin2g a O/do esn't wo rk properlyLText Boxes, soe*s"Á/Noth A A@veDo cument.C ontainer3ndCustomEv@("ON _CHANGE"Y
A*SubAThis FunB searchr "["6"]ȁambi t(Deut.  Geltungsbereichta^ A>my  vocabularyAFelix Aran 18.12.@V2  
PublicG$ȒAz D)QDecaA - 5A,!K>"BLong!(Mc [mGeskNewCtempImple<_A'= x!$=sb{ "F!=1X" [J7`"1]&A!= D-,
  #.> 0DGi, - 1B '@A  -= c`ü""+$ +
A"&GZ) eq
                                                                                 :L8 %dl  $ 4  l d,  A 4`) ld6 , `W 9   5 .l  $ <  l 
 lJ   /l' 0h''',l  $ <  l
 l6 , .hl  $ <  l4 
 lh   ltln m   l  $ <  Qlo,:L"     (< ]<hd  $ <  d4 
 lhlt'd6 , 0h''',l  $ <  l 
 l6 , U ):L# N,,l  $ <  l
 l5, z   l  $ <  Qlo,:L:     (< ]/   d  $ <  Qdo:;     ( ]/6 ,7 `W, A< 4\6 , l  $ <  (< %d  $ <  d 
 lJ   i   Qlo,
  `Ǥ=  F%\  2 d6 ,  0h''',l  $ <  l 
 l6 , ' 
p|,  
c=, p 1:L> %dl  $ 4  l d?  ) ld        0                      p \ ` 8            l d ,       8        Cd 	ldJqh     @     qt     A     qp lpltql lt    lp      2lt   i0   l MP@ 
   `1d6 0  lhlpql )lM@@   pMP@0
  0`1`50 l`$ =  ldl`*1d   ldCx       \  0                     x ` d           0                \      t <|   (      $ <  
 6  k k    )|  $ <  , 
 l|i, (    Qp5 k|x  $ <  ` 
 x   l|   pt  $ <  t _ _ S R P _ 9                                                                                                        w w i I n s e r t P h r a s e                                     @   I                                          c      _ _ S R P _ 2 a                                                                                                _ _ S R P _ 2 b                                                     !                                          g       rU              ~|         	       	     	          B   !                  I      	      Y      J            	      I     YB      !                 R      ّ            9C      aC      C      1      Q      C            &      q      3                              	      .      -      I2      2      q            !      Y            y                                    0            @      "      A      I1            q           	      YS      Y      y      S                  є                    L        d        5fh%x  $ @  xWH B8  4|x6 H8  5fh%x  $ @  xWH B8  44x6 H8 -|	@x  $ @  xW8   x58 -4	@x  $ @  xW8   x58 
     x  $   x  x fX%fh%	   D$ 	       (h]3M 	    (h]3 <    (8 H   x  $ <  x
 x6 H8 (h]3 (h  ]3    (H    Qp5H 
    #|	@x  $ @  x  x #4	@x  $ @  x  x x  $   x  x       |L            z           h      4   | J    X  8 H x    4  $              x H 8  *  H     5f%  $ @  W B  46   5f%  $ @  W B  46  -	@  $ @  W   5 -	@  $ @  W   5 
       $      f%f%	   p\ 	     k\p k* 	    kt <|   (      $ <  
 6  k k    )|  $ <  , 
 l|i, (    Qp5 k|x  $ <  ` 
 x   l|   pt  $ <  t 
 >pF]   
  /'`) xt6  0|'''  $ <  
 6   p  F: %x  $ 4   x  A 4d) x6  #^dW A U6 c\ k^J &^@dW B  4`6  ( %`  `15 k^ &^@dW B  4`6  ( %`  `15 k^ &^@dW B  4`6  ( %`  `1X5 k^4 &^@dW B  4`6  ( %`  `1@5  &^@dW B  4`6  k^ (lXF( %`  `1X6   .lX *F( %`  `1X6    
^d\ l@ 0 !l *#plX*#X *12 pX kE <|    (      $ <   
 6   $x  $ <   
 QxT  T,   
T    T`   TH       T   l'''$'D'd''''''$'`'': NT  k 6 `$dD$)    1p/p   cT (    Qp*5 op  $ <   
 Xx  $ <  x 
 lXJ   i   >pF
  `1</X) x6  k* *(    <M@
  `1$6  T   M@
   l$FlJ   M@
!  ``16 ` +|''  $ <  
 6  " l*#p# *1/p  +$ Cpp
%  /p  &   1p/p   ' l$*1  $x  $ <   
 Qx ,   
    `   H          g''$'D'd''''''$'`''' M@  k 6 `$dD$    l(     R !" l*#pl$*#X# *12 pX S   M@
   :) '   M@`
  `$`16
 `$ !" l*#pl$*#X# *12 pX $x  $ <   
 Qx ,   
    `   H          g''$'D'd''''''$'`'''M@  k6 `$dD$ 0|'''  $ <  
 6   +$ Cpp
%  /p !(  * Cpp
+  /p5   $ <  $
  0|'''  $ <   
 6  (    Qp*5 0|'''  $ <   
 6    c ~  (    Qp*5 k*|    l(     RMz  +|''  $ <  
 6     c )|  $ <  , 
 l|i, 0x,,  $ 4   x|, ) x  *" l*#p *#XlX*#- *12 pX $ C    l(     R " l*#p. *1/p S   M@
   :) '   M@`
  `$`16
 `$  " l*#p. *1/p l$ =l$ =lX$ = 
    / 0  1T M@
1  `15 M@
1  `15 T   M@
   lTFlJ	   M@
!  ``16 ` T   M@
   lTFlJ	   M@
!  ``16 ` l$ =& T   M@
   lTFlJ	   M@
!  ``16 `  lT
2  kD CD
3  
1     :4 `
!  ``1T6 ` lT/ 
5   $$ Cpp   
6  /p  &   1p/p    7   1p/p  #	@  $ @     #	@  $ @       $            H|           d          T    x    @    , <  `  h T  $ D X d `          p X   x t    ` $      d D $    
        $hl  $ <  l, 
 lhqxl $hl  $ <  l4 
 lhqtl $dl  $ <  l 
 Qdpl F                      x                                       ME                    P     6
    
    L    L    L    L        <                   `               Hk          `Dx     B@:    B                 %       @     P      8  ,Fh y      @h  t	        @  p	        @`     @   @P     (   @L	               p}    @H     ^s                        `                     tVH $ * \ R f f f f * 1 6 4 9 1 d 9 5 e d $ * \ R f f f f * 1 7 4 9 1 d 9 5 e d  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                              	 J        	 $   P    	 B   x    	        	 B       	 &      	    8   	    P   	 J   X   	              	     "      	            	     	 6       N      8   	    H     `     x             	          D ********************************************************************ected        Name:       wwiInsertPhrase  l   ;    Issue:      19-02-1998-Amit Goswami BOSHU TECHNICS CORP.           <    Purpose:    calls wwiSymbolPropertyDialog of wwidlg32.dll                    to insert phrase        Changes:           D ********************************************************************          force declare variable8   0         ] @     / read from global data Felix Ardelean 10.10.2002    p_Result  ,% < ! L' D  D      G     add the angles    <   D   >  ' Dk     D  ERR##606  FB H       o X  P     Attribut e VB_Nam e = "wwi InsertPh rase"
'F*@     :  Issue!19-02- 1998-Ami t Goswam i BOSHU  TECHNICS CORP. =@@PurposBc alls  gSy mbolProp yDialog ofdlg32.dllMto i pChanges: Dforc e declar e variab le
Opti on Expli cit

Pub Sub @Main()
   Dim chNew As Sng
   'read fr om globa l data F elix Ard elean 10. 2002	 = Active Document.VaC)s("p _Result")@lu .  If (<> "") Then   ' add the  TlesC"<" +5+ ">  EndCyrz.WWIObject", " ERR##606"@O@SQ                             rU              ~|         	       	     +      *       A      !                        y            q      I2      2      	           
         NHL:`  NPPpt $ 4  t  p0  L,  >H1x) tpL5P lx =s   lx*#H	 *1x/H  
 CHHx
  /H  t      4  (                      x            H t p L P     k                                                      rU                    	     *         $      *    `                 n                               rU              ~|         	       	           
        A      !                        y            i           
 I      	      Y      J            	      I    w w i I n s e r t S y m b o l                                     X                                       +  Q(      _ _ S R P _ a                                                                                                 _ _ S R P _ b                                                       9                                                w w i I n s C o n d T x t                                                                                  B  Y(                      	  
                                           !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  :  <  =  >  ?  @  A  B  C  D  E  F  G  H  I  J  L  N  O  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  r  s  t  u  v  w  x  y  z  {  |  }  ~               D ********************************************************************e decl    force declare variable              ] @     / read from global data Felix Ardelean 10.10.2002     p_Result  ,% < ! L' J    J  ERR##608  FB H       o      /  common subroutine to insert symbols or phrases   X        B  local variables -------------------------------------------------]    ]    ]   ]    ] 8  ] P    S -----------------------------------------------------------------------------------       ] h  F       ! %  .       ]   F       ! %  .           ! B@           ! B@      4B            (( *        S -----------------------------------------------------------------------------------         !  checking, if marking is in table   %  '               "   end of cell is marked                 B@             e  "   marking is exactly one table         >    flgHidNewLine = 1            ' flag, insert hidden new line         
 e  " 4  more than one cell marked -> move to begin of first    V   B@T       k       check marking         %  ' P        ?  if selection was expanded it is likely we were inside a symbol     P         ! d' R          )  6  C  P  \    R    $     01    R    $     02     R    $     03     R    $     11     R    $     13     R    $     15     R    $     20           N   lB@n  ; : Symbol cannot be inserted into Repeating or NotNull Group"    k    k        !   a1 = InStr(Selection.Text, "<")    !   a2 = InStr(Selection.Text, ">")   O CheckMarking function fails sometimes to select the whole string 'between < & >         If (a1 <> 0 Or a2 <> 0) Then      # select the whole string 'between <>          ,       If Selection.Characters.Count > 1 Then                    Selection.MoveLeft         '           WordBasic.ExtendSelection ">"             End If            End If    -  delete the selected area in the wordtemplate       P     B@X        k     ? inserts the symbol with proper format i.e color & hidden format     L          L     B         x      set old attributes         \  ! ( Z   ! (    
   \%         B@        k   k      OK   lB@n        F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o       a Attribut e VB_Nam e = "wwi InsertSy mbol"

'*@     =: 	Issue18-0 2-1998-A mit Gosw ami BOSH U TECHNI CS CORP. =@PurposBcalls  d!Prop yD ialog ofdlg32.dllLto i or mo dify a sChanges: đfor ce decla re varia ble
Opt ion ExplicitPub Sub Ma in()
   Dim chNewz As S ng'rea d from g lobal da ta Felix  Ardelea n 10. 2002	= Ac tiveDocument.Va( s("p_Res ult")@luq-  CaZI.WWIObject(, "E RR##608"@4
End8X  comm Asu broutine GiCfsAkphrases
HHMp_H, A1C
Err!' lo@Fds -- ARgrcEmarhkedeuCpiBRVerbchOldOv'#orgDlg!5: Set -= WordB asic.kRec .ToolsVsView(F0alse`)cBea

onsEdit
CurVaOsn m'YSho wAndHide0.set	Ap!sat.ScreenUp king"42-'~eck, iLf AKais t  rc` LibText.ch`T(Tr0ue,  B4If-2 ThencIb' e scpell YSon.Mov eLeft Un@it:=wdr acter, CHoun`1,t	Ex!a%EE3'ex`
ly o' Xflg 5 L= 1`F ' flag &#hidd@new lX> 00!o t`b!C! -> ǂvbeginPfirs| `hl`.HomeK<eyF$A ,If!a $<A=MJ:M ?(0b9'
  BsE2 was  expanded ulikewe weo-n  4!pv8I=H%S  `((Mid^FL, 2  )0)"01") Or _w!23w11w520)(<QJVH_doc_S    d       *            Xd                                                                                        x                                       ME                   D @    >
    
    L         
        L              
    L    
    L    L    L    L        <H     <L     <P     <T     <X     <\     <`     <d     <h     <l     <p     <t     <x     <|     <             	  X      `              Hk   	 	      `Jx      (heH  `            0  k     X X     iL          CORPiN       @l     @P\        @j   L         @<     dify@,        `R   (         `$	     ****`  	     ****    X   F                %       X   @             ,FH   t @  t	     	 @   p	      @`      @P     	 @L	      @H     P       h  8            0           4(V @   	      @        @`         @H        @x        @        @        @      @            l\\   @        @8        @         @P  t      @  d      @h  T      @  D      @  4      @  $      @        @        @(        @        @X        @@        @        @p        @        @        @  t      @   d      @  T      @0  D      @  4      @H  $      @x        @`        @        @        @        @        @        @         @        @P        @8  t      @  d      @h  T      @  D      @4      @  $      @      @     	       @	                         X                      tVH $ * \ R f f f f * 1 7 4 9 1 d 9 5 e d $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # e 3  * \ R 1 * # a $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # 1 2 9  * \ R 1 * # a 4  * \ R 1 * # 1 e $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                            n  	      	 J        	 "   P    	 B   x    	        	 B       	 2      	    H   	    `   	 J   h   	              	     "            	     	 6       N (     H   	        h   	 6   p  "      	 H                                            	      	 Z   (   " 7    " 7     -     -    	      
     
     	 Z   (   	      	 (           *     " <    2      	 D   X   F      0          	     	             	 F   8         $    	     @ O   P                    	 (       	 (   (   	 V   P   	 $      	 *      	 2    	   	 "   8	   	 .   `	   	    	   	    	   	      	 4   	    
 	   
  	     
   	      	 F   
     X
   	       h
   	       
   	    
    / 
    - 
   	        
   
 0 
     
   	       
         	            	     	 Z       	 "       #     #    	      
     	 Z      	       8   	      	      	     	     H     D ********************************************************************ected        Name:       wwiInsertSym se  l   ;    Issue:      18-02-1998-Amit Goswami BOSHU TECHNICS CORP.           <    Purpose:    calls wwiSymbolPropertyDialog of wwidlg32.dll    +                to insert or modify a symbol hanges       Changes:   D ** }$_vP (m)  'ccannot beT ntpRepe@LPK`NPotNu=Gvpàu3GoTo OyC* `7a10In(@!}<q}12?.4>1
CI, fun2EP faisP3t0imesQ- th,hole sR 'betwX < & >A,(	<= 'a2  '!-GMs.M > GTQiP ">p˥ !'le`wsa`ytemplat2 =

Type Backspac?C0p3 with p mat i.eЛl0%& TVr*@Z"p/1wuN!#&#  O`rrj+' { old NauFoC*o`IRx*wdAutosrPfyc= ~cwFile.`9idC md(10aO-1*='a!Righb%3 @@"OK
10ooGH-ݡIq	Oqx#
                                                                                                                                                                                                                                                                                                                                                                                                                                                YB      !     	      Y      y                              Y            q                  !              l     NHL:`  NPPpt $ 4  t  p0  L,  >H1x) tpL5P  CHHx
  /H   T      4 l (                      x            H t p L P        5f%  $ @   W	 B
  4$ 6   5f%  $ @   W	 B  4 6  -$	@  $ @   W 
   5 -	@  $ @   W    5 
       $        c %c%   Dl l(]3S <   (      $ <     6  l(]3f l(  ]t 0'     $ <     6   (    D \5 \(]3X $  $ <     >1(  (    (M@
  : ]/(    (M@t
  t:d ]/TD(    (M4@
  : ]/(    (M@
  : ]/td(4    (MT@$
  $: ]/(    (M@
  : ]/(T    (Mt@D
  D:4 ]/$6 t4$TDV    1/ n   
\   $ <   (      =\  + Cl 
  / Kn /      $ <   <  h  )   -   $ <   <  @  )    
+
  (]35Z 0'''  $ <      6       1/  #$	@  $ @   
    #	@  $ @         $         I      pD          ,          ( l  L \ $ , <                   t T D       t d 4 $       T D $   n
  O       f                                                                  rU                    	     
         $      
    `           ,      
   `                    00      n                                        9-1995-Jrgen Stolz-TechniDATA GmbH/Markdorf           E    Purpose:    Defines the marked text sequence as a Conditioned Text        F                sequence. Conditioned Text start and end with a pattern       C                which is stored in document variables 'doc_LCondTXT'          !                and 'doc_RCondTXT'               Changes:          6    [ Date ]-[ Name   ]-[Action                       ]              F **********************************************************************       F ***** Shared Variables ***********************************************    ]        flag, Colour is metainformation      force declare variable              F -- local variables ---------------------------------------------------    ] X   ] p   ]    ]           path wwi.ini and language file     ]        name and current number of RG    ]        marked text in document  ]        Position in document     ]       name of repeating group      l H       buffer   ] P      colour of symbol delimiters      ] h        begin/end of marking       ]      ' `  S -----------------------------------------------------------------------------------       ]   F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------         F -- load language dependend dialog text -------------------------------          \% ^ ' d ,   path + name language file    F -- program logic -----------------------------------------------------        check, if marking is in table      %  '                   end of line is marked          end of cell is in marking           B@            
 e      error   k       check marking        %  '            	        ! '       !  '      	 LEFT_COND   N% 6    + l        
 RIGHT_COND  N% 6   + l         COL_CTXT  N% 6 $ ~ ' n  META  N% 6 $ ~ ' `       $ l     
   $ l     
       Stop - 1      position to end    d         E   % r          store actual text attributes           B t           insert hidden text         $ l      n  `  B              !   !                   B@       k x      set old text attributes              B            !   !                   B@       k       store end of inserts       / WordBasic.EditBookmark Name:="wwiPPSHE", Add:=1     wwiPPSHE   !    ,! B@         Y ActiveDocument.Range(Start:=anfang, End:=Ende).Select 'WordBasic.SetSelRange anfang, ende   R CH2007-01-22 using Start and End doesn't work properly in TextBoxes, so use Ranges  pB@H          . p           B@  G : WordBasic    l     (  	           X!2                                                                                        x                                       ME                         (L    >
    L    L    L        
    L              
    
    L    
    L                          %      `            H  hk   m m      @l         @\     x   @L     en SPbH     /MarPdD     0   P@      Pf<         @h,         Pj   (                               0   @n         @           @h            pp                %   `	         `P  	         `          @        ^                      X                         (  P    8      l$                                 `4(\ @h       	 @  	      @        @        @        @     ,     N~,   @      @@       	 @X  |	      @x      @t     	 @p  p	     	 @  l	     	     h  @h	         x                                          8  tVH $ * \ R f f f f * 1 8 4 9 1 d 9 5 e d  * \ R 1 * # d 4  * \ R 1 * # c a  * \ R 1 * # c b  * \ R 1 * # c 6  * \ R 0 * # 1 0 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 1 * # 1 2 9  * \ R 1 * # a 4  * \ R 1 * # 1 e $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                              	      	 L        	 "   P    	 F   x    	        	 L       	 L      	 J   h   	 (      	       	       	 <       	    @   	 L   H   	      	 L       .      	      	           8   	     "   @   	 L   H                     4      ,      &      $   @   &   h        *      *            	          	     	 Z       " 7    " 7     -     -    	      
      
     	 Z       	      	      	 L      6     	      	 L      	      	 $   X        *     	        " <           (     0   	      	    8     P     h    ) x    )     $    	     "     "             	   ( & (	   	    P	   	    `	   $ > x	   	      	 $   	     	   	      	    	   " )  
    E (
   
" < H
     p
   	      	    x
    ! 
    E 
   
" < 
         	      	       	 6   (   * W `   	     	      	 `      	 X      
 
 H    
 X   b < `   	       " )    	      	       	 6   0    E h   	 8       E                   	           	      	 Z       	 "   `    #     #    	      
     	 Z      	     	 L       
 h     x   	          F **********************************************************************ted        Name:       wwiInsCondTxtse  l   ?    Issue:      18-0.CharLeft                      ' begin of marking          insert hidden text          $ l      n  `  B            jump to end of inserts     0 WordBasic.EditBookmark Name:="wwiPPSHE", GoTo:=1    wwiPPSHE  ,%  B@H        2 WordBasic.EditBookmark Name:="wwiPPSHE", Delete:=1  wwiPPSHE  ,%  B@>      k   k    k    F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------         F -- single exit point if possible -------------------------------------    @  F         o p      ! . p  h     j Attribut e VB_Nam e = "wwi InsCondT xt"

'F*B     : 
Issue18-09- 1995-Jr gen Stol z-Techni DATA Gmb H/Markdorf ADPurposFDefin es the m (ed text  sequence as a wition T /#S. s tart and ewith(pattern$ which is	 or 7in d ocument variabl W'	_LXT'7"6RCh@anges:[ Da ]-[se Acuk]  |AǏ Sha;V8l
D im LG_Meta-' flag,@flourVminformaA:B!@{decl!Z
OpC Explicit
Pub Su b Main() 
  '-- locali-/ 2rcEVerrbco0E P ath$, la&nB='  h a .inig uage fileErgno$
JCnAcurrNnumber of RGd~'jhHWn.@' (Posk pRGOrepe8ng grouRpAReA(cB egr__$(2)' buffleraiC+i' -symbo l delimiEvsEanfi,  Ende
eg8in/} in&ge	_rap Axs R!a W= 0EJH?*a#orgDlg Object: Set = W ordBasic .DialogRec .ToolsbsView(`FalseB`
Bea

ons0Edit
CurValuesno Ay   CalleSh owAndHid`e.set	Ap~.Scre enUpdM= "4_4-dada|xd ^Mɾd3#<A	=LibF.Geta(2, 1d9d+ B6CU	pr ogram	gi|c #6heck, ifD72QZ@tnrcO M@x.cT(True, #Q B(If -2x Th@9=FD9l``B!ce0!0x; 1lp2p .MoveLef t Unit:=wd`uracAqfun01`AxtmE aE23
> 0.
' erroI  GoTo 1@ F I !(1x<4A aKSeSъBM=H qBgL)L  IX0)FQ'Doc~("LE FT_COND"
 Wnd[ )*a9RIGHKX\= pB("ICOL_CTXT")War("META@Len(Y) QpC 1)A(𒰩p -4 1S  6%otot@9b.rPu;tfP , "E")2$4.' (u঳ksOA75kRiOfa#(=A,p	12inse hidd5-°(F,_w,!
) <> _@)3 C;Righ;r;;7P}rle" ", IWJJJ}t x%'7xvBookQT݂=PPSHE Add:=%1`,vepA.s.Ó:=GAJ1(N:=hD:=e).C ߸@O@rS,!1CH2007 -01-22 unsqld1.e sn't work sperlyA!2Boxes, soeXV	XNoth'	okokColk۱ =wdMove  'WordBas ic.CharLeft  ' b egin of  marking
P' inse rt hidde@n text:C all wwiLibT 0.IV
 ((condBe gr__$(0) ), 1, do c_Colour , LG_Meta)
	mjum p to end|s!Edi tBook N@ame:=" P PSHE", G@oTo:=1A ctiveDoc@ument.s().Selecp7DtA8SE{If
10:'-O ' se`t oldkJ  attributeBb`Tools OptionsV iew orgDl	P Bea	ApplicaA.ScreenUpdng = TrueB$?:'N sle  exit po@int if s8sib"On@ Error -1: K0
rSubp                                                                                                                                                                                                                                                                                                                                                                                                                                       _ _ S R P _ 2 c                                                                                              _ _ S R P _ 2 d                                                      #                                       9  i       w w i D o c P o s i t i o n                                         F                                       ]        _ _ S R P _ 2 e                                                                                      ;        rU              ~|         	       	     -      ,       !                  I      	      Y      J            	            I     YB      !     1            1      '      "      I8      y                              і                        A        <           $    (       5f%  $ @  W B  46   5f%  $ @  W B  46  -	@  $ @  W   5 -	@  $ @  W   5 
       $      	  1D c%c%
   Dl l(]3 <   (      $ <   6  l(  ]t   (   Dl5 l(  ]g )  $ <  ,  li )  $ <  4  li $|  $ <    Q|    #x    l$;/x    #x   l$;/x    #x
  k/x    #x
  k   /x &    l$J       l$J     > Cxx( D
  /x6  L\
   )   (    l$Cxx
  /x5 E  $ <  ,  lt|  $ <  |4  lt) | <    (      $ <    6   !( L\ Cxx
  /x5 E  $ <  ,  lt|  $ <  |4  lt) |g <    (      $ <    6   W|  $ <    hQ|o lp  $ 4  p8  lD  ) plh5 
|  
c=  <    (      $ <   6  )   (     l$Cxx
  /x5 Ep: N|  $ 4  8  |@  pL  ) |p5 Ep: N|  $ 4  8  |@  pP  ) |p5     #	@  $ @     #	@  $ @       $      K   K       <l           R          H l ,   L   \ < $    ( @ D 0     	     x  | p l h     
     k                                        rU                    	     ,         $      ,    `                  n                             rU              ~|         	       	     /      .             !                  	      A            y            q      YB            K      !           
      T $   T  T R(,:@ N00PT $ 4  T  P0  ,,  >(Fl) TP,50 l:@	 ]3    ! !            Markiere den gesammten bereich         %  ' P    k        S -----------------------------------------------------------------------------------         (( *        S -----------------------------------------------------------------------------------       o       / Attribut e VB_Nam e = "wwi DocPosit ion"
'*@     : Issue 18-09-0 2-Felix  Ardelean TD AG. /2Purpos4 Sucht den s +ctiert Treev iew Symb ol im Wo rd Dokum ent nach(Changes:}forceLclare v ariable
Op Exp licit

Pub Su b Main()
  D[pbegriff	 set_unhi de As Boomarkefd'-O Call sShowAndH".@%HDlgAAp6a9.ScbnUpdng@FalrsA  &6AS Y RchL A@v&e B~.VDbs( "p_Result")@luB%/If"" Then  GoT`o End VIfCl'ku@;aufhebSçon.MovpeLef~yF ind.C srF ormattinS  With 
#.Text :L  .Re`placeA
"O@|@wa@c= TrC Wrap
wdCon?c &:MatchCasarLWh Vq= i(ldcsSoundsLikvAll!A6)(l/Exec`!a @63FA%9HB'Mn@}n @ammber|ei #r`fLiba6.checkbng(0~J
`eAe}-
ZuBauA        @  @        @  0        @           @          @(           @@          @X          @p          @          @          @          @          @          @p        @`               p  0'''0T $ <  T
 T6 0 *PT $ <  T 
 P  ) TP $PT $ <  T 
 QPT l(  /( 	 T  TD  T ,              H    `    P    X    @   c {^'`''''' ' '@'`''''''0PT $ <  T 
 P  ) TP6 0`@  ` 6^PT $ <  T 
 P8  k^) TPn (0    DX50  T $   T  T        0                       X l X          ( T P , 0      ` @         `     k                	     " rU                    	     .         $      .    `                 n        	 Z   P   	     rU                    	              $          `           $         `                n                  q      A            I2      y    _ _ S R P _ 2 f                                                     6                                       K  g       w w i E d i t R e p G r o u p                                                                          m  A      _ _ S R P _ c                                                                                          h      _ _ S R P _ d                                                    &   )                                       M                  (  *	  J         Xv                                                                                        x                                       ME                   4      6
    
         L   *L    L    L    L    L    L    L        
    <8     <<     <             8     `               ^k   1 1      @xl     ----`zj     ----@PX     x       v                 %       p   X   @             p    h    4(,~     @  T	        @  P	        @(  @     X   @  0     (   @,	        @(        @X          @@          @          @          @                   `         %      P  @          @          @           @8          @P          @h          @  p        @  `        @  P        @  @        @  0        @           @          @(           @@          @X          @p          @          @          @          @          @          @p        @`                    @^                                                    tVH $ * \ R f f f f * 1 9 4 9 1 d 9 5 e d $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # b 5  * \ R 1 * # d 7  * \ R 1 * # d 6  * \ R 1 * # 1 2 9  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6  * \ R 1 * # c 0  * \ R 1 * # c 1  * \ R 1 * # 1 7 b $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d                                                            =  	 J        	 $   P    	 4   x    	        	 R       	       	       	    0   	 J   8   	              	     "      	                       	     	 Z      
  0   
  @   	 Z   P   	       R    	                    	     	       
 0    	      *      $ 0     @     H     X     `     h     p     x                        {    	      6    	 $                	            	      	 Z      
  x   	 Z      	      	           	          D **********************************************************************ted        Name:       wwiDocPosition   l   -    Issue:      18-09-02-Felix Ardelean TD AG.            K    Purpose:    Sucht den selectierten Treeview Symbol im Word Dokument nach                     Changes:                 D ********************************************************************          force declare variable    P         ] @   ] X   ] p     S -----------------------------------------------------------------------------------         4B            (( *        S -----------------------------------------------------------------------------------         p_Result  ,% < ! L' x    x            k      selektierung aufheben       B@          ! B@      !        x9 d   5 |( d    9 
    ~9  9     9    9    9    9    9   q `     ! B@                                        (      0      8      @      H      P      X      `      h      p      x                                                                                	                         	      	 Z      " 7 h   " 7     -     -    	      
     
     	 Z      	      	 L   h    )         	     	 4           	      %    	     d  (        	          	            	      	 <           	     L L    , h @   : < p        	      	 4      	 :       ; 0    ; H    ; `    ; x    ;     ;    	      	 6      V      L P   	      	 8      	 @   	   	 &   P	   	 ,   x	                                                                                                                                                                                                                                                     : < 	   	      	 ,   	   	 D   
   	 "   `
   	    
   	    
   	    
   	       . 
   : < 
        	      2 c    : < P        	     	       	 H      	       * c     	 8   0     h             	      4 )         	 :       ;     ; 0    ; H    ; `    ; x    ;         	     	 H      	 2      6 G 0     R h        	       : <              	               : <      P     X   	     	 2   `         N               $           *      (   	     	     	     	 >   0    $ p    *    	     	 &      2 T    	     	 2      
 + 0   , $ @   	     	    p        	          	            	 Z      	 "   (    # P    # `   	      
  p   	 Z      	           	      	      	     B                                     	      	       , $ (   * $ X    $    	     * 8    : <    ( C    ( C 0     X    < `     x    ?    4 )    	 "       ~       x                  < <         	 h      	 X   H   
 
     
         	          D **********************************************************************ted        Name:       wwiEditRepGroup  l   6    Issue:      25-02-03 Technidata AG - Felix Ardelean              F    Purpose:    selects the innermost beginmarker of group and replaces5 2    '                it with the modified one i        Changes: c e \           D ********************************************************************r a r     force declare variable@	  (         ] @   ] X   ] p   ]    ]    ]    ]    ]    ]    ]   ] 0  ] H  ] `  ] x  ]   ]   ]   ]   ]   ]   ]    ] 8  ] P  ] h  ]   ]   ]   ]   ]   ]   ]     d   @  ] H  ] `  ] x  ]     S -----------------------------------------------------------------------------------       ]   F       ! %  .       ]   F       ! %  .           ! B@           ! B@             \     (    2         X                                                                                        x                                       ME                   <       (L    >
    
    L    L    L                  
    L    L    
    L        <           x         `              k          @jl         @\         @L     x   @<     data@p   ,         @         @         @            @     '   @      the@@           @0           P     ****@        ****P     ****P     decl@     (   P     X   P         P`           P         @  p         @  `         P  \         `   X         `  T         P  P         Ph  L         P  H         P8  D         @X   4                               (   @            @         @            P            `  	         `H  	           `               k   # #      `,h     ****`.d     ****`b        ``     RepG 0\      ue:    %                        %         P         x    H         `  x                     P      0                                4(l @  	      @        @        @8        @h        @      @        @        @       	 @  	      @      @  p      @(  `      @@  P      @X  @      @  0      @p         @        @       @        @        ,    @	      @     0    x  H  `    	  	  h	  P	   	        @l    }          }   X @8	  X	      @T     	 @
  P	      @	  @      @	  0      @	         @	        @p
         @	        @
        @(
        @
        @@
        @X
        @
        @         @
        @
  x     	 @t	      @p      @  `      @H  P      @0  @      @`  0      @       @            x  @          h                                         tVH $ * \ R f f f f * 1 : 4 9 1 d 9 5 e d  * \ R 1 * # d 4 $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # a 4  * \ R 1 * # 1 e $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 1 * # 1 2 9  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                              	      	 J        	 $   P    	 <   x    	        	 L       	 .      	    @   	    X   	 J   `   	              	     "                           4B            (( *      S -----------------------------------------------------------------------------------         E  to move the cursor back to its original position if selection is not       ! '        '   . check whether selection is within an EndMarker      '                 ERR##609   lB@n  4 F Fehler beim Bearbeiten der Wiederholungsgruppe / Leertextunterdrckung     h  k `   F     5  Variable to check whether the group is the innermost        '         G            B@ j  X  WordBasic.CharLeft      ! d  <       ! d   
                   B@  D  WordBasic.CharLeft      k H    . Place the selection around the innermost group      3  WA140802 check for Keywords in string more exactly         ! d  11BRG  '   ! d  13BNG  '   ! d  15BIF  '   ! d  11ERG  '   ! d  13ENG  '   ! d  15EIF  '   0 n keeps control on cursor move and no. of groups     	                 	    !                      **        G            B@ j  T J WordBasic.CharLeft 'added 0204 to avoid extra charleft          'initiallyHNIC  1 added 25-03 to allow cursor to move up the line .   : ag1304 added to allow proper edit group operation when the    complete bng marker is selected.**  & If (Selection$() <> "<") Then CharLeft****           B@  C  WordBasic.CharLeft dialo  & Check if selection is within the table''''  > AG1304 Editing group within table does not require lines below      If (SelInfo(15) <> - 1) Thenp     
 StartOfRow   CharLeft     EndIf      ! d   
   H             B@  G  WordBasic.CharLeftected k         ! d  <        !        ted sy           B@  E  WordBasic.CharLeft   h    	  AG020498   A  If selection is not within group and search has reached start of   	  document   !       ! d  <         X     2  display error message and restore cursor position  ERR##611   lB@n  x  k p    >   B     WordBasic.ExtendSelection ">" ----     ' --  3  WA140802 check for Keywords in string more exactly       ! d  11BRG  '   ! d  13BNG  '   ! d  15BIF  '   ! d  11ERG  '   ! d  13ENG  '   ! d  15EIF  '  P    A  if selection is not in EndMarker then store the group end marker   +  in array to find proper group for editing.                                  K   ! d    $     +       '    ag2603x             B@  C  WordBasic.CharLeftble im   k           c  '            B@  C  WordBasic.CharLefton cre    k      + Read the Begin Group an End Group from ABAP ------       ----  p_Result  ,% < ! L' --    #  '      ' t       $   '      '         $   '   k     8 Read the counter / Rauslesen des Counters fr die RepGrp    ! d'           $   '      Set old Counter into the Symbol       $            	   $   '         , Delete the entry and note the begin position        B@>          ! '     WordBasic.GetSelStartPos()        insert the new RepGrp           B          OK   lB@n        F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o       ]   ] 0  ] H  ] `  ] x     ag1304      ! ' ,   WordBasic.GetSelStartPos()      !  ' .   WordBasic.GetSelEndPos()         ! . 0                 !                         B@  D  WordBasic.CharLeft        ! d  <         G   ' j   ! d  >         G   ' j      ! d  >         '   ! d  <      e   >   B     WordBasic.ExtendSelection ">"         WA140802 check for ERG, ENG            (    ! d    $     11ERG    ! d    $     13ENG     ! d    $     15EIF          ' d x
    ' k h
             B@  E  WordBasic.CharRight     k  
    a ActiveDocument.Range(Start:=startPos, End:=endPos).Select 'WordBasic.SetSelRange startPos, endPos   R CH2007-01-22 using Start and End doesn't work properly in TextBoxes, so use Ranges  0B@H          . 0i @	  8	    ] Attribut e VB_Nam e = "wwi EditRepG roup"

'*@     =:  Issue!25-0 2-03 Tec hnidata  AG - Fel ix Ardelean 8;Pur(pos=s ct s the in nermost  beginmar ker of gq and replaces$Pit with$modifie d oneChanges: ēforce d eclare v@ariabl 8O ption Ex@plicit            <                                                                                                                                                                                                                                      K  Pub Sub  Main()
  Dim h tStartPo nNewBBxLe PSelN otInEndM?HCDREBRXGInNIFEEEA&temp$EmAxold4iReFA=O	CountE_@ ITi*1Ee As Long
kNN@m&AToM偤yKSe@rHc@Ncur!R2eFarA=__ $(100&JnI0ndexNEa1%a2%12<'- ?+orgDlg$Obj ect: Set = Word Basic.DialogRec @.Toolshs View(FalseBea
q
ons!
C urValuesn 0 Call Sh owAndHid`e.set	A
paA.Scr eenUp@ing"44- ' to moveBMsor b(acki@orial i"8if _9is now `.gAS`0a 'chewheMrk
in _#]A
ki+9a IfN,"" Or20 Th?$R!7_d oc_global_vE ("E RR##609") 'Fehl ,be  Ar te"n r Wer holungsg ruppe /  Leertext erdrckGoTo 1#6 If20lA' Vg!;qusp FvsbYw= (D<p> 0)bM@#Left Un@it:=wdPvracter, Y:=1,`pd  '3har htr(#T , "<0 ,1 3n) > 1	 



qI
@Pwa30a`0Z q	' WA14`0802 # PKeyw Os HstrA?moexplyq{ +xt110"QBtz.130D|5BIF10o~lD#f o5rn kee ps contrtol@ TKRLano.vWhile (0$@n < 50 _¥9%L 1x/SCy : (s?4n.?401?4x:4/4t 'add!0204Q@avoid 3ra&arlq:+i;_ w&C3llowubup/@line .ug|13 nphropPe 0 k Bn ^nqc omplebng 4Jc5eduAA$()AZ y:@/J/Jn@{m
Ckpj?t3'AG=sXq does1pqui?s beInfo(15r-Nb)OfRowsBk'Lcq TY**._ }1c  4:ONBNA`i27999PQ?jjjWelndS '798 3,G@ Jsearch has apad``PKud ocument
   If (S election .Start =  0 And InStrtText, "<")D) Then ' displa y error  message a restor@e curs 4posio<wwi EditTool s.set_do c_global _value ( "ERR##611")5GoTo( 10Ef
Call  Extend("> 'WordB`asic. non + 1' WA14 0802 check faKeyw$s in string mqexactlyBRG el'L11iBN3IF.5BIzFE F #ENG #E#WcAH ' if s is notAUtMarker< t  YW g roup  mDn arr to fiprop Clei.NotIBnG= 1)¾(FK<>Or :C[E<)! __$(nIndDexAMid5, 5
AB@ag2603A. MoveLef t Unit:=@wdCharer, Coun1, ù Ho
j2j Ii  Al%% i)#fl.?=? 
6'ReadF Beg tbGBFan f rom ABAPA	 fu9htem(p2$`2A`veDħ.Varia bles("p_ Result")a1@F`b@#eb -eNew"b!E "a1$D+ A `a102~4":a $cEe/ Rausen desHers fr  e RepGrpEOld=RN, 7, 3"'Set old{aSymbol	fZ(%, 6)id+ Rightn(Len@) - 9)DteM@ryCbbO##`Pos F'uGete(ct`nse@A#new4B LibA2.IWWI =."*	oyoyOKA
10:!'- rbG  atPwbputesW}RO"psViorgDlgOsD`BaBaApplica.ScreenUpd  ~= TrueA??዁:Sub 1 Priva&Fun"_V 8Dimpr0$As Lonqr_@ tmp1 Integer`2o %Ran@ !
  'ag1304sq=hj,,|}/@pA6		1Whil  =7`5kvvvf(a7192CC py (ex2@EEno	}Else.|p)> NGco, 2a"11 "  _375 ^p	/S!a2}rmϡϡơ+G'6(2>:=?! nd:=CG).3;@&K,D@'CH2007 -01-22 ussDdoe sn't `k þly'Boxes, so@AKrbB	LD h9
1eWqN                                                                                                                                                                                                                                                           w w i L i b                                                                                                   j      _ _ S R P _ e                                                                                          (      _ _ S R P _ f                                                    '   0                                       P  '      w w i L i b F i l e                                              d                                            #v       \ R 0 * # 9  * \ R 1 * # 1 3 2 $ * \ R f f f f * 1 I 4 9 1 d 9 5 e d  * \ R 0 * # 1  * \ R 1 * # 1 3 3  * \ R 1 * # b 6  * \ R 1 * # c 0  * \ R 1 * # 1 2 9  * \ R 0 * # 1 9  * \ R 0 * # 1 a  * \ R 0 * # 1 3  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0  * \ R 1 * # a  * \ R 1 * # f f  * \ R 1 * # c 1  * \ R 1 * # 1 7 b $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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     '       ,           X8                                                                                        x                                       ME                   `   @    L    >
         L    
         L         L    L    L            L    L    L    
             L    L        
        <d     <h     <l     <p     <t     <x     <|     <           	  h$  +`      `            P
  t+ @            i                  `            x  @k      / / $    i          Gen`jf     +6    `              (k       S    i         F **`p     ****`l     ****`h     `f     ----(0    `              Hk    8 8 #   i               i         ossi`r     he W    `               k p    8 8 [   I         ----i         grami         ----i             i          f poi$       ----`h      Fe@jX     A   @hH     vate@  8     "Lan+    `            P  tk         `jx     ----+NX    `            X  @k         `jx         `(  t         +    `              Hk           t             %   P    `            p  @k          i               i   rU              ~|         	       	               "   !                  I      	      Y      J            	      YB            q      A            I2      y                  ɘ                  A      2      	      A            y            y      .      -                                  d   0     5f%  $ @  W B  46   5f%  $ @  W B  46  -	@  $ @  W   5 -	@  $ @  W   5 
       $      )  $ <  , 	 li\ (    

  < %<: ]/<(  ]/    1/ {   (  ,  (  ]@ <    (      $ <  	 6  h     $ <   	 l          $ <   	 lJ   2 )  <    (      $ <  	 6   ;     $ <   	 l     i/ ;     $ <   	 l     i/ ;     $ <   	 l     i/ ;     $ <   	 l     i/ ;     $ <   	 l     i/ ;     $ <   	 l     i/ (  ]/(  ]/'(]cp'`  $ <  , 	 l    P'@(0  ]/ '(   ]/'5P% (  ]@ <    (      $ <  	 6  <    (      $ <  	 6  .  $ <   	 lJ   /c <    (      $ <  	 6   c     $ <   	 l           $ <  , 	 l    /) 	 <    (      $ <  	 6  e c  $ <  , 	 l         $ <   	 l         /)     1/ {  ): N  $ <  	 5 (  ;     $ <   	 l     i/ ;     $ <   	 l     i/ ;     $ <   	 l     i/ ;     $ <   	 l     i/ ;     $ <   	 l     i/ ;     $ <   	 l     i/  G<( ]/(  ]<(  ]<p(P  ]<`@' 	 R  $ <   	 (    >F
  `# "l0;/6   (   <    (      $ <  	 6    <( ]@o	 ( < <    (      $ <  	 6    (  ]@]
 N: N  $ 4    0  ,  >1) 5    l     i (  $   M@
  `15 (  *( "M@
  `16   $  $ <   	 >1 *(    M@
  `16  T   M@
  lFlJ	   M@
  p`16 p +''  $ <  	 6  $  $ <  , 	 lqX  + C
  /     1/  #	@  $ @     #	@  $ @       $                            $     `    P   0H"     <    l   D p    4 \     L \    , L  H    H                  p ` @        {
    x    $TX  $ <  X, 	 lTqhX $TX  $ <  X4 	 lTqdX $PX  $ <  X 	 QP\X 8kb k` TX  $ <  X, 	 lT    Xm <T    ( 0   X  $ <  X	 X6 0 <   X  $ <  X 	 l         /X% pb <   X  $ <  X 	 l         /Xh p` n  <   X  $ <  X 	 l         /X (@ l\ <   X  $ <  X 	 l         /X\ ):@ N00X  $ <  X	 X50 X  $ <  X 	 P  $ <  P 	 pt  $ <  t 	 (    >F0
  :  ]/(    >F
  : ]/x(@    >pF`0
  0:  ]/ ) XPt6 0`@0 (@  l  (@ l  <T    ( 0   X  $ <  X 	 X6 0  
\|!  
c=! \        |x,                     l \ \            p X P t 0        x ` @ 0           f                                                                                                                                                                                                                                                                                                                                                                                                                                      `j  f           	  `            X  4k    	      i               i             ``         +
`  
  `               k (   
      i           `t         h    `              k    3 3    i             	      i                 `ht         `  p         `l	         `h	         `f         ,8    `              k    < < O   i.             i                 `0x       `  t         `hr         +P  `            p#  x+ x    	 	    i6             i8             i:                    `<x                0  X    P  `  h      8    `     N x	              %           `x       	  	             `t    
    `t               0  X    P  `  h      8    `     	  	  	  	  	    @l    (       P      	  `h        x  8          `h           8     H  0  `           P   @T     @D     @@     `   `6x    0                                      `t        8        P  h  (                `t       \$ &   @T     P  @  D     @@        @<	     @8     h  H      h  `x          `          `t        @(     X   `    H          x  @  `x      `t     @`     @P       @L              @H	           x    `  H  0  p                  @l            @   (        @8       `   @        @             @    (    `z                  Nl       H     @t         @      H    x      0    `Nz                 ,   @`  p	     @  l	     @\     @L     @H	        @D        @@               (          `z             X    N, @  p	     @@  l	     @\     0   @L        @H	         `h        8    H        @    p  (  @l        8      `    `h       H    , @  `	     @  \	     @L     0   @H	        @D         `h                    `  d        @@          H             p    @l    8    H  `h    `       `  d    H    ,       @P        @  L	         @  H	        @8         @4	         (    H         `        `
z            (   @p	     @l     @x  \           `  `x        @  L        @  <        @  ,        @          @        @        P        8     P           8  `x    ,( ($ @  `	     @\	     @  L     @<       @8  ,       @h          @        @          @       @   @                       h  P    (, ($     @  `         @  P         @X  @         @  0         @  ,	         @(         @$	         @(           @@           @           @p           @           @           @           @           @            @           @0  t         @H  d         @`  T         @x  D         @  4         @  $         @           @           @           @            @           @8            @P            @h            @            @            @   t         @   d         @   T         @   D         @!  4         @(!  $         @@!           @X!           @p!           @!           @!           @!           @!           @!           @ "           @"           @0"  t         @H"  d         @`"  T     x  @x"  D       @"  4     @"  $     @"       @"       @"       H   @#          @(#           @@#            @         @X#           @         $  x      $  H$  ($  `Pz        8$  $                  >                 !                    8  P	                 	  tVH $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 4 * # 5 0  *n s * # f                                                             	      	 L        	    P    	 .   p    	        	 *       	 6       	       	       	 L   0   	             	      	 L      	       	       	 D      	    @   	 L   H  B      	     	 L      	 L      	    @   	 H   X   	      	           	      	      	 L      	        	        	 2   (   	    `   	 L   h  B      	      	 L            	     	 L        h     x                                                   8   (  @     h      p                   $          &          &        H   "  P     x   .                    	     	 L                 	      	      	 L   8   	       	       	 >      	 L     B   8	   	     	 L   @	       	   (   	   &   	       
   	      	      	 L   
   2  X
   6  
     
   	     	       
     
   	 >   
   * - 0   	      *  `   	 t                   0     @    0 H   	      (  `         0                   	     .           0 (     @     P     `   	      2  h   
     	      0     
     	      &     
     	      &  (   
  P   	      *  `   
     	            
     	      *     
      	      6     (  H   	      2  p   . -     0    	      (     ( -     0 @   	      4  X   ( -     0    	      0     < -      0 @   	     8  X   * -     0    	     ,     * -      8   F - H         0    	     (     * -                 (    0 0   	     *  H   . - x   	 ,      	      *     . -    	 .   8   	      &  h   , -     0    	      2     * -      @    	 P     X    	 `     h    0 p   	      8     . -     0    	                	     *  0   (  `   	           T -    	          T -    	       `   T - p   	          T -    	       0   V - @   	          . -     0    	           . -      0 P   	       h   , -     0    	          , -     0     	       8   , - X    0    	          . -     0    	          . - (    0 X   	       p   ( -     0    	          . -     0    	       0   . - P    0    	     &     0 -     0    	     $     0 - 0    0 `   	       x             	      	 L                	      	      	 L       	    P   	    p   	 >   x   	 L     "      	 L         `   	     	 L   h             	     	 H      	 R       "  p          	           	 .             	       !   	 .   !     H!   	     	    `!   	 *   x!     !   T ' !   	       "   T ' ("   	     	     	    "   	 ,   "   	 :   "     #   T ' #   	       p#   T ' #   	       #   V ' #   	       @$   	       H$   	      	 L   P$     $   	      	      	 L   $   	    %   	    (%   	    0%   	    H%   	 L   P%  B4   %   	 L   %      &      &       &      (&   	     	 L   0&     &   	        &     &    # &   	        &     &    + &      '     '    (  '     8'     @'     H'     P'   	        X'     h'    + x'     '     '    ( '     '     '     '     '   	        '     '    + (      (     0(    ( @(     X(     `(     h(     p(   	       	 x(   	      
  (     (   	       	 (   	        (   	     B   (   	         (   	     
 
 (     (     (     )     )      )     ()   	       0)   	      	 L   8)   	    )   	    )   	    )   	    )   	 L   )  B    *   	      	 L   (*      x*      *   	     	 L   *      *     N *      +   
  +     (+     0+     8+   	         @+    $ H+     X+     `+     h+   	       p+   	        x+   	 L   +   	    +   	     ,   	    ,   	     ,   	 L   (,  B   x,   	      	 L   ,      ,   	     	 L   ,    
 (-   * H 0-     `-   2 @ h-     -   	     
  -   	        -   	      	     B   -   	      	 L   -      (.   	     	 L   0.      .    I .   
  .   	         .    $ .     .     .     .   	       .   	      	        .   	     B   .   	      	 L   .      H/   	      	 L   P/     /    B /     /    : /     /   	     
  /   	        0   	      	      	 J   0   	 "   `0   	 N   0   	    0   	 ,   0   	 J    1   	    p1   	 J   1  B   1      1   	       1    $ 1    r h  2   
  x2   	 H   2   	 :   2     3     3   8 b  3     X3     `3   
  h3   	 8   x3     3     3   	      	 3     3   	      	 L   3   	 H    4  "   h4      x4      4   	       4   	    4      4      4      4   & F 4   	       4     5   	       (5     05   	        85     @5     H5   	     	 &   P5     x5     5     5     5    6 5   	 T   5     (6   , i 86     h6     
 p6    + 6   	       6   	         6     6    # 6     6     , 6     6   	          6   	         7   	      	 H   7   	 ,   P7   	 >   7   	 H   7  " 
  8      8       8      (8   	    08   	       H8   	 Z   P8     8     8    # 8    * 8   	 &    9     (9     89     H9     `9    7 h9   	 T   9     9   , i 9     :      :     (:     0:   	 B   8:     :     :     :     :   	       
 :   	 6   :     ;    + ;     0;   	    8;     P;   	 8   h;     ;    2 ;     ;     ;       ;     ;    # ;     ;     ,  <      <       (<   	        0<   	      	 J   8<   	    <   	    <   	 "   <   	 :   <   	 (   0=   	 J   X=  B   =   L   =     >     >      >     8>     H>     X>   	     h>     F **********************************************************************ted        Name:       wwiLib RepG   '    Issue:      TechniDATA GmbH/Markdorf ta          #    Purpose:    General wwi-library.    /                Holds usable subs and functions.               Changes:    the   F **********************************************************************x      F ----------------------------------------------------------------------(          Name: allLang            =    Purpose: Gets all possible languages from the WWI.INI file               F ----------------------------------------------------------------------            F -- program logic -----------------------------------------------------      F -- single exit point if possible -------------------------------------        Felix 02.10.2002     A   allLang = System.PrivateProfileString(path, "Languages", "all") i     allLang   F ----------------------------------------------------------------------           Name: getTypeNo$  	           +    Purpose: Gets the typenumber of a symbol   G           F ----------------------------------------------------------------------tra `       F -- local variables ---------------------------------------------------e . ]      F -- program logic -----------------------------------------------------arke  $  ' **       PHR K T     Phrase n Char   ' j  SYM K T     Symbol B@  ' j  PAR K T   
  Parameter& Ch  ' j  BEZ K T     Label  ' j  RGK T     Repeating Group  ' j  SGK T     Special Repeating Group  ' j  NGK T     Not Null Group   ' j  OGK T     Optimized Group  ' j  IFK T     If condition Group    ' j  INCLUDE K T     Include Symbol     ' j  VER K T     version information  Z ' j  CTR K T     control command E   c ' j  DYN K T     text sizeing position frame I d ' jS @   n 8     F -- single exit point if possible -------------------------------------d   j' i   
  getTypeNo 2  d   F ----------------------------------------------------------------------x         Name: GetDocVar          8    Purpose: Gets a Value of a specified DocumentVariable2    F ----------------------------------------------------------------------! d       F -- local variables ---------------------------------------------------' ] 8   '   path of ini file ] P   '   path of wwilayt.ini file ] h   %   buffer for return value i]     F -- program logic -----------------------------------------------------       \% ^ '  )   Path and name wwi.ini          \% ^ '  )   Path and name wwilayt.ini  $  ' si       SCANLEN K T   7  number of scanned characters left and right or marking     global 
 ScanLength  %  '      NGROUPK T  $   actual number of NNG om ABA   n     rc = DocVarGet("NGROUP", chReturn)  'habe die gleiche Nummer NGroup und RGroup - felix Ardelean 02.12.2002 Po  RGROUP  $  '        S --  000 ' ----k     $ $   $   '   RGROUPK T  $   actual number of RG  RGROUP  $  '   $ $   $   '        text  000 ' g imk      IFGROUP K T  %   actual number of Group     RGROUP  $  '   $ $   $   '             000 ' 0  k    	 LEFT_COND K T  $   begin of conditioned text    [ ' ------ 
 RIGHT_CONDK T  $   End of conditioned text  ] ' ------  LEFT_SYMK T  $   begin of symbol  < '        	 RIGHT_SYM K T  $   End of symbol    > ' B@  LEFT_INTK T  $   begin of intervall         ( '         MID_INT K T  $ 
  delimiter  ' ' ------ 	 RIGHT_INT K T  $   End of intervall         ) ' cking, 
 OGRP_DELIMK T  $   delimiter of repeating groups    / '  $   ... in Optimized Groups  COL_CTXTK T  $   colour of conditioned text      colours   ConditioTxt   %  '    $ $   $   '   COL_SYM K T  $   colour of symbols    colours   Symbol  %  '   $ $   $   '   COL_LBL K T  $   colour of Labels - Phrasen???        colours   Lable   %  '   $ $   $   '   COL_CTRLK T  $   colour of control symbols    colours   Rgroup  %  '  L  frher Control      $ $   $   '  	 COL_NNGRP K T  &    colour of Leertextunterdrckung    colours   NNGROUP   %  '         $ $   $   '  	 COL_IFGRP K T  &   colour of If Group         colours   IFGROUP   %  '                      colours   NNGROUP   %  '  O  same color as NNGroup   k h    $ $   $   '   COL_INCLK T  %   colour of Include    colours   INCLUDE   %  '                    $ & '   k     $ $   $   '   DESC_SYMK T  %   Symbol Descriptions          Description   Symbols   %  '      &    chReturn = Left(LTrim(chReturn), 3)      DESC_PHRK T  %   Phrase Descriptions          Description   Phrases   %  '      '     chReturn = Left(LTrim(chReturn), 3)     PHNAMEK T  $   Prefix of Labels       Control  
 PhraseName  %  '       $ $   $   '   METAK T  $   1 = colour is meta information           global 
 MetaColour  %  '           X       ' d 
     ' k 
    $ $   $   '   DYN_TXT K T  $ "  control for text sizeing posFrame    Control   DynamicText   %  '     $ $   $   '   INCLUDE_TXT K T       INCLUDE '   VERSION K T  $   version information        V2.500'  $   Unbedingt 6 Stellen 
 BEZEICHNERK T           1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings   Position  %  '       KATALOG K T     1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings   Catalog   %  '       EVALUATEK T     1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings   Evaluate  %  '       EDITMODEK T     1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings   Editmode  %  '       WWI_BACKK T     1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings  
 Returnmode  %  '     WIZ_DATALNTYPEK T    1       Wizard  WIZ_DATALNTYPE  %  '     $ $   $   '   WIZ_DATALNWDTHK T    2       Wizard  WIZ_DATALNWDTH  %  '     $ $   $   '   WIZ_FORMHEADK T    -2        Wizard  WIZ_FORMHEAD  %  '       $ $   $   '   WIZ_FORMPHR K T    -1        Wizard  WIZ_FORMPHR   %  '       $ $   $   '   WIZ_FORMSYM K T    -1        Wizard  WIZ_FORMSYM   %  '       $ $   $   '   WIZ_HEADLNTYPEK T    1       Wizard  WIZ_HEADLNTYPE  %  '     $ $   $   '   WIZ_HEADLNWDTHK T    4       Wizard  WIZ_HEADLNWDTH  %  '     $ $   $   '   WIZ_SEP K T    :     Wizard  WIZ_SEP   %  '   $ $   $   '   WIZ_SHADEDATA K T    1       Wizard  WIZ_SHADEDATA   %  '     $ $   $   '   WIZ_SHADEHEAD K T    1       Wizard  WIZ_SHADEHEAD   %  ' **  $ $   $   '   WIZ_WIDTHLFTCOL K T    85,0397       Wizard  WIZ_WIDTHLFTCOL   %  '   $ $   $   '   WIZ_WIDTHSEPCOL K T    28,34 pose    Wizard  WIZ_WIDTHSEPCOL   %  '   $ $   $   ' S      ' n p    F -- single exit point if possible -------------------------------------****  ' 6i   
  GetDocVare decl   F --------------------------------------------------------------------------       Name: SetDocVar$ ------          8    Purpose: Sets a Value of a specified DocumentVariable     F --------------------------------------------------------------------------      F -- local variables --------------------------------------------------- se]     F -- program logic -----------------------------------------------------5 |  $  '           B  echte Dokumentvariablen, da dessen Wert abhngig vom Dokument ist   L  Bsp WdhGrpNummer mu auch bei der nchsten Siztung gespeicherten Wert haben        RGROUPK T  &   number of RG         RGROUP  $  '   NGROUPK T      '       rc = DocVarSet("NGROUP", i_chVal)     RGROUP  $  '   IFGROUP K T    '       rc = DocVarSet("NGROUP", i_chVal)     RGROUP  $  '      Globale Variablen   $  letzte Einstellung wird gespeichert       
 BEZEICHNERK T             1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings   Position  ,        KATALOG K T       1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings   Catalog   ,           Globale Variablen   %  Lebensdauer=solange Dokuemt geffnet        3  Implementierung wre auch ber eine Klasse mglich         EVALUATEK T       1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings   Evaluate  ,        EDITMODEK T       1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings   Editmode  ,        WWI_BACKK T       1 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\Settings  
 Returnmode  ,    S   n     F -- single exit point if possible -------------------------------------    o     SetDocVar$        F ----------------------------------------------------------------------           Name: SplitCallText                  Purpose:                 F ----------------------------------------------------------------------                0      F -- local variables ---------------------------------------------------    ] 0  ] H  ] `  ] x    F -- program logic -----------------------------------------------------       ' j    $   '            
        $   '           ,  ' h  h   
          h   $   '       '      
        $   '       d      ' k   k       ,  ' h  h   
          h   $   '       '      
        $   '       d 0     ' k    k       ,  ' h  h   
          h   $   '       '      
        $   '       d      ' k   k     '    ' j      k h    j' i    SplitCallText       ]   $ N  ' j        j        	 EHS_LABEL    lB@n       d         lB@n k     j' i      F ----------------------------------------------------------------------           Name:  LabelInfoGet                  Purpose:                 F ----------------------------------------------------------------------           F -- local variables ---------------------------------------------------    ] (  ] @     F -- program logic -----------------------------------------------------         	 EHS_LABEL   ,% < ! L'    	 EHS_LABEL        ' j      d      ' jk           
         ' jk         j' Ni    LabelInfoGet       F ----------------------------------------------------------------------           Name:  LabelInfoSet                  Purpose:                 F ----------------------------------------------------------------------    X      F -- local variables ---------------------------------------------------    ]     F -- program logic -----------------------------------------------------    $ N    	 EHS_LABEL  	 EHS_LABEL   ,% < ( L      d    	 EHS_LABEL   	 EHS_LABEL  L  ,! <B@       k X     '       i    LabelInfoGet          F -- local variables ---------------------------------------------------    ] 8    F -- program logic -----------------------------------------------------     x      ,% < ! L'      ' j       H       
         ' jk (         j' i   P      F -- local variables ---------------------------------------------------    ]     F -- program logic -----------------------------------------------------        $         ,% < ( L  d 0        L  ,! <B@   k      '       i      D --------------------------------------------------------------------             Name   : CheckSymLocation         G    Purpose: Checks the place to insert a wwi symbol or a barcode bitmap          Parameter:        &    Created: 25.10.2000 Christo Alexiev       D --------------------------------------------------------------------            modifications:     D --------------------------------------------------------------------          ] H  ' 
    ! d'           #      ERG           BRG            ENG            BNG                  (( *        B MsgBox "Symbol cannot be inserted into Repeating or NotNull Group"   3     wwiLibLang.LMsgBox 7, 16, ""  'felix 26.09.2002        ' 
  k             % 
                   ' d     (( *         2     wwiLibLang.LMsgBox 1, 16, "" 'felix 26.09.2002 ' 
  k @    ' i 0     F CH2007-03-01 Macro to load addins for WWI addons like GLM, Genifix ...       B call it by lg_document->ExecuteMacro or by C12LAYOUT_Execute_Macro    `    ]   ]                 get name from r/3 table   ]    ] 8  ] P    	 param_tab   ,! %  ! .        %   .         %  '         .   . d 
    ' k 
      add .dot to addin if not there       .  ' h  h             .dot '       k H
      (!  ' h        N  use directory of wwi.dot as location for addin if no other location specified      h                 ,! .!   (!     '     k 	  @  F           b   B@        "`	   X	        !  (    $B@&   d 0	     !    MsgBox  $B * k 	   " 	  o      B ------------------------------------------------------------------   &  WA121201 run a user exit from wwi.ini       7  Format of user exit string: [addin[.dot];]macro[.main]      B ------------------------------------------------------------------ h        ]   ]   ]       Dim rc As Long       '   S  check whether addin explicitely specified (separated by semicolon from macro name)         .  ;  ' h  h           .  h   $   '   .  h   $   ' 0    add .dot to addin if not there       .  ' h  h             .dot '       k       (!  ' h        N  use directory of wwi.dot as location for addin if no other location specified      h                 ,! .!   (!     '     k   d     .' 0k     <  add .Main to macro name if no other function name specified        0  .  ' h  h           0  .Main  ' 0    k @  @  F          /  if addin was explicitely specified, install it                 b   B@       k       run the macro      0 4  (B@2         1  if addin was explicitely specified, uninstall it              $   B@>  k 8   "0   (           (  .  $B@&   d          .  MsgBox  $B * k    "  o     C ===================================================================            Name     : FindReverse       Creation : 12.04.2001        Author   :  Tilman Trxler        3   Purpose  : Searches a text reverse to return last         !   Return   : true, if file exists   C ===================================================================           8      ]     =  return value with position of last occurance of p_strSubText     _     :   ' <    <  6  8  > ' :    :  <
       <   ' P  i       D Attribut e VB_Nam e = "wwi Lib"

'*B     : .IssueTechn iDATA Gm bH/Markdorf ),Purpos.General  L-library.%eHolds u sable su bs and f unctionsChanges:E{
Op2 Explictit-B ZaxllL ^ 	
GDetwll  sJiluas  from the  WWI.INI file?(A 
Pub= F[ )(ByVm path As "S ng)
   '-- p rogram l`ogic 2&singexitCint ifFGFelix  02.10.20402 6Sy stem.PrivateProAUC8(<, "j`&" D")
EJ'	@EA-rgetTypeNo$KHDt numb er of a symbol9?--FDFSy&m(F!  DloBc Jvari|sDDDim retAIntegera _QA	a= UCase(`?  Select a `b"PHR"HAB`' Phr = 0GSYMP
5!A= 1)GPAa oet ] "BEZLabeB3RG ' @Repeats `Group1SSpeci`?hNNot NuOrA!mized4	GIFQIf condiď5@NCLUDE'  IncludeKaF;2(BVE;versp inform onR9CT'trolp mm0uF9 #,DYN' text sp7qi#f'10gElsi  qR31 9]]9G\p2_Y-1 ' YWs}{DocVa`H's} ptueX0fi(0umentPZ
Zi_cheZ 11 !_[/Q[chPڄ3Uv ' ←kini  Templayt./Returng ' buffps6Zvalu,!rc&gwm/g=5F.1(1, 1)
eAnaF_th(0, 0PiQ!5pIp?1 IqIESCANLENc scann0ch@lc0ls leftright por mG h ch4=T?e4globa
l!SLengthqNGROUPO0ctupk'NNG3>  L= ?P(",6
hpv die 0ic`NumJm0&Nbd uR - f2Ard`an«2ī>R#jW""0 The4c"0004ZIaL(LTrim(U), 3T>  RqRp  __nb_IF!c !aJ/n$1C eturn =  "" ThenD
  chR000"\End If
4Cas e "LEFT_`COND"n	
'  begin o f condit ioned telxt	[ bVRIGHW' "TF]
TSYM UsymbolP^<P&P%>KINTKinter(valM('MID_'sdelimi %p'`F8%)JOGRP _DELI_' %repeat ing groups*/J' ... Opt 8:z@GCO L_CTXZco0lour ޫSy stem.Pri vateProf@ileStr@-( chTempPa th, "s"CTxt")5Left(LTrim ), 3 
/@v/ÝN{1-Sah	 b"-LBLZL abels - Phrn???#.
le_-!R-CTR'(Etrol I. .ER^") 'frher  G3"0  ^NNo1eeruA drckung_1O1OUP1S1mIFf ~_v"AI V?$8$ 'sameBLr as @'%qAINCrIncplude#,_On2g_OurROUD>E/_T(wdPinkB B?oSbSDESC_SA HcN Descri donog_?_2_Xq_s'or?_PHR;'$S?HjjX)Gn.TPHNAMEpPrefixv_ __S4Qa
N3&2%METnA

"1@vi@s metaformot"""globaluM0C"2XGR	1ElsD;0ԻhDYN_oВ2pҽ size` posFr DDDyn`amicT ((6COHr=	"eJ1 3VE`RSION_!' vers0 "V2.5 ԳT ' Unbed  t 6 StellwBEZEICHNER@A"q$HKEY _CLASSES _ROOT\WW IDOCUMENT\sh\open\SetabZ8PosKATALOGo..oooCatalogEwEVALUATEEuEDITMOl	J/Editmodd _BACK0 ROOT\WWI DOCUMENT \shell\o pen\Sett ings", " Returnmode")
   Case "W IZ_DATAL NTYPE" '1Bchj =  System.P rivatePr ofileStr (chTempPath gWizxardqUuSL eft(LTrim Bi), 2WDTH 2K*;OFORMHEAD N-N*M3
ǁGGvPHR&uAx@&SYM&HA&{&r@JH'SD4auu
uSEP`::	4!`SHADEᛀ?`?⥇
_I  !/߮Ů
THL FTCOL85 ,0397  }É7k("	D28,3b<<IElse&""AEnd  Select
'-- s le exit  point if ssib- --GetDo0cVar{
FunctiofnQ5 ' 
 `Name:	$PPurposs a Val ue of sp ecified A`umenti~a0o 
Public Sub	(By`  i_chAs , l !local varb
s Dim rcIntegerA1 1program log= UR( ) Tt!K' echte k"n, d a dessen  Wert ab hngig vDom is.'  Bsp Wdh GrpNumme r mu au@ch bei`r  nch n  Siztung ge !ich%`haben	
"RGROUgE-y ' numb%RGS a=	a2в(,l3[ "NC+*-
aIFPp_s
B3GlobaE6@' leDtzEinpll1wird BEZEICHNERM1OG"j HKEY_CLASSES_h!PosiK")/MdKOG{(Cata8	`U' Le+sda uer=solaDng#5emtffner2ImpDleOierres2,ein e KlaP7 mgLh9EVALUATEOOOEv@[P_DITMOD=/gditS!w5 _BACKC!	e -! 
En@d Sub 	 '  SetDocVar$
'"H
' gNam e: Split CallText Purpose:EuPubl ic Function=(chA`, _
B yRef chR 1 As String)2333j45)D~  local variables#oDimAOes&tre   w Ez A!p@rogram@#g s@ = 0 s= LefJtƁ2=If@n) > 4 TXhenAe@1= Mid4@0In@R
 , ","  c@> 0H2@"	- 1  zA%R2)0 + 2Lew A+zj.zaElsee	""Ifea= 333E3v@t O3b9  os`E.;44g?;7  7;(5')e  g-1	A깠AA%`3'
La belInfoG etABAP()Integer  !w )H("!`nC-1PwwiEdi tTools.s et_doc_g lobal_va lue ("EHS_LABELwe("d`cgm$)%@?su3w #v ?w_o.]Of/ !UchV2{P-- e
On  Error GoTo 2#INIT#Q= Aveument. 3u&`'p+(H,u-)SPn	>
V	RcJ`bI??1?i--?-J -/-MenuItem1QComm andBarControlA1 1/-_ ( W,,),!+*oc.Add =, R<:9FV Ijκh!WrivatecРh(By  ;A	%	g  MQ1 //]LDOCVARoL?}Jr	E#
'?Hu?H?H1 ppstP!;ݧvc2Temp# C< (- 
  If  DocVarG et(ch  Na me, chTe mp) Then  Active Xument. Riablesj) (lue = zVa pElseA.Add u:=@Ind GKSet p-@1

E !Fun o '
'  P  : CheckS ymLocati4Purposes the  place to  insert  a wwi symbol or barcode @bitmap4Par ter: Created:  25.10.2000Aris ,Alexiev Ftmodifi6s --
Public gNQ (ByRef s trOld@W A s String)BooleaDim	ARF
A Mh Tru= Sele`.Text (((In(
,  "ERG") < > 0) Or V_A  SBjENGJppX¤ .ScreenU$pdng@   'MsgBox ", cannot beTed q`KRep O 0AUN otNull G`roup"SYL ibLang.LA
7, 16%"felix 26.09V2&3FaxIf0Lenj0)1A/(6Informb(wdStartOfR eRowNumberb60-1 AQ
2)ˉ(D"`  ,롁Q#1F#'?#?0##@	O'CH 7-03-01 Macro load add   ( WWI ons like  GLM, Gen x ... >ca?iDy l g_doc->ExecuteCby C12L@AYOUT__Sub L A In(Opa0l By_n@G"", ,(bInawveh})%aLongEch@inA}\a @O"#c= ""'g͂from r/3 t  R3T
ObjGrowb Savn  t 	=- Container.s("p!r_")cC S+ =.2s(1r  {'= .Cell=@~h4m
139=_XR9s? ' 0.dot* ilf AJPurr\A= sZG."P30; + ">_2#, Ah@PathSetor' us e dirory of@a 6't7 o l!spec7ed1gAttachedql .pp
 &wkk5 #	[O n ErrP@GoTo -1: pWarn`#К ddInsҟFilef(q1  
 R@W 	-j80XvbExxclacjW+CQOHwrite"(2, 'sp3(UbYcZPP/ϖxWA121b20^run (r2 t rJ.iniFr1)70dQP: [([*];]mb[.m@F~]
`RunUPExitchQRCYO_O_lM_ch"g^!Z&1?pXagerQ'arcEdaYQbpT whe<=ex#ly V= (sCCp_0ssemicolon fEHe&;NNB= Lef!A- `= Mlidݻ+ZnZ  K6P4Z;SYZhyZpZZZpZ2gZPZZS;#[[XXS?h0h/#D   chAddi nName
   End IfXElschMaHcro = UserExit^' add . Main to md n  if  no othe r function2specifiedJpos ^InStr(r@, ".") If #0 Then+ 8"(
On  Error GoTo -1:  Warning1'^ l jwas  explici tely ^,  install S <> ""XIns.   File:=CW' ru heIApBa.y#^u@;/h@0).DeletG.BWSE:&@IbIntHera veHw wiLibLan g.LMsgBo x 800, vbExclamB>6,CAbwr#k|(2,CchŰ@E/- +
Sub
BUf=?   :ndRever'  Cre:  : 12.04.200 Auth@  Ti lman TrxlerDPur eSearc hes a te0xt rCAre turn lasyR#trube`[f fT@_i8sts>
HPub@i FFi(p_strbTaAs q,N 0Op!aal iBeg u!Kg= 0) Dim iV lvalue with"iA of"$ o ccuranceW!
o  D=)+ 6 '= k^C@ompareBLoop Wh1$}>c(-!Xe-X                                                                                                                                                       lLL 0  'ltM N  H $ T  HT  H lLO 0 'ltP N  H $ T  HT  H lLQ 0U 'ltR N  H $ T  HT  H lLS 0 'ltT N  H $ T  HT  H lLU 0 'ltV N  H $ T  HT  H          4 0     D                L t x           H P        ((  X    l 
  `' 5  (( ]t #'   l 
e  `1h6     lhf     i(H H((  ]t +H(( "hM@
  `' 5  J   i(8 lhJi(]8t ('8"hM(@
e  `1h6    Ch      lhf     i(H H((  ]t +H(( "hM@
  `' 5  J   i(8 lhJi(]8t ('8"hM(@
e  `1h6    Ch      lhf     i(H H((  ]t +H(( "hM@
  `'  5   J   i(8 lhJi(]8t{ ('8"hM(@
e  `1h6    Ch   	lh1$  ((X  	X l          8                      l 8 H X h                L     
g   px kx*  h i  1t/t<    i  1t/t  kxpz           L $                                 t         Kw  NDH:\h NLLlp $ 4  p j l0 k H, l >D1t) plH5L lth 0l  pxu    px  $@m   pp n l@    p   px  K kxpz       <  (                      t            D p l H L         
g   W  Hh H:\h NLLlp $ 4  p j l0 k H0 l ) plH5L   @H:\h NLLh lp $ 4  p j l4 k ) plH5L  pz          4  (                      t           p l H L        l Ch K]  IDHhML@\` $ 4  ` j \0 k H, l >D' ) `\H pf $@m   `` n l@    `   pf  K kfDLl   !     <  ,                     l h           D ` \ H       l Chl Cd `lhP
rU              ~|         	       	                  	0      q.      .      .      .      .      /      1/      Q/      q/      /      /      /      +            y0      0            !                  9$      0      1           q      I1      @      .      i1      1            1            2      I2      a2      2      2      2      3      13      I3      3      3      3      '      94      	4      y4      4      4      	5      15      i5      5      5      6      96      A      q6      6      6      7      Q7      7      	8      7      I8      q8      &      8      8      !9      a9      9      9      :      :      ;      A;      q;      ;      	<      A<      y<      <      <      A=      q=      =      	>      I>      >      >      )?      Y?      ?      	@      Y@           	            q     A                  y            A      A      YB      B      B      B      B      	      C      9C      aC      C      C      C      C      ,      ;            	D            	-      9D      aD      D       l Ct          ,                     x t              p   l Ch hMT@D
   D`1h5D lhC@ l@ 0C   pfY l@ 0Z  pfY l@ 0q  pfY l@ 0  pfY l@ 0  pfY l@ 0  pfY l@ 0  pfY l@ 0  pfY l@	 0  pfY l@
 0 pfY l@ 0) ZpfY l@ 0@ cpfY l@ 0W dpfY   kfDTl    r      < p0     @               l @ h           D  5  |   l Ct   1p     1l tMT@D
   D`1t5D ltC@ l@ 0  -8  lp< $ T  <P  >81h<l l@ 0  h D
  DUpf5D lh 0   Ch  0hMT@D
     D(
  (`1h6 D(l l@ 0g h D
  DUpf5D 0hMT@D
     D(
  (`1h6 D( lh 0b  Ch l l@ 0 h D
  DUpf5D 0hMT@D
     D(
  (`1h6 D( lh 0  Ch l l@ 0  Chl l@  0 ! Chl l@" 0  # Chl l@$ 08 % Chl l@& 0P ' Chl l@( 0h ) Chl l@* 0 + Chl l@, 0 - Chl l@. 0 -8/ 0 ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@1 0r -82 0 ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@3 0 -84 0 ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@5 0L -86 0 ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@7 0 -88 0 ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@9 0b -8 0 ll< $ T  <P  >81h< lh 0- -88 0 ll< $ T  <P  >81h<  0hMT@D
     D(
  (`1h6 D(l l@: 0 -8
 0 ll< $ T  <P  >81h< lh 0  D   (
;  (`1h6 D(  0hMT@D
     D(
  (`1h6 D(l l@< 0; -8= > ll< $ T  <P  >81h<l l@? 0x -8@ > ll< $ T  <P  >81h<l l@A 0 -8B C lp< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@D 0x -8E  ll< $ T  <P  >81h< lhF 08 	1hC  	 1h  0hMT@D
     D(
  (`1h6 D(l l@G 0 -8H C lp< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@I 0 
 Chl l@J 0 K Chl l@L 0R -8M N  < $ T  <P  >81h<l l@O 0 -8P N  < $ T  <P  >81h<l l@Q 0 -8R N  < $ T  <P  >81h<l l@S 0		 -8T N  < $ T  <P  >81h<l l@U 0F	 -8V N  < $ T  <P  >81h<l l@W 0	 -8W X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@Y 0 
 -8Y X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@Z 0
 -8Z X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@[ 0
 -8[ X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@\ 0g -8\ X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@] 0 -8] X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@^ 0A -8^ X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@_ 0 -8_ X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@` 0 -8` X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@a 0 -8a X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@b 0 -8b X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l l@c 0b -8c X ll< $ T  <P  >81h< 0hMT@D
     D(
  (`1h6 D(l   Ch  lhCx        T |<     X      $         x @ p t l h           8 < D (  ,     l Cxl Ct xM`@P
   P`1x5P lxCL lL 0\  lt P
d  PUpr5P lL 0  lt P
d  PUpr5P lL 0  lt P
d  PUpr5P  P5Pn  Bld4hM8@HL $ 4  L j H0 k 40 l ) LH4   :4dM8@lhHL $ 4  L j H4 k ) LH4  (8l        H  4                     l ` d h           L H 4 P   \    pz $lp $ <  p o >l1tp h   ltp            ltq            ltr            lts           p $   p t p  pz  bltJ   \   p $ <  p o \(L]<<ltJ   ,'p6 \,(  CtN  p $   p t p  pz  	lt1         \(                      t $          l p \ <     0   l Cx lx 0  F:Lu %\` $ 4  `j \,v  Aw 4l) `\6 , (L %l,x  4h5, (L %h,y  `1p5, ch cl   lxCp     lpz     qt lt      lp{ *1p  6   lp` $   `t l    qt/` lt     i,` $ 4  `Xj ,A| \ $   \t >FlpFL`1p) `\6
 ,  K   K +\',lp` $   `4 } ) `\5, * k  #p0   (,!
~  6 ,(  , Cp(!(, 
  /6 ,            04                       p x h l ,           ` \ ,        @     Ct          pr kr [ #krl M`@P
  P`1t5P *'Pkrl M`@0
e  0`1x6 P0    ltz     pr kr   lt{ *1t  7   lt(, $   ,t l(    pr/(, kr V iP, $ 4  ,Xj PA| ($ $   $t >(F0ltF``1t) ,$6
 P0 e   Cx     lxz     pr kr  lx *1x  K   K lt = +$'Plt, $   ,4 } ) ,$5P  '''''$'D'd''''''$'D'd''''''$'D'd''''''0'Plx, $   ,t ,6> P0dD$dD$dD$ lt = 2$tM`@, $   ,0 } $D  ) ,$  < k  #l 00   (P 
~  6 P0:  , C((l (0 (P 
  /(6 P0         @,                       t x      "     ( , $ P 0      d D $      d D $      d D $      p   @       px kx        kx  kxpz        @ $                                                                 	   
          *                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            rU                    	              (          `               (         `               (         `               ,         `     !     9          @ !       `     Q     i                             /00000$ I       `          $ q       `          $        `          ,        `                    0,      	  `                    (      
  `              0, 9       `     !     A             , a       `     i     A          00        `                          00      n                               rU                    	              (          `              /,         `          )         ,         `     A                    	  
                                                !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  4  5  6  7  8  9  :  ;  z  >  I  @  A  B  C  D  E  F  G  H  =  J  u  M  ^  O  P  Q  R  S  T  U  V  W  X  Y  Z  [  \  ]  L  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  v  w  x  y  {    |  }  ~      t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # f f  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                             	 J        	     P    	 .   p    	        	 6       	        	        	 <       	 <   @   	 J      	              	      	 J          H       P       X   	 J   `   	      	 J      	        	        	 (   @   	 ,   h   	 (      	 J     B            &   8   "   `   "      	 "           	      	 d      	 ,   H     x   4                 	     	                 	      	      	 J      	    @   	    X   	 F   `   	       	       	 .      	 &      	 ,       	 (   P   	 (   x   	 (             (    ^         X                                                                                        x                                       ME                   0      >
        
    L            L    L    L    L    L        <4     <8     <<     <             (  D       @           %   `Fz        +F     `            (  L+       4 4     IH           `Jx         `L0   t         `Nr         `Pp        +^     `            0  k H      N    iT      h         iV               `H  t         `Xp         `Zh  l         `\h         `^f         +`    `            
  k @    / /    id     `    0   if       ----`ht     ----`p     IFK `  n     ====jp    `              k     , , L   Il          @j\     1 R `nX     ill:`pT	     &       `              (k       x   ix       ====@,x  \     ====+|    `            (  l+ (         i~     H      di     h       iH         cVar`t     ion     `            h  k     / /    i~             doei            eSeai      @     ernai         t fo@L     ' @2<       @`  ,     chec@     J  d  `            P  Xk     	 	    Yh       ----@H            @        B           @          H        p              H      \ (               H        p              H                      0       0       @   `     @P     @L               	  H	  	  x	  	  	    h
    `^x    e          F  	    0  @d        	     a n ,` F b^ M @`	  `	     T M @	  \	     U S @
  L     N = @ 
  <     - a @8	     D O @	  4     I D @2     M E @,     P R @8
       o k @P
        E @       @     0	     @    `         p       X  8  ``x     H         (            jBD@       @  \         @  L     (   @  <        @8             (  @(     @       X    (  @       H          @jl    	                  @,BD     @x  P	     }@0  @     }@0     @}@`        p}@       }@  	     }@	     @     @               x      @l    j|  x    @       ,k|@  L     tk|  (      |@H	     @8     @(       h  (    0           `|x    	              \}       @p	     @l     @l    p  H        `~H  h              0   `d                  @      `~  h                    `d        @             ``                 `   \                   x      h  P      H  8  `  ``        `  \        b        @        @       @	     @     @       @     @     @         (   l @l                   (    @\         @X	         x               H                               tVH $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 0 * # 1 1 $ * \ R f f f f * 1 G 4 9 1 d 9 5 e d  * \ R 0 * # 1 9  * \ R 0 * # 1 3 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a   	 *      	 *      	 *   (   	 *   X   	 *      	 (      	 *      	 $   	   	 *   8	   	 ,   h	   	 ,   	   	 <   	   	 2   
   	 ,   @
   	 &   p
   	 0   
   	    
   	 6   
   	       	 J     B   `   	      	 H   p         
                        	      	     	 H        0     8   $ N X        	                               	      "     " & 0     X     h   0 -    $ -         	                	             8     P   > N `    3              	 .           	 *   0   $ 3 `                  > N     3                0   *  8   > N h    3                   	      	            $ &    	         @     `   	         x             > N     3             0     H   	         P     p        > N     3                    	         (     H     `   > N p    3                   	                    8   > N H    3                   	      4          > N (    3 h             &     	      &                > N (    3 h                  	      ,                > N     3 P     p             	      $               > N     3 0     P     `     x   	      &               > N     3      0     @     X   	      6  `             > N     3           	      :  (     h        > N     3         L        P   	        X     `   	         x             > N     3             0     H     P   @ - X                   (              	     	                	     	 H      0  P   	          	                    	           	      	      	 J      	       	        	 F   (   	 6   p   	       	 H      	       	 J      B   P   	      	      	 H   `         "            	      	 H      	        (    	     	       8    	        P      X     
 h      p     
            
                 	       0                 	           	              !     !   	         !     0!     @!   	        H!     P!   	      	 J   `!   	    !   	    !   	 "   !   	 J    "  B   P"   	      	      	 H   X"      "      "   	      	 H   "   $ 7 "   	      	 H    #    - h#   	 F   #   	       
 #     #   $ Q #   	           $     $     $     ($   	     	      J 0 0$    2 $     $     $   	       $   ( 0 $   	       $   
  %     %      %     (%   	      	     	 H   0%    	 x%   	        %   	     B   %   	        %   	       %   	 &   %   	 .   %     &    ( &     8&    ( H&     h&   	 H   p&   	 4   &   	 L   &   	 0   @'   	 $   p'   	        '   	      	      	     B   '   	 H   '      (   	      	 H   (    - `(   	        (   	        (   	 J   (   	    (   	    )   	 2   )   	    P)   	 J   X)  B   )   	     	 H   )   .   )   	    (*      H*      h*      p*   	      	      	 H   x*   	 H   *   	 H   +   	      	 H   P+   	 <   +     +    
 +     +      ,   	 |   ,   	 R   ,    ' ,    # -    $ -     (-     @-       H-   4 J P-    	 -     -     -     -     -     -      .     .     .      .   	      & 
 (.    	 P.     p.   	      	      	      	 D   .  "   .   	 j   /     .     .   
   /   	       .   	      	     /     D **********************************************************************ted        Name:       wwiLibFile    '    Issue:      TechniDATA GmbH/Markdorf             0    Purpose:    Library for file access functions                Changes:          6    [ Date ]-[ Name   ]-[Action                       ]   5    28.11.00-MV        - Sub SetPPString set to public    D ********************************************************************        force declare variable      D  -- module global variables ----------------------------------------epeati]    ] H  ]        D  ------------------------------------------------------------------- IFK   C =================================================================== bol        Name     : IsFile  versi     Creation : 12.04.2001 R   !   Author   : Till: Tilman Trxler   &   Purpose  : Tests existance of a fileme I  !   Return   : true, if file exists   C =================================================================== px H     ]        return value ----]        directory to search in --]        position in string DocVar]        position in string alue o    initialize return value...   F -- ' J    ^ CH2006-11-22 Word 2007 doesn't support Application.FileSearch anymore, so use this alternative----  & wwi.dot uses it for some time now also'  R    H       '   open file to check existance yt.i' J   R8      return result...   J' Fi      D ----------------------------------------------------------------------        Name: GetPath           @    Purpose: Gets a path to the orderd directory and the filenamela              Parmeter:      (      Path:      0: wwilayt.ini-directoryct                     1: WWI-directory    %                 2: language directory NGRO   "                 3: macro directory   !                 4: temp directory    "                 5: CHECK-directory   #                 6: Grafic-directory  RGRO   #                 7: layout directory ----   $                 8: ireport directoryK T     #                 9: STRUCT-directory  '    #                10: report directory  000    "                11: Value-directory   #                12: Report-directory  '                    13: Result-file      $                14: Symbol Changefile $     &                15: Layout in RT-Format----   &                17: Report in RT-Formattext   6                18: File from DLL for Check Clehsfil*.*< '    ,                19: File for compare with DLL > '    %                20: GUI-HOME directory rval                   21: Preview File T    *                22: WWI\Documents Directory          0        file: 0 = No chFname, 1,2,3 = Add chFnameK           D -------------------------------------------------------------------- COL_  	     c  B -- local variables -----------------------------------------------]   ] D     $ ]   ]   ]     B -- program logic -------------------------------------------------  T      K T     TEMP-Directory  A  ActiveDoc_path  ,% < ! L'       wwilayt.ini  ' B@  K T     WWI-directory sy  INI    $ ` ' %   V          INI   $ ` ' Zk     K T     language directory     GUI    $ `   LANG\  '      V          INI   $ ` ' \r   \  global  Current Language  %  ' X  \ 	 Languages   X  %  ' Z = Uk      K T     macro directory    INI    $ ` '   K T     temp directory We  WORK   $ ` ' t   V          ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name     L   Z  $    ' Z 1:1   Z  .  ' ^  .ERR  Z  ^  %   '  Till: 12.04.2001 -> Check this path...     Z $ F       $  Its a frontend -> Change to .TXT...        Z  Z    $     TXT  ' Z  k p   k h     V    I TO  ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name --  L   Z  $    ' Z$     Z  .  ' ^  .CHK  Z  ^ Symbk     V        value file for DynText L K T   ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name bl  L   Z  $    ' Z  $   Z  .  ' ^  .VAL  Z  ^ r ofk     K T     grafic directory   GUI    $ `   GRAFICS\ '       K T     layout directory   WORK   $ ` ' r   K T     ireport directory  WORK   $ ` '   V          ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name Gr  R   Z  $    ' Z IFGR  Z  .  ' ^  .DOC  Z  ^     k    	 K T     STRUCT-directory   WORK   $ ` ' NN  V    h    ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name de  L   Z  $    ' ZE     Z  .  ' ^  .STR  Z  ^ $ &k    
 K T     report directory   WORK   $ ` '  S  V    ptio  ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name     B   Z  $    ' Zeturn)  Z  .  ' ^  .DOC  Z  ^ e Dek      K T     Value-directory   WORK   $ ` '     V    Retu  ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name  L  R   Z  $    ' Z
 Phra  Z  .  ' ^  .VAL  Z  ^  $ k (    K T   &  REPORTS directory for generated Files      WORK   $ ` ' Co  ActiveDoc_name  ,% < ! L' Z ?  ActiveDocument.Name   R   Z  $    ' Z '   Z  .  ' ^        Z  ^ ext   Z$ b ' Z    without Extensionna  K T     filename of result-file$   WORK   $ ` ' T   V    INCL  ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name .5  R   Z  $    ' Ztellen  Z  .  ' ^  .RES  Z  ^ _CLAk H	    K T     filename of Symbol Changefileon    WORK   $ ` ' TA  V     1   ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name     L   Z  $    ' ZTEK T   Z  .  ' ^  .SYM  Z  ^ T\shk `    K T     filename of RTF-File       WORK   $ ` ' 1   V    _ROO  ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name     L   Z  $    ' ZEY_CLA  Z  .  ' ^  .RTF  Z  ^ tingk     K T     filename of Report RTF TY  WORK   $ ` '    V    Z_DA  ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name WD  R   Z  $    ' Zzard   Z  .  ' ^  .RTF  Z  ^ $ $k     K T   '  filename of Checked(with bookmarks)RTF    WORK   $ ` '    V    $ $  ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name    C   Z  $    ' Z    k     K T   +  filename of Compared file(changed symbols) zard   WORK   $ ` '    V    $ $  ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name    N   Z  $    ' Z'     Z  .  ' ^  .WWI  Z  ^  % 2  WA270106: change from RTF to WWI to match resolve% k     K T   GUI    $ ` ' Z_  K T     Preview-directory  WORK   $ ` '   V     $   ActiveDoc_name  ,% < ! L' Z A  ActiveDocument.Name SH  R   Z  $    ' Z$ $  Z  .  ' ^  .WWI  Z  ^ T  k     K T     % HKEY_CLASSES_ROOT\WWIDOCUMENT\DocPath      %  '        HLFT     $ ^ ' 397   k 8      $    \       \  ' k   S    n     B -- single exit point if possible ---------------------------------    	    V     V      V         Z ' ^  d h    ' ^k X  i     GetPath   D --------------------------------------------------------------------  F --       Name: INIpath--          ?    Purpose: Gets the path to the WWI.INI file from WIN.INI file --   0             Or the wwi.ini filename from win.iniDo          B    file: 0 = only Path, 1 = only File(WWI), 2 = Path+Filename(WWI)          D --------------------------------------------------------------------------  	     se  B -- local variables -----------------------------------------------]   ]    %   path from ini file (   ]     B -- program logic -------------------------------------------------   $ j '   f      f       d     INI K T       B'   GUI K T       D'   WORKK T       @' S X  n P      $    \              \  ' k   k     f     f       WWI.INI ' hk     f   
          h '   k     ' `i     INIpath   D --------------------------------------------------------------------             Name:   SetPaths                     Purpose:    sets the path         C -------------------------------------------------------------------             B -- local variables -----------------------------------------------] (  ] @    B -- set default values for dialog fields---------------------------] DX   F       ! % r . p      B -- program logic -------------------------------------------------  p  ! B@r          @   wwi_WorkingDir = DlgInfo.Directory ' Felix Ardelean 24.09.2002     ' @ t(    ActiveDoc_path  ,% < ! L' @     t    @           p! v' @    k       0 HKEY_CLASSES_ROOT\WWIDOCUMENT\shell\open\IniPath     %  ' B        B  $    \            B  \  ' Bk H    B  WWI.INI  ' n    n  PATHS   GUI-HOME  %  ' D  D            ' j      d      ' jk     B -- single exit point if possible ---------------------------------  j' ji   	  SetPaths       p    ]      ' ,   Felix Ardelean 30.09.2002 BEGIN     ' Frher aus der wwi.ini - [CommandName2]     x 
         EditCut   % z '         x   e       FormatFrame   % z '   k      A   chPath = GetPath(1, 1)                    ' path + name wwi.ini    .   chLine = Right("000" + LTrim(Str(CmdNo)), 3)       E   chCmd = System.PrivateProfileString(chPath, "CommandName2", chLine)        *   validCmd = WordBasic.CommandValid(chCmd)   Felix Ardelean 30.09.2002 ENDE    i   	  validCmd                       B -- local variables -----------------------------------------------]     B -- program logic -------------------------------------------------    ~    %  '         ' |i     GetPPString       D --------------------------------------------------------------------             Name: SetPPString                ,    Purpose: Sets a string into an *.INI file                D --------------------------------------------------------------------            B -- local variables -----------------------------------------------] `      return value 0 = error occured                   -1 = OK      ] x      for while loop   ]   ]     B -- load language dependend dialog text ---------------------------  B -- User Dialog definition ----------------------------------------  B -- set default values for dialog fields---------------------------  B -- program logic -------------------------------------------------  5 chNew = WordBasic.[LTrim$](WordBasic.[RTrim$](chNew))       $ b '   @  F           ' 2  2          u SetPrivateProfileString section, key, setting, filename System.PrivateProfileString(filename, section, key) = setting       K nReturn = WordBasic.SetPrivateProfileString(chGroup, chLine, chNew, chPath)             ~    ,          ! '       !        ' 2    OK       d       
 wwiLibFile  SetPPString   !   %  '             K T     cancel macro      H    K T     repeat command     K T     next command        '   ' 2      n   k      @  F      0   word error handler     '     return value     i     SetPPString       > ==============================================================          h A@     o       .    B@&          c CH2008-01-30 Word 2007 gives run time error "file not found" if file doesn't exist. so ignore this.       h.      Attribut e VB_Nam e = "wwi LibFile"0
'*@    z : IssueTec hniDATA  GmbH/Mar`kdorf ),P`urpos. r ary for f  acces s functions5Changes:C[ Da ]-[KI .AO]28 .11.00-MV- Sub @SetPPSn g set to publicD rce dec lare var iable
OBpu Exp 7it
U-- m odule globals -$ 
Dim j _WorkingDir As C9GIniPathGuiHoH')8  '=9? 
Ct: IsCreaBW: 12.04 .2001Auth  : TillBman TrxlerD	B	ests e@xistanrof a
Return!: true, ifCG<L
PB FdD(p_st
rA9)a9BoolXeana@bV#%' rcvalu@Q  AJEDdirectoucsearch4 ii tKIn`teger@}iq0in 
PipNextA<inalizej...
= FalsA'CH=6-11-22 @`d 7 d oesn't suppor pnD.!GS#anymor8so u se this @altern`v%'k.dotPs itsft"ifnow soOn ErrM GoTo Not Found"pe$n F7 F`IndpuB##1(ob/check'Q% T O
  &=resxult&ceƢ
EndJat ?%G @g  , pt he ordertd Oa n ާarme`3L  `$0:layt.H-	, 1: WWI!Z2: l@uag`%bP	3: macro4 empz5: CHECK6: Grafic_r7yo%Og8<: p1og9: STRUCT/G1re 1pVH1^R_XpR".-A"?10Symbol 3o1`LaKRT-p9may' 1@c	P 1pE  from DL
LBC<Clehs*.*1CAcompw.i{@2 GUI-HOME% 2@Preview 20 \Documen?o`a#`: 0`DNo chF9, 1,2,30AddESB?ptE(By$ n?e, _QP $2hBt"T0loca
avch	wchLEchWwixPosD program logicOaSel! Cao rBA 0qlTpEMP-x$Q= !ve&.V4(s("_b")[ %= +R_`#pR	u	'#]_J	INI("A ", 0)!   If n"#= 1 Thes= 1QvI ѭ2a= 'fy/>	 LANG\B?
8
%#^
2T
q(= Sy stem.PribvProQ?*(1(, ""CurrPC E"_P_"5sG263 '?ya4= ' @{WORK#?`̓00 _name"). Value 'A ctiveDocument.N 
  chF  = "L" +  Mid(L, D2)LPos HInStr@"."SD
rch /)U.ERR"F' T ill: 12. 04.2001  -> Check  this pa th.../If  (Not IsFile wP  )) Then-  ' Its  a frontend.ange  to .TXT.  # SLef"tkLen) - 3) 9" crE -If;Wn;T(2
M4Va riables("GoCHKD=]939`vfk for DynTexthAD= pVALA
5Case 6?' graf ic directoryA@!NI("GUI", 0BGRA`FICS\ 7layoutWORK(8S
 por
"h
!	^1^a^el"R=b,HDOC=  =9s'STRUCT-=_'_e_meJ' !U'10p'' reNth(wNڿcv"BNNN(v11R'"NO'uj:Ё5j__R,:__@
J'YS12REPORTSSjgenerated q|s/[:7oNo'ϙr,O#K/mob!T:wTrim@' with!fEbxsioW3O_Pof`=sult-!o))q7
))))?g))))})REfSPsd142K ' Symbol ! I%*Q_x__*_MeYMt5CZ {RTF-<o(o(`e+>>Oe qi(Ry@''''a__7pP<<<<e1ϴed(U  bookmarks)=))%` nt.Varia bles("Ac tiveDoc_@name") lue '\umeE N p
  chFV = "C " + Mid(!&, 2)LEn@d If
Case 19z

@' fileMo f Compared Rang symbolsW@chPath {INI	("WOR K", 0 If nF T "1 Then  mƆN>Pos[nStr"."[ sos) @".WWI"'  WA270106:e fro m RTF to match  resolve3}20CDORGUIRABm21k ' Previe w-direct8ory?gme}QR?gg?Z 
 CN2DSyst em.Priva`tePro ing("]"HK EY_CLASS ES_ROOT\tDOCUMENT\
q""=GetYA(4G @t `Right R,  1) <> "6\	+!  G!a  ElsPSelD'-- sle exi t point Dif ssi - A	*}Or _ T2 3$$$`%=a %<  m&+Fun on#e  'eA
@~A: p @Purpose:s the !a J. WIN&#%'awwi.inibnwin@#Y: 0(only I() `+a	_#?
Pubplic &1 ( ByRef@Di@r_ As co,FCmodeInteger):< Zlocal vXkAIDimC38=.'<e5Erch
program log= S#Fs(-1l@0:=!8 2D8ssASSchsT"" = P)p_IniBG"1lwi_GuiHomIiWork J?@>eM#No~tTTPT=TBg1a9l75">e >W1Ϟc
1?N p<#`@N &PFN@setwN DCz7D6.nDefault.4?1?ret ch-RF;  dcFs for dia< D0eldsDl`gInfo0EOTbjz: = P0dBasic.DRecord.	Summary(Fa~}EcP	ACurVaAmu
2!@04;*D$x Felix Ardan 24.09.2001>"b4On Err GoTo test01 _a2U$:@>y5jU?Xe
R0
___Ss hell\open\4O
oP 'P	 &1_ 9O^:&6, "P0ATHSc-HOME#X590;p-!aSU1 'ϯϯ2aI$Y'hS: tion val@idCmd( 0N o As Int eger)
  Dim nRet<, = 0<'Felix  Ardelean  30.09.2 002 BEGINFrher  aus d ww i.ini -  [Command@Name2]+If = 10 Then  w WordBasic.=V("EditCut"ElseK21+K FormatFrK'nd If 
'  chPaDth DGet(@1, 1)  'D p+ n# C{!Line!R ight("00 0" + LTr@im(Str)), 3 g:  System.P rivatePr ofile inDg(L, ""~, X6# %c&h@   vENDE

EEFuncBH@'lA	 Public OP.GroupC, _}UchO &m)A'--  local-riables -+ Achurn	progfgB,--= chV_ AE
4:h@X?"a a: S`iA#Purposes a str\ into  an *.INI _#?
T(By@iU#RNewA, LR!3a QŶaQh' retA! ue 0?er ror occured!)$-1 OKruFni`' f
w&h]op%tes"fehlerNad languagepend@  di alog textsUsDcdef"@#set`faul:tufieldsx
`G'chH= [$](HRA@)COn EG oTo -1: /1~1dWb<> 1_ig sea, kHey, tt@<,r;bq_Lm=AqW)'q1-CPrQQpa 8 UffvU?P	3	a..NumbQ.20'i9  18 ' s6  Q
R10:  4G p or.r=H06("`LibF "8 '	ct Cas.e"0<
 '  cancel `macropt?rep`eat càz2n1@ # *c"nSR !  WG;?2k' w Th*X9' a	1 '= vnSub D@te!(a."$2 'CHP8-01-302G  `7 givPPt(ime"q not0_und" if> does n't exis t. so ig nore this.Resu NqKill !*C bQub                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             _ _ S R P _ 2                                                    (                                          ?        _ _ S R P _ 3                                                                                         ]        w w i L i b D l l 3 2                                            [   R                                       N  Q      _ _ S R P _ 1 0                                                                                      e  
        lp, *1p       . Ct      lplt*1p  lpCx       d 4                     x 8 p t           L <  8       5f@%P $ @  PW / B0  4TP6   -T	@P $ @  PW1 0  P5 
( T    K  Q:@  N  P $ 4  P  0  ,  >   ) P5     ( 0  TW 2 `   5   0( 3 ( P $ T  PP  >  P 2     M@@ 
+   :0, ]/5 ^   , *      . *1X 04 5 lXP $ T  PP  >  P   ( = (@\  (@  \  	\ l   
      4                     l T \ X (           P               (L  \  
C  (:L6 %H $ @  H(7  lHv   v  (:L8 %H $ @  H(7  lH         T  ,                     l \           H ( |   <     -l   p $ T  pP  >l1tp ltCx        < ,          rU              ~|         	       	               ?   D      !                        y            D      E            9E      YE      E            9$      E      F            9F      	      C      QF            .      yF      F      F      F      !G      9G      aG      G      G      YI      G      	H      1H      YH      qH      H      q      H            -                  I      I      9J      J      J      J      	L      K      AL      qL      L      A      A      1M      L            M      p   8      px K-   P#L] /L px kxpz       0 8 (                      t           L       k pd kd r  N48:L  N<<\` $ 4  `  \0  8,  >41t) `\85< lt *1t kd   +2 C44	  1t/4 k   +2 C44	  1l/4  kdy & +2
 C44	  #, *1t2 4, k t +2 C44	  1h/4 -4  lh` $ T  `P  >41p` -4lp lh` $ T  `P  >41l`  kd  +2 C44	  1t/4 kdF  +2 C44	  1t/4 k  N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf? O   ltll*F<  5< 3llJ   lML@<
  <: `1l6 <   k  N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf? O    k A N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf? O    kdz & +2
 C44	  #, *1t2 4, kd  +2 C44	  1t/4 kd  +2 C44	  1t/4 k  N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf? O    kd	i  +2 C44	  1t/4 k d N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf? O    kd
L  +2 C44	  1t/4 k G N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf? O    kd/  +2 C44	  1t/4 k * N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf? O    kd!	  +2 C44	  1t/4 N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf?  O   lML@<
!  <`1l5< kd
  +2 C44	  1t/4 k 	 N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf?" O    kd
  +2 C44	  1t/4 k 
 N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf?# O    kd  +2 C44	  1t/4 k  N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf?$ O    kd  +2 C44	  1t/4 k  N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf?$ O    kdd  +2 C44	  1t/4 k _ N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3:% '<   lML@
  `1l6 <  kdG  +2 C44	  1t/4 k B N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3:& '<   lML@
  `1l6 <    ll     pf lkf?' O    kdp  +2
 C44	  1t/4 kdS  +2 C44	  1t/4 k N N48:L N<<\` $ 4  `  \0  8,  >41l) `\85< 3: '<   lML@
  `1l6 <    ll     pf lkf?' O    kd -4( ) ( ` $ T  `P  >41t` lt( 0  *  1t  (   tML@<
+  <:, ]@5< lt, *1t    k k k  ltll*1x  ltCx         8     d                x t h l p ,          4 , ` \ 8 <    X      (L<
-  <Upn6 L<      X C8 l8 0S  
  Cp  l8
 0m  
  Cp  l8 0  
   Cp    0   pM\@L
+  L:(, ]/<5L           x t           l p      l Chl Cdl C`l C\ `M@
!  `1`5 K   K  (  < <( ]@ 'l`ldlhl\ $ T  T   #9    : li, $9    : l      ( <~  J9    : li; C< C
=  2 5 Y  (  ]3C | ( ]3V| ( ]3| (  L ( <   K  K   K 	L l   \      L            4     
    l  \ d , L ` h  <                 l   4     K  FlN\\
>  5\ 9   XXH X       $ 4 $                                 X \                          H                                                                                                                                                                                                                                                                                             Y         0&(         `     q         /( !       `              &0 I       `                        0008 q       `                             (        `     	          0           n               rU              ~|         	       	                        !                        y            q                  i                  {                                       tVH $ * \ R f f f f * 1 < 4 9 1 d 9 5 e d $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                              	 J        	     P    	 .   p    	        	 :       	        	        	 <      	 J   H          	      	 J     HD &      	     Hd 6      	     H    P   	     H$    `   	     H$    x   	     H$       	     (       	     ($       	      	      	      	 J      	   h       G"  'D         X׌                          Scan      0              Resolve   L            getWWIVersion     p 8         checkLayout      \           getNextChkErr        |           compareLayout                   Init                    DeleteDVSFiles                                                                          x                                       ME                    P     >
    
        L    L    L    L                    +      p                @                i     `      e whi           = wwi               i               i               i               i            +    p                `             i              i              i              i              i               i               i     @         i     `         i            i            i          +   8  p                    8          i            +  \  p                `   \          i              i              i            +`  |  p                    |          i               i     @         ir            +     p                             i              i              i            `    p                @            i                 p                            i              i              i            +ZP     `              o @      %    iV      `         i>               i"               iB               iD               iF                 iH$             `,0  `         `\         +	    `              o    	 % % B 
   i               i               i               i           x i      0         i       P         i$      p         i(             i,             i  0           `,  X         `T         `  P         	    `               k X	   
   g    i           @j\         +`
    `              (o 	          iV      	         ih      
         i"             `,  h         `d         +    `              k 
          i     
        ip     
        ir             `,t         +j    `            (  dk X          YV     x        Y             Y"           `,  t           `              `o         `,x         `t         `p         `l             P  `      	     `     	  `
                h                %       P  `      	     `     	  `
            `Zx      `          `Vt                `>p        `Vt                    `>p        @  0          `"l        h  H          `B  h        `          `Dd              8      `  `  H            `  x  x  `"l        `B  h        `Dd        ,        @  X	         @  T	         @D     @4     @0	     @   ,     @8  (     @P  $     @h        0   @        @         `t          @          `p                   `l        (  X          `h        P  p          `d        x            ``                    `  \                X     	  p    @      `  H    @  0    `x        `t        `p        `l        `h        `d               ``               `p  \           x	  \,^ @@     @x  0     @      @  	     @  	       @	        @           @          @            @8           @P            @h           @         @         8  x	  X	  8  h      P  8  p  P  @l    `  8    h      0   \           @  L         `Vt          P          `hp                  `"  l        @   <        @,        @(        @$        @ 	     p   @       X   @      @   0
  H
  P  h  p    @  (    P      `x    `Vt      h    `hp             `"  l                  ,             @  `	         @X  \	         @L         @<         @8	         @  4         @  0         @,         @(         p     
  
  
    P      8  p      `x          p                  \             @h  d         @  T         @D         @   @         @<     @8     @4	     @  $     @     `jx                      @   h @   p      @  l            x      X            @h         @d           X  (  @      \               @  h         @  d         @`         P                           	    0   	    8   	    P   	    X   	 J   `  BL *      	      	 H         (      0   	 H   8   	            N                                  & ~    	      	 H         h   	        p   	      	 J      	        	       	 @       	    @   	    H   	 J   P  BT . ,    	     	     	 H                      (   	     	 H   0    ( x   	            N                                  	 @         H     h   >  x   	      	 H         	   	       	   	      	      	 J   	   	    `	   	    x	   	 2   	   	    	   	    	   	 J   	  B   
   	      	      	 H    
      h
   	     	 H   p
   	       ) 
    + 
   	      	 L   
    5 0   	      	      	 H   H    	    	           	      	 J      	       	       	 (      	    @   	    H   	 J   P  B      	      	 H                  	      	 H         H     N P     p                       	           " P    	      	 H        0   	      	        8   	      	 J   H   	       	       	 <      	        	       	 J     B   `   	      	 H   x         	      	 H       (     ) (   " ? @   	     	     	 L   h    5     5    	 "      	 &      	     	 H   8        	           	      	 J      	       	       	 .      	    H   	 J   P  B      	      	 H            	      	 H      " P @   	      	 H   h        	           	      	      	      	 J      	        	    @   	 >   H   	       	       	 J     "      	     	 H         8      @      H      P   	     	 H   X   	 @           2       0     H    G P   	      	 H   h   	          	          D ********************************************************************wig          Name:       wwiLibDll32   '    Issue:      TechniDATA GmbH/Markdorf             4    Purpose:    Resolve a SBV, execute the 32 bit DLL                    Changes: !       6    [ Date ]-[ Name   ]-[Action                       ]       D ********************************************************************      `      D ***** External WWIRES32.dll Function Declarations (DLLs) ***********                  "  '         ,              %  *  /  4  9          
        
                                  `               !  ! `       D --------------------------------------------------------------------             Name:   Resolve              Purpose:                        D --------------------------------------------------------------------           	          "  &             B -- local variables -----------------------------------------------]    ] 8    B -- program logic -------------------------------------------------  x   
 EHSRelease  ,! <%  '           V32 '     d 0    V    ' k      A@    V  >  "  B  D  F  H$  ' ,  B -- single exit point if possible ---------------------------------  ,' Zi     ScanLayout        D --------------------------------------------------------------------        Name:   ResolveValFile           :    Purpose: Resolve Layout and Value File with resolve DLL                 D --------------------------------------------------------------------     $ 	               "   '   ,   1   P      B -- local variables -----------------------------------------------]   ]   ]  	    B -- program logic -------------------------------------------------      $ \ '   h    
 EHSRelease  ,! <%  '              V32 '     d       V    ' k       A@     9 init docpath for User Def Documents and Include Documents   DOCPATH=     $ ^  '    A@ UCT-                          $  ' ,0   B -- single exit point if possible ---------------------------------  ,' i      D --------------------------------------------------------------------angefi       Name:   Version          +    Purpose: Versionsinformation of/from DLL eport                  D --------------------------------------------------------------------      	      B -- local variables -----------------------------------------------] x	    B -- program logic -------------------------------------------------      $ \ '       $  ' jil   F  WordBasic Befehl noch notwendig wegen Nullterminiertem Rckgabestring----    % ' ------  B -- single exit point if possible ---------------------------------  j' i     Version   D --------------------------------------------------------------------rogram       Name:   LayChk           !    Purpose: Check Layout with DLL                  D --------------------------------------------------------------------B@	      B -- local variables -----------------------------------------------] 0
  ] H
    B -- program logic -------------------------------------------------     
 EHSRelease  ,! <%  '        \r   V32 ' al d h    V    ' k P     A@ uage        V  h  "$  ' , K T   B -- single exit point if possible ---------------------------------  ,' i     LayChk    D --------------------------------------------------------------------cument       Name:   NextChkErr  '           6    Purpose: gets next error in chk file using dll call001                  D --------------------------------------------------------------------        	    `
       B -- local variables -----------------------------------------------]      B -- program logic -------------------------------------------------  r    $ \ ' p  ^      $ \ '             p  r$  ' ,L K T    F  WordBasic Befehl noch notwendig wegen Nullterminiertem Rckgabestring $   p  % ' pZ      % ' Z  ^      chErrMsg = RTrim(chErrMsg)fic di       chBkmkName = RTrim(chBkmkName)   B -- single exit point if possible ---------------------------------  ,' i     NextChkErr WORK   D --------------------------------------------------------------------Active       Name:   LayoutCompare$           '    Purpose: performs symbol sustitution             D -------------------------------------------------------------------- Acti      B -- local variables -----------------------------------------------]     B -- program logic -------------------------------------------------        V    "$  ' ,V    B -- single exit point if possible ---------------------------------  ,' ji     LayoutComparen)   D --------------------------------------------------------------------tory        Name:   DelDVSFiles            7    Purpose: delete temporary DVS files with resolve DLL  L                 D -------------------------------------------------------------------- &  R      B -- local variables -----------------------------------------------]   ] (  ] @  ] X    B -- program logic -------------------------------------------------  9 init docpath for User Def Documents and Include Documents        \% ^ ' ul      \% ^ '  &   path of wwi.INI file  Acti      \% ^ ' L  	        A  ame .5  B -- single exit point if possible ---------------------------------o H	  @	    ô Attribut e VB_Nam e = "wwi LibDll32`"
'*@     :  IssueTe chniDATA  GmbH/Markdorf ),@Purpos.R esolve a  SBV, execthe 3 2 bit DLL9Changes:G[ Da ~8]-[N L ActionR] 	ÈOp3Expl@icit
,  External  WWIRES3 2.dll FunLDeclar"as ( ns) I
Privkescan  "," Alias "S`" _
=(ByV &lpLa yout As Sng, a@File3@.iDniErr7Typ,Heigh	JLokJWidth:)xßyvC%;ulBJ	eJ3B- QBoBookmfZEJ)LngB_paRef lp_R#JR_GRepE#Yeget@;VersAyZ&㑁"#fACheckĥc" )9Chk__a+Next? 0}aCfBkmk`= |MsR,O%_7iLenIntpeger}pcompare l_p?uC@/x?5ae Sub In-3DeleteDVSs#?<f?M %Wriv5DocP6aCv)Q1 '- @y@suP  ub0w.(-0 ch!
Rtf oTt8ch/p aP'Ow >	//%uO	lqp0 :I   '-- loc`variablxes ?aDim nRev5EHSR9asتaprogramgicO?#a1 On or> @Qdq= 	ave5ument.V.Ite(m(""7  If "" Thena VPlse "V" &(!End N (r= (*0, -? #+ ( !&, # B!`As0I	exWpoin t if siOMa< 
I1F&a ' L+-& 
'    Name: Re solveVal0File 6<Pu0rpos B> L ayout anDd  Vue \ @with r xDLL? ') 
Public  Function" (By  lpHAs St ring, _
o +ult:f  3 C8?WWIini4=Err8=BookmarBk>Type.Ref nHeigh2tLolWid@knRep,)'--  local v ariables Dim nReFDEHSR`eleasZdocpaB#_a aprogram`gh?,l%=j(255, 0" ")a On `Porsume` Next= A xveDoc! nt.V$.I`tem("g
If "" Then
 ,V32r"ls}+V8" &HBIf!Init ('qt *f User D@VsInclude A
= " DOCPATH=!!GetP4(22, 0c"B?=(	,eDA!A){#;, ":lpqAbkDe!JsA@le ex&p oint if  si`^_^( ="^U
E 6
! `Y=`%Vers?F@`Ama"of/from޿*oޤch}3'OHaAHre"<?UoD?  }$0D@g<et,UFR' WordBasL Befehl noch@ twen dig wege n Nullte$rm<er F R ckgabes>ta F.[ RTrim$]({u  g/os/a=`0-0' .-c-.@Chk0c.Check?.cha
Rtfg., Ӛch`#`U1 Q~#(2oz1oz  1gfO4?vvvv05  vvlvv[vo'4oR'` 0ư7 kE2 /'!/<l_Y*`C?<'q4R6@6_:%<@pf<`Ts n errI in Xk ruAA dll lP =G
&lBkmk1w:/3%s ByoMs^g sAi`L`a@9IntbrH!saA?achdӸg 
  chBk mkName =  String( 255, " "B)nRet hg etNextCh kErr(, J_J  ch VMsgFi "LenjH
' Wo rdBasic  Befehl noch twen dig wege n Nullte rminiert em RckgabesL S.[RTrim$] O= ' -'&'   O'-- sle e xit point if ssib - #̀F 

End  Function	' 	 )Am  A:La youtCompareCPur pose: pe rforms s ymbol sustitu*# --
Publ@J%kFileA,Rtf$,+WWIIni $) As Lo$ngAJ  klo cal vari2a hs ,+kDim program log.A= cC_=N; %$'#?Yǁj4Y ' *a?a Z_+ HxfZDelDVSCsT\&Zdelete porary 	@ fKs wi th resolve DLL ??\Sub ((B R -?Y	/Y  adocpa  \cʅwwiൡjA++!bt   User&f  Documents a`Incl<ud`5=  LibA.GetP(22, 0".$(1,( 1)` "#ofA	.INIEf !4, 3On @or Res¹Call@K Q%U(, E,%  	ao;hao&ShSubA9                                                                                                                            i      w      1                  1        D    l Ctl Cpl Cll Chl Cd K N,0:D  N44TX $ 4  X  T0  0,  >,1\) XT054 l\ 0   C\   	 l\*1\  l\,4l,

  <l,\X/, ~l$ l  ld4llh 4l ll$4l$lp(4l(lt,4l,^  q<l,tXl(pXl$lXl hXldXlq`2
 ,($  l`qx  $	      d D<            $          l \ p d h t 0     	     , ( $    X T 0 4 `     ,l Ctl Cpl Cll Chl Cdl  C`l$ C\ (:@ N00    
   `1\6 0  K N:@  N00 $ 4    0  ,  >1T) 50 lT 0   CT   	 lT*1T  lT4l

  <lTX/     #*1P/ lP4l

  <lPX/ l0 l, l(    l\4ll`4lld 4l lh4lll4llp4llt4l^ , q<ltXlpXllXlhXl dXl`Xl\XlqX2   lXqx      ,  H            0     	     d T l t \ p P ` h <                     0           ):L N<<   ,
  ,`' 6 <, + (4l(^  q$<l(l Xl$iL\/( 5: %l @  $ @   < `'  5< 	\ l          |  ,                     l \           (   < , d     l Ctl Cpl Cl K N48:L  N<<\` $ 4  `  \0  8,  >41d) `\85< ld 0   Cd   	 ld*1d  ld44l4

  <l4dX/4 Pll,4l,lp04l0lt44l4^  q(<l4tXl0pXl,lXl(qh2 40, lhqx        T 4                      l p d t (          4 0 , ` \ 8 < L      (:d NTTk D
  D`' 6 TD ):d NTT   D
  D`' 6 TD ?k  <4l< @4l@^  q8<l@l Xl<l Xl8qt2 @< 5:$ %l @4 $ @  4T `' 45T 5:$ %l @4 $ @  4T `' 45T ltqx        h $                                  @ < 4 T D    `     P h4lh l4ll p4lp^  qd<lpl Xlll Xlhl Xldqt2 plh ltqx   U       ` $                                 p l h    |        1t   1p   1l K Glt`4l`lld4ldlph4lh
  <lhpXldlXl`tX2 hd`         | 0                      l t p           h d `      	   
             M                                                              _ _ S R P _ 1 1                                                  p   8                                               w w i C l o s e                                                                                           
      _ _ S R P _ 3 0                                                                                        t      _ _ S R P _ 3 1                                                  2   5                                         g       rU                    	              D          p     !     A     a                             X         p,     !               a          1          Y               y         (((( i      8  p              0 1      \  p     !          a         0       |  p                        0         p     !     1     a         ( i        p     Q          0 1        p     a     1     y          D          `                         !     9     Q         T         `(     i               a          1                    y         ((((         `              00         `                        0 !       `     	     )              000 I       `          I              000$ q       `                 n          L         *	         X5                                                                                        x                                       ME                    P     6
    L    L    L    L        
    <                  `               @k               p                %       8  P         4(,v      @x        @h  t	        @p	        @`        @  P               o}x   @@     s t                         H                  x   tVH $ * \ R f f f f * 1 = 4 9 1 d 9 5 e d  * \ R 1 * # c 6  * \ R 1 * # c 7  * \ R 1 * # c 0  * \ R 1 * # c 1  * \ R 1 * # 1 7 b $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d                                                              	 J        	    P    	    p    	        	 &                                                                                                                                                                                                                                                                   	        	        	 <       	 J      	    `          	      	     "      	     	 >           	 P        @   	       , `    , p   	     	                D ********************************************************************wig          Name:       wwiClose 32   	    Issue:               Purpose:    close a document                 Changes:          6    [ Date ]-[ Name   ]-[Action                       ]6      D **************************************************************************    force declare variable****x           7  WA271101: save current setting for visible hidden text la 
 WWIOptions   4B@6         J  WA271101: restore last setting for visible hidden text in WWI layout mode  WordOptions    4B@8       (! 2( 0    ,! .( 0      AddIns(chWWIDot).Delete  o X  P     Attribut e VB_Nam e = "wwi Close"
'*@     : 2Issue: Purp }+c a  document$ChangesC5 P[ Da ]-[f  
Action ] ID force de clare va riable
Op?Explici ]

Pub Sub  Main()
  ' WA2 71101: s ave currx setting  3 visi- hidden tex +    ShowAndH ide.S("WWIAs"20 restoVlast] in   layout mod 7RDord7Ap@aC.NormalTempll+bd@TruAmveD{. achedNAddI ns(ch *Do t).Delet End[
                rU              ~|         	       	     1      0                   y            !                  	      Q            1                Cxx
  /x  Cxx
  /x ,pt $   tH  p@  ) tp ,cP%`t $ 4  tX	 `C
 t5`       <  $                                 x t p `     k                  rU                    	     0         $      0    `                 n                               rU              ~|         	       	     3      2       !                  I      	      Y      J           w w i E d i t S y m P h r                                                                                 (      _ _ S R P _ 3 2                                                                                        	      _ _ S R P _ 3 3                                                  3   <                                                w w i L i b T e x t                                              |                                                -----------------------------------------------------------------------------------       ]    F       ! %  .       ] 8  F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------           check marking      # marked = wwiLibText.checkMarking(0)            %  ' P        ! d  <  '       ! d  >  '       O CheckMarking function fails sometimes to select the whole string 'between < & >                          # select the whole string 'between <>         ! d   
         
  WordBasic.CharLeft           B@         >   B   %  WordBasic.ExtendSelection ">"     k   k      AG020498    ! d'       , WA140802 check for exact symbol/phrase types                  $     01        $     02         $     03       ERR##612   lB@n  5  "kein gltiges Symbol gewhlt"       k     3 Hier habe ich die gesammte selektion - und wegdamit         B@>                  $     01        $     02         FB@              $     03  e     BB@        k      OK   lB@n        F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o      N  check the selection - looks if it is allowed to insert a symbol at this place    P    ]   ]   ]   ]     S -----------------------------------------------------------------------------------       ]   F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------           check marking         %  ' P        ! d  <  '       ! d  >  '       O CheckMarking function fails sometimes to select the whole string 'between < & >                          # select the whole string 'between <>         ! d   
                   B@  I  WordBasic.CharLeft        >   B   %  WordBasic.ExtendSelection ">"     k 8  k 0     AG020498    !                	                                           !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  2  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  C  D  E  F  G  I  J  L  N  O  P  Q  R  S  T  U  V  W  X  Y  Z  [  ]  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  p  q  s  t  u  v  w  x  y  z  {  |  }  ~       d'       , WA140802 check for exact symbol/phrase types                $     01        $     02         ERR##612   lB@n  5  "kein gltiges Symbol gewhlt"     H  k @    OK   lB@n         S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------        F   o     Main        Attribut e VB_Nam e = "wwi EditSymP hr"

'F*@     : Issue19-02- 1998-Ami t Goswam i BOSHU  TECHNICS CORP. =@PurposB s symbol  / phrase)Changes:nforc e declar e variabl9Option  Explicit
Pub  Sub Mai n()
  D im markeRda12iRe "old$!new_anf qEnd D R~ As 	 '-? MA5@orgDlgO bject: Set D= Wo rdBasic. DialogRec@.ToolsOsView(FalseJBea?D"A!CurValues o-6A #} @ Call S howAnd    
     (  '  +"         X                                                                                        x                                       ME                   8        L    6
    
    
    
                  L    
    L    
    L        <<     <               P     `            p  k   J J      @Pl     h   @\     <% @L     x   @p   <      BOSP8     5 P   4     pose@   $     phra@             0             %   `	      `@   	       `            h  dk  6 6 X     @Pl     @\     @L     PH     `D	       `  	     ----    P   X              %       P  8        X           (  p  @    P  4(  @	      @X        @        @        @        @      @0        @         @      @        @`  |      @H  l      @x  \      @  L      @  <      @  ,      @        @        @        @         @      @8        @           lFB                   h  8      4(  @@	      @P  0      @         @        @         @      @(        @        @      @        @X        @@        @p        @      @  t      @d             P     l                                     P  0                 `  tVH $ * \ R f f f f * 1 > 4 9 1 d 9 5 e d  * \ R 1 * # d 4 $ * \ R f f f f * 1 6 4 9 1 d 9 5 e d $ * \ R f f f f * 1 7 4 9 1 d 9 5 e d $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # a 4  * \ R 1 * # 1 e  * \ R 1 * # 1 2 9 $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                              	      	 J        	    P    	 B   p    	        	 *       	        	        	       	 J      	    h          	      	     "                                                            	     	 Z      " 7 @   " 7 h    -     -    	      
     
     	 Z      	     	    @   	 *   X         ;     ;    	 V       % (   	 *   H    . x   	       
" <    
4 )              	     	        $ (   	 2   8   h  p   <                	     	 :   (   
 + h   	     F d x   
     	      4    
           	          	            	      	 Z   (   	 "       #     #    	      
     	 Z      	      	        @   	      	      	      	      	      	 T   H  "                              	      	 Z      " 7 (	   " 7 P	    - x	    - 	   	      
  	   
  	   	 Z   	   	      	      	    (
     @
    ; X
    ; p
   	 V   
    % 
   	 *        . 0   
: < H   
4 )              	     	        $    	 2      F d (   <  p             	          	     	 Z      	 "   8    # `    # p   	      
     	 Z      	           	     	          	      	          D ********************************************************************ocal v       Name:       ditSymPhr--   ;    Issue:      19-02-1998-Amit Goswami BOSHU TECHNICS CORP. 5           $    Purpose:    Edits symbol / phrase              Changes:  ]6             D ********************************************************************   fo    force declare variablex   p         ] @   ] X   ] p   ]    ]    ]    ]    ]    ]      SHide.set 1Apa.ScreenUpdng@B>A	iOy
b checkbPxingBQ LibText.M U(01a1 	InStr(Sel A c.a
, "<"C2W2>C'C func"lfail`~ometime@s to s  the whole s  *'betw , < & B>If (< > 0 Or a2 A) Then'	b	a	Len) > 1J

IharL<ef{Aa %Move Unit:=wdrac ter, Coun`1, ten~de!	O	Ex("* 'g;  If''AG020498a@8;WA140802L  ex/ typesa2(Mid(A
, 2@ )2@"01")  h ._A2> "03")=`]w!t_doc_global_v  ("ERR##61A'"kein glti @gewhlt@!GoTo 10'Hie r habe ich die XammNk[-  und wegdC,D\t&&@[w&AInser0.jA1 EXa x.VpxVOP_\OK#@
10{aQNrC0jld ument a)'3jObmIqǪa__Tru_㈁ =S 'T:SsOQ-  looks if" `is  mowedVi" aeatW plac(d_әsm q@	  oAϊϊϊϊϊϊ1#ϊ%ϊ()ϊϊЉonϊϊ) )7Ċ (=1ng/O@O xtpO OOOOO 0iO>OOid_@_U A= 2:;c=1'se lt !)!6B`/////"t
  0'-O  set ol d docume nt attri butes@Wo rdBasic. ToolsOpt ionsView orgDlg$ Edit Bea$&ApplicaA.ScreenUpd ng = True$U`
10:0End Sub   ' Main
                                                                                                                                                                                                                                                                   	      !     YB      I2      2      	      Y      y                             
      *         P     5f%  $ @  W B  46   5f%  $ @  W B  46  -	@  $ @  W   5 -	@  $ @  W   5 
       $      (  	  Dl5 ;     $ <   
 l     i\/ ;     $ <   
 l     iL/ %\(  ]<L(  ]<4 .  $ <   
 lJ   /2 <    (      $ <  
 6  ): N  $ <  
 5   $  $ <   
 >18 (    8M@
  : ]<(l    8M@\
  \:L ]<<',(    8M@
  : ]<'6 l\    1/   +''  $ <  
 6  d(    8M@
  : ]/(l    8M@\
  \:L ]/<,6 l\ 
    1(    8M@
  : ]36  
        1/  #	@  $ @     #	@  $ @       $             PP           8           l   \ 4 < L  $ 8 @               l \ < ,      
   P     5f0%@  $ @  @W B   4D@6    5f0%@  $ @  @W B   4@6   -D	@@  $ @  @W    @5  -	@@  $ @  @W    @5  
     @  $   @  @ (  	  D l5 ;   @  $ <  @ 
 l     i0\/@ ;   @  $ <  @ 
 l     i0L/@ %\(0  ]<L(   ]< 4 .@  $ <  @ 
 lJ   /@2 <    (     @  $ <  @
 @6   ):0 N@  $ <  @
 @5   $@  $ <  @ 
 >1H@ d(    HM0@ 
   : ]<(    HM@
  : ]<t'd6      1/ H     1/ #D	@@  $ @  @  @ #	@@  $ @  @  @ @  $   @  @    
e     P<   l        $           l D \ L H 0     	      @       t d  H
        f        rU                    	     2         $      2    `           $      2   `                 n                                                           * \ R 1 * # 2 1  * \ R 0 * # 1 4 (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0  * \ R 0 * # 1 9  * \ R 0 * # 1 3  * \ R 1 * # b 6  * \ R 1 * # 1 2 9 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 0 * # 1 0 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 1 * # c 0  * \ R 1 * # c 1  * \ R 1 * # 1 7 b  * \ R 1 * # c a                                                            $ 	 J        	     P    	 .   p    	        	 D       	 6       	    (   	    @   	 J   H               P%  |         Xd                                                                                        x                                       ME                   d   @   (L    >
         L              
    L    
    L   *                 L            *L            
    L    L        L    <h     <l     <p     <t     <x     <|     <             8   H             [      ]      ,       %        `               Lo            i              i          raryi            t.@   l        @\     unct`   X     nges` V     D **`   P     ****@   @     ****@0     @h        vari@
      [ @        @8          `           `         `         `           `(           ` r         `"l             `              k    B B     i              I(              In     @        I           @*l         @,   \         @@  L         @<          0   8             %   t    `               k     1 1    I     @        I           @*l         @,\         @Px  L          0H             %   r    `              k     ? ? P   i:     (        I     H        I(       h        i<H             @j  \         @L         `>J          0D             %   +    `              Pk 0         IB           @h         @P  X         `jV         `Dp  P         `FL         @H  <         @J,         @         @L         @          0X             %   `N           `P(           ``  	         `  	         +	    `            `  Xk      x x 6   IT                IV             @H         @@  8         `j6         @np  $         @X         @         `Z         `\            `^          0  0	             %   `	         `  	         ``         *x    `            P  k 	   m m    id     	        if      
        ih      
        i     @
        i     `
        ij            @l         @\         @L         @
  <                               
   @  (         @
           `         `n`
           `^           `            p  Tk    	 	    i             ip             ir           @  (   H                 0   H            H         	  x        @           @             H         	  x        @          p  P             @    X      8    h      (N~     @	         @         @            @           @P           @           @        @           @  x            $       @t     x  @\     @L     `  x            H            8  2\        @`  4	       @0        @x               0  `        D %              @           @	         @              `        ( %            @           @       @     @     `    @                  @8  8         ,         @  4	         @  0         @P            @h           @            @         @         @  	       @	     @               h  @                 @rl                (             @(  4         @         @  $     (   @                   @p           @X  	         @	         @         @         @       @       x        @    0    h  8        P  P  (  p      `z    	   p       @          4N~R,   @  	         @           @h           @            @           @         @           @         @           @  |	         @  x         @  t	         @p	         @l     (   @\        @h  X          (  N      @V     8	  @P     X  h  z `z              @Th              0   @VX       8            D %   @Th                 @VX            P	  8	  	  h	   	    X        `  0             4@b   @   	         @H           @           @x           @           @8              `       @           @       H  @p     @
  @`     @\	     @X     0  
  H    	  	     `  @
   
  
   
    8    h  X  P  @  l8                              N~rt,   @  	         @         @           @         @           @           @          @         @     @(  	     @	        @\ @           0  x  `      2               @H  x	         @t	         @d         @T                        H     x                         tVH $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # d 4  * \ R 1 * # a  * \ R 1 * # c b  * \ R 1 * # 1 f  * \ R 1 * # 7 8 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 6 $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # e 3  * \ R 1 * # 1 7 f 	      	                                   	 J      	      	 J   @   	        	 D      	 *      	    (   	 B   0   	     x   	 @      	 J      	    (   	 R   @   	 J     " 
     	     	 H         @      H      P      X      `   	        h      p      x                     	           	                             	     	 L      
     	     	 J       	    p   	       	       	       	          	       	           *    	 4   (   *  `                                              
           	    (     H     P    * `     p   	     	 (   x        $ 2    	      '            	     	      	     0	   	     	 @   @	     	     	   	 F   	     	     	     	   	      	     
    %  
     8
     P
     `
     h
     x
     
     
     
   	     	    
     
    * 
          *      (    * 0     H   $  P   	     	 b   x        < N      0   	     	 ,   8     h    	 x        8 J    H ?                      8   
 	 H     P   0 ; X   F J              < I          , 2 (   	     	    X     p              & D         	     	             	     	 .         P   "  `        "                          
           	      	 2       . P   
 0 `     p   	       x   	            	     	 B      	 4       4 0   " ^ P     x     ^         	          	      	                        	      $               ,    
                	          (   
  0   	        @   	      	 J   H   	       	       	 B      	       	       	 4   (   	 @   `   	 2      	 6      	 2      	    H   	 J   P  "      	     	 H      $      $      &   @   4   h         	      	 H            )     	      	       	       (     0   
  8     H     X   	     $ ) `   	       $         
 
     
    	      $      $                 (     0   " 2 8     `   	      0 h   	       	 6      	           .      *            (   	      	         0   
  8   	      	 H   H        	      	      	      	 J      	       	 D      	    `   	    h   	       	       	 $      	        	 J     "   0   	     	 H   8   $      $      :            	      	 H        `    ) h    ) x   .     ( 0                	      	 N        Y X   . 6 x        * 7    2 7    	       $      (   
 
 H    
 X   	      	 H   `        	      	      	 J      	       	    (   	 N   0   	       	       	 F      	 &      	 $      	 @   8   	    x   	       	       	       	       	 L     B        	     	     	 L   (       x                         	     	 L          !      !     0!   4  8!     p!   	      $ !     & !   
 
 !    
 !   
 0 !     !   2  !     "    $ ("     # 8"   
 
 X"    
 h"   	 6   p"    - "   $ 0 "    5 "   
 0  #     #     #      #     (#   	      	 L   0#    	 #     #   	      	      	 L   #   	    #   	    $   	 B   $   	 >   X$   	 &   $   	 N   $   	 H   %   	     X%   	    x%   	    %   	 0   %   	 ,   %   	    %   	     &   	 $   &   	    8&   	     P&   	    p&   	 L   x&  B   &   	      	 L   &   :    '   &   `'      '      '   0   '   6   '   2   0(      h(      x(      (   H 	 (   F 	 (   	     " 7 )   " 7 @)   	      	 L   h)     )   .  )   	      - *    -  *   2  8*   	         p*   	      $ ) *    ) *   	     	 D   *   < . +    ) P+   	      	    `+     p+   	 ,   +   .  +    	 +     +   
 0 +   0 }  ,     0,     @,     H,   	      $ P,     `,   
 
 ,    
 ,   	        ,   ,  ,   	 .   ,   8  -     @-     H-     P-   *  X-     -   	      ( , -   	 &   -     -      .   	      	 &    .     H.    ) h.   	       $ .   , + .   
 
 .    
 .   	       .   
 $ .   <   /    9 @/   
*  X/   
$  /   
&  /     /    ' /   $   0   :  (0   $  h0     0   
  0   
  0     0   
  0     0     0   
  0   
   1     1   
  1     1      1   
  81   
  H1     P1   
  X1     `1     h1   	       x1     1   	      	 (   1     1     1   	       $ 1   , 4 1   
 
 2    
 2   	        2   
 $ 02   "  @2    9 h2   
*  2   
$  2   
&  2      3    ' 3   $  3     @3   $  H3     p3     x3     3   	       $ 3     3   
 
 3    
 3   	       3   	       # 3    # 3   	      	 L   3     H4     P4   	      	      	 J   h4   	    4   	    4   	 @   4   	 >    5   	    `5   	    h5   	 2   x5   	 :   5   	    5   	 &   6   	 6   06   	    h6   	 >   p6   	 J   6  B    7   	     	 H   7   :   P7   &   7   .   7      7      8      8      8       8      (8   	      " 7 08   " 7 X8   	         8   	     	 H   8     8   	      - 8    - 9   2   9   $ ) X9    ) 9     9   	        . 9   	 0   9     9     9      :     :     :   @ F (:   	 8   h:     b :   	    :   
  :     :     :   	     2   ;   	 >   8;    $ x;   & & ;   
 
 ;    
 ;    . ;     ;   
  ;     ;   
: F  <   
& 2 @<   	 B   h<   
 . <     <     <   

  <     <   
  <     <      =     =     =   "  =     @=   @ F P=    . =   	    =   
  =    1 =   	    =   
   >     >   	       >   *  0>     `>     h>     p>   	 8   x>   	 F   >   	 $   >   	     ?   	    8?   	    H?     X?   	       $ `?     p?   
 
 ?    
 ?     ?   	 @   ?     ?      @    # @    # @   	      	 H   (@     p@     x@   	      	      	 J   @   	    @   	    @   	 :    A   	    @A   	    HA   	 :   `A   	 P   A   	 Z   A   	 2   PB   	    B   	    B   	    B   	 L   B  "4    C   	     	 H    C      hC      pC   4   xC   &  C   >   C      D       D      (D   	      ) 0D    ) @D   	       PD   	      	 "   pD     D    ( D    ( D     D    ( D      E     E   	      * E     0E   	      . @E    = XE   	      	 xE    8 E     E   	       E    > E    - E   
 0 E    5 E     F     F   
 0 F     (F   	     	 <   0F   	 4   pF    	 F     F   	 N   F     G     G   	 "    G   
 0 HG     XG   	    `G     xG   	 T   G   	    G      H   	 L   H    7 `H     H   	 T   H   	    H   	     I     I   	     	 6   (I   	 L   `I   	 L   I   	     J   	       J    8 J     8J   	       	 @J    E HJ     hJ    & pJ     J   	      $  J   . 2 J     J   2 -  K     8K     @K    	 PK   	     pK    7 K   
 0 K     K   	    K   	 0   K     L      L   	      	 &   (L     PL    E XL     xL    E L     L   	       L   	     "   L     L    . L     L    . L      M    & M      M   	     0M     D ********************************************************************ocal v       Name:       wwiLibText    '    Issue:      TechniDATA GmbH/Markdorf OS          >    Purpose:    wwi-library for functions, who manipulate text.   /                Holds usable subs and functions.        Changes:           D ********************************************************************P    force declare variable @   ]D  [   ]D  ] @  ]D  ,        D ********************************************************************         D --------------------------------------------------------------------             Name   : InsertWWIText    =    Purpose: Inserts a WWI symbol/phrase/begin group/end group        $             into the actual document                <    Parameter:Text: Text, which should be inserted, including                              angles   :              style : style, that is to be set for the text   D --------------------------------------------------------------------            modifications:     K   25.10.2000 Christo Alexiev  Adding optional parameter to test for barcode          D --------------------------------------------------------------------        H           B -- local variables -----------------------------------------------]    ]   ]    ] 8  ] P  ] h  ]   ]   ]   ]   ]   ]   ]   ] (  ] @  ] X    E program logic -------------------------------------------------------        (( *         D   If wwiLibFile.validCmd(10) = -1 Then      ' BearbeitenAusschneiden         edit command valid        keepFormat = 1        Selection.CopyFormat        End If   '       Felix ende         META  N% 6 $ ~ '           $   '     -  symbols, parameter symbols or phrase symbols         01     02      03             03      COL_LBL   N% 6 $ ~ '   '   d 0     COL_SYM   N% 6 $ ~ '  '   k                  '        k       set the correct format                      (     k     "  insert left angle and symbol type X      $      A   4   <01            $  '           (  '     )  '     [  '     ]  ' 
    >  '   9 CH030206 if description contains ( or ) take care of that      
          
        @ parentheses is part of description so don't take it into account     ' k   k        check for description            
            D: '                '        '         ;  '            G   
' j k P  k H      insert symbol name            
             $   '      
 e            $   ' d          $   ' k          A   1   GESTRIDENT       \  insert symbol parameters (hidden for symbols and hidden for phrases if description is there           
                      $            A      k     %  insert symbol parameters in brackets          
        '                     $      A   a   [D: is hidden         $       A   Z   description itself is visible  '   e         ,  '                  
' k         $      A   I   [ is hidden            $       A   \   B:codabar is visible     ' k          
      $      A   \   ] is hidden    k       $     A   6   > is hidden       Inser Include         20 e     COL_INCL  N% 6 $ ~ '    <20    A                $       A      >    A           RpGrp or Notnull insertiond      ' Differ Color between RepGrp and NNGroup       13    	 COL_NNGRP   N% 6 $ ~ '            15  e  	 COL_IFGRP   N% 6 $ ~ '        d 8     COL_CTRL  N% 6 $ ~ '  k                 '   rk     +  WA100101: move back if at end of table row           % 
    B@        k        A     Selection.MoveRight       k P    <  ag1304 if selction is within table check for length greater        -  than 2 else check for length  greater than 1         % 
               ! d   
   G   B@  j       d     ! d   
  G   B@  j k X   P   F   ] p  ]     !    
    ! '         $   ' "    " A@$       B@&        k            (( *      o      D --------------------------------------------------------------------             Name: InsertText                 ;    Purpose: Inserts an hidden Text into the actual document                     Parameter:        .      Text:      Text, which should be inserted       9      hide        0 = Text isn't hidden 1 = text is hidden    ,      doc_Colour  Colour of the inserted Text         /      meta:       1 = Colour is Metainformation,      ,                  0 = Don't change Textcolour                D --------------------------------------------------------------------            B -- local variables -----------------------------------------------] `      Startposition im Text    ] x      Endeposition im Text     ]       Bisherige Farbe merken   ]     &  Bisherige Verborgeneinstellung merken    ]     B -- program logic -------------------------------------------------      
      ! ' *        Text einfgen     	       C@.         2 0C@   q 	    !  ' ,    ... und markieren       ! . 0    *   ,    0B@4         0B@H          . 0       ,   Farbe is Metainfo      !   '   Text einf.     (9   n9 Zq   d     (  ! (  &   Text einf.       k     B@   0   reset format      Alte Einstellungen  0 FormatZeichen .Verborgen = verb, .Farbe = colour  d     
   \%    %   BearbeitenAusschneiden     ! B@6    k   k    F     B@&          B -- single exit point if possible ---------------------------------o     InsertText        D --------------------------------------------------------------------             Name: chkRiOfMark         >    Purpose: checks the textattributes right of the marked Text                  Parameter:               
    Return:         verb:     Text is hidden              colour:   Textcolour    D --------------------------------------------------------------------            B -- local variables -----------------------------------------------] `      Startposition im Text    ] x      Endeposition im Text     ]     ,  Merker, 0 = Keine Markierung, 1 = Mit Mark.      ]     B -- program logic -------------------------------------------------   ' P  ! ' *      !  ' ,      *  ,   $   Nur wenn Text markiert ist     B@   (   Ans Ende der Markierung  ' P (   Text ist Markiertk     G wenn nicht am Ende des Dokuments, dann erweitere Markierung nach rechts     !    ,! 8!                B@  +   zeichen markieren  k P    ! ! '  (   Zeichen verborgen?         ! ! Z'  (   Farbeinstellung feststellen         ! . 0    *   ,    0B@4         0B@H          . 0  B -- single exit point if possible ---------------------------------o     chkRiOfMark       D --------------------------------------------------------------------             Name: posit              G    Purpose: Position the Cursor to the beginning or end of a given zone                 Parameter:        @      pfad:     Path and name of the language specific *.INI file            anfang:   Begin of the Zone           ende:     End of the Zone       :      art:     A = Posit to Begin, E = Posit to end of zone              Returnvalue:            -1:   OK               0:   Error            F ----------------------------------------------------------------------          F -- local variables ---------------------------------------------------    ]       Returnvalue      ]   ]   ]     F -- program logic -----------------------------------------------------       ' j   	  Alles OK         <$  ' <    <     A K T   $  Auf Markierungsanfang positionieren        	         ! . 0              0B@4   0B@H          . 0  B@        k      E K T   "  Auf Markierungsende positionieren          	         ! . 0              0B@4   0B@H          . 0  0  WA120101: move back if we crossed a cell border    @  % 
 ' >        B@   0   Ende der Markierung      >  @  % 
       B@        k   k   S   n     F -- single exit point if possible -------------------------------------      j' ri     posit     F ----------------------------------------------------------------------           Name: checkMarking               <    Purpose:   Checks the actual marked Text in the document:         8               If more than one cell in a Table is marked                    No Text is marked      G               If the hidden characters of a symbol are not marked, this      A                 function expand the marking to include the hidden                     characters              Parameter:        *      notEmpty: 0 = Text must not be marked   &                1 = Text must be marked              
    return:        -2 = Marking were expanded            -1 = OK                0 = No text is marked          F ----------------------------------------------------------------------          F -- local variables ---------------------------------------------------    ] P  h     &  ANfang, Ende der aktuellen Markierung      ]        Returnwert der Funktion  ]        Steuerzeichen    ]        Steuerzeichen    ]      !  Anzahl der zu scannenden Zeichen ]      '  0=Keine Markierung, 1=Markg. existiert   ]      $  Anzahl Zeichen, die gescannt wurden      ]         ] (  ] @  ] `  F    ' N 1 / for symbol extension when braces enclose things ] x  F    ' P 1 - for symbol extension when quotes build blocks   ]   F       ! %  .       ]   F       ! %  .         F -- program logic -----------------------------------------------------       ' j   	  Alles OK         ' J     Startwert Markierung vorhanden       ! B@           ! B@         4B    ( "  Einstellungen fr Dokumentansicht        SCANLEN   N% 6 $ ~ ' H  ! '     Markierung merken      !  '        >   Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend      $    B   ! ! WordBasic.ExtendSelection Chr(13)       !  ' L       WdUnits       L        &  DokumentendeZeichen ist in Markierung      L   ' L ,   DokumentendeZeichen entf.    L' d     B@          ! l  R   !    ,! 8!           L   ' L  k   k      ! . 0           0B@4         0B@H          . 0            B         Text muss markiert sein?        (       rc = wwiLibLang.LMsgBox(30, 0, "")     ' H   (  Vor und hinter Markierung nicht scannend      ' Jk      ' j     Merker, kein Text markiert       k p    j      j        H   
        Anfang der Markierung erweitern    LEFT_SYM  N% 6 ' D       	 RIGHT_SYM   N% 6 ' F         Markierung nach links ausweiten     '  ,   initialisieren       H	         
        ! . 0                    0B@4       0B@H          . 0     '     ! d         DK T   . <                      ' Symbolanfang gefunden      ! !             '  0   Markierung erweitern         H   '  0   While abbrechen       ' j ,   Markierung erweitert   k      $  K T    new line      H   '  ,   While abbrechen      FK T   , >                      ' Symbolende gefunden        H   '  ,   While abbrechen      " K T    quote     P         ' P  d 8  ' P  k (    ( K T    braces    N         ' N  d   ' N  k     ) K T    braces    N         ' N  d   ' N  k   S    default n    x    !  Markierung nach rechts erweitern    '     H	         ! . 0                    0B@4       0B@H          . 0     '     ! d         FK T  ,   Symbolende gefunden        ! !             '  ,   Markierung erweitern         H   '  ,   While abbrechen       ' j ,   Markierung erweitert   k     $  K T     H   '  ,   While abbrechen      DK T   H   '  ,   While abbrechen    S   n    x     ! . 0           0B@4         0B@H          . 0k (      B@       B@     F -- single exit point if possible -------------------------------------      j' i     checkMarking      D --------------------------------------------------------------------             Name: checkTable                 :    Purpose: Checks the actual marked Text in the document:   8               If more than one cell in a Table is marked            
    return:   +     -3 = Marking includes exactly one table          3     -2 = Marking includes the end of cell character               -1 = OK                 0 = Marking is not in Table     0      1 = More than one cell in a Table is marked            8  WA100101: allow groups spanning only one row in a table     D --------------------------------------------------------------------            B -- local variables -----------------------------------------------] @  X    &  Anfang, Ende der aktuellen Markierung      ] p      Returnwert der Funktion  ]       Zeichenfarbe fr Steuerzeichen   ]       Steuerzeichen    ]   ]   ]   ]  	  ] 	  ] 8	  F       ! %  .       ] P	  F       ! %  .       ] h	    B -- program logic -------------------------------------------------   ' j   	  Alles OK           ! B@           ! B@         4B    # "  Einstellungen fr Dokumentansicht        ! '  !   Markierung merken      !  '        ' `    % 
   7 
  Tabelle ?  *  Markierung befindet sich in einer Tabelle     @7 
 ' Z    b7 
 ' \  q     Z  \           \Table   B@   ?   Aktuelle Zelle markieren   1 Selection.GoTo What:=wdGoToBookmark, Name:="\Row"     !      !         Ganze Tabelle markiert      ' j        Ve     ' `  Z   e  ;   selection starts in first cell         8  WA100101: now check whether selection spans entire rows     ! . 0                 0B@4     0B@H          . 0    % 
 ' ^        ^        '   d         \Cell    B@   =   select current cell          B@  +   move to the right   
 ;  if we are at the end of row now, then it was the last cell           % 
 ' ^      k 0    ^      ' j        Te     ' `k      Te     ' `k   d  (   Genau eine Zelle markiert          	           \Cell    B@   ;   Aktuelle Zelle markieren     !        Ganze Zelle markiert        ' j          !  
 e  
  ganze Spalte markiert       ' `k   d  (   Kein Text markiert        ' j    Merker kein Text Markiert      k   k   d     1  WA100101: allow this (table + normal paragraphs)   ? If wwiELibFile.validCmd(30) = 0 Then   ' TabelleTAbelleEinfgen       Nicht mehr als 1 Zelle mark.          ErrNumber = 21    	   ret = 1    End If    k       ! . 0           0B@4         0B@H          . 0  `            9     rc = wwiELibLang.LMsgBox(21, 0, "") 'Felix 26.09.2002   ' jk ?      B@       B@     B -- single exit point if possible ---------------------------------  j' i     checkTable        C -------------------------------------------------------------------              Name: insGRP             3    Purpose: Inserts the Control symbols for a Group                     Parameter:        4        Beg, End$: Begin- and Endsymbols of the Group         J        bTextSelected:     False = No text is marked, True = Text is marked   S        bIsEntireTable:    False = No hidden NL, True = hidden NL behind the symbols          +        LPath:     Path to the Language file                     Returnvalue:             F ----------------------------------------------------------------------      	          	      B -- local variables -----------------------------------------------] 
  ] 
  ] 
  
      Anfang und Ende der Markierung         l 
      Symbolbegrenzer  ]        )  Attribute des Textes hinter den Symbolen   ] 0  ] H  ] `    ! '       !  '       META  N% 6 $ ~ '         Verborgene NewLines anfgen                 d  $   ' d      f  $   ' f      h           h  $   ' h    k :  k :    j      E $ r            A@t       % 
 ' ^        ^     G   B@  j           wwiPPSHE   ,! B@   k X:   ' n    ^     % 
     @  % 
 '         B@            @  % 
     ' n  k 9    B@        k 9    5  WA110101: insert blank before ENG if last table cell       .  WA281101: but only if not entire table marked          n  ^         H         InsertText " ", Verb, colour, meta        ' Alte Textattr. setz.  k 8  d 8      WA281101: move behind table        B@        k 8      Insert CNG         h           N  Wir fgen noch ein leerzeichen nach dem letzten Symbol ein - Felix 04.03.2003       Selection.MoveRight         h   A@      F       InsertText " ", Verb, colour, meta        ' Alte Textattr. setz.      $     \  A@       k x7    N  Wir fgen noch ein leerzeichen nach dem letzten Symbol ein - Felix 04.03.2003       Selection.MoveRight           Insert ENG/ERG     f   A@     0  WA110101: dont insert blank at end of table row     E     If bTextSelected And Not bIsEntireTable And Not bIsEndOfCell Then        F       InsertText " ", Verb, colour, meta        ' Alte Textattr. setz.       
     End If       wwiPPSHE   ,! B@   k 5        wwiPPSHE  ,%  B@H      d 5    j      A $ r '     k h5      ,   Ganze Tabelle markiert         B@  &   Vor Tabelle positionieren    d   A@        B@>  '   1 Zeichen rechts lschen       d 4    d   A@        .   Nichts markiert      Alte Textattribute setzen  $     \  A@         B@        d 84      Alte Textattr. setz.        *         InsertText " ", Verb, colour, metak 3  k 3       Ans Ende der Einfgung springen         wwiPPSHE  ,%  B@H      k 3    wwiPPSHE  ,%  B@>      k X3  o     insGRP x        B@.     p  ! (   r         r  ! ( Zk 2    2 0  B@       o 2  2    K Attribut e VB_Nam e = "wwi LibText"0
'*@    z : IssueTec hniDATA  GmbH/Mar`kdorf ),P`urpos. H- library  for func tions, w ho manipula t .@Holds  usable subs and#Changes>: É $Xce  declare  variC
Opa Expl icit
PrivbClt B ARCODE_S TRING_BEhGIN[ ؚEND]SEP	,	?@K
 ;:-? -@mB   : InsertWWIAs  symbo l/phrase /begin group/e{Binto  the actu al documen c'Dar@̐ter:A: AAich sho uld be i(ed,@clupdingE@lDessty :
 , $at is & setB/) ?Y-,modificai_   25.10. 2000 ChrisAlexi@ev  AdA 6o"W%p#Atesbarcode bub d SubkA(By@Ref ch2 As S ng,> *nbIsBcBoolean`aFals0e)
5 '-`- loc vs *Dim  keepForma@K  !metaType_'Q_Col IntegerexxLeftbP nPoLCRighBra0cketMAn|gl:d
=EbrcdC ?Em% DescrAE%bi#`d6&S"
(`'prog@x8gic7;!	AppP"e.ScreenUpdng%G	  ^  If File.v alidCmd(10)-1 ThenC' Be arbeitenAusseiden	'edit com`d`- J 
1Sele".CopyM'  QIu	d  = b/' Felix Rr*0Val(3.GetDoc Var("META")23C,= Mid(39, 2  ='Y {GCZs ? .3[E "0@1" Or  2 3""qf ^$5= COL_LBLDAb%BOo1ASYMOTruWB<> "= -
 cbcorr ctG  On EDrr Resn N S"  g%=js'p lHPCs tNG@oTo 10SCall^It(aJ$3), ,w) ' <0ta= rOLenA ) - 3b)  RIn@d&"("d*T)uwS[
]7W>E'C H030206 ifV$Scon$taP (6) @take cof0 > 05b)>xM)'>hesLes t  dQ`	son'tC	NBaccouρa1 j= "M 'eckp/0 Ak߲(yfl=p*"	,$, "D:.NYWA + 2	8U	;
	c uC%e+&@4?n@t$&xxP.0 - 19E XO*3
  o?bS8("EkKxx,jvK 0KGEDENT5a1  3s (hidr-sUht 7`@4 escripti on is th@ere
   I f LeftPa renPos > 0 Thent   Call I nsertIt( Mid(chText,
l, Righ-+ 1p), _Sw( bSymbol `Or bD 1d oc_Color):End If#F' i sEparameters  bra`ckets+vBC
wRest=` >  R <'," {True, ~' [D:hiddΙ8S5O-F Fals!M ' da i tselfAvisibloJ JE@[bIsBarcodeJb  fcdC$= Str(HE","Ar	{bE(  ioSihK<j ,JF-Αi' B:UabargC3hW|$<{G( - ?C{r!]m!-B4&+'```'BGcludbSOType_ = "20"HOj@Val(ww iLib.Get DocVar(" COL_INCLL")dN+"< 
,^ #+K4n5$)'4o">"  'Rp Grp or Notnu`!   'Di ffer  between9a CNNGroupcm(F)13")x)) 
RP)3
5
q4FG
# z<CTRg<W)S@a1-1' WA 100101: @move b if at e@+ of ta` row#Selec!.Informaa(wdAtOfRowMarkerK/M 
#R5U,}'kb9QW ' ag1304a>within$check   length` grea`ythan 2 ePb~ pPp(	W`InT2) -1LeVn)D2 OtQ
3r?1#"=/h#@fGoToAgpJ

10:QDim  nErrorNr AsLtegerch1prxing1 .pNumb =6=6 7A orc2or(TOMsgBox K .Clea
9!OnaPHaum e Nex 
erAppliBc-.ScrPGUpd ng@(1Sub '- G
'p-N}:QAPP@urposes &f intoѲ actualEn'զk  r:4 ,  which s`houldVeRd  e =sn't 1 ttqXur ]p 1FheVqM	B1` PuMetaiG.,	q 0`Doq	c;g0	c~u 
Pubp" P (ByRef+bP2Strp0, nHid(ur, Q*.P$ loc!vari1Bs ?aA:"1 ' Startui[ <1
H2O'b@?  3S]isiFarberkQVerbY@orgenetellu7meInewRan  8@-- proggic?/JLX3hS.Xrs1fGUl10Qa 3  0vA@Afh$A0lapse0ry:=w@lRI!J S 21A' ... u `m |i PPSet =g
.w4q.b&:=,$ 2m ge = Not hing

   If meta 1 ThenL' Farb@e is M ^info XWit h Select ion.Font
' Text e h.4!.HiDdd t= n 	eColorIndex doc_	ur%End {Els@e<H%If$! MoveRighj`' res et format'Alte  EinstellungenFZeic.Verbor rv, .= cxowwiL ibFile.v alidCmd(10)' BeitenAusschnei jRa%.Cu,GAE10: `rr.Cl Î'-- s@le  exit poi	}if ssib%- 
SubR ' Insert  ^
' Nam e: chkRi@OfMarkP urposBec ks the tattribu tes rofm@edB Dar terK'Return8w:B@hB |A?F 
PublicV -(O,$)=a @ local varia9s ,DimA1B ' Start-i! 2 EeD1H'rker, 0jKeine" A=ier q, z1M`VaBnewa As 	O  !!prog@; "g ( ,= 0@ag"$2' ~<>*2' Nur wenn{! t`{
W'  Ans - der&  L:5ist`
V A	'n t ams Do kuments, da erwer7 nach chtsa	 ##= AveDoc
.C .- @ݡ"1DE' z$+	h*7ea?c}` fesnt"	SFY="dZ  .Bi8:=&, 2}2OaOa/4Oa'[?a-W3ai*c[aPoscJ!aC ursor toB`beginn@p 0eaa giv0zona pfad`TPaanc %elyuaspecifPG*.I0NI f banfPABqZR0	 m q*	`XSA' 9Ojmue&n-1OKU
 0 Erro_GlFun>onaQit(ByRe0q\Str, -e, 3'o.Q,o?	wer9B ' X&c iCТq	IntegeҮiP1 
i	
= -]All`   = UCase( sT 1! 8"A"F @fuf}es#0`kU 3c <cb[  1cOvOsOw:=8"  + 1P0VtFU 3&G8XqwLefp q #"Eok<OOҁOaeEaCe - p := ' WA12010pBm back  bwe crossPa cQ0`01mIP##(wdbOfPsumnNumber)	o~ a'tr؛!!~"0
%ww e -! 
   posit =  ret
End  Function  'L
F'"$
' aN ame: che ckMarking Pur    Cs th e actual m ,ed Te xt indocument:>_If morean one cella Table is(yNo1 .Kh iddendar Qers of  a symbolD a>not2,Dis5  fexpa,t  toXcludce 7!ch@ P@meterF"Empty: 0~BQmus$t (beC 1
	
 urnE-2Du we@I5edC -OKD"[tt[A
Publ,icǸ	(E)  As Integ$er   locvarisc-Dim  anfang, e' ANder aktuReru<  [*' Ret`1.t zkzee_LCc`EStrAL'  SteuerzTei#n	Req
Anzdnzahlzu scannengZLeng@' 0=Keiy!", 1=g.  existierC%a5	d , die get wur  ,Lia	'rc%newR<e+be_op :LBoolean: = Fals C'for%benswh@s enclo9@th7 cquot/ [W es build4 b_korgDlgObj ect: Set = Word Basic.DialogRec D.TsOp!QsView(B)
8Bea

onsEdit

awprogram`x~gr"A	m=gIZll &  "W= tStartsW vorhch!(CurValuesN(d. Ca`p wwiShowA ndHide.setX' Ei8nst0HG'fr Dokva )<ch@6!E?= 
(pLib.GocVar(" SCANLEN")cP0bSel $-.R' Xmerk#S=& dGMov eRight Unit:=wda , CouЁ=1ـWxtFE G(Chr(13)) 'Љ2AA
'Wd1	4STp='AQdI@ߢ%s -'ϐ>Of.E0HW B(Typewd&IP p%"A veD.Covnt.  ) p4W= If   1HWy6X.BnI8:=Xy:=Pe1'/ NoW烂 T->=}01R 'S0sk sm?-YarcPC5Le. LMsgBox(30,   ""BT3w8-1 7 ' zVeubY6n~txq   Ln0  Ð	0 p<e;r, kDqyQB(V0 Ord-1И5>P'ᒂCerwei3  = oILEFT_SYM("R8IGHJna ch linksp ausbT='pit@sis` O  Whi2<V5&z- (!. , :0Q(.t1g 9R92t#~ v`52/2  =+ 1e Ca'<s]  rشgeD'FH.pP04'd=V j!)Cd 'abbre7$2   ' Mark ierung e rweitert
End If<Case C hr(13) ' new lineZscan =  doc_Anz + 1' W hile abbrechen
\: RChar '>;' Symb olende gefu C  ?"   'quotlIf _opepTrue T^L	Fals:E %"( " 'braces H	HIN=$)$@$^  Y 'defaulE1USelecDW
CA
nach AtsėĖ0C<E  Set  Range :aion.BC F.
Starht:=+eA,~  JP7Nothing =cfu*Tex*-gu0 \u@XFont.Hiddk-1k""=a!#rH,  r`:= -2R& ԩe/L
Gxk	`1 \i_^anf f(^#idH\Aa WordBasi c.ToolsODpt qsVio0rgDlbEdit Beaa	`'-- s@i ex`point  if possib- --A	ck`=` E0Func!e3' )A
=`A0Name:#Ta PPur@Checks thP{ctualD m@ed !A in@umen<t:p p>morePЁone cellaa x is6udrn-3Ti@ncludeYx@actly tQ9=S` _ ofc0er G= OK  0s no0n
%1!
'QWA1 00101: a llow gro ups spann %rru
Public %b%"(ByV`bAq	 RowsOnly, YFull) As InHteg  1locpvari<s O	aDi4m x@e13 ' AAe der aktu$@c!rEZW
e' Ret%wp"k6eamColour%q ' Zei  rbe fr  Steuerzc`e`rceiBeginnC1iPA bIsOf0BMea2o0tO1Obj%P: ]t T= PDialogRec@TS()E߃RMTOOsVFeErrNumbXprogram p
-&a"}1Z '<ll GA.Cur3uesejf RwwiShowAnd``e.set@h$	' Einst"p#/(DokXannhd d4pJwVG3 merk؟ %+ Ag= 0!]Informa4(wdWithInC)DqPe ?1xbefi tPv뀸PPe rW!O|3  84=| .b`2=umn%+	66r 3qH<> VG(oToa wdK ;ku, Ry="\"`(NHo )Rs7''  Name:=" \Row"
  If anfa ng = Sel ection.S tart And` Ende
h   Then  '  Ganze T abelle markiertBHret -3Else xbAll@owFull :l@esOnly[E rrNumber ?21?GiBeginC | %1A#' ss sss in first c!.l WA100101 : now ch eck wheth H"pans  entire r(ows!S|ne|wR .' :=- 1,=NothingbIs Of@M~InformaA(wdAt	Muer)Ap Ee  0AG GoTo  What:=wdBook,ƮAy"C_ curr ^nMoveRight 1' m  to  s r$' i@f we a@tate@ofw,          c  	  
                                          4  !  "  #  $  %  /  '  (  )  *  +  ,  -  .     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  5  z  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  {  |        n it w$asla  >YO If&]DFʀa`=llvt	3v2s`enau eine Zrϊ !$<cMPZJ\JAktuJ`] B52;,">c gSpalt: 2' K1 TextlaMerkkFÁeLgC' ǰa!mis (tab+q l paragrPaphsd'`5w wiELibFi le.validCmd(30) J0'%TAE infg>' Nicmehr als :.eb _'  <r'$kLGWC`	e·-?<d> s
cDL@l.LMs@gBox(2i0 , "") 'F elix 26.09.200,WWordBas ic.ToolsOpafsView orgDliO0sEdVBeaBQ'-- s m	@ expointq[possi!- aR}@

Fun32q,w
 Sr@sGRFPCPurpe`: Ins3fC ontrol s(ymb z a Groupp0meter: ""$: -@mqpTb>(ed:BF 0ONsq@8zed, TruAf7p!hidden NLv behi2

WLPath	 C}*uagepleReturnp@ue@
Publ@ic Subt( ByRef A s Str*, _'f @'_߼ } lean_W11 local variZs aDim ,a rc xOe	6'ʂu"e d`gfuReA$`0r__$(1)S25beg zerVerb , colour%tbu`wde>sp` 0*@7@n diIntegwdOfePJb± q1 PVal(@]q.GetDoc Var("META") ' 0Ye NewL>sq`c \&Or?f>XQ + Chr(13"2_`
_ i.9pi""Pr= q~T 0рUit(+,1mUQe mEmTchkRiOfQ$  y+bՍ[ 1Lef  Aδ ctiveDoc ument.Bo okmarks. Add Name :="wwiPPSHE"
   End If,bIs (OfCe ll = False2If Not @Row A! |Sele on .Informa tion(wdW ithInTab le) Then1E  i V4St artOfRan geColumnNumber)<8MoveRight i <>6 -N pTru  	 4E8LefEN'  WA110 :  inser la nk be e  ENG if l ast t c 28: but onlyn ireedjta9@zOrJvl' I-Text  " ", Ver b, colour, metaE
' Alte 
 attr. seXtz.C%PEF 6 H9m v Fhi C~	\' *p CNG@:_""
Air  fgen no ch ein leerzeic na dem tzt@	Symbol	- Fel ix 04.03.2003*'V*b D'WWIS&,| "ZZ#1Chr(13),y , wdAuto6C(W" "j"7"5``/ERe6M$nd_$caF!jdont+kat$ e Hofcroxw
b,!_/4ed&e	b5[b/CN	Aj  5(
).'#
X#  rc posit(LP ath, anf,e8A"#AAϫ' '  Ganz ab@e i %@. 1' Vor ࡢ :OBegiOD  Count:='Zć rechts lsC%: "4`' NM!n'iceYI  BB/0]?/z`2/qOe?Bev<ek#fns% Ir Ein\ ung spri@T%0?..c.}24"!  
 Sub2 'LGRP 

Public SIt(chAs St, bHidd@i lean, i` . Integ'After q	FT.t=! 0-1xtIndex@#lapse D0B:=wdUVA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        _ _ S R P _ 1 2                                                                                        b*      _ _ S R P _ 1 3                                                   *   u                                          U      w w i S y n c r o W o r d W i t h T r e e                       ,                                        &  .      _ _ S R P _ 3 4                                                                                      e  )      0)  4 g$ $  $ <    QD # " (4 $"D&  
D|&  
c=& D -$     $ <    $UpJ5$ 0'''$  $ <    6 $ 5kJD4]$     $ <    $@5$" 0'''$  $ <   6 $  +   	\ l         <8     X                l   L \ D              $    |        p   p  5f%  $ @  W- B.  46   5f%  $ @  W- B/  46  pV ( , -	@  $ @  W0 .  5 -	@  $ @  W0 /  5 
1    2   #
  k</ )  $ <  ,  lih )  $ <  4  liX .   
3    $ <   5 )  $ <  4  li X3 (  	 X  0'''  $ <    6  }  $ <  D  l   x|  $ <  |4  lxlpt  $ 4  t ) p4 & ll   ) |tp (    $|  $ <    Q| X"h"&  
|&  
c=&  hXZ;  ( ]3% (<2  (  ,   pV  ,kV kV<(  ]p'5 4   1P 5   1L (   )<ch(  ]p'\ $|  $ <    Q| +h"h( "&  
|&  
c=&  (    $ <    >1X lXlP0 9|  $ <  <  |< ' l) | hh <(  pV  $lX   
3  `#0/5 <(  lXlL0 <(  lX6 0O kA  pJ  p  lX 0 kq  pz  p  lX 0 k  p  p     (   <gJ $|  $ <    Q| 4X( "X"& 6  
|&  
c=&  (    $ <    >1P lPlL0 9|  $ <  <  |< ' l) | XX <(  pV C $lP   
3  `#0/5 <( C lPlP0A <( C    $|  $ <    Q| X"h"&  
|&  
c=&   #	@  $ @  .   #	@  $ @  /   kVpz          ,\           D          X P ,       P < L X h 0     	       | t p    \  0      h X  5f%  $ @  W- B.  46   5f%  $ @  W- B/  46  p6 -	@  $ @  W0 .  5 -	@  $ @  W0 /  5 
1    )  $ <  ,  liH )  $ <  4  li8  p .     $ <    5   $ <  Q      Up5      Up 5 c kk / F\:7 N'`'  $ <   ) \6 ` bH  $ <  ,  li]/8X\  $ <  \4  lXi]/') \ p6* 
X p* k $\  $ <    Q\ &8( "8( "&  
|&  
c=&  .     $ <    Vp5 kG 8( 8  F\:8 N'`'  $ <   ) \6 ` 2''(   $ <    6  .  rU              ~|         	       	               @   !                  	      I8            "      	      Y      y            4      y4      q      YB      .           -      2      3                  2      9      	-            Y      96      y            5            6      15      A      A      ٕ                        !           	0      I      y      I      	      Y      J            y0      R      2      a2      a      y                        і                        A      	  X	       $       p    #
  k\/ *(    l M@
  `1X6  lX 0lX	 0lX
 0 lX
 0     #
  pV/  p      #
  pV/ p  \( ]@  pV  K   =5 * FN  $ <  P  5  K 2   l M@
  V+`
  /5 ' J   l M@
  `' 5          i@          i0          i           i          i   (  ]tK @ tI (  @   % (  ]<(  ]<'  "      p k  p kp k      p k  	Up   @(  ]t *@( "l M@
  `1P5|  (  ]tP * ( "l M@
  `1P5|  * ( "l M@
  `1P5  VP
   @(  ]t N0@( @"l M@
  Vkk+`
  /6    (  ]t 	   k  JkD  "l M@
  V+`
  /6  ?kkDkl M@
  V +`
  /6  kDq  q  "      p k  	Up  ;(  "l M@
  V+`
  /6  JkD ( "l M@
  V +`
  /6  kD  I( "l M@
  V+`
  /6   2   l M@
  V+`
  /5 lX 0    #
  pV/ V+ C
  / D J   i   l M@
  V +`
  /6  V+ C
  /  lX 0    #
  pV/ lX 0     #
  pV/  !   #
  pV/  \( ]@ pV  .     $ <    5~ 0t'''  $ <   6   V+l 
    4     $ <    (]35) .  $ <    lJ   /& 0t'''  $ <    6   .  $ <    lJ   / 0t'''  $ <    6   7	  $t"    # lt    0	 t"    # ltpr rM@
$  `1l5 ,'L''    llFN
%  6 L "   H   K   $             0X	P   t         8          l   P \  X   @ l 0  $               L  
   (     J     )04  $ <  4,  l0i l4 K 4  $ <  Q4  D      < 5 c )04  $ <  44  l0i \4 $4  $ <  4  Q84 \"l"8&  
8|&  
c=& 8  (  ]3Z $4  $ <  4<  Q4   "@ '    "h '  c  2  "4  $ <  4<  @ ' ) 4  00'''4  $ <  4  46   
+
(  5	 *4  $ <  4  & ) 4    "   44H 4         (@   `        (            l \ L 8 <            4      
 P      (8  L )04  $ <  4,  l0i8l4 )04  $ <  44  l0i8\4 l\@  00'' ' 4  $ <  4  46    (8 L  Y04  $ <  44  l0  $ 4   ) 4 & l   ) 48 60( (  (  4  $ <  4  46     704  $ <  4<  < ' l0i8b ) 4 704  $ <  4<  d ' l0i8b ) 4 $4  $ <  4  QH4 \"l"H&  
H|&  
c=& H         4                      l L \ H $          4          <    (4\ l M4@$
*  $`' 5$  C  l + 0   4 g  $  $ <    QD & (4 $" "D& 5$ 
D|&  
c=& D 0'''$  $ <   6 $ + l ,    $ <    Vp5  k p6 
h p * 
h* p   H8g F\:8 N'`'  $ <   ) \6 ` .8  $ <  4  li]3 p6 .8  $ <  4  li]t p   p6     $\  $ <    Q\ 8"H"&  
|&  
c=&  k h p6  #	@  $ @  .   #	@  $ @  /   k6pz       $ $P            8              $   h 8 H X $           \    `   T           8    )  $ <  ,  liL )  $ <  4  li<    #
  kl/    ( F   
3  `' 6  ( F   
3  `' 6    = ( F   
3  `' 6    *, C<Ll  
9  /5M (
:   .     $ <    Vp5 k  0'''  $ <   6  	  8';   $ 4  8 ) D < ) 5   p >k     $ <    '6  -     $ <    Up5 0'''  $ <    6  5kD]     $ <    @5 p  0'''  $ <   6   	 1 kk, c  0'''  $ <    6     =  + Cl 
=  / 7   
3  l    f`
>  /6    + Cl 
=  /  ! 8';   $ 4  8 ) D < ) 5  	 t E:; N  $ 4  8 ) @ < L ? ) 5  &+ C<Ll  
9  \/   # 2''(   $ <   6   + Cl 
=  / -( '  $ <   6    + Cl 
=  / 	  7   
3  l    f`
>  /6  0'''  $ <   6       E:; N  $ 4  8 ) @ < L ? ) 5  E:; N  $ 4  8 ) @ < P ? ) 5           TH            .          \  l ( 8     < L   (                          x  $ <  xD x . tx  $ <  x<  t@ ' ) xt    . tx  $ <  x<  th ' ) xt  &T    x  $ <  x< x5T         (  $                                 x t T                          H                                                                                                                                                                                                                                                                                                                                                                                                                                    rU                    	              0          `     Q     9
     Q
            008         `     Q     q
     
     
          0///,         `     
     
          //8         `     
     	     !     9         0//0( !       `     I         /, I       `     i              @ q       `                    	     1     Y          000##00        `     Q     q               0#&           n                                                 rU                    	     4         $      4    `                 n         Y      J           rU                    	     6         $      6    `           $      6   `           $      6   `           $      6   `           $ !    6   `           $ I    6   `                           (      0      8      @   	     	 Z   H   " 7    " 7     -     -    	      
  (   
  8   	 Z   H   	      	             ;     ;    	 V       % `   	 *       .    : <    4 )      @     H   	       $ P    & `   	 2   x   0z i    @  0     p     x   	                @               	       ( o       (   	      	 h   0   	      	 (      	 J            2      4   P   *                             	      	      	      	       	      (	      0	      8	   	        @	   	 $   H	      p	   	         x	      	      	      	      	      	      	      	   	    	      	      	   	         	      	   	      	 H   	    0 6 8
   	      $ h
   	      	 L   
   	    
   	 "   
          0     H      `     h     x                   .          .          .         	          8     @   	       H     `   	     	 H   x   H     	          (     @   ( 4 P     x                   )         	     	     	           	     	 &           	     D 0    
  P   	     D 3 `   
     	     H     	     	 &         (   	       @   	 *   P   	               
           .         	          	               
        8    . @   ( 4 `        	          	     	     	               	      	     	          	      1    :       0     8   	        @   	     	       X     `   	      	 l   h         	     	      	 B        1 0   	 <   P   	       : <     $          
                    	     * S      y P     p   ( o    	           J          	                     	      	      : $ (   	       h   	      1     .    	       4         	       4         	     " 4        H   	       4 h        	               	          	           	      1    @       (     0   	      H  8   	     	 l            	                 b         X                                                                                        x                                       ME                   D   @   (L    6
    
        L        *L    
                  L    
    L    
    L        <H     <L     <P     <T     <X     <\     <`     <d     <h     <l     <p     <t     <x     <|     <             
     `              Pk   JJ     @zl     D l @v\     D l @xL     x   @zp   <     s e @P,     s e @     6 1 @@        t S `|     i E `R     nges`J         ate `         @~X         `H       ****`	     ****`   	     ****`60       decl`     (   `     X   `         ``          `x       0  `       S --`        ----`       ----`       ----`        x  `P        . P       `        ----`        posi`     x  `       (( `       ----`@  |     ---- x      ----   %   Ph  t     ic -PX  p     ----P   l     ----P  h         P  d       ``     func`  \      to `8  Z     ing `  T        `8  R       `  l	     le s`h  h	      erw    t               %         (    p                   P               @	  h  
        4(    @  	        @          @P       X   @          @8          @          @          @  x        @t        @  d        @  T        @  D     (   @  4        @  $        @@       (   @(          @X          @       (   @p          @            l ,~      @	        @         
       X	  L  `         %   x	       h  @   <        @8  ,        @P          @h          @          @          @          @          @          @	          @(	          @        @|        @z         	  tp	  `         %   	  X	        	  p	  `         %   	  	  8      	  d	  `         %   
  	        0
  ` 
  `         %   P
  	    0   @X         `
  TH
  `         %   
  0
      Px
  `         %       p  `
        x
                                           tVH $ * \ R f f f f * 1 @ 4 9 1 d 9 5 e d  * \ R 1 * # d 4 $ * \ R f f f f * 1 5 4 9 1 d 9 5 e d  * \ R 0 * # 1 0  * \ R 1 * # c 6  * \ R 1 * # b 5  * \ R 1 * # d 6 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # a 4  * \ R 1 * # 1 e  * \ R 1 * # 1 2 9 $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                            W 	 J        	 *   P    	 ,       	 .       	        	        	        	       	 <       	 J   `   	              	     "      	                                        	 B       @ d H   	 <      	       : <    	       $       0    
 8     @     H     P   	     * S X    y    
     ( o    	          J       @   	       H     P     X   	      $ `    $ p    $    	      $     3    	          	 X      	       0   	      	 h   H         	     	     	 B      @ d    	 <   H   	       : <    	       $          
                    	     * S     y H   
  h   ( o    	          J           	               	          	     	      $      $ 0    $ @   	      $ P    3 `   	          	 X      	          	            	      	      	 4         H      P   	     . F X        	     	       	 :                	     	 8         X     p   	     	 *                	     	 B        0      H    	        % `    	     	                    	     	 6         !      !   	        8!   	     	 *   H!     x!     !   	     	        !   	     	 &   !   * S !     "    2 ("     H"   	      	     `"     "     "   	     	        "   	     	     * S "     "    2 #     (#   	      	 "   @#     h#     #   	      	      	 "   #     #   	 2   #   
 
 $    #  $     8$   	      	 F   P$     $     $   	      : < $   	       $ %     %    
  %     (%     0%     8%   * S @%    y p%   	 "   %   
: < %   
 $ %     &    
 &     &      &     (&   	     * S 0&    y `&   	       &   ( o '     8'   	 *   @'   T  p'     '   	        '     '   	        '   	       '      (   	    (   < < 8(     x(   ( o (     (     (   	      	      	 H   (   	 L   )   	    `)   	     	 (   )   	 $   )    F )     )   < < *    < P*   < < p*     *   4 ) *   	 H   *   ( n 8+   	     	    `+   8 d x+     +     +     +   	      F +     ,   	     ,   < < 0,   	      	 0   p,   	 2   ,   	 F   ,   	 X    -   
 
 x-   	        -   	     	     * S -     -    2 -      .   	      	 "   .     @.     X.   	      	      	 "   p.     .   	 2   .   
 
 .    # .     /   	      	 F   (/     p/     /   	      : < /   	       $ /     /    
 /      0     0     0   * S 0    y H0   	 "   h0   
: < 0   
 $ 0     0    
 0     0     0      1   	     * S 1    y 81   	       1   ( o 1     2   	 *   2   T  H2     2   	        2     2   	        2   	       2     2   	    2   < < 3     P3   ( o h3     3     3   	        3   	      	         3    
 3   	 Z   3   	 "   4    # @4    # P4   	      
  `4   	 Z   p4   	       4   	     4     D ********************************************************************ocal v   $    Name:       wwiSyncroWordWithTree------   %    Issue:      TechniData AG/Markdorf    (                Felix Ardelean 18.09.2002              Purpose:                     Changes:   unct   6    [ Date ]-[ Name   ]-[Action                       ]    D ********************************************************************  vari    force declare variable(         ] @   ] X   ] p   ]    ]    ]    ]    ]    ]    ]   ] 0  ] H  ] `    S -----------------------------------------------------------------------------------       ] x  F       ! %  . ------]   F       ! %  . ------    ! B@ rtposi    ! B@ x    4B   eposit   (( *t       S ----------------------------------------------------------------------------------- ogic -     check marking----     %  ' P------  ! d  <  '       ! d  >  '      P  CheckMarking function fails sometimes to select the whole string 'between < & >P                   # select the whole string 'between <> nn erw  ! d   
  nach r           B@  G  WordBasic.CharLeft    >   B   #  WordBasic.ExtendSelection ">"   Zk   k     ! d' !       $   ' vst  , WA140802 check for exact symbol/phrase types,                 v  01    v  02     v  03     v  11     v  13     v  15     hkRiOf  ERR##602   lB@n  3 " Markiertes Symbol ist nicht gltig   k     ' ~        p  ERR##602   lB@n  3 " Markiertes Symbol ist nicht gltig    d      remove the angles   ! d    ! d     $   ' k       a  ---------------------------------------------------------------------------------------------- '    " Vorbereiten des Suchstrings in der   D  von 01xxxxxx(yxyy) zu 01000622xxxxx(yxyy) --> in der Struktur Style      ]   ]     $  Positon of squared bracket open "["      ]     %  Positon of squared bracket close "]"     ]    !  Position of parenthesis "("       ]      Position of "D:"  ]       Position of "SZ:" ] 8  ] P  ] h  ]   ]   ]   ]   ]   ]   ]      Dim chRepGrpNameLen As Integer    ] (  ] @  ] X  ] p  ]   ]   ]   ]   ]      Dim curEndPos     ]   ]    ] 8  ] P     B  Symbol & Phrase -------------------------------------------------  v  01    v  02     v  03          ~$   '     E CH030206 symbols may be shorter than 10 characters (OSS: 137152 2006)        symbol = Mid(old, 3, 10)     find possible ends of symbol            (  '           [  '          
      
   ] h      
        ' d x    ' k h           $   ' 6         
 e              $   ' 6         
 e              $   ' 6    d      use whole symbol    ' 6k         D: '           SZ:  '      A  CH090703: change, there is only a description when there is a D:                , ) Or pos_Grafic <> 0 Or pos_Brace <> 0 Then        Symbol has description       ]  '         
                     $   ' d      ' k p       '         $   '   k @                    warum gerade 5 - weiss nicht        '         $     A    * "  -><01G1011001EY(G)[SZ:A;D:Augen]>      A '             $     O  e  / " -> <01G1011001EY(G)[SZ:O;D:Augen]>      O '       d  	 ? mit einheit  -> <01G1011001EY(G)[SZ:170,0787*141,7323;D:Augen]>      Ermittle die Zwei Masseinheiten        *  '                   $        Hier gibt es nur ein ein Wert            ;  '                      ]  '     k 8            $   '       ' d          ;  ' ne M       =Mar      ]  '   k            $   ' wurd               $   '     ##    ' / k X  k P  k H      l%  ' hings       $     ERR   mb     lB@n  < # 'Markiertes Symbol ist nicht gltig !    k     OK   lB@n !   6' x  ' z   e vorbereiten fr Wiederholungsgruppen  ---------------------------------------------------------------       v  11  e   ; erkennen ob der Anwender das Ende der Gruppe ausgesucht hat B@      $     ERG      5  wenn ja - dann suche den Anfang - und markiere alles ' H   Selection aufheben           B@  C  WordBasic.CharLeftt Unit  !  unt: 9 
  C@     9   9     9     $     B      $    ' )        	 $    7           %  ' P &  D  ! d    ! d     $   ' d H    ERR##618   lB@n  7 , Anfang der Wiedrholungsgruppe nicht gefunden! l   k   q   k      
   ~$   '  !  11BRG006(M,SAP_EHS_1022_023;*)       ;  '           $     M              $   ' xext       $     S:FREI e   ESTDF ' xbL      $     S:VERW e   ESTDU ' xnd      $     S:CLASS  e     ESTOF ' x   oder  doch 0      $     Q:AUFT e   ESTDS ' x  d `
     ' xk P
      l%  ' zang de      $     ERR   FT  ERR#602    lB@n  2 " Markiertes Symbol ist nicht gltig 	  k 	    OK   lB@n  + 0  spter ok- wird ersetzt durch collections table   e  Leertextunterdrckung -----------------------------------------------------------------------------*     v  13  e   ; erkennen ob der Anwender das Ende der Gruppe ausgesucht hat !       $     ENG         $     CNG       5  wenn ja - dann suche den Anfang - und markiere alles kier   Selection aufheben           B@  C  WordBasic.CharLeft abbre  !  K T  9 
  C@     9   9     9     $     B      $    '  abbre   	 $    7           %  ' P' P    ! d    ! d     $   ' d     ERR##618   lB@n  7 , Anfang der Wiedrholungsgruppe nicht gefundenN    k   q   k     ! '     !  '      ! .  M  ! d' ch r          $   ' H    l%  ' z. 0    Q die Werte aus dem Analyser werden in der rechten (manage grid) spalte dargestellt   OK   lB@n FK T    a  bedingte Ausgabe  -----------------------------------------------------------------------------*   v  15  e   ; erkennen ob der Anwender das Ende der Gruppe ausgesucht hat         $     EIF         $     CIF       5  wenn ja - dann suche den Anfang - und markiere alles x     Selection aufheben           B@  C  WordBasic.CharLeft    !     9 
  C@     9   9     9     $     B      $    ' --       	 $    7           %  ' P------  ! d    ! d     $   ' d P    ERR##620   lB@n  7 + Anfang der bedingten ausgabe nicht gefunden he act   k   q   k     ! '       !  ' than   ! .  T  ! d' ed            $   '       l%  ' zludes   Q die Werte aus dem Analyser werden in der rechten (manage grid) spalte dargestellt   OK   lB@n       k      .  new - fill the values into a collection Tablethan]   ]      syncro_input_table  ,! %  ! .  g  !  B@2   o   Werte fr Tabelle   4 1. Wert = Wert fr die Suche in der eigenschaftsbaum------   !  ! .       x    ,  iables  1 2. Wert = Wert fr den Analyser 0100032fdgdsfg(P)    !  ! . g, End  z    ,  rkieru  $ 3. Wert = Typ bsp 01 02 03 11 12 uswtion     !  ! . chenfa  v    ,  hen     ; 4. Wert = Wert fr Rohes Symbol <01dsdcs(sdfdsbhf)[fdgasv]>          !  ! .             ,          v  01    v  02       5. Wert = Description        !  ! .             ,          0 6. Wert = GraficSetting fr Symbole - sonst leer     !  ! .             ,          v  03  e   # 5. Wert = Description   -  Optional          !  ! .             ,          v  11  e         Create the end of the rep Grp      $     E      $    '             (  '              $   '         l%  '          5. Wert = End if Rep - Grp   !  ! .             ,          v  13  e     $     E      $    '             (  '              $   '         l%  '          5. Wert = End if NotNull Grp         !  ! .             ,           6. Wert = End if NotNull Grp         !  ! .         , lsche irgend wie die scheiss klammer hinten         '              $   '       ,          ? 7. Wert = looks if the Blank compression has Alternative REPGRP      !  ! .              ,                   B@  C  WordBasic.CharLeft        !      9 
  C@     9   9     9     $     C      $    '           $    7       
  If Find go back to the begin                 B@  I  WordBasic.CharLeft        !       9 
  C@     9   9     9     $     B      $    '           $    7     D t ich weiss nciht warum hier 8 bentige und weiter oben 9 hatte - keine Ahnung - aber ich muss sagen dass es luft :-)     %  ' P        ! d    ! d     $   ' d     # MsgBox ("das darf nicht passieren")         ERR##619   lB@n  = 5 Anfang der Leertextunterdrckung wurde nicht gefunden      0  k (    X     ,      q   d           ,           go back to selection                 B@  H  WordBasic.CharRight          %  ' P        ! d    ! d     $   ' k @  q 8    B 8. Wert bis n - alle Werte aus dem Bauch der Leertextunterdrckung  E                 diese Werte sind fr die linke - mark grid vorgesehen         inhalt kopiert aus dem     ! markiere alle betroffenen Symbole    select until corresponding eng      ! d    $   '         $ ~   $ ~                     B@  F  WordBasic.CharRight       ! d  <                         B@  H  WordBasic.CharRight      H    >   B   !  WordBasic.ExtendSelection ">"        A      if found the right Symbol then delete the [D:] in the symbol           $     %  '    Fill only Symbols       $     01       $     02      !  ! .             ,        k     ! d    $   '             curEndPos = Selection.End            B@  D  WordBasic.CharRight       * select only BNG - no we have to select all  , WordBasic.SetSelRange selStartPos, selEndPos        ? ActiveDocument.Range(Start:=selStartPos, End:=selEndPos).Select     R CH2007-01-22 using Start and End doesn't work properly in TextBoxes, so use Ranges  B@H          v  15  e     $     E      $    '             (  '              $   '         l%  '          5. Wert = End if NotNull Grp         !  ! .             ,           6. Wert = End if NotNull Grp         !  ! .         , lsche irgend wie die scheiss klammer hinten         '              $   '       ,          ? 7. Wert = looks if the Blank compression has Alternative REPGRP      !  ! .              ,                   B@  C  WordBasic.CharLeft        !      9 
  C@     9   9     9     $     C      $    '           $    7       
  If Find go back to the begin                 B@  I  WordBasic.CharLeft        !       9 
  C@     9   9     9     $     B      $    '           $    7     D t ich weiss nciht warum hier 8 bentige und weiter oben 9 hatte - keine Ahnung - aber ich muss sagen dass es luft :-)     %  ' P        ! d    ! d     $   ' d     # MsgBox ("das darf nicht passieren")         ERR##620   lB@n  = 5 Anfang der Leertextunterdrckung wurde nicht gefunden      X  k P    X     ,      q 0  d (         ,           go back to selection                 B@  H  WordBasic.CharRight          %  ' P        ! d    ! d     $   ' k h  q `  k X   F     .   S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o (       k Attribut e VB_Nam e = "wwi SyncroWo rdWithTree"
'*@     : n&Issue' TechniDa ta AG/Markdorf'IFelix A rdelean  18.09.2002 *-Purpose:Cha0nges ![  2e ]-[S Action]$čforc e declar e variab@le
Op?E xplicit@

Pub  Sub Main@()
  D im set_unhid   chSymbolTyp	eekEchAnalsyser nol%m\edEa1F@VL RPat@h As SngE	chOldCNewoldOnew_lenET	BB'-? MorgDlgObject:  Set D= Basic.D ialogRec@.ToolsssView(FZeniBeaDa"Edit!C urValues  AP  Call !xhowAndH NN.`O	ApUaAW.ScnUpdng"484`r check Wi#QcX@ LibText.'`(0B1a1@In X(Sb., "<"C2W>A' C! funCfa ils some times toul H the whole sBg  'between < & >A%If (<>  0 Or a2 !A) Thca  's	"	  `	Len) > 1	G Move Left Uni t:=wd ra cter, Coun`1, Ex0tend 'JharAGC(" ( CEnda%a!=q*"7I7Mid(@, 2@ :'WA140802$GH ex  sb/ phrase tm`s!
1(
1" 01") a _ap2031"1"15|")y$ 2>J=_ doc_global_vqD ("ERR##60b'r.ert-\i st nicht@ glti`   GoTo 10)\P255))@))			'			ls2r  p'rem@/4mleb  p	`	$+B$(5) - 2)B&g' MO 'AZ' VorbereiGP9yuchFs in rRv01x (yxy y) zu 01@000622i-->t1~uktur yas2q;)P_BBeIn teger '  Positof squpd bPktpO"[_F__cQDcl "]jpŀn Wsis'9"(Descr"D:GraficSZcht>@nna3A@#&BB!?Hoe0ihip};
Group$E811Loס?Q@_GchR`epGrpZ	'q4		`sStart	 q{R@A2 NBegN ToModi$fy[SelNoXZurp 	herchvN?`LBlankABx& PpG
]psey "qU$TY@, 3,  1@W'CH03P0206|spy bhoar ^ja0aG0s  (OSS: 1@37152 06e\'M= 11'fi04si `Js Mq_yE= 1(  R/[#Gtmp;  Integer
   If p os_Brace >Xparen thesis T(hen ltmp =J@ElseTHnd Ifsymbol NMid(new T, 1,e- <1)'V	> 0J	3R{#&	#d'use whole DJ;n	E~Descr InStr( "D:"~Grafic	SZ
'  CH090703 : changeD,  re  only a d5@iption +ena D:A$Y%<XA@, C>၄ 'OrBj&G
&  Szh<as!Õ_e@=B]B  
ë+Ich=:s@NG3+ 62C-- 22B`  	N""1v4@O
x$D!ˉ
f	\<CYwarum ade 5  - weiss nicht#Dx+ 5 A&oldC$s") "A"Bo '  -><01G1 011001EY(G)[RA;D :Augen]>	 `RCSett_C# d|XOD P'-> qOOD5g 'mit einhe R 170,0787 *141,7323OC
  "Er@
t die Z/ MassDj"2T`neG4, /"*_  cAe'` Hi
gib `@urb WerAG
V#
٠Oe p;ErI#`3D }'aL	Br@6?F+zdz	chCdRfCe- &	'阡&	2ߟ'(<P_??pD@sHoeh+}SB[ua.C+ "##" +![cbu g[7 5 ZAnalyseDl= w wiEditTo ols.f_Prea_for_ar(;aT3"UERRNset_do c_global _value ()`''Mar"kp?tes5wist` gltigGoTo 10 Y"OK#@chSeekchs:rn]m'vorbe=n f r WiederungsgruppЊ - 
df( Typa+"11")Ƥv'erke$nn`obr AnwЉ Ud  
eRG	 ausgesuPv haU(I3, U
G'ynn jra 6da qnf0pum#e allesAfSeleca`ufhebev. MoveLeft  Unit:=wdChaPter, Coun08Extp ' WordBasic.With Find@  .Ford	0cFaH.Clearmattin' .Matc<hWnCaA = TruF.HWrawdS8topu `Ser@`q8,ـB"BBV4L .Execute(Tex-, 9):!	"707  e3Lib.check8ng(0 Q}	aP
, (PLen({)` 2~) Uh;;E##618''An%5b6[6Bef'׊  B# *qDq" q4P?TCDB10, 0_lenbK11BR G006(M,S AP_EHS_1022_0*1 `RepOu_a1V1VMUa(K:W-`;/1 C6S:0FREIQ"ESTDF§CVERWU74	CLASS bol = "E STOF" 'o der  doch 0
   ElseIf M id(newT,@ 1, 6)Q :AUFT" ThenR  chSeekSymDS"6N"nd If
&chAnalsPyser Qnw wiEditTo ols.f_Pr epare_for_a ,+(ol|d)? 31ERR	)set__glob al_value (" #602 ") 'Markiertes t ist nich t gltig<  GoTo 1Ej6OK4  sptok - wird erNzt dur collect ions table;
' LBeNxtund rckung -I *
(|!{Type13.E$'erke nnen ob AAnwend(as FeBGrup@ausgesuShatpF(p3, pNGOr C	 ' n ja  - dann An Anfa)F u hmue 
aUsA  'SeX aufheb.Move Left Uni t:=wdCharac^, Co`:= Ext< 'WordBasic.ü  With !Find"  @.Forwa =, F |   .Clear mattinğMatchWholeG@gCas6Tru	WrapwdStop%? }P
n,  2) + "B"; f64q@9.Execute(AxTex@&!
,x 9)tAh  4edwiLib!.checBkrng(0 ~ @F *!,@ (Len()@D2)axÅ#618@T'L^Wiedr1qsg]ef@PKC!eeEselStartPos  ? @Set  RcaC"!a NNBeg$+FToModifyAa0b/A/C.aa _Sb	8'die W!@ws@m}al!I rdin"r&e(m@ge@ grid)a$ltartell@("!!z' bed@r 	A abe ??'95O(a"XXXXIFXy!"CXXXrXoXpXXXXXXHXX .X:\X>@\X#
 SXXXXrdX!XtX1 Xn.XrXXp#620 *X9nAg9XRҪQ X 1 ?Y?YP7W?Y4/?Y?Y;R ?Y(2$?Y*Soof?Y?Y?Y ?Y?Y?Yoc=5YY0Pfill the s in to a 7 T%Dim R3  As Obj1rowK= APveD ocument. Container."s("sy ncro_input_").Rows.RemAll1 'ofrPkB'1.p@ 5qSpe2_ei genschaftsbaum!=cAd2.C0(1QH1 '2Qݒx 0100032f dgdsfg(Pb"__3 bsp 0 1 02 03  11 12 uswll6E4?Roh< 01dsdcs( sdfdsbhf)[asv]>p?60Tc[|01Dx*r눀 '5%
  Descrip tion
   Set row  = R3Tabl e.Rows.Addt d.Cell(1) chs>'6. Wert @Grafic ting  fr Symb ole - so nst leer4+vW;
El seIf (ch!_Type ~"03") Theٙ*'5  G Oal+G)J11
J'>Cr eate the end ofrep GrpG   NewEnd@Group$ mL eft(old,  2) + "E""Mid	4)Len InS tr(1,
', x"("OAI,F A- 1w wiEditTools.f_P3 are_for_ analyser>(	@-Hi< ihf RB-Cg AhI   NN#_ NNBegToModify$Nb ecb`"_.NotNu<ll//
{! \ (:ʏ @ 'lscdirg!ewie d` aiss kl ammer hint~  dL_ cchBlankjiD'ZB7looksUAx
compress has  Alterna tive REPXGRPcJYwhY""Selec .Move U nit:=wdC harac, 0Coun`@FEx "d 'Wo rdBasic.%With1Finb&.F@orward&True#  .Clear`matAMatchWh Fa@Cas	WrapwdSto焠@@er`
 CàCҠ   .Execute(A
Tex"
, 8)Aa '`A go back topbegi3er33e  3H4-45I_ .`eyBRB rqCich weBncihdt ,umBC8  bentig8e u xP3 o)@ 9;ty-  keine Ahnu- abI1muGsa I da es luft :-FJPmarke4Q [Lib). NckMP(0M/a&qh, (QN{)Ѝ2)k'MsgBox ("0prf "nt p ieXrenE Zfs et_doc_g lobal_valueERR##619P'AnTfadpLt`8IerdrckAwurdet8gefe\GGoTo 10JeIf:["XS!4 |`4 '@sYw1WRig0'OZOZ0\OZar#t#
ϠmO#O#n.$L#'%'8pbis n&al0A e aus dem Bau7cr }ash AlinkaA grid dvo0seԾ>  inhalt kop+t- betroffentAtil cor!}pondaengCSeria0lNo$7,D 38WhiP(Val() <|> c'<%t?fz%T	F"<P<= 9In0 4 C ("^>aEcf 
S%`fАdղ8K3n0*le4[D:]#sENN$=ONNC7(ZY5X\5e'FiPonly0n!uנ = "01" Or "02"E@Add
  r ow.Cell( 1) = NNS ymbol|En0d If4NN .SerialNo$ lMid(S election .Text, 7, 3)bWen!'cur vPo>s 51 )Mo veRight  Unit:=wd Character, Coun 1, Ext \0 'WordB`asic..@
['s on ly BNG -  no we have to al&Set M RangeStart b,g1A veDocument.(|:=/).|"CH200 7-01-22 @using  aǀ does n't work proper jin BoxeJs Mo e As,@J
El seIf (ch!CTypeg"1 5") ThenCI~Left (NNBegTo Modify$,  2) + "E."@4ąNew 3GroupLen@InStr(u, "("?
ŚA
- 1wwiEdi tTools.f _Prepare _for_ana`lyser 0 "$@8'5. Wert$ if  NotNull Grp@ @ R3Table.Rows.A6>'lsche irg@ wie d  iss klammer hin@ȱColdY ($%chBlank@9 ,  A)DFk7loo4ks!&t`
compress``ms AlxnatinREPGRP_*I""Cg!aandu% With Fi  .Forward&True#Clear`0mattvMa tchWhole3AFanCasn	WrapwdStoOuer`
  a:]oCo9%n   .Executef(A
:=
,x 8)A(c'`A go backa=begiD3a%3H4-455_6v7 8B/8B 19d9  0'ichoBncfi@v,umBC8 bentin"ufwei: o@ 9;ttes keine Ahnui- abI1muGsa I da es luft :-FP J marke4 [Lib). NckM4(0QJ/߇@0, ( L\)2)ko'Msg@t ("C0prf nt p ierenUi`$ Zfset_ doc_glob al_valueERR##62B0Pu'AnfЄ rdpLef00e@rdrckAwurdetgefuxGGoTo 10J!kGB["XS4Z |`@ '@`@d#t# QO#O#L#210:Ame`pyg'- r@t1 (b hrib _r72OpQsVi ew orgDl	O vs BeaBApplic|pScree0nUpd PA= l?Sub                                                                                                                                                                                                                  _ _ S R P _ 3 5                                                  ;   >                                       
  g       w w i W i z a r d                                                x   +                                       ~  h      _ _ S R P _ 3 6                                                                                        R      _ _ S R P _ 3 7                                                     `                                         &      * # a  * \ R 1 * # f b  * \ R 1 * # e 4  * \ R 1 * # e 8  * \ R 1 * # a 4  * \ R 1 * # 1 e  * \ R 1 * # e 7  * \ R 1 * # e b  * \ R 1 * # d 4  * \ R 1 * # e 5  * \ R 1 * # e 9  * \ R 1 * # 2 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 rU              ~|         	       	     5      4    G   !                  I      	      Y      J            	      !     YB      I2      2      	      Y      y                              R            2            9                  q      I            )      	-      A            a            B            .      G                  њ            )      Y                  ٛ      	      1      B            a                  ٜ            9C      aC      C      YS      S      C      y      YH            &      "                  '  %     5f%  $ @  W B  46   5f%  $ @  W B  46  -	@  $ @  W   5 -	@  $ @  W   5 
       $      (  	  D,5 ;     $ <   
 l     i/ ;     $ <   
 l     i/ %(  ]<(  ]<4 .  $ <   
 lJ   /2 <t    (      $ <  
 6  ): N  $ <  
 5   $  $ <   
 >1 &(    M@
  \5 i\: ]<\: ]<'\:x ]<d'T\:D ]<4'$\: ]<'\: ]<'    1/ m%  (  lJ   2    1/ m%  o  $ <   
   $ <   
 lJ   i   >F
  `1/) 6   6\: ]/\: ]/\:x ]/dTW $   M@
  `15    l     p    l     p k k  kkX kpRb  kpR  .kRD   M@
  `16  k  .kD   M@
  `16  k  .kD   M@
  `16   lC     l     p    l     p k k     l     p kk 4kkDkM@
  `16    C  kp )M@   M@
  `15  k  kp 0( kM@
  :x ]36 I  C 0( kM@
  :x ]36   C  kl     p k  kl     p k  kl     p  .kkDkM@
  `16  lC  kl     p k W kl     p  .kkDkM@
  `16  4kkDkM@
  `16  l  *#l*1/    l!  1 1(    M@
  :x" ]36 * l  1/ m%  #   1/ lF L lF < \: ]3 1(    M@
  :x$ ]36 
 <t    (      $ <  
 6  $  $ <   
 QL  L, %  
L %   L` %  LH %      L %  S   M@
&  :' '   Mx@d
  dT`1`6
 dT y	   `M@
&  z'|''''''''$'4'T'd''L % kz6 dT4$|
 (  	  D,5 o  $ <   
   $ <   
 lJ   i   >F
  `1/) 6 
  (   1/ m%  cL  $
   M@
  `15    l     q 1(    M@
  :x) ]36 I .l   i   M@
  L5R 1(    M@
  :x* ]36  :+  LR 1(    M@
  :x, ]36  :-  LR 1(    M@
  :x. ]36  :/  LR 1(    M@
  :x0 ]36 E :1  LR  :  L  l!  F< 1(    M@
  :x" ]36  2   1/ m%  #   1/ \: ]3/ d(    M@
  :x3 ]/(d    MD@T
  T:4 ]/4$6 dTF <t    (      $ <  
 6  $  $ <   
 Qt  t, %  
t %   t` %  tH %      t %  S   M@
&  :' '   Mx@d
  dT`1`6
 dT y	   `M@
&  z'|''''''''$'4'T'd''t % kz6 dT4$|% (  	  D,5 o  $ <   
   $ <   
 lJ   i   >F
  `1/) 6 <  (   1/ m%  ct  $t  $ <  , 
 ltq $t  $ <  4 
 ltq| $  $ <   
 Qx $  $ <   
 >1t 3ltJ   i   tM@
  `1l6  ll!  F< #   1/ \: ]3 d(    M@
  :x5 ]/(d    MD@T
  T:6 ]/4$6 dT <t    (      $ <  
 6  $  $ <   
 Qp  p, %  
p %   p` %  pH %      p %  S   M@
&  :' '   Mx@d
  dT`1`6
 dT y	   `M@
&  z'|''''''''$'4'T'd''p % kz6 dT4$| (  	  D,5 o  $ <   
   $ <   
 lJ   i   >F
  `1/) 6   7   1/ m%  cp  $t  $ <  , 
 ltq $t  $ <  4 
 ltq| $  $ <   
 Qx $  $ <   
 >1t 3ltJ   i   tM@
  `1l6  ll!  F< #   1/  F:8 %  $ 4  9 :  A; 4l) 6  lW< =   5 lW< A> 4h6  ( %Lh?   lW< A> 4h6  ( %<h?   lW< A> 4h6  ( %\h?   lW< A> 4h6  ( %lFx%h?   %\: ]/\: ]/U lW< A> 4h6  ( %lFx%h?   lW< A> 4h6  ( %lFx%h?  k% \: ]3 lW< A> 4h6  ( %lFx%h?  k% \: ]3 S   M@
&  :@ '   Mx@d
  dT`16
 dT    l     q 2l   i   M@
  `16  l!  1 lW< A> 4h6  ( %lFx%h?  k% \: ]3n S   lM@
&  :@ '   lMx@d
  dT`1p6
 dT    lp     q 2l   i   pM@
  `1p6  lp!  1p lW< A> 4h6  ( %lpFx%h?   lW< A> 4h6  
lJpZ #kZM@
&  `1T5 ( %lTFx%h?   lW< A> 4h6  ( %:x %h?   <t    (      $ <  
 6  $  $ <   
 Qd d, %  
d %   d` %  dH %      d %  S   M@
&  :A '   Mx@d
  dT`1`6
 dT y   `M@
&  z'|''''''''$'4'T'd''d % kz6 dT4$| <t    (      $ <  
 6  $  $ <   
 Q`  `, %  
` %   `` %  `H %      ` %  S   M@
&  :' '   Mx@d
  dT`1`6
 dT y   `M@
&  z'|''''''''$'4'T'd''` % kz6 dT4$|l (  	  D,5 o  $ <   
   $ <   
 lJ   i   >F
  `1/) 6   B   1/ m%  ( %:xC %h?   c`  ( %:x %h?   <t    (      $ <   
 6  (  	  D,5 o  $ <   
   $ <   
 lJ   i   >F
  `1/) 6   cd F  $ <   
 (    >F
  `1h6  ld
D  tXlh
D  oX% <t    (      $ <   
 6  <     $ <   
 l         / <t    (      $ <   
 6  + ): N  $ <  
 5 n  $ <    $ <   
 lJ   i   Qo
  `ǼE  1\2 6  d(    \M@
  :x ]/(d    \MD@T
  T: ]/4$6 dT lW< A> 4h6  ( %l\Fx%h?    F  $ <   
 (    >F
  `1d6   <t    (      $ <   
 6  
x|F k% \: ]3k% S   lM@
&  :@ '   lMx@d
  dT`1p6
 dT    lp     q 2l   i   pM@
  `1p6  lp!  1p lW< A> 4h6  ( %lpFx%h?   lW< A> 4h6  
lJpZ #kZM@
&  `1T5 ( %lTFx%h?   lW< A> 4h6  ( %:x %h?   <t    (      $ <  
 6  $  $ <   
 QT T, %  
T %   T` %  TH %      T %  S   M@
&  :A '   Mx@d
  dT`1`6
 dT y   `M@
&  z'|''''''''$'4'T'd''T % kz6 dT4$|$ <t    (      $ <  
 6  $  $ <   
 QP  P, %  
P %   P` %  PH %      P %  S   M@
&  :' '   Mx@d
  dT`1`6
 dT y   `M@
&  z'|''''''''$'4'T'd''P % kz6 dT4$|L$ (  	  D,5 o  $ <   
   $ <   
 lJ   i   >F
  `1/) 6 c$  7   1/ m%  ( %:xC %h?   cPa%  ( %:x %h?   <t    (      $ <   
 6  (  	  D,5 o  $ <   
   $ <   
 lJ   i   >F
  `1/) 6   cT   
c=F x #	@  $ @     #	@  $ @       $             ,%                )     L t p d ` T P  < L   \ t    x   , d  p    h  `   \ l  l T   l  h X                 d T 4 $        |  m%
     k                                                                                                                0  * \ R 0 * # 1 0 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d $ * \ R f f f f * 1 B 4 9 1 d 9 5 e d  * \ R 1 * # e 2  * \ R 1 * # 2 b $ * \ R f f f f * 1 6 4 9 1 d 9 5 e d  * \ R 1 * # 1 0 7  * \ R 1 * # 1 0 6  * \ R 0 * # 1 b  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # 1 2 9 $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b  * \ R 1 * # 5 d                                                             	      	 J        	    P    	 <   p    	        	         	        	        	 <       	    8   	 J   @   	      	              	      	       ,                  	      	 L     "   h   	      	          p   	      	 Z   x   " 7    " 7      - (    - @   	      
  X   
  h   	 Z   x   	      	          2    R       p      x   	              $    	      (      	 x   X                   	      	 8      	 x   0   	       	 
                                    d                                                                                                                                                                                                                                   ,#       ()  T         Xe                                                                                        x                                       ME                          8   (L    >
    L       *L  
 *L    L             *L   *L    L              L    L    L    L    L                 
    
    L         
    L    L    L    L    L    L        L    
    
    L    
    L             <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <                 %   0     D          %   4(lP       %   @p	               `              Hk   7 7      `Rx      `t	      `,	          `              Ho  ""L     `x	         `t	     ****@d     ****``     ****`\      fo`8  X     	  @H     glob@P  8         @(       `  $         `            `         `(           `@           `         `         `         `           `           `            `            @           @         `           Ph           `         ``           P            @           P           `X         `     ERR#`       3 Wi`       iner`0       erde`       `      ; `H         `                       %   `h         `  ~       R`   x	       `  0	       @$  (     q If@&8        1 O@(       tion@J       mber@Lx  x     dSym60    `              0k  " " n    `x	      to `0	     ableN    `              o        `x	      -1 `t	      = 2`p     OldS  l       El  %   R    `              o  ) )     `x	     ----`t	     ----  p`        s  %   `l     arki  `              k                      @           8        @        P       @          X      0                             X      0                     	  @   	  p	      @	  `        @	  P        @	  @     (   @ 
  0        @
          @        @H
       (   @0
          @x
          @`
       (   @
          @
          @
          @
       (   @
          @   x        @  h     (   @8  X        @h  H        @P  8        @  (     (   @          @          @       (   @          @          @          @@       (   @(          @p          @X       (   @  x        @h        @  X       @H     H  `         p  0  P    x          H        p          X            4(P,b   @  t	     @   @  d        @  T        @  D        @  4        @  ,	        @        @@           X    D       @        ?h  @  D 	   @  i      X  B 6~N   @  	        @          @  	        @      @       \X 0      @@           X     &@8        p  @     (   x  $ &   @          @       p   @     X   @        @h  x        @  t	        @(  p	        @@  l	        @h	         @  d_	           X           X   / @  b                    @`/                          @  \_	         0    068@X         X    	 h  \068:<   @      @  H         @8         0           `        , %       :            `        ( %        ;      0    `         %   P     @      `  H  `         %     0  E        x  `         %     `  J          `         %       O  0        `        %   (    U    @  pHl      (           `        %   P    ] @`           x  8  f @             `  f      @@               f                   `        , %                  `        ( %   @          P  8  `         %   p             h  `         %     P            `         %                 `         %                  `         %   0          (  `        %   X     @h  h           @   @  X           h        @H             	           h  4(      @   @t	     (   @  d        @T        @  D       @4           p      (        X    p  ,  @   @h        @  d	        @`	     (   @  P        @  @        @@  0        @      	 @  	           X    @O	              @        @          @     @     0     h  H  0        0         `    x  ,TVX@   @  h	        @8  d	     (   @  T        @  D        @H  4        @P  $     	 @   	           `  	  @O	      (    	    @     (   @          @        @     	 @h              @	        @     @       8    h  x  \,`bdfh   @P  x	     @   @  t	     (   @  d        @  T        @P	     (   @L        @  <        @  ,        @(          @@          @X          @        @           jlnprtvx   p  z|~     TVX                                              H      `                              X         p                   tVH  * \ R 0 * # 1 c $ * \ R f f f f * 1 A 4 9 1 d 9 5 e d  * \ R 1 * # 1 0 7  * \ R 0 * # 1 9  * \ R 0 * # 1 3  * \ R 1 * # 1 6 6  * \ R 1 * # f a  * \ R 1 * # f 9  * \ R 1 * # 1 5  * \ R 1 	      	      	            	            	      	 Z      	 "   X    #     #    	      
     	 Z      	      	           	      	      	 6      	     "   P   	      	 H   X                                                                               	      	      	      	   	 $    	      H	      P	      X	      `	      h	      p	      x	      	      	      	      	      	      	      	      	      	      	      	      	      	      	      	      	       
   &   
   (   0
   	      	 Z   X
   " 7 
   " 7 
    -     -     	      
  8   
  H   	 Z   X   	               	      	      	 4            
          	      0 F     	      ( P   	 H   p         &         	      	 0        (    & 8     P   	     	 6   h         &         	     	 $            &      0   	     	 $   H     p    &         	     	 $            &          	     	         0    & @    ) X     p   	     
  x   	          
     	     	       	 >      	            	 0        H P     u p   
      /    
          	          	        H    
     	 :   (   	 "   h   	 &      
 +    	     	 &                  0     @   	     	 ~   P   	                          	     	 &       (    	      & 8     P   	       h    % x   
     
          
                         	     
     	     	 N        0    & @     X   "  p                       2 T    2 T      ' X    ' p        ( C              	     	        .    : q 0   : q p   	
     	       2     2      2  8   	     	    p        
     
     	 @           	        2 2 0     h   
  x        	     	       2 2         	           &            0     @     X   	    p                  2 T    2 T      (   ( C @     h   	      '         	          	     	 *            &           (   	     
  @    - P     `     h   
  x    
         0     
     	 (      
 !      (   

 
 8     H     P     h   	 :   p   	     	 &                      	     	 L        X    # h   2     
     &      
     B    
           	    (   	    @     `   	 6   h   	 (      	 B      	 *      	 "   @   	    h   	 $      	            	     	 $      0     
       < < 0      p          	     
      	     	     	 v       	     	       !   	      
 0!   	    8!    / P!   " 6 p!    " !   	      	 .   !   	         !      !      !   	     &  !   &  "   &  @"   	      
  h"    4 x"   	       8 "     "     "     "     "     "    & "      "     #     8#     @#    & H#      X#     x#     #     #    & #      #     #     #      $    & $      $     8$     X$     `$     h$    & x$   
   $   
  $   
  $     $     $   
  $     $     $       %      %     @%     H%   	      4 5 P%   	      	    %    ( %   	      & %     %   	     	    %     &   	     
  &   
  (&   	
     
  0&   
  H&   	 @   `&   	       &   
2 2 &   
  &   
  &   
 ! '   	       0'   	        8'   	     $  @'   	     	     
  h'   	      
  x'   < < '   	      	 "   '    H '   
  (   	 :    (   	 "   `(   0 + (   	     	    (    / (   " 6 (    " )   	      &  ()   &  P)   &  x)   	      
  )    4 )   	       8 )     )     )     *     *     *    &  *      0*     P*     p*     x*    & *      *     *     *     *    & *      *     +     0+     8+    & @+      P+     p+     +     +     +    & +   
   +   
  +   
   ,     ,     ,   
  ,     (,     0,      8,     X,     x,     ,   	      	 .   ,   4 5 ,   	         ,      ,   	         -   	     	    -    (  -   	       @-    & P-     h-     -     -     -   	    -     -     -     -   2 T .   2 T @.     x.   ( C .     .   	      ' .     .     .   	       /   	       /   	     	     /    & 8/     P/     h/     /    ! /   	 (   /    % /     /   	     	 &   0     80     H0     `0   	      	 0   h0     0    # 0     0     0    & 0     0   	     	      (   1    % (1   
  @1     H1   
2 2 P1     1     1   
2 2 1   
  1     1   	     
  1   	       1   	          2   	       2   	          2   	      	 Z   (2   	 "   2    # 2    # 2   	      
  2   	 Z   2   	        @3   	 Z   H3   	    3   	 (   3   	    3   	    3   	 Z   3  "   H4   	      	 Z   P4   " 7 4   " 7 4    -  5    - 5   	      
  05   
  @5   	 Z   P5   	      	      	      	      	      	      	      	      	      	 Z   5   	 "   6    # 86    # H6   	      
  X6   	 Z   h6   	      	        6   	      	      	      	     "   6      6      6      6      6   	      	 ,   6     (7   
  87     H7   	     2 F P7     7   	      / 7   
  7     7    1 7    $ 7     7   $ 8 8     08   
  88     H8     P8   	      	     
  X8     h8   	     "   p8      x8      8      8      8   	      4 F 8     8   	      / 8   
  8     9    1 9    $ (9     89   $ 8 P9     x9   
  9     9     9   
  9   	     	    9     9    h 9   . q  :   	     	    0:     H:    h `:   . q :   	     	    :     :    h :   . q  ;   	     	 F   0;     x;   	      	     "   ;   	        ;   ( p ;   ( p ;   ( p ;   ( p <   ( p 0<   ( p X<   ( p <   ( p <   ( p <   ( p <   ( p  =   ( p H=   ( p p=   ( p =   ( p =   ( p =   ( p >   ( p 8>   ( p `>   ( p >   ( p >   ( p >   ( p  ?   ( p (?   ( p P?   ( p x?   ( p ?   ( p ?   ( p ?   ( p @   ( p @@   ( p h@   ( p @   ( p @   ( p @   ( p A   ( p 0A   ( p XA   ( p A   ( p A   ( p A   ( p A   ( p  B   ( p HB   ( p pB   ( p B   ( p B   ( p B   ( p C   ( p 8C   ( p `C   ( p C   ( p C   ( p C   ( p  D   ( p (D   ( p PD   ( p xD   ( p D   ( p D   ( p D   ( p E   ( p @E   ( p hE   ( p E   ( p E   ( p E   ( p F   ( p 0F   ( p XF   ( p F   ( p F   ( p F   ( p F   ( p  G   ( p HG   ( p pG   ( p G   ( p G   ( p G   ( p H   ( p 8H   ( p `H   ( p H   ( p H   ( p H   ( p  I   ( p (I   	     	 ,   PI   	     	 (   I   	 `   I   	 n   J   	 n   xJ   	 h   J   	 h   PK   	 f   K   	 f    L   	 l   L   	 f   L   	 h   `M   	 d   M   	 f   0N   	    N   	         N   	       N   * r N   * r N   * r O   * r HO   * r xO   * r O   * r O   * r P   * r 8P   * r hP   * r P   * r P   * r P   * r (Q   * r XQ   * r Q   * r Q   * r Q   * r R   * r HR   * r xR   * r R   * r R   * r S   * r 8S   * r hS   * r S   * r S   * r S   * r (T   * r XT   * r T   * r T   * r T   * r U   * r HU   * r xU   * r U   * r U   * r V   * r 8V   * r hV   * r V   * r V   * r V   * r (W   * r XW   * r W   * r W   * r W   * r X   * r HX   * r xX   * r X   * r X   * r Y   * r 8Y   * r hY   * r Y   * r Y   * r Y   * r (Z   * r XZ   * r Z   * r Z   * r Z   * r [   * r H[   * r x[   * r [   * r [   * r \   * r 8\   * r h\   * r \   * r \   * r \   * r (]   * r X]   * r ]   * r ]   * r ]   * r ^   * r H^   * r x^   * r ^   * r ^   * r _   	      	 ,   8_   	 (   h_   	 f   _   	 t   _   	 t   p`   	 n   `   	 n   Xa   	 l   a   	 l   8b   	 r   b   	 l    c   	 n   c   	 j    d   	 l   pd   	    d   	     	 P   d       @e   	        He   	      	     Xe     D ********************************************************************  o       Name:       wwiWizard   6    Issue:      TechniData AG/Markdorf - Felix Ardelean 
                Purpose:    07.02.2002               Changes:   P
     6    [ Date ]-[ Name   ]-[Action                       ]              D ********************************************************************  
      force declare variable	  H       Modul globale Variable    ]    +   Collection-Objekt erstellen.   ]   ]      E  first we check if we are allowed to insert the content of the wizard   	 X     ]      S ----------------------------------------------------------------------------------- tansic]    F       ! %  . ung me]    F       ! %  .       ! B@ elle ?    ! B@ befind  4B    einer   (( *     S ----------------------------------------------------------------------------------- ?   A     looks if it is an a Table    %        ookmar  ERR##616   lB@n  1 3 Wizard darf nicht in einer Tabelle eingefgt werden   '    k        %  ' Pe  ;   ! d' R sta      )  6    R    $     01    R    $     02     R    $     03     R    $     11     R    $     13          q If (Len(chOldSymbol) = 1 Or (Selection.Information(wdStartOfRangeRowNumber) <> -1 And Len(chOldSymbol) = 2)) Then   ERR##615   lB@n    k      2 ag1004 condition added to insert symbol into table   q If (Len(chOldSymbol) = 1 Or (Selection.Information(wdStartOfRangeRowNumber) <> -1 And Len(chOldSymbol) = 2)) Then         chOldSymbol = ""          Else       OK   lB@n     F     S -----------------------------------------------------------------------------------           set old document attributes marki    B@ `    B@    (( * marki  S -----------------------------------------------------------------------------------       o      0  we insert the selected things in the Wizardgrid          B  local variables -------------------------------------------------]    ] 8  ] P  ] h  ]   ]   ]   ]   ]   ]   ]   ] (  ] @  ] X  ] p  ]      Dim chSymbolNextTime As String    ]   ]   ]   ]   ]    ]   ] 0  ] H  ] `  ] x  ]   ]   ]   ]   ]   ]   ]    ] 8  ] P  ] h  ]   ]   ]   ]   ]      for the above collection  ]       as counter for collection   S -----------------------------------------------------------------------------------       ]   F       ! %  .       ] 0  F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------       '   '     -  delete the selected area in the wordtemplate       P     B@X        k      wizard_output_table   ,! %  ! .         !  !          A Wert 1 =  Phrase of Header of the Wizard - ESTCAT 'Empty or value                !  %  .     %  '         ) Wert 2 = As Table number of columns or ''      e          !  %  .     %  '         / Wert 3 = Repgrp anfang und ende mit ## getrennt        e          !  %  .     %  '          Wert 4 = Formatvorlage Header          e          !  %  .     %  '          Wert 5 = Formatvorlage Symbol          e          !  %  .     %  '          Wert 6 = Formatvorlage Phrase          e          !  %  .     %  '          Wert 7 = Trenner       e          !  %  .     %  $ b ' k                 p     B@            Weiter2:    8  Ende der Vorbereitung. Start to fill the Wizard content      Bezeichner fr den Kopf               ) get the Formatvorlage of the Headerphrase     p_Result  ,% < ( L    $    ,%  !   (   BB@             ! (   B@         k 8            normal   Fill the Repgrp       p_Result  ,% < ( L    B@           4     Call wwiLibText.InsertText(" ", Verb, colour, 1)              Selection.TypeParagraph            Delete paragraph inserted by RG    B@>            chTrenner = GetDocVar("WIZ_SEP")    WIZ_WIDTHLFTCOL $ 6 '     WIZ_WIDTHSEPCOL $ 6 '     $ ~ '     $ ~ '      w -----------------------------------------------------------------------------------------------------------------------   '      '    '  '          Fill the Phrases and Symbols           !  !             !  %  .     %  '                               '    '   d X   '   k H  d @  '   k 0              H Insert a blank compression (Leertextunterdrckung) for the Symbol with +       '        !  %  .     %  '         <13BNG000(+:     )> '        
 <13ENG000>'         NGROUP  N% 6 '   $ $ '     $ $ '       $            	   $   '           $            	   $   '           $   '         $   '       $ ~    '       000   $ & $ $    $  '   NGROUP    NB (        B           Insert Table              B@          
             %   ! % 
 B@          
             %   ! % 
 B@           set styles         $        %   ! % 
 ! ! (         $        %   ! % 
 ! ! (         $        %   ! % 
 ! ! (          Insert Phrase                  <      >  '        B          9          Call wwiLibText.InsertText(" ", Verb, colour, 1) k      Insert Trenner / Separator        B@  0  WordBasic.NextCell                      B@. k p     Insert Rep Discret Group          B@  0  WordBasic.NextCell      k        '        !  %  .     %  '           X       <11BRG000(D)> '    
 <11ERG000>'         	 insert it   NGROUP  N% 6 '   $ $ '     $ $ '       $            	   $   '           $            	   $   '         $ ~    '       000   $ & $ $    $  '   NGROUP    NB (     $   '            B        k H    $ and last but not least insert symbol           '        !  %  .     %  '         <      >  '                 B@ d     !    
             '        B               B@.  (   insert Blank in between      
 ! empty collection in reverse order       !               B@              k          B        k     4     Call wwiLibText.InsertText(" ", Verb, colour, 1)           Insert the end of Discret Group      X            B        k     F  Ermitteln ob die nchste Phrases existiert und ob ende erreicht wurde         '       !  ! 
        !    
   &   chSymbolNextTime <> "" Then                      B@.  (   Insert Blank     '     $        B        k      bHavePhrase = True   chPhraseTemp = "end"      d      /         Set row = R3Table.Rows.Item(iPhraseRow)      "         chPhraseTemp = row.Cell(1)   ;         'wenn nein, dann springe nicht aus der SymbolSpalte          $         If (chPhraseTemp <> "") Then                    bHavePhrase = True                  Else                    bHavePhrase = False                 End If    k 8            if bHavePhrase = True and      !       $  chSymbolNextTime = "" Then  B@                   B@  H  WordBasic.CharRight            B        k p                o  ------------------------------------------ TABLE -------------------------------------------------------------   d     insert a Table   '    Insert Table              B@                      B@           B@"     ( get the HEAD Tablesettings from ini File  ] H  ] `  ] x    WIZ_HEADLNTYPE$ 6 ' $ 4  = 1     WIZ_HEADLNWDTH$ 6 ' & 4  = 4     WIZ_SHADEHEAD $ 6 ' ( 6  = 1     B@          $    (           %         5     (9 * 2  wdTextureNone       \9 ,  \9 .q     07       $9 2 $  wdLineStyleSingle   &9 4 $  wdLineWidth025pt    \9 Zq     67       $9 2 $  wdLineStyleSingle   &9 4 $  wdLineWidth025pt    \9 Zq X    87       $9 2 $  wdLineStyleSingle   &9 4 $  wdLineWidth025pt    \9 Zq     :7       $9 2 $  wdLineStyleSingle   &9 4 $  wdLineWidth025pt    \9 Zq       
        <7       $9 2 &  wdLineStyleSingle   &9 4 &  wdLineWidth025pt    \9 Zq (  k     5 ( >      q     p   $9 @ /  wdLineStyleSingle   &9 B /  wdLineWidth025pt    \9 Dq     H      B@F  3  WordBasic.StartOfRow       insert phrases            !  !             !  %  .     %  '          Insert Phrase                           '     <      >  '        B           :           Call wwiLibText.InsertText(" ", Verb, colour, 1)d X          B@  2  WordBasic.NextCell        <      >  '        B                    B      k   k        '    Trenner + symnol                 B@                   B@  D  WordBasic.CharRight        insert Repgrp begin and end           p_Result  ,% < ( L    B@           4     Call wwiLibText.InsertText(" ", Verb, colour, 1)              Selection.TypeParagraph         B@>       Delete paragraph inserted by RG   insert table              B@                      B@           B@"     WIZ_DATALNTYPE$ 6 ' $ 4  = 1     WIZ_DATALNWDTH$ 6 ' & 4  = 4     WIZ_SHADEDATA $ 6 ' ( 6  = 1     B@          $    (           %         5     (9 * 2  wdTextureNone       \9 ,  \9 .q     07       $9 2 $  wdLineStyleSingle   &9 4 $  wdLineWidth025pt    \9 Zq     67       $9 2 $  wdLineStyleSingle   &9 4 $  wdLineWidth025pt    \9 Zq      87       $9 2 $  wdLineStyleSingle   &9 4 $  wdLineWidth025pt    \9 Zq     :7       $9 2 $  wdLineStyleSingle   &9 4 $  wdLineWidth025pt    \9 Zq `      
        <7       $9 2 &  wdLineStyleSingle   &9 4 &  wdLineWidth025pt    \9 Zq   k    5 ( >      q     p   $9 @ /  wdLineStyleSingle   &9 B /  wdLineWidth025pt    \9 Dq x    ( get the HEAD Tablesettings from ini File    H      B@F  3  WordBasic.StartOfRow    ]   ]   '      insert Symbols            !  !             '        !  %  .     %  '           X       <11BRG000(D)> '    
 <11ERG000>'         	 insert it   NGROUP  N% 6 '   $ $ '     $ $ '       $            	   $   '           $            	   $   '         $ ~    '       000   $ & $ $    $  '   NGROUP    NB (     $   '       '        B        k        '      insert Symbol          !  %  .     %  '         <      >  '        B                    B        ! determine if the first has a flag   
   !  %  .     %  ' L           Insert the end of Discret Group      X            B        k     ) determine if the next symbol has a Phrase      '       !  ! 
       8  k 0       !  %  .     %  ' J        J  X    !  erste phrase (unten)     L         '   d           B@  2  WordBasic.NextCell      k p  d h          B@  2  WordBasic.NextCell      '   k               k  	  table        OK   lB@n        F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o      T  -----------------------------------------------------------------------------------                !  Insert Symbol from Symbol Wizard                  T  -----------------------------------------------------------------------------------            S -----------------------------------------------------------------------------------       ]    F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------         S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o 0	  0    ] p  ]   ]   ]     & only one time - looks if it has entrys      !        B@        k      wizard_sym_input_table  ,! %  ! .         !  B@2           ,!           ! P         8     ! $  '         !         !  ! .           ##    !      ,      d     B@&        k   k               o       ]   ] 0  ] H  ] h     wizard_head_input_table   ,! %  ! .       !  B@2           ,!           ! P              ! $  '         !         !  ! .           ##    !      ,      d     B@&        k h  k `                 berschrift 1        !  ! .         T  ,%  ! $  '         ##   T  ,%  !      ,       berschrift 2        !  ! .         V  ,%  ! $  '         ##   V  ,%  !      ,       berschrift 3        !  ! .         X  ,%  ! $  '         ##   X  ,%  !      ,      @ vergesse nicht die doppelten Eintrge zu lschen - in ABAP bitte  o        Zp    \   \  ,%  !  ^  B@   `   `  ,%  !  ^  B@   b   b  ,%  !  ^  B@   d   d  ,%  !  ^  B@   f   f  ,%  !  ^  B@   h   h  ,%  !  ^  B@   j   j  ,%  !  ^  B@   l   l  ,%  !  ^  B@   n   n  ,%  !  ^  B@   p   p  ,%  !  ^  B@   r   r  ,%  !  ^  B@   t   t  ,%  !  ^  B@   v   v  ,%  !  ^  B@   x   x  ,%  !  ^  B@   z   z  ,%  !  ^  B@   |   |  ,%  !  ^  B@   ~   ~  ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@   T   T  ,%  !  ^  B@   V   V  ,%  !  ^  B@   X   X  ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@          ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@        ,%  !  ^  B@    &  2000 und XP haben neue Konstanten :-(       ! If Application.Version > "8" Then    Z  GetStyleNoByName.Add Item:=wdStyleTOC9, Key:=ActiveDocument.Styles(wdStyleTOC9).NameLocal   h  GetStyleNoByName.Add Item:=wdStyleHtmlAcronym, Key:=ActiveDocument.Styles(wdStyleHtmlAcronym).NameLocal     h  GetStyleNoByName.Add Item:=wdStyleHtmlAddress, Key:=ActiveDocument.Styles(wdStyleHtmlAddress).NameLocal     b  GetStyleNoByName.Add Item:=wdStyleHtmlCite, Key:=ActiveDocument.Styles(wdStyleHtmlCite).NameLocal   b  GetStyleNoByName.Add Item:=wdStyleHtmlCode, Key:=ActiveDocument.Styles(wdStyleHtmlCode).NameLocal   `  GetStyleNoByName.Add Item:=wdStyleHtmlDfn, Key:=ActiveDocument.Styles(wdStyleHtmlDfn).NameLocal     `  GetStyleNoByName.Add Item:=wdStyleHtmlKbd, Key:=ActiveDocument.Styles(wdStyleHtmlKbd).NameLocal     f  GetStyleNoByName.Add Item:=wdStyleHtmlNormal, Key:=ActiveDocument.Styles(wdStyleHtmlNormal).NameLocal       `  GetStyleNoByName.Add Item:=wdStyleHtmlPre, Key:=ActiveDocument.Styles(wdStyleHtmlPre).NameLocal     b  GetStyleNoByName.Add Item:=wdStyleHtmlSamp, Key:=ActiveDocument.Styles(wdStyleHtmlSamp).NameLocal   ^  GetStyleNoByName.Add Item:=wdStyleHtmlTt, Key:=ActiveDocument.Styles(wdStyleHtmlTt).NameLocal       `  GetStyleNoByName.Add Item:=wdStyleHtmlVar, Key:=ActiveDocument.Styles(wdStyleHtmlVar).NameLocal      End If     ZP1   H1    \  ,%  !    \X  ^  B@         `  ,%  !    `X  ^  B@         b  ,%  !    bX  ^  B@         d  ,%  !    dX  ^  B@         f  ,%  !    fX  ^  B@         h  ,%  !    hX  ^  B@         j  ,%  !    jX  ^  B@         l  ,%  !    lX  ^  B@         n  ,%  !    nX  ^  B@         p  ,%  !    pX  ^  B@         r  ,%  !    rX  ^  B@         t  ,%  !    tX  ^  B@         v  ,%  !    vX  ^  B@         x  ,%  !    xX  ^  B@         z  ,%  !    zX  ^  B@         |  ,%  !    |X  ^  B@         ~  ,%  !    ~X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@         T  ,%  !    TX  ^  B@         V  ,%  !    VX  ^  B@         X  ,%  !    XX  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@            ,%  !     X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@           ,%  !    X  ^  B@          &  2000 und XP haben neue Konstanten :-(       ! If Application.Version > "8" Then    `  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleTOC9).NameLocal, Key:=CStr(wdStyleTOC9)     n  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlAcronym).NameLocal, Key:=CStr(wdStyleHtmlAcronym)       n  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlAddress).NameLocal, Key:=CStr(wdStyleHtmlAddress)       h  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlCite).NameLocal, Key:=CStr(wdStyleHtmlCite)     h  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlCode).NameLocal, Key:=CStr(wdStyleHtmlCode)     f  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlDfn).NameLocal, Key:=CStr(wdStyleHtmlDfn)       f  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlKbd).NameLocal, Key:=CStr(wdStyleHtmlKbd)       l  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlNormal).NameLocal, Key:=CStr(wdStyleHtmlNormal)         f  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlPre).NameLocal, Key:=CStr(wdStyleHtmlPre)       h  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlSamp).NameLocal, Key:=CStr(wdStyleHtmlSamp)     d  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlTt).NameLocal, Key:=CStr(wdStyleHtmlTt)         f  GetStyleNameByNo.Add Item:=ActiveDocument.Styles(wdStyleHtmlVar).NameLocal, Key:=CStr(wdStyleHtmlVar)        End If      I MsgBox GetStyleNoByName(ActiveDocument.Styles(wdStyleHeading3).NameLocal)    o        Attribut e VB_Nam e = "wwi Wizard"`

'*@     :  IssueTe chniData  AG/Mark dorf - F elix Ard`elean 8;P urpos=07 .02.2002Changes:,[  Xe ]-[ E ActionK]$C%force d eclare v ariable
OpBExplicitMod ul globalц Dim  GetStyleNoByAs  New Coll
eh'-Obj ekt erste n.
Y o 
m@ce"d& fi w e check if4allo wed to i nsert th@	ontent ofw
Sub C()
6chOld@Symbol"S	@ng  '-? M 7AorgDlgAJct: Se ,C= Wo rdBasic. DialogRec@.ToolsCosView(FPalse@3 BeaD"Edit!CurValues  26[ #,C7 sShowAnd Hide.setS	ApSaaU. ScreenUpdng`"484g looksMit is @an a T#hIf (SelI nfo(13)  <> -1) The 7A _doc_l_v* ("ERR# #616") 'á danich n einerA!igefgt` GoT o 10
End If+g %+ LibText.ging(0F_=@Py. (Mid(, 2@ ) "01`Or _1  9j2?2c
3?#1] $`
e2'aLLenI1  (K@9.!:rmO( wdStartOfRRowNuPmber= @W 0
2)ea0?A#A$5"Bz  :'a g1004 coFn`uaadd*s郙intUf'K"`~|'EK%1 ?1OK
10pu?_=r G old 0:umdaEs?<xX?P?[IOMMTruPzhaBp 'tss@ct1%hpBPnbt1IgriBy M(aint'Rcal6s 9yR32Vqro
wOichRepGrp!StrHeader@PhrasechAs&iFo!@D0FpTrenq[ 	Left
1|chV chc5TemDisstREP|ch`p'NcTii`RIgerf
2 E!Verbcolouch	p!HGroup$ߥq_p/B3bIsEntire"rgno "qchL@cchBlank CompBegin?a:ohRcp$%k bHave=FQ dW1QDouBƃr2nP%%so&!(QVQp'À"IabovU9iCP" 'as su(r "PVJffjdki`k?@_nnCٶ all wwiS howAndHi de.setDl g
  App lication .ScreenUpd 8ng =  False'-O W  bHa vePhrase tTrusbFi@rstTim
.' dele te the s 
cted ar ea inwo rdtemplatJIf marBkThen!  S{Type BackspacEnd If6 Set R3TablCActiv eDocumen t.Container.s(" wizard_output_t");For is1 To- .Rows 'unt  'Wer(t 1  of  Header |W5 - E STCAT 'E mpty .vazl  c5>>tp row D6IL(i)   chf.CelXl(1)2@As Inumb)columnsA$t''E c?2 b$AsC=0-G#   I$36ep grp anfa utende  mit ## g`etren[%3a%RepG %4%matvorlagetG40!.iC\"5.SyPmbol.5?s~.,G$ 
F46M6W-J7 T!Ber7	
im( $l%Next ia On ErryRes  .Fill _internalC
`i2:' e  r Vor sei tung. Sta to fcBezeich@ frn Kop`BL<> ""h%'l"k^Up¾`ѫVariIp_ lt`V*kgstySs(Get"NameByNDo(jg)).Locaa.Ins3 cI.M-Paragraph.Align`wdFLef?Cch, norm'aB".*lGLDefnRGroup'!+BCdLibT+. (" ", @Verb, 0`our, !cbB' DPy}p}q{by RGc7SS 'ch7pzp$("WI@Z_SEP"7cbh1Col\W IDTHLFTCOLMid pdW{*(vtrc;_  bIsEnptireEvрL%`t$""Newas!y #`H/1 F*4s zd bgs 4b8/no&eߌ*ch iSA-R6L^ 0
8Z  eE]G?  a blank>mpress p (LeR`Ae@rdrck@g) f m with +wiT@i + 2g1?@"4chGchB
C@ompBeg=  "<13BNG000(+:"6+ ")>.7Eirgno$
SQ.E $("NGROUVH<	LTr
J|	IOIv, 6)+ RightOnn)9)OA-P"$@o+ Chr(13?
7
H`._\1*2"P%C!%Str(_)), yt..Ek", BxwQrWWIw n, "")
  p  'In sert TableXWordBasic.`  NumColumns:=3,(Row 1zSe lection.4(1).Ran ge.CellsSetWidth I:=dW 1, Rule rStyle:= _V  wdA djustProHporaal%v2).;27;  A' set s]s%LParag raphFormat.# = GetNameB yNo(iPhrase  o @aw3{S|ym3UĨ;If ch <>A Then = "<" +A+ ">"
C all wwiLibText.hWWIA(E'@" ",  Verb, c olour, 18End If renner /sptor	xMove Un@it:=wdA,@un1%'GN3 'iTG' Aft (ċǊRep@ DiscrbG0roupG?:=<+(Ei@fi`=!~ rowR3b.Item(iFchREP@ M"X"lNBegin"<11BRG000(D)IN&S11E$'ióit  `rgno$ U.DocVar$ ("NGROUP!`LTrimY9@qfeftL, 6)`1c+ RigBhO(LenM - 9)J@)_@+Val(Bab;":$Strb_)), 3((!Ѓ5f5,9'=1,+ Chr(1aΘi*OWlxI'aJl ast but not le *symbox/8?/8/8 ``7[\\:bHaveb= Fal4se:nQCs.pAdd P( E+@% p )Co! W > 0l  z EachVQXx Ing [Temp chqgjsaQ]]j) '  Blank  betwe+u'
tyn4qrevlerPekciCnt To 1 St c-87QRemoQyq	f K,  olJ'~~
'  the end ofqffw > /f	Ermit teln ob  die nchste 4s existiubPrreicht wurd~iC࿐x> *y4[ "%70+2Time9#9B 22s 2E	<H|<t^Aa*p+PTruH'U
")6sOv?\PS
]YF'w0Qid ann spri	 n2%aus dSpalt! [2¬)Xf  _
bc/gifOe 0to-RQd 3R-?L*!E,͵ n.MoveRi ght Unit :=wdChar acter, Coun L1, E`xtendx  'WordBasic.\
  Call ww iLibText .InsertWWI(chBl ankCompEnd, ""):  IfN A i' -&  TABLE(0,<  Else ' ig a TPable VC olNumber = chAs~' "%umns:=E*,Row	1: AutoFo rmat :=%Ber 0,  ShadingH:=0 Hes 'get  the HEAD!/setts from Ci FiADim>@)LineTypGWidthD'3CCch@UGe tDocVar( "WIZ_A%LN@TYPE")B'>=.FBWDTH@4#SHADEJCdSelectBuion.st(yleSNa meByNo(iCoPhrase@aith Gs(1FW.PA.AurD6g 'wddNon6.egrPdPat n@Ro@rIndexwdNcBackA@jnd #DV(wd#Left  .aKB&gM  STt"!A025ptAee?Dc5rderTop/;b/o3Bottom????3f-If> 1 ThenQdV icalHd B4m2	6&2>~.T?"LowFa wG[BOptPTs.DefaultC	B/?kEF*W]StartOf֘ >ޗ `
'pc	\ i8 To( R3c.@s.2S  0ft rItem(i9&chiP.CellheUs0.<> L.u  bFirstTim!lTrue H##f AF"<" ++ ">"_[}'Q qu( " ", :b, colou {'"ֺ`0!aiXog
B !1aAu W@ u-i020' Trenn+ symnolE{ ScAFooool:Repg rp begin\ aАp	AveЮument.0is("p_HResN")Pl 1epGrp'P PRG`p.Mai dB*b'ATP grapDDЮte@:  ped by RGs
S =KtԜѯumLCѯaO"Rы= DATAɲrK@1ɱ <Seڵ lectTable
   Se ion.styl e = GetS(NameByN o(iFormatSym)
`With tsL(1 >  >.Shadingd0.TexturechRowLine$7'wd+Non.  egroundP atternCo lorIndex wdAutopBack%.End\bBorde rs(wdLefts  .ajType   b=S dWid= 025pthw_Righ?0>+?0AD  #0Top_m//Bott~oA<f-If MNumbe r > 1 ThenQdVertical4hd$5he XeoMiAIfe.~Bow Fals䐫$Q Opt@sDefault$?N k .*!'get  the HEADD #etts  from ini FiSta rtOf Uni t:=wd, @ExtendMovAWBas8ic.Dibm@FlaDFXirs#bTimTru2(ins P bo&l$2 i/8 To R3. s.C ī i + 1S "r@JItem(i\chDiscretREP@ .Celli"X"LjBegin"<11B RG000(D)t>"e  %8=Z E'!idargno$wwiLib.~ DocVar$( "NGROUP";LTrim(ketS	@etu, 6f)3+ k.(LenL) - 9)	P|'p	|htkMa
_Val("v$\  2c"@"#CStr2_)), 3Call (,C/"+ Chr(1
 'w	A.I"7WWI Gb, "$EV5:7U,3=Uo9=n9S/9@4"<ch+ "41F3/!" ",B Prb, cur, 'dePm c ifrXfO  has a fQ t  oI10!chU"S9v2V sB@[ Hof $F GpLLKZe!6	n sym]4Phray[_  $`i>`tXGob	e37''|/!Yp  U0 'Pte p (unuq, A  "g  jxqEV A'7|~n,@	:=1'w~N5}////'\3W  CQ
 iG 1 s( 't
 :XEditTo .set _doc_glo bal_valu@e ("OKO
10`'- _r  old Pument ribute 1 lsOption sView or gDlg
   WordBasi c.TooEdit BeaApplica .ScreenUpd ng = TrueH'-O  

End Sub
' Ra',Insert  Symbol fromWizxardAo s=()y  Ӧ   Dim A s Object: SetE= DialogRecJ(False+ËD"ǦCurValues -Call ww iShowAnd Hide.setDƚB> q" ` old  documen t attributes*IN.`?_&)&+nGet_~_Format!pCZR3TableGgZ!hrowtempS'nAc
styl a'only o ne time  - looks if  has 0ry/If  SaNoByNa@me.Cou4= 0 Then
 Y#.Fill _interna8l_t!AIf!a ~= Ac`tiveD@ntainer.s("w_@ put
")
	.Rows.R emoveAll!a   Eachr !Inm""  `.InUse  On E rror ResAU Next! k  "0=%(	a'Localb 	.Number@O	*$a== Ada .Ce`ll(1) B+ "##" +.E e .Clear C5dc !$
YHead_Y,7O+}aPc_.1$$$h1
in$ $$$+$@=$$$7$!Q $9$2$$$ ,u$$B?$ 23I$  '0s chrift 1 6(D(wd )ing1)18/43$4les*62p]J$V@\2w?AP^.	1 3P3EN	1 'verges]nic@ht die0p`pelte@^lr ge zu lF)0- ipcBAP bitt`I7
}OoevcGoTo WeiqPu  I :=D+ BlockQuot, Key:>=?8e.odyTH"B??t2OOEL)ddT3__U"__ FirstIndh__!(L>trApRŲ yleBodyT extInden t).NameL ocal
 GetSt NoBy\.Add Item:=wddz2, Key: =ActiveDPocum .RsV(d;q3/q3-qCaption40losing00omReference"5mDatb4	efaul tParagra@phFont3DEmphasis
ndnHote?CleFxEl?C?-velope res)EnJ?3ReturO#Fo7r?Dle#DlA_DCDkHeade?(_ 5#14le!ar`2?p/wO~uvﲀ4?9t5?????g6??46???g7??47???g8?;?48???g9w??49??:yperlinkO}OH___PFollowedE__YxE_9eEE??:R	_E?EE4D5DD_D?DDCCCG==,LineNumble{sQ̞ ey:=Acti veDocume nt.Styles(wd@Lis t).NameL ocal
 GetdNoBy\ .Add Item:=f2, KU"21]3%]31]4U.4.5.5.Bullet%1fyzf|4f?Cf4Continueeo~eB ?CEC?C?DNumber?Dl?6/6#Cd?5?C*Bv'B*B6?B*AMacroTex/dρe?AMessageHead'yole
N`avPan/Peormal4NInd __StingNoP  C>zlain?-aP__YSalutationzign0atur,,eS__Ztro 9leSubtitlOO<eS??9Ta bleOfFigs__?&!TOC1??Tpoye?0xxw?wv_v667 7)e .NameLoc al
 Get StyleNoBy.Add Item:=wdd TOC8, Ke y:=Activ eDocument.<s(N)
 
' 2000  und XP  haben ne ue Konstant :-(  +If Appl ication.Vers  >  "8" ThenO"9$9W'  HtmlAcro8nym135ddpress&525C8ite
3od'
2Dfn%2
qKbd
NormaleC2Pr_2 AY@_̇!Samp?legeTt_CTtVar?#K@KE IfWe mr:b On  Error GoTo efഠoh:BlockQuotCStrlBodyTexi*?>2\Dl2)~337%(FirstInd`	~/=#$+Bx߅____t//`.#
%yNt&v&Cap%EClosingzD	somqReference
18OOtDatj"e faultPar agraphFon]t_P_1sEmphasis	V`vnote#nd#Oe#meeU~Envelope@qį;tReturnoop___RFoPr4___V#>e#Ule?6$$L eByNo.Ad d Item:= ActiveDo cument.S tyles(wd Header) .NameLoc al, Key: =CStrF
p GetjZ-ing1g%?i24T2)434344U4445b5gJ6b6g7b7)g8b8g9b9?yperlink\?jwFollowe>dBvIndexd|?x"d{|?}|??H}RHtG_G__Y!`@9_- LineNumb?;xstyLiGj!F__TF>???8F>F??8F>F??8BulletS? b	  _!!"""ContinueB}B####u?#>???>#?#e#?4#???e#?4$?9 tyles(wdSListNu mber).Na meLocal,  Key:=CStr
 GetzbByNo. Add Item :=Active Document.L2%n2)Bo3%o374747
5757MacroText[	n MessageH8ead
NavPane[7	ormal~Ind $?{Not6ing7P Dlelain_PvSalutation)ignatu:r<_Swtr>oC aubtitl?6 TableOfFig's5l=TB?TOC1Yz??_W~_~}}66osp77o88
' 200 0 und XP  haben n eue Konstant :-(If ApplicX.Vers Y > "8" Then߰߰߰le099'pHtmlA0nym??__SrddrCit^
2a	RϯodQDf?AKbdANotPKAÏSampRT>!0og m:=Activ eDocumen t.Styles(wd@Html Var).Nam eLocal,  Key:=CStr
'End@ If
  ' MsgBox GetNoBy(eading"3r)
 We:
 Sub
 
                                                                                                                                                                                                                                                                                                                                                                                                                        t6 D4 -x	@t  $ @  tW4   t54 -0	@t  $ @  tW4   t54 
     t  $   t  t #x	@t  $ @  t  t #0	@t  $ @  t  t t  $   t  t       L T,                      0 x           t D 4       h   $$ $ % lh    '  
     F:P\ %`d  $ 4  d `0  A  4x) d`6 0  xW  ]   5  /`d  $ 4  d  Q`[ld'  lL ' k K 1 l( ' >F0   $$  %  `1p6 0  $h^   dd _ lh    dx xW0 A ` 4t6 0  8(P %lpa *#l( ' l*F0%t  2 50  ^   ddH d   l'            <             $            p l t x $            d ` 0     \    F:Tb %dh  $ 4  h d4  A$ 4x) hd6 4$ xW$ ]   5$ /dh  $ 4  h  Qd[ ph' w pL ' kh K 1$p( ' >F4   $$  % $`1l6 4$ $^   hh _ l    hQ xW4 A$` 4t6 4$ 8(T %lla *#p( ' l*F4%t  2 54f  ^   hhH h   p'   xW4 A$` 4t6 4$ h4dh  $ 4  h  d0 & ( ' >F$   $$  % `1l) hd6 4$ q(D %lla *#4dh  $ 4  h  d0 & ( ' l*F$%t  2 ) hd6 4$ xW4 A$` 4t6 4$ h4dh  $ 4  h  d0 & ( ' >F$   $$  % `1l) hd6 4$ q(D %lla *#4dh  $ 4  h  d0 & ( ' l*F$%t  2 ) hd6 4$ xW4 A$` 4t6 4$ h4dh  $ 4  h  d0 & ( ' >F$   $$  % `1l) hd6 4$ q(D %lla *#4dh  $ 4  h  d0 & ( ' l*F$%t  2 ) hd6 4$        \<             $             l p t x ,            h d  4                	  
                                               !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3  M  `  7  8  9  :  ;  E  =  >  ?  @  A  B  C  D  6  F  G  H  I  J  K  L  N  O  P  a  R  S  T  U  V  X  Y  Z  [  \  ]  ^  _  Q    b  c    e  f  g  h  i  s  k  l  m  n  o  p  q  r  d  t  u  w  x  y  z  {  |  }  ~      rU              ~|         	       	     7      6    c   !                  I      	      Y      J            	      )      Q            !     YB      	      Y      y                                                9C      aC      C      1      Q      C      YI      I    6 q      A      y            q      I            я           *            8 	@            Y@      "      9                  0      @      .      -      R      A      I1                  !                  q                              I2      2      &            Y                  a                  9            >      >      ?      	      1      Y                  !            <      q=      Y?      Ѥ      YS      A      A      S      A      A             5f`%p  $ @  pW@ B0  4tp6 @0  5f`%p  $ @  pW@ B0  4,p6 @0 -t	@p  $ @  pW0   p50 -,	@p  $ @  pW0   p50 
     p  $   p  p 2(` %p  $ @  p@	  (]@p5@5 
   1/   (@    DP  5@ $p  $ <  p  >1xp (@    xM`@0
  0: ]/(    xM@
  : ]/(h    xM@X
  X:H ]/8((    xM@
  : ]/(    xM@x
  x:h ]/XH6 @0hXxy    1/      1/  #t	@p  $ @  p  p #,	@p  $ @  p  p p  $   p  p  1     40                     x , t `           p @ 0      h X 8 (      x X H  
 "  ,!     5fd%t  $ @  tWD B4  4xt6 D4  5fd%t  $ @  tWD B4  40t6 D4 -x	@t  $ @  tW4   t54 -0	@t  $ @  tW4   t54 
     t  $   t  t p p   # t  $ <  t( t  F:d %,t  $ 4  t ,D  A4 4x) t,6 D4 ((T dxWD A4 5Dh d(d ]3 &d@xWD B4  4t6 D4 (d %tD  `1\5D d(d ]39 &d@xWD B4  4t6 D4 (d %tD  `1X5D d(d ]3 &d@xWD B4  4t6 D4 (d %tD  `1`5D d(d ]3 &d@xWD B4  4t6 D4 (d %tD  H d(d ]3, &d@xWD B4  4t6 D4 (d %tD  8 d(d ]3| &d@xWD B4  4t6 D4 (d %tD  ( d(d ]3 &d@xWD B4  4t6 D4 )(d %tD  4
  4`1$6 D4  d~ K 
    l\  = Hl\:d! NDD,t  $ 4  t  ,0 " 0 # ) t,5D uDH  $$  % D,t  $ 4  t  ,0 & ( ' >F4  $ <  P  ) t,6 D4 
(    /    ,t  $ <  t  ,8 ) ) t, t  $ <  t$ t  lX  0 Hl`:d! NDD,t  $ 4  t  ,0 " 0 # ) t,5D 
*    +'4'Dt  $ <  t t6 D4 + ,  #+s / - ,  #+s/ n #
.  t/ n#
.  t/ p   C   C  p ((T dxWD A4 5Dh &d@xWD B4  4t6 D4 (d %tD  `15D l  0 %kTd(d ]/D'45T  p  p   p   p  k d(d DUp 5D & @xWD B4  4t6 D4 (d %tD  `15D / l*#0 *1/ 1 C 2 ,  1 Md@D
3  D`15D Md@D
3  D`15D T   Md@D
4  DlFT4lJ	   M@
5  `16 D4 T   Md@D
4  DlFT4lJ	   M@
5  `16 D4 'lFd   D
6  D4`16 D4 'lFd   D
6  D4`16 D4 l
.  kd CD
7  D4
3     :d8 4
5  `16 D4 l2 
9    +  C
:  / .(d %( %t  $ @  t ;  < = t q   o7p   t   ,t  $ <  t  ,| >  ? h @ t\ A p| B ) t,tp q   o7p   t   ,t  $ <  t  ,| >  ? h @ t\ A p| B ) t,tp D(  $$  % Dhlp   t   ,t  $ <  t  ,| >  ? h @ t\ A p B l @ h0 ) ) t,tplh5D D(  $$  % Dhlp   t   ,t  $ <  t  ,| >  ? h @ t\ A p B l @ h0 ) ) t,tplh5D D8  $$  % Dhlp   t   ,t  $ <  t  ,| >  ? h @ t\ A p B l @ h0 ) ) t,tplh5D l  =' C l*#D *1/  +  C
:  /  2(4 D   t  $ <  tX t6 D4 l$  = l$t  $ <  tD t  2(4 D   t  $ <  tX t6 D4  d(d Dd &d@xWD B4  4t6 D4 (d %tD  `15D lE 0 F C G C 2 ,  1 Md@D
3  D`15D Md@D
3  D`15D T   Md@D
4  DlFT4lJ	   M@
5  `16 D4 T   Md@D
4  DlFT4lJ	   M@
5  `16 D4 l
.  kd CD
7  D4
3     :d8 4
5  `16 D4 l2 
9   'lFd   D
6  D4`16 D4  +  C
:  /  d(d Dd &d@xWD B4  4t6 D4 (d %tD  `15D C l*#D *1/ k e -'''4lFdNDD$$   % 6 D4?  $$ $ % l    " V$ rd 
1  +  C
:  / H t  $ <  tD t sd !$$ $ % l~k`" ~Md@$$ ( %  
~e`   +  C
:  /  lE 0i  +  C
:  /  d(d DUp5D #kDd]xWD A4 t6 D4J $$ $ % l    E V$ r\E H t  $ <  tD t 
1 B   D
6   +  CXXlFdD4`
:  2 X6 D4 s\ L   $$ $ % l     t  $ @  tI   t <    (4 D   t  $ <  t  t6 D4  +  C
:  /  d~2   
lXp /@(T %t  $ @  t ;  < = t 6(d %(  %(H  %t  $ @  t
 J  K L M t "(d %t  $ @  tN  t O ,  FD( P ,  FD Q ,  FD t  $ @  tI   t 4D(  $$  % Dt  $ <  tP  t5D 8   ,t  $ <  tT  ,0 R Q) t, t< S Qt  " < T       , T       4 T  c  &,t4 S t U Q,t ("@ V  "H V      4 V  c &,t4 S t U Q,t ("@ V  "H V      4 V  c &,t4 S t U Q,t ("@ V  "H V      4 V  c &,t4 S t U Q,t ("@ V  "H V      4 V  c kU &,t4 S t U Q,t ("@ V  "H V      4 V  c   t4 S tD U t c t  $   Qt ("W  " W      XW  c 54    D
   t  $ <  tP t6 D4 ((T dxWD A4 5Dh[ &d@xWD B4  4t6 D4 (d %tD  `15D l  =< k  p C l*#D *1/  +  C
:  /:  2(4 D   t  $ <  tX t6 D4 C l*#D *1/  +  C
:  / !(D H C
X  /5D   d(d Dd d~! t  $ @  tI   t <    (4 D   t  $ <  t  t6 D4 Hl`:d! NDD,t  $ 4  t  ,0 " 0 # ) t,5D 
*    +'4'Dt  $ <  t t6 D4 /@(T %t  $ @  t ;  < = t 6(d %(  %(H  %t  $ @  t
 J  K L M t "(d %t  $ @  tN  t Y ,  FD( Z ,  FD [ ,  FD t  $ @  tI   t 4D8  $$  % Dt  $ <  tP  t5D 8   ,t  $ <  tT  ,0 R Q) t, t< S Qt "< T      , T      4 T  c &,t4 S t U Q,t ("@ V  "H V      4 V  c &,t4 S t U Q,t ("@ V  "H V      4 V  c &,t4 S t U Q,t ("@ V  "H V      4 V  c &,t4 S t U Q,t ("@ V  "H V      4 V  c k &,t4 S t U Q,t ("@ V  "H V      4 V  c   t4 S tD U t c t  $   Qt ("W  " W      XW  c 54    D
   t  $ <  tP t6 D4 p ((T dxWD A4 hh5DhH  d(d Dd &d@xWD B4  4t6 D4 (d %tD  `15D lE 0h F C G C 2 ,  1 Md@D
3  D`15D Md@D
3  D`15D T   Md@D
4  DlFT4lJ	   M@
5  `16 D4 T   Md@D
4  DlFT4lJ	   M@
5  `16 D4 l
.  kd CD
7  D4
3     :d8 4
5  `16 D4 l2 
9   'lFd   D
6  D4`16 D4 lC  +  C
:  /  d(d Dd &d@xWD B4  4t6 D4 (d %tD  `15D C l*#D *1/  +  C
:  / !(D H C
X  /5D %(d
 %xWD B4  4t6 D4 (d %tD  x lE 0r  +  C
:  /  d(d DUp5D #kDd]xWD A4 t6 D4    &@xWD B4  4t6 D4 (d %tD   :dE ]3h  %kTx:d  ]/D'45T/   pc   2(4 D   t  $ <  tX t6 D4    2(4 D   t  $ <  tX t6 D4 p  d~H\     1/  #x	@t  $ @  t  t #0	@t  $ @  t  t t  $   t  t         4,!(  l            A     d \                           h X H   8 d    \  0   x      $ H  X t  (   ` x (    x  D           X t ,   t p l h D 4     
   T     5fd%t  $ @  tWD B4  4xt6 D4  5fd%t  $ @  tWD B4  40 $  N  M    K& pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, pLPTtx  $ 4  x  t0 & P( ' ''>LF,   $$   % ) xtP6
 T, KM rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T, rLPTtx  $ 4  x  t0 & P( ' ''F>LF,  $$   % ) xtP6
 T,         M$                       0     	     L x t P T ,                       R                                                                                                                                                                                                                                                                                                                                                                                                                                                                        n                                rU              ~|         	       	     9      8    $   !                  I      	      Y      J            	      q            I     YB                  !           R      A            y            y      	      1            .      -      "      A      @      I1            q     A            Z                   5f%  $ @  Wd BT  46 dT  5w w i D e f i n e R G r o u p                                        %                                       <  -      _ _ S R P _ 3 8                                                                                              _ _ S R P _ 3 9                                                  A   G                                       1  k       w w i B o o k m a r k s                                                                               W              $ P
   	       h
   	      * x
   	       
   	     
  
   	       
   	    
   	 "   `   2 T    	     	 |      	 "   @   2 T h   	          	     	 "      ( C         	     	 *       * $ P                       	     	 H      	          	            	      	 Z      	 "   x    #     #    	     
     	 Z      	        0   	     @     D ********************************************************************elleTA       Name:       wwiEDefineRGroup 1    9    Issue:      18-02-98-Amit Goswami BOSHU TECHNICS CORP.           @    Purpose:    adds the repeating group around the selected text     0                Fgt eine Wiederholungsgruppe ein       Changes:           D ********************************************************************  	      force declare variable(   ]       path and name wwi.ini    ]       path language file       0     ] p   ]    ]    ]    ]    ]    ]    ]       name and current number of RG    ] 0      marked text of document  ] H      position in document     ] `  x      begin + end of Repeating group                buffer   ]       colour of symbol delimiters      ]       )  position of begin/end of marking in text   ]        flag, insert hidden new line     ]       flag, hidden text] (      flag, text colour] @      flag, text is marked     ] X  ] p  ]     S -----------------------------------------------------------------------------------       ]   F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------          '    ' 
      \% ^ '  +   path of wwi.INI file             \% ^ ' 
 )   path + name of lang.file     
'  '  /   no hidden new line   !  checking, if marking is in table    %  '               "   end of cell is marked        9 WordBasic.CharLeft 1, 1     'replace word basic functions     marking without end of cell                 B@             e  "   marking is exactly one table       '  "   flag, insert hidden new line            
 e  "   error  ! CH2007-08-30 return error message   4 Meldung: Markieren Sie nur eine Zelle in der Tabelle        ERR##625   lB@n    k       check marking         %  '         &  probleme bei markierten Absatzzeichen         ! !         $       B@         '   k     L CheckMarking function fails sometimes to select the whole string 'between <>        D ****************************************             #         Xu                                                                                        x                                       ME                   L @    >
        
    L    L    L        L    
    L              
    
    L    
    L            <P     <T     <X     <\     <`     <d     <h     <l     <p     <t     <x     <|     <           (     0       B@H   %             `            `  k          Px     x   @h     oswaPd     RP. @T     @D        @4     i E @   $         P      rholPf        @h         P     ****P       ****                         @n     vari@x           @        wwi`            @         @            `            P            P            PX           `	         `  P	         Ҁ            @        Ҁ
       @                      0              p   H    (    `    0    @    p     H    `                                       4(
\ ,@8  	     xt@x       P@  t     4  @  d     ( ' @  T       @@      ,0  l, N  @h  0       @,     >L@(       %@P  $	      @ 	       @      & x    ~&$,   h               0     0                       H  tVH $ * \ R f f f f * 1 B 4 9 1 d 9 5 e d  * \ R 0 * # 1 0 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # d 8 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 1 * # 1 2 9  * \ R 1 * # a 4  * \ R 1 * # 1 e $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0                                                              	      	 J        	 &   P    	 @   x    	        	 F       	 6      	    @   	    X   	 J   `   	              	       $       "       	     "   (   	        0      8      @      H      P   	        X      `   	     	     ,   h   &      $      4            *   @   >   p   ,                     $          H      P   	        X   	      	 Z   `   " 7    " 7     -     - (   	      
  @   
  P   	 Z   `   	       
     
    	     	     2     6      
 @   	        H   	     	 (   h        *     	 @      	 "      " < @   2  h   *          	 (      	 :        P     h     p   	     	    x        	     	 ,      0     
 0 	     	      	   	     	 R   (	   	     	 J   	     	   	     	 2   	    N 
   	       0
   	       @
   	****************************         '    +  die Zwei Variablem voneinander extrahieren         p_Result  ,% < ! L'       #  '      '         $   '        '         $   '                         4B           RGROUP  N% 6 '   } NewBeginGroup$ = WordBasic.[Left$](NewBeginGroup$, 6) + rgno$ + WordBasic.[Right$](NewBeginGroup$, (Len(NewBeginGroup$) - 9))        without WordBasic Functions           $            	   $   '         u NewEndGroup$ = WordBasic.[Left$](NewEndGroup$, 6) + rgno$ + WordBasic.[Right$](NewEndGroup$, (Len(NewEndGroup$) - 9))        without WordBasic Functions           $            	   $   '         $ ~    '        without WordBasic Functions         000   $ & $ $    $  '   RGROUP    NB (   # insert the group with proper format                        
  B *       d x    ERR##611   lB@n  X  k P    A '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   OK   lB@n        F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o          Attribut e VB_Nam e = "wwi DefineRG roup"

'*@     :  E	k! Issue"18 -02-98-A mit Gosw ami BOSH U TECHNI CS CORP. ;>Purpos@adds th e repeat ing g a	 ndselecte ext!OFgt e  Wieder holungsg`ruppeChanges: * #forc e declar e variab le
Opti on Explici Z
Dim LG_PatDh$`' p a vn .inJil  l3uage fiAA
Pub   Sub Main()
   A$l$ErcEolFdiRe*  rgno_A
Ea1F2A 3G46' 35cu rrent nu mber of lRGt@u'` mark|docum@O#Eosi]in MRGBeg$", EndD' beg
+ e _'A%ˠARe)symr__$(2)ufferE$_Colouvr#jcC@b$ol@lier"sanf r, %e2@/D#d&bIsEntireTO  As BooleanEflag , insert  hidden `new l@fVerb#' #D* uT@<SxbiFs>New.i>nT`%gtemp Y'- ?+orgDlg!,Obj: Set = Wo rdBasic. DialogReRc .T1ss View(False"tKBea

onsEdit
CurValuesn   Call  Show AndHide.set	Apon.Scre`enUpd= "44-ɬ  A$%aa CLibF`.Getb(1, >1~r!@r.I\NID2
+#a.  l$=7 0Wo/>S`' checkC@f6%DsA tck  rc@#A;.2BE(True,+If-2 Th0E=	'eUce"='8'harLeXft qR'ЀlJauw3 b4 func]S&withou0S\03Gx.Move2Unit:H=wdraPr, Coun0xExtpV aE;:3jex0ly one7^p" S/Z%Z17> 0/@^erroh`gCH20 07-08-30Apturn  0mess 'M(eld:rkie z SiePzjrZpe!@ 0   "!ARMq?_oglobal_vF ("ERR@##625"" To 10[ If 1 )!b
c=F@9)M(0Cpro㠗bein`) Absatzzei,npLϰ\#!s.!`11 *Chr(13) 'sVPC1:&/  fails s ometi0 t,o Cwe strA('betwW <>1 ~* "RU  d0#Zw@"Vm v/inОextrah/%1bzA<ve
D.s("p _Result")PkQ1 a1`@InStr(B,8 "#% - r!Mid9>a1#@ + 3ca1024 %( "")"uR1YttbYiP$("@RGROUPu6'nV[!P$]
P6) + +(@[Right (LenL) -x 9)2 H%Y F[N
		y	.$A/ 	, 2	5&il& Group$,  6) + rgno$ 8Right(NewEnd(Len
H) - 9))
   
~_ = Va,l(1	B'w ithout W ordBasic  Functio4nsC$ C"000" LTri m(StrW_)), 3zCal l wwiLib .SetDocV ar("RGRO0UP",
'i nsert th(e g J p roper fo0rmatF-Text. GRP`Begin" :bSelected, _'bIsEnti reTable,  LG_lPath$[ElserEditToo ls.set_d oc_globa l_value  ("ERR##611"yGoTo 10  If'> A3&OK%
10:
'-? M  G old  H ument attribute%F.ROpVi ew orgDlgA	` Bea	
Applica.ScreenUpdngTruBo:JAQuSub                                                                                                              f%  $ @  Wd BT  4P6 dT -	@  $ @  WT   5T -P	@  $ @  WT   5T 
       $      
	 T    
	 T   
      
     
  Cx  p ft%c%   D@h h(]3 <,0   (T d     $ <   6 dT0 h(]3 p h(  ]t    1(/( 7  (d    Qp5d k,$  $ <  `  $   l,   (   $ <     >(FT]   d
  d/0') $ 6 Td 0,'0'T'd  $ <   6 dT0  p  	 Cd N( : Ndd$  $ 4    $0   ,  >(1) $ 5d    l     i4 4( d4 $4   M@d
  d`15d 4( d4 *(d 4"M@T
  T`16 dT l	 =l	 = 
       1  T   M@d
  dl FtTlJ	   M@@0
  0`16 dT0 T   M@d
  dl FtTlJ	   M@@0
  0`16 dT0 l 
  kD CDd
  dT
     : T0
  `1 6 dT0 l  
    $  	 C((
!  /(%  "   1(/( 7  #   1(/(  #	@  $ @     #P	@  $ @       $       %     l           n           tx   h x  P   d     4 $ T       D  ,          (  $   d T 0   7
     k                                                    rU                    	     8         $      8    `                    n                           rU              ~|         	       	     )      (       !                  	      A            y            	            A                  9      h       `  $   `  ` S48:L N<<\`  $ 4  `  \0  8,  l4pz/4) `\85< kzpz 
kz1t   ] p      (( *    p_Result  ,% < ! L'      '   '   wwiChk   '          ,%  B@H  8    OK   lB@n normal `   X    ERR##605   lB@n  1   Bookmark not found            (( *LibTexo              "  Delete only the Selected Bookmark            ]    ]    ]      p_Result  ,% < ! L' >     ' ch  '   wwiChk   ' ")     (( *DTHLFT @       ,%  B@>  HSEP F     (( *$ ~o              =  before each check we will delete all the WWI Check bookmarks ----             B -- local variables -----------------------------------------------] P  ] h  ]   ]   ]     B -- program logic -------------------------------------------------   (( *        ,! ! '    '               7     If ActiveWindow.View.SplitSpecial = wdPaneNone Then      4       ActiveWindow.ActivePane.View.Type = wdPageViewunterd        Elsehe   )       ActiveWindow.View.Type = wdPageView    
     End If   ' "  wwiChk  " ' 0(+:   '     +    wir gehen von mglichen 30 Bookmarks aus   N%          '       ,! %         ,%  B@>    k 8    "   '                   6   If ActiveWindow.View.SplitSpecial <> wdPaneNone Then     !     ActiveWindow.ActivePane.Close       End If&   9   nBookMarkCount = ActiveDocument.Bookmarks.Count  'DEBUG   (( *  Ino @   8      Attribut e VB_Nam e = "wwi Bookmarks"
'*@     : 	AIssueF elix Ardelean8 18.12.2002 Purpos@Handl@e the   actions  by Tab MessagesPChan:&[ Da ]-[Z : A!@] * #force  declare  variabl e
Opa E xplicit"
 Pub S ub Jump(")Dim~Co unt As I nteger
YchEGS n2gMy  Apa .ScreenUpdngFals(H
 = Mv eDocument.V3s("p _Result"r)@luO(- 1M.= G0Chk" + On Er ror GoTo fehlAJ >}0E$s().S%cd   Ed itTools. set_doc_ global_va : ("OK"Ei EndO
C@cERR# #605") '@ not f|>dn9ZpTr0$aI Q@  D a@aonly"jedHP_s"edQQ@Yh9XT+DMMm`CbM!ka hM_j%kS10kR1I10A= Abe e each heck we will@le@Da@aWWI CzhbtD C   '-- localƝs - )kAn M&8  $In̈&MSQci aprogram`gic?-Ea , .b s.B.!;= %Whit<> '+qIf^Wi ndow.View.S@ctSpeci= wdP aneNone The}, 13TypgeQE2g'xo
Q If `d C=}dzwir ge` von0 mgP{ 30aTs au@!Fhik1 h3aVus.ExistziT1 Cl'C!y	2+zext Fib0Wenh  ""@&"'"Cl!p0|^0HDEBUG?a1 ?7(uRSubs
    : h   	                	      	             2     	             	      
     	      	           	        	 (      	    0  "                                                                                                                                                               $	     (  
           X                                                                                        x                                       ME                   (      6
    
    L    L    L    L    L    L    L        <,     <0     <4     <8     <<     <           p        `            (  4k   ! !      `z     P  `t         @d     x       `            p  @k    1     `z       `t       `p         4  `              Dk  - - L     `z     ` x     ****`"t     ****`p     ****`n     decl             2                %            X   p   @   X    (      (,l	        @  `	         @@  \	         @L         @<         @8	         @4                (  p  X    ,(l	        @@  l	     @  h	     @X     @H        @D	        @@           P    h  p           X    (,h	      @  h	     @P  d	       @`       @  ^               N T @\     @   8       5   @Z      @H           @D	         0                                         tVH $ * \ R f f f f * 1 C 4 9 1 d 9 5 e d $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 1 * # c a  * \ R 1 * # c b  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6  * \ R 1 * # c 0  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                            y  	 J        	 "   P    	 $   x    	         	        	 @       	       	       	 <   (   	 J   h   	              	      	      	      	     "      	                           	      
      	       S      0    
 @   	       H   	       `    : h   	                	      	             2     	             	      
     	      	           	        	 (      	    0  "   8   	          @       H       P   	       S X     x    
    	          	      	     
     	           ?    	           	      
     	      	           	       	 D       	    H  "   P   	 H   X                                 	     	 H      
     	      4       0   	       8   	 >   H   	 :      	       	 0      	        
          	        8   	      	 2   @     x    6     ?              
 
    	          	     	 <      	 (   0   	    X   	 @   h   	     
     	           	      	          D ******************************************************************** docum       Name:       wwiBookmarks  + end       Issue:      Felix Ardelean oswa                   18.12.2002           :    Purpose:    Handle the Bookmark actions by Tab Messages              Changes:     6    [ Date ]-[ Name   ]-[Action                       ]   D ********************************************************************n    force declare variable           ] @   ] X_ _ S R P _ 2 8                                                                                       3  &      _ _ S R P _ 2 9                                                  D                                          H         w w i L a b e l W i z a r d                                                                             j  J      _ _ S R P _ 3 a                                                                                        ,        lt*F<d K  :8d\`  $ 4  `8  \@ 	 8L 
 ) `\8    14/4      14/4 `  $   `  `       H ,                      t d            4 ` \ 8 < N       S@D:X NHHhl  $ 4  l  h0  D,  l@pz/@) lhD5H kzpz 
kz1t  lt*1p  l  $   l  l K  ?DpMX@hl  $ 4  l8  h@ 	 DP 
 ) lhD  l  $   l  l          <  ,   L                  t p            @ l h D H   
   H     h  $   h  h 4`dh  $ 4  h8  d  	 l`pz) hd  px kxkz' 
kx1t  lt*1p  px nc\" 6Zlpdh  $ 4  h8  dH 	 kZ) hd ?DpMH@dh  $ 4  h8  d@ 	 DP 
 ) hdD  lt3px 
nd\  Z  h  $   h  h        8 H,                      t p           h d D           a                                rU                    	     (         $      (    `           $      (   `           $      (   `                 n                     rU                    	     :         $      :    `                 n         Y      J           rU              ~|         	       	     =      <                   !                              9      Y            Q      	                  ٩      !    	      	      	 Z   h   " 7    " 7     -     - 0   	      
  H   
  X   	 Z   h   	     	       . F    	      (    	    8     P    & `     x   	      	             &         	     	             &      0   	       H   	 $   P     x   
     	                                                                          (     0     @     P     X     `     h   	     	      	 >   p         
          
         	     	 Z        @     H   	     	 J   P   	 .      	 F      	       	 "   8   	    `   	       	     	 :       $                           	   	     	 R   	   	    `	   4  x	     	     	     	     	     	   	       	   	 8   	   	 *   
    $ H
     X
     `
     h
     p
     x
     
     
     
     
     
   
  
     
     
     
     
     
     
     
     
     
   	     	                 (    9 0     H     P    9 X     p     x        	      5     9     <          /          /    	      9            (   	      / 0    5 @   	     
  `   	       p      x    /              
           0    
      /    
     
       0 0   
  H     X     `   	     D 	 h         0     7     5         
       (   
  0     @   	     	        H   	     	 l   P                  	 `        X   
  `   	 *   p               /     	         
     	 <      
  P   	    X   
  x   
     
     	 4      	 ,      
     	 *      
  @   	 `   H   
     
     
     
     
     
 1     0     0    
  (   
 1 0    0 H   
  `   	     h   	 *      	 ,      	 (      	 .      	 $   @   	    h   

 !              
          	     
     	     	 6      ( Y      $ (     8     @     P     `     h   	 *   p        	 `           	 4       	 ,   X    1     0     0          1     0                           (              $  d8         X=                                                                                        x                                       ME                         (L    6
    
    L        
    L   *L   *L         
    
             L                        L              L    L    L              L    L                   L   *L              L    L    
    L        <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <                  `               k   ;;     `&t         `(l     q`*d     x   `,\     /Mar`LX         `.T        `0P         `2L         `4H     ****`6F     ****`8X   D     ****`:0  <      fo`<  4     ****`>,     B --`@   $     ----` 	     ----@p        @   `	        `Bx         `@   	     000 `  	      $    pP           %   `>          X  8             %       $               %                            8  p  H  `                          0  4(,DFHJ   @    	        @          @h       @   @          @          @x  	        @@          X    %      @h            @  %      @          h  %        h  8      @             :   P   @        p  LNRPRTVp          0  |  `         %   P     d         xH  `         %     0  w   X     v~FJ   @t	        `  V   @  l	                  @  hO	                             @0  d	        H          @  `O	        X  0          0     @   @P        @@        @  4	                  @  0O	                   X  ,   `          %   H       (   @(          ~N   x             $p  `          %     X            `         %              0   0  l   ) xtP6
 ,                                           tVH $ * \ R f f f f * 1 D 4 9 1 d 9 5 e d  * \ R 1 * # 1 5 5 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 0 * # 1 9  * \ R 0 * # 1 3 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 1 * # d 4  * \ R 1 * # 1 5 6  * \ R 1 * # 1 5 3  * \ R 4 * # 2 a $ * \ R f f f f * 1 K 4 9 1 d 9 5 e d $ * \ R f f f f * 1 J 4 9 1 d 9 5 e d  * \ R 0 * # 1 0  * \ R 4 * # 1 c  * \ R 1 * # 1 7 3  * \ R 4 * # 2 2  * \ R 1 * # 9 7  * \ R 1 * # 9 6  * \ R 1 * # 7 2  * \ R 1 * # d 2  * \ R 1 * # 1 a 7  * \ R 1 * # 7 3  * \ R 1 * # 1 5 8  * \ R 1 * # d 0  * \ R 1 * # 1 2 9  * \ R 1 * # a 4  * \ R 1 * # 1 e  * \ R 1 * # 1 5 2  * \ R 1 * # d 9  * \ R 1 * # 3 0  * \ R 1 * # 8 2  * \ R 1 * # 7 6  * \ R 1 * # 1 2 6  * \ R 1 * # 1 2 5  * \ R 1 * # 7 7  * \ R 1 * # 4 e  * \ R 1 * # c 6  * \ R 1 * # c 0 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                            G 	 J        	 $   P    	 .   x    	         	        	        	        	        	 J      	    X       x   	     "      	      	 H                                                                                         (       0       8       @       H       P       X       `     0   
  8     H     P   
 ! X    	 h   
  p        	          	     	      	 $      
     	      
      0    	     	              $    4     
  P     `   	       h   	     	 Z   x   	 "       #      #    	      
      	 Z   0   	      	             D ******************************************************************** docum       Name:       wwiLabelWizard  end   '    Issue:      TechniDATA GmbH/Markdorf                      02.01.2003        Purpose:                   Changes:               D ********************************************************************     force declare variable****           B -- local variables -----------------------------------------------] @   ] X   ] p   ]    ]    ]    ]    ]    ]    ]   ] 0  ] H  ] `  ] x  ]   ]   ]   ]   ]     S -----------------------------------------------------------------------------------  ! ]   F       ! %  .    ]    F       ! %  .           ! B@   %     ! B@ ! (   4B     In   (( *e       S ----------------------------------------------------------------------------------- Text.I     Create Collection Table)    Lable_output_table  ,! %  ! . **        !  !  ame:                                                                                                                                                                                                                                      
              Wert 1 = Breite          Tec     !  %  .     %  ' (         Wert 2 = Hhe  07.     e          !  %  .     %  ' &[ Name   Wert 3 = Masseinheit           e          !  %  .     %  ' L******d       Vorerst keine weiteren Werte declk        H     L     DK T   &$ F ' &    ($ F ' ( C  HK T   &$ J ' &ll  ($ J ' (    LK T   &$ N ' &e   ($ N ' (e   RK T   &' &  (' (  PK T   &$ R ' &	   ($ R ' (  S     &' &  (' (n     8  WA200201: set orientation according to height and widthic  &  (	      T' 4d 0    V' 4k      S  CH090703: save original entered data for textbox size before switching orientation  einer  &' *  (' ,  D  WA030603: if changing orientation width and height must be switched------  (  has to be verfied with Word 2000 and 97le   @     If vOrientation <> ActiveDocument.PageSetup.Orientation Thenar          i = dWidthSet ingef          dWidthSet = dHeightSet              dHeightSet = iR sta   
     End If  3  save page margins to restore them as shape margins       ,! T   5 X' :5 Z' <5 \' >5 ^' @q     K  CH090703 if margins of original page are larger than the new page will be, on.Inf    set them to zero   	      :  <   &
    >  @   (
    ERR#   ' :   ' <   ' >   ' @k (   `     2 set maintained page size and document borders to 0  # CH090703: changed order of commands dStart  ,! T mber   9 X   9 Z   9 \   9 ^   9 b   9 d   9 f  49 h  (9 X  &9 V 5 j( l OK   p9 n  p9 r  v9 t 9 x   9 z    ~9 | 9    9   q       check if document is empty ' 8  ' 6    ,! !   
  ent  ' 6  k     ,!  !    
     ' 6  ' 8  k x          B@T ------  F! H!     ----  J  F! ! H( l----d      J  F! H( lk       F! H( ~  ,! !   
  Wiza ' 6  k       F! H( ~        B@T ------  (( *------  8   ] 8        ,!   h      (       (     (     0       B@T X    B@           ,!   NextTi  B@H  ng      B@6         B@T      B@  0      k     6    5 copy whole Data and later paste it into the Textfield 8    8        B@T     V      B@   fo        B@    d     B@  or colk     B@6  ------k   ] X    e CH2006-06-20 check if there is already a GLM Master Frame if so change it's size, else, add a new one 0    6   8     . '     6    8   e       Y CH2006-10-06 If there is text but no text field create the master frame, see further down '     8 e ------  $ check if there is a GLM Master Frame'   '    initialize to truea ] p        ,!   P      5   GLM_Master_Frame     '    
 5 CH2006-10-06 Select current shape to be the selection , 1)C@H     
  change size of frame 2    5  ( xtCe   C@ <   9    
 . CH2006-06-20 set same formating for this frameB  
 % like in wwiSaveDocument.FormatLabel() Tren  9  
 $ this implies "move object with text"   9  
 Y CH2006-06-20 Give GLM Master Frame a name to identify it later when label size is changed   GLM_Master_Frame9   ,9   *9    9     9   (! $ ~  	    "  !   B          !   B  n.Typek     (! $ ~         !   B  insertk                 With .TextFrame    #             .MarginLeft = dMargLeft        %             .MarginRight = dMargRight LNTY   !             .MarginTop = dMargTop    '             .MarginBottom = dMargBottom                  .TextRange.Select $               End With  B@        k h  q `       xtureNk H      \9 .  / insert the text box necessary for WWI-Labeltool e           ,  *  ,!  %  B@H    !  67 C@H      5  (  wd   C@ gle 9     9   $ this implies "move object with text"      9   Y CH2006-06-20 Give GLM Master Frame a name to identify it later when label size is changed   GLM_Master_Frame9   . CH2006-06-20 set same formating for this frame    % like in wwiSaveDocument.FormatLabel() Styl  (! $ ~  	   wd  !   B  \9 Z  !   B  5 ( k (
    (! $ ~     @  !   B  ingle k 	  5    >9   @9   :9   <9 5 B@H  the HEq 	  q 	    B@  File    6    B@  B@Fk x	  k  	  If Not bEmpty        set layout category as label  Sym  NB        OK' B !      B@T '    `    !    
    ERR##604' B   "Invald size for label layout"0(D)  B@&  
 <11Ek     B   lB@n   S -----------------------------------------------------------------------------------       set old document attributes        B@      B@ '   (( *$ ~  S -----------------------------------------------------------------------------------   o h  `     Attribut e VB_Nam e = "wwi LabelWiz ard"
 '*@ 
'   =: Issue Tech niDATA G mbH/Markpdorf)D0 2.01.2003Purpose: ChangesDfor ce decla re varia ble
Opt ion Expl icit

Pub Sub Main()
   '-- locals -+  
Dim dH eightSet As Do 7 DWidth TextfieldlCurr MeasuremenLong#chMsgAS IniTitlevOri@aBR4bEmptyBooleTanCbA*F2EXxis#d@g8TopGBottomLefR\R3TObjec Eai(rowMto_abaB%Jl #orgDlg: C = WordBa sic.Dial ogRec .T-sc[sView@(False Y q
Bea

onsEdit
@MValuesn  #, Call `Sh owAndHid`e.set	ApwO.Scre enUpdng`" x.?*
!Crea Coll I!bK5EM = ActiveDocuq.CoDnt`er.s("le_ou@tput_tT")c  For i 1 To A$.Rows	unX'Wert 1Breit If%he`q-A I]=	Item(iBFdf= .Cell(12hHhE@N$2 T?-L3Massei\nhC3s>.nv VPorer k@e w!/ren #a"nd Iext SeG Case # wdInchesE Ie=  ToPoints(g 	wdCP^imet l= >tO5?QwdMill?"??9= Op?33
/*4Pica	o4$g+(W!
/t/E -+#[0A WAp201: Z_gacqjiZto @;  apwcsCX	< HDʇ=( wdÈLscapHS  Portra!1c:  ' CH090703aveginAP1ered  ga  t=box  size be e switczhoגT=<$$%%W
W A0306Q
if cL 2mu Kb5
ed#' has (verdth2 0297cPM<>nPage*up.m2T?GUb' sqpaP marrest`[ them sh`#Wi`{#fT= piVv ī  ?rgRq rgì  !
	S g+  yeof+QѠg$erpan nhew w0Wp,,<!zeros:(&+>-) Or _#@#24 .)y?= 02&kV/#Odrr Go|1'amЛd"?Ld$ b s4D9C2 PpcommK#y' ocument. PageSetup
  .To pMargin = 0lBottom<Left8Righ:GutterrHead erDistance Foo 9 Ori atiovnWidtth2dHeeLin eNumberi ng.ActivA]False(First<Traby)wdP he faultBinAOthers	&Se AonStart1NewddAndEvenBC`Y 1Differ@YF3 VerticalAlignB&B&Supp ressEndn}s$Mirrorâ@ With 'chec@k if d  is emptybTextFi`eldEx bFE	@TruuIf zDWor ds.Count  > 1 TheτsS&IfShape0<  -(Sel#C.HomeK ey Unit: =wdStory , ExtendMovkWin dow.View .SplitSp`ecial!`Xa `one##PTypdgeA
Eej"1nd #(Seek!Cur!VA\UAa 88e	kMainE2n2Ap`0c .ScreenUpdng ?CDim shp As BN   For EachBIn\SCB a.Rel@v eHorizontalPosi$wd1	LockAnch= E!  N {c\.aOParagrap?$w#$C%CutsPastbtg}@?Not GQ 'copy  whole Dapta a04xp it into @g PfP$>  GEa!FDownFHat, S:=1?K8KKsD	WN?TDYD  1 3bAddGLMMrFrame3Bo0a^'CH2006b-  20 6g|egalry aj   is"o angt' s size, eQ, add@new Vai |a rg_Cyх10Y$r2t8 but n% E% Kate'm	2 fA, se`e fur1zwtg>^|q@Wg   'is p !3d  bUOUDU /U+U9 s.NQa&= ""_"_""Hc

B  [; c3r0]k!bcsu.3CJchB+* ofs:!> sibA H= mso	.HZOr  (SЈToBack)?k/^Q 7set sform?r &Pr&'lik*n wwipSave qLabel(mOkqColum4-'th@	im} es "m  obj  w 3"zr gwrlJG̎Ia n.idifybcw lJ!N d
o,d,Z[ٻlh
.]_.!/!= 6Val(Y`s0) >= 9^6  Callq"1^0.w boxOverlap(c2z.R>R2*$Al n"/b*kȴ  If Val (Applica tion.Vers 8) >= 1 1 Then
Call w wiWord2003.wTex tboxInCe ll(SelecShapeRange)	End@ If
'\W ith .GFrame
  .M arginLeft = d%pRigh&'Top& BottomZq~.|um	Collaps wN s$ bAddG LMMasterÂYTrue   'insert the t@m necess ary for  WWI-LabeltoolCA@s veDocument.Bus.>!@(msoOriHoriz ontal, 0 dWidth	 field, dHeAjF)O?M~ GJG$L ine.Visible ?$FalV.ZOrder *SendToBack.Lo@ckAnch@@=F ANRel4ve4PosiLwd@wum' this imp lies "mo@ve obj@ wc"tlParagraph'CH6-06-20X Gi@ D Da n n to id7ify it @%w@@A size  TchydN= "
_
_
Fkset sA@Mm*ngNb#f#C_'lik nSaOFor "T(7900Q ZOver s=AlqnG	gz γL_j(+p)2LMa*CcT'k-N ot bEmptyE'P
! 7a '
^layout" @ego@ask7Lib.[InfoSetB  s_abaa"OKjGHome Key Unit:=wdSt`A
  
wei@P10:Err .Numb=> 0xtoFERR ##604" '"Invald?}ala>!Clear! 1 AEditTds.@_doc_global_pi(t2(!'- r Ao0bl attri0bute"u1Basic.
Op^ sView orpgDlgQOs1 BeaBaI ScreenUpdNe?	#
QSub 
                                                                                                                                                                                                                                                                                                                               _ _ S R P _ 3 b                                                  B   K                                       K  g       w w i X E x p o r t M a k r o s                                 "     :                                               _ _ S R P _ 3 c                                                                                      M        _ _ S R P _ 3 d                                                  J   M                                       \  o         I      q              $          d
  d4t5d X\ $ 4  \4  lX *#LPT $ 4  T  lP*#H *F8d
  d(:	 `1`2 XLPH) \T6 8d( GX\ $ 4  \4  lX *Fd%t8
  (/X\6 d8  4X\ $ 4  \4  lX *#P
  2 XP\   `@td
  85dL 
l`
    <T\ $ 4  \  T\  Q[ x) \Tt  xWd : ]/8(5d 0l`FxWd 8: (%x  6 d8(  rU              ~|         	       	     ;      :    )   !                  I      	      Y      J            	                  9C      aC      C      1      Q      C            I      q            YB                  ш      i                  "                         Y                             A      A      ѧ                   5f%   $ @   W B  4 6   5f%   $ @   W B  4 6  -	@   $ @   W    5 -	@   $ @   W    5 
        $        F:	 %   $ 4   
   A 4 )  6  ((  W A 5he ( ]3 &@ W B  46  ( %  Btl5X ( ]3 &@ W B  46  ( %  Btt5X ( ]3V &@ W B  46  ( %  "qX5X   ~\ lXq l     ot7  $  ntt ol7  $  ntl l    ot7  $  ntt ol7  $  ntl l   < ot7  $  ntt ol7  $  ntl l   ] ottt oltl l    ot7  $   ntt ol7  $   ntl  ottt oltl  otol 
   qH  
    qH  ottd olt\ $   $ 4    
 Q|  |(  nt< |0  nt4 |8  nt, |@  nt$ c| o<o4oto,o$ol  t<  t4  t,  t$  K $   $ 4    
 Qx   7x,    7x4    7x<    7xD    7xL    7x    7x   lHxd   ol7xT   ot7x\     x   L        xl       xt      x    x    x       x|    x    x   cx  pD pF 9   $ 4   x 
    l   )  :  pF  9   $ 4   D
 (  l    )    pF pD  5          $ <     6  9   $ 8      l    )  2 <   t   $ 8   (  H  t,  )  tc  /      $ 8     ,  )    /	      $ 8       )   9   $ 4   x 
    l   )    pF  /       $ 8       )   5          $ <     6     $        kD	 /   $ 4   D
 Q[lp h     p      p   p   ph  0'      $ <     6     $ <   $   /   $ 4   D
 Q[dp ` 	 'p 5    $ <   |   0'      $ <     6     $ <      p` @	  	kF
 kDu
 0'      $ <     6  7'@(       $ <     6 @ 5         $ <     6 
     $ <   T       $ <   |    kFkD 
 p>/ kF kD 
 p>/ kD/ p> /   $ 4   D
 Q[48 0 / 	l8, (,l  l( 0/(  p> ', 5      ,`          ,   ,      ,      ,    ,p   o\7,   od7,P    7,\    7,   1(   $      l(
  	/(  0   $ <   0 Qtt
  )  t 0   $ <   0 Qtt
  )  t  1(   $      l(
  /(  0   $ <   0 Qtt
  )  t  !'   $ <   <  5  c, 80 *  k> Y't'od7o\7 7 7      $ 4   D
 X  t )  t6  $   $ <   0 Q$  '$(  5      $h           $4   $       $       $     $x    1(   $      l(
  	/(  0   $ <   0 Qtt
  )  t 0   $ <   0 Qtt
  )  t  1(   $      l(
  /( ! 0   $ <   0 Qtt
  )  t   $   Q   o,7 4 !  o$7 < !  o<7 D !  o47 , !    P !  |"   c  c$ !'   $ <   <  5 	kF    $ <        
#    $ C 0'      $ <     6  $%      & l     ] ' C %     H    l(  1(/( #	@   $ @       #	@   $ @          $          &      \            p          | x l h d ` 4 0 , $        T L   P p  8   (          (    t   @  O    k                                                                                                                                                                                                                          xu *''('8     l`*Fd
  6 d8( cx ct        $8                           ` t x 8          X P L H \ T  d 8 (      k          ,Z $%f  %@x  drU                    	     <         $      <    `       q                    n      `  L   rU              ~|         	       	     ?      >             ٬            I     	-      	      !          w w i S y m L O n O f f                                          U   4                                               _ _ S R P _ 3 e                                                                                      ^        _ _ S R P _ 3 f                                                  H   Z                                       o         w w i X T e x t R e s e t                                                                            r        ------------------------------------------      \% ^ '  *   Path and name WWI.INI        global  Lines     \% | '     '     ;  ' h  h   
          	  WA090501           h   $   '       h   '      old position             
                B@       k         ;  ' h       o          B -- local variables -----------------------------------------------] (  @   $   Counter    ] X       Names of active Commandlines     ] p  ]     B -- program logic -------------------------------------------------      \% ^ '  *   Path and name WWI.INI          %  '  ( "  Number of availiable Commandlines                           % '       %          ;  '               B@       k                  Save CommandLine names         
      global  Lines       \%  '       k   o         Attribut e VB_Nam e = "wwi SymLOnOf f"

'*@     : fIssue15.01. 1996-Jr gen Stol z-Techni DATA Gmb H/Markdorf ADPurposFHides  the Com mandlines*Changes:[ Da 8]-[RP ActionV]$Ďforce d eclare v ariable
OpAExplicitDim  LG_WWI$
K' Path  t nof .INIPub  Sub Ma in_on() 
  '-- locals -+  &za, @count_L &'berCLd1'as @1JaavMq  token@, old#*QosiB]in (PJprogramLgic-JL--n= L ibFile.GetAo$(1, 1)$ss D%	LPS@                                                                                                                                                                                                                                               ng$( "global", "A=s  }c!>= 1 =h In(# ;R"DWh !> 0  On  Error ResuNext#  WA09050	B
  d3= Mid
,	-0 1=b+ 12'3If Len()   Then   WordBasi c.ViewToolbars t:=_d, Show:=End I`)&ce.'end!GSubAc nqffqr"qqD :qs$rc`?f:A
?f>fd=BCB(n umbervail  F@_zao1Iĝ    O[D$](1$^ XSt()
ZK`++ ";@#6
^$^so/ r>za SaWYQFbg v P29
٭9rc0KSOKuK,N,%o8
50 0 0 4 6 } # 4 . 0 # 9           	           X=                                                                                        x                                       ME                   P     6
            L    L            L                `    @   p             k          '   Makro erstellt am 24.08.01 von Ambrosch    WWI.wwiIExportMakros.MAIN`x	     `t	     ``                         %                              ,Z $%f  %@x  d     1@  \	     p1@0  X     p%@  T	     Я5@H  P       $@`  L     7 @H     l@  8     $ @  (       $@@         @     @	      @   	       0      olt@?	     p       n@X        @      ol   ol                                              tVH $ * \ R f f f f * 1 0 4 8 8 8 6 1 d b  * \ R 0 * # 1 4  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # c 6 (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 2  * \ R 0 * # 1 1 f* \ G { 0 0 0 2 E 1 5 7 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 5 . 3 # 0 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 E X T . O L B # M i c r o s o f t   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   E x t e n s i b i l i t y   5 . 3 * # 1 b                                                            !           	     "                     *       	      	 :   P           :      	 (       $ G      4 (     H      P    
 h     x   	       	 0      	     	 8       <           $ 0 8     `     h   	     * * p   	     	                       x         ]    ]       Scripting.FileSystemObject$  .  docum  3 create path and include filename and date of export    Fel]      ,!   \Export\   ,!    _    Z    \  '   " if folder doesn't exist, create it  ,!   \Export\   %       ,!   \Export\  A@ **k        %    <   A@ ****k       compile project   ) ActiveDocument.VBProject.MakeCompiledFile   1 loop over VB Moduls and export them to given path       ,! !  T   !   ThisDocument         !    .bas    B@ 8  Wk         Makros were exportet to     A@$ &  (   release objects     .   . o 0  (     Attribut e VB_Nam e = "wwi XExportM akros"
Option  T licit
 
Sub Mai`n()
". Descrij  erste llt am 2 4.08.01 "v WAmb gch iJProcDataVInvok@e_FuncW(WI. I	.MAIN H  Di m Modul  As Objec fsSet 	= CreaDte("San g.FileSy _m"z
  'c pat h and include f n
d) of| eM MSng
= A ctiveDoc@ument.
& "\s\" & _ e "\'if f older do esn't Cist, ]s  If NoA.F$Exs(") Then.  M`kDir AEJIfA=A'comp@[ (prox'-VBK@.@eCdu 'loopH ovIVBstl them to g@fn{A For Each1 InfVBon@ts\B.ThisE~"WW.À (B y.basA   GXNexA MsgBox ("Bs were?R@`H,!'r elease o?"hbe"pFhiWhf 
                                                                                                                                                                                                                                                                                                                                                                                              I            )            ɭ            Q      q       $           (    C,, C00  1X2 0, ( 4    lX     iD D(  ]t  K 6D44"XM@
  `1T6  D( 4 lTJ      /T@( % $ @   	  
    4"lX     iD b          $<            $          \ 4 D l T X $          0 ,       <           ((0 %@ $ @  @  \@ (  l\h :: %l@(  %@ $ @  @ `1T@5 -T@@ $ @  @  @5  lXlT*# *1X/ /T@(  %@ $ @  @ 	  
  @  l~N  lXJ    5    lX  
  D         <@            (             \ D T l X            @         f                                                                rU                    	     >         $      >              r	           X                                                                                        x                                       ME                    P     >
    
            L    <     <     <           h          $        `              o          @l         @\     x   PX     -TecPT     f  @hD     pose@   4     ndli  `              k    -     @l         @\         PX     ****PT     ****@D     ****Ҁ          @                        %   p      X           @        \ C : \ P  o @  0     \ s @,     R F @X       E S @       C A @(       I N @     A L @	     C : @p       t e @     S y @    p  (  X  8  @    X    (    \0 & P ' @@	       @p  0      T,@        @       @        >L    
   @      T,P    
 LP@       4  @        ( ' @       @      T,   LP                                              tVH $ * \ R f f f f * 1 1 4 8 8 8 6 1 d b $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # 1 7 b  * \ R 1 * # c 1                                                            E  	      	 J        	     P    	 F   p    	        	 ,       	        	        	 <      	    P   	 J   X   	              	       (      	     "      	 H       	        H   ,   h   $      (      	      	 H      2  0   & ( h   	                           6    "          " / (     P     X     p   	        x   	      	      	      	     "      	 H            ,                (   	      	 H   0   2  x   : (          :     -       0   " / H     p   
  x   	      	            *          	                D ********************************************************************erstel       Name:       wwiSymOnOff   ?    Issue:      15.01.1996-Jrgen Stolz-TechniDATA GmbH/Markdorf            %    Purpose:    Hides the Commandlines n't               Changes:  \Exp   6    [ Date ]-[ Name   ]-[Action                       ]             D ********************************************************************veDocu    force declare variableile 0   ]       Path and name of WWI.INI        B -- local variables -----------------------------------------------] X   p    $   Counter    ]         Names of active Commandlines     ]         Name of a CommandLine    ]            Position in CLine$   B -- program logic ------- `           $      >   `                  n                                                                   R  "         XW                                                                                        x                                       ME                    (     6
        L    <                `            x   k               p                %   0  H      '  P'   @x	         @`  h         @x  X     A5@  H     pB5@  8     p%@  (     h81@       `i%@       1@       81@        (&@8       x1@P       w@h       @           @           @           @  x         @  h        @  X     @  H         @(  8         @@  (        @X       @p       %   @       @       @                              H                  @   tVH $ * \ R f f f f * 1 2 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1                                                              	      	 L        	 "   P    	    x    	 &       	        	        	 <       	       	 L      	    h   	       	       	    (       H   	     "   P   	 J   X   	     h     	        X   	     p     F **********************************************************************stel       Name:       wwiETextReset      	    Issue:         Purpose:    Reset Text Format              Changes:   pose   6    [ Date ]-[ Name   ]-[Action                       ]6             F ********************************************************************** fo     Included functions:lex              **********************************************************************'**********************************************************************         force declare variable              D -- local variables -------------------------------------------------       0               #  '  +  /  3                   	    	        	    	  0 pt 	  0 pt 
	    	    	  0  b  B@ o     Main         Attribut e VB_Nam e = "wwi XTextRes et"

'F*B     :7  EjIssue:Purpose- , Format "%Changes!3[ Da ]-[i e 
Actilonq]$qI ncluded fun<M2C1 force de clare va riable
OpKExplici@Z
Pub Sub Ma in()
   '-- locals --   WordBasic.wFont  Underline:=0, _	AKpcolorS@keThrough	uperscriptb@HiddenmallCapsASpacin g:="0 pt"APosim	pKernRMi "Tab!EndA2'Ba                                      rU              ~|         	       	     A      @       q      q      R      !                  ٰ          _ _ S R P _ 4 0                                                                                              _ _ S R P _ 4 1                                                  P   Y                                         g       w w i S e t E n v 3 2                                             g                                            k      _ _ S R P _ 1 4                                                                                                ɮ            )      a                  ɫ      	      1      a                          (h  %(H  %((  %(  %(  %(  %(  %(  %:h  %:H  %((  %: %: %x $ @  x     	 
          x        $                                 x     k              rU                    	     @         $      @    `                 n                               rU              ~|         	       	                  +      !-      q      	,      !                  9$            ,      -      ,      .      	-      I            #:T  NDD4
  4`1x6 D4 -,   0 $ T  0P  >,1t0 lt 0  2D0 $ 4  0X DA4	 `1t06 D4 (   tMT@D

  D: ]35D  &ltJ   tMT@D
  D`1t5D   clt =   lxlt *#,        ltJxMT@D

  DltF]<4'/,6 D lx *#,lt*1x/, 8lx4l  ,4l,  p<lxXkDTd2 ,    e       0                      x t d $          ,  0 D 4     k       # #      Px     (   P	t      rU                    	              , I         p                     $          `                 n      p  X  (  rU              ~|         	       	                  q                  A      !                      _ _ S R P _ 1 5                                                  S   V                                                w w i E d i t T o o l s                                          C   m                                         *      _ _ S R P _ 1 6                                                                                              _ _ S R P _ 1 7                                                   T   r                                                     
                
           (    
 8     @     H   	      ! P   	        p   	         x   	      	           	      	      	       	 T      	        	 Z     B   h   	         p      x   	       $    	      N    	          	          	           	      	      	       	 V      	    H  B   P   	          X   	       $ `   	      H p   	          	          	           	       	 R      	 0   (	   	    X	  "   `	   	      	 4   h	       	       	       	   	       $ 	   	     2 F 	      
   	       
   	     
  (
     8
   	       P
     X
   	       p
   	        x
   	      	      	      	      	      	      	      	      	      	     
     F **********************************************************************        Name:       wwiEditTools      A    Issue:      12-12-2002-Felix Ardelean-TechniDATA GmbH/Markdorf           &    Purpose:    Sammlung von Makrotools      B                Sollte das Arbeiten mit Strings in Abap erleichtern       Changes:  = Wor   6    [ Date ]-[ Name   ]-[Action                       ]SES_          F **********************************************************************    force declare variable           Tool 1 - 12.12.2002         (  Bearbeitet ein String fr den Analsyser        ] @      $  ' 	    5 ActiveDocument.Variables("p_Result").value = MySymbol       	   lB@n o    X     ]    ]    ]    ]      # um die lnge der lnge zu ermitteln       ]   ] 0  ] H    L       5 dann holen wir uns den wert aus der Globalen var          x  ,         XAt          ,     	 X e         SetEnvironmentVariableA                                                                          x                                       ME                      P     >
        L    L    L            <               +	      p                @                i	     `          i            D   `            X  k  # #      Px     (   P	t        @jd               B @               %                   p  X  (        	, 	T @  T      @@  D      @  4     	 @0	      @  ,      @        @      @      @            @                                             H  tVH $ * \ R f f f f * 1 E 4 9 1 d 9 5 e d &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # c 6  * \ R 1 * # f f  * \ R 1 * # c 1  * \ R 1 * # 1 7 b (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 4                                                            (  	                  	     H$    (    	     "   @        H        P        X    	    `     #     	      	 "       	 0       B -     	          8   	      	 v        8    2 H    ( X    & x             	      	 ,      J c    	        (   	      	    @    8 X     p   	      	      	        x   	      	           force declare variable X                      ]    ]    ]        read PATH variable   	    PATH$ 	 '     get DLL path from registry       )  WA051201: use different registry setting     ( HKEY_CLASSES_ROOT\WWIDOCUMENT\InstallDir     %  ' 	            w   chWWIPath$ = WordBasic.[GetPrivateProfileString$]'               ("HKEY_CLASSES_ROOT\WWIDOCUMENT\InstallDir", "", "") **  o  if registry entry is not there use path of wwi.dot (but without historic subdirectory of central installation)     	           ,! .! ' 	  	  $    Wwi97         	  	    $   ' 	      k `  k X    %  append DLL path if not already there             	        	  ;            	 $    	             ;    	 '       set PATH variable  PATH  $ 	 ' j  k    o    x     5 Attribut e VB_Nam e = "wwi SetEnv32 "
'forc e declar e variab le
Opti on Expli cit

PPriva DXFuncH Li b "KERNEL  _
  Alias "' ironmentVkA" (By@Val chAs S ng,	CG J% +ue &)
js Integ$erub _ Sub  >Path()
Dim5E$WWIre x  ' read PATH  g("" -y' get@ DLL p 8 from $gistryWA05 1201: us iffer  settingchM7System.Profile("" , "HKEY_ CLASSES_ ROOT\@DO CUMENT\I nstallDi6r
+'3Wo rdBasic.[GetQ$]\wDw(*Kif>Ary is not th F#IRof .d@( with out hVor ic subdi`recto@ckA@i>a@i  If@qH="" Then\CA@veDocu.achedTempl@.&@Right(l, 5)m"Wwi97LefKLenH) - 6-  End /E' ap<peFTPalAXy)!<>  %uAanI`a,$+ ";">0mE,) @HX,! bch#B +xK'Ab/q Ft #p	B&$a	SubA
                                                                                                                                                     iable   `     p_Result  ,% < ! L' 	    !      ERR##602'  5 " Markiertes Symbol ist nicht gltig   d     !   B &	       k   d     L' 	k     	  [  ' $	  $	           	    $	   $   ' 	    k h    	 ' ~        ~   ' ~ !  wegen 01 oder 02...   	    $   '  !  01 oder 02 ...        	    ~$   ' 	 ) " entfernt 01 oder 02 vor dem Symbol    ~ 
       ' ~  ~' "	    int to string    d     ~'  	   	          ERR##602'  5 " Markiertes Symbol ist nicht gltig (     	    e     ~' "	  00  "	 ' "	   	    e     ~' "	  0   "	 ' "	d    = 3       ~' "	k   k       000    "	   	 ' @    @'  F   i    f_Prepare_for_analyser            N  Read the content of the "ActiveDocument.Variables("p_Result").value" Variable              S  wird nicht bentigt, denn beim Lesen entstehen keine vernderungen in den Dokument       `    ]   ]     ,! 0'       p_Result  ,% < ! L' *	      ,( 0      *	' (	i    get_doc_global_value              O  Write the content of the "ActiveDocument.Variables("p_Result").value" Variable              ] P    ,! 0'       L  p_Result  ,% < ( L      ,( 0       ' ni     set_doc_global_value             K  Ermittelt ob den status des Dokuments - gesichert/clean = 1 oder dirty = 0          *  Rckgabewert ist in eine Collection Table       h       .  new - fill the values into a collec         (    "         X                                                                                        x                                       ME                   $      >
        L        L    L    L    L        <(     <,     <0     <4     <8     <<     <            	    	X      `            `  tk   	 	      `	x       +`    `            0  o      E E     iL         bH/M`	p     &   `@l     g vo`~j         ` 	   d     das `"	   `      in P\        `$	  Z     6   +(	    `              8k       ]    iL         ****`r     ****`*	l     +nh    `            (	  @k 0      p    iL             `  r         ,	  `            X
  k  ! !      `x	         `t	         `r           `      X   h  l 8               %     `      X   h  @        ln       @t             0  H       `          H     `x     `Lt           x  8      }`Lt    	         ,   @   @x  T	     @   @  P	     (   @  @        @   0        @,	        @  (        @$        @8          @P          @h       (   @          @        @       @           h  p    @  (    h      `Lt      `(	x         h             	 `Lt         p   ,      }@   @  h	     @   @f     (   @X  `	        @P        @@     @<	     @8     `nx              `Lt           ,   	                       `Lt        P    	  (
  
  	        @	  l	         @j     @@
  d	     @T     @D     @@	               X  (  
  ,  D        @@  l	         @j         @d	         @x  T           @  D         @  4         @$         @           @         
                    h                   @  tVH $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 0 * # 1 9  * \ R 0 * # 1 3  * \ R 1 * # c c  * \ R 1 * # c d  * \ R 1 * # c 6  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                              	 L        	 "   P    	 H   x    	        	 ,       	 H       	    @   	 <   X   	       	 L      	              	      	       	 .   8  "   h       p   	        x   	     	 <                	     B                        2          8      @      H   	      	      H  P         N     $    8                F      0     8     @     H   	        P     `    . p        	     
 
    (     * *    > )     	       @     P    
 X   	    `     x    
    	     	          8          tion Table    ]   ]   ]     ,! 0'        docStatus_input_table   ,! %  ! .         !  B@2       !  ! .                   1     ,      d     0     ,      k   o   x     Attribut e VB_Nam e = "wwi EditTools"
'*B     : 	AIssue12- 2002- Felix Ar delean-T echniDAT A GmbH/Markdorf CFPurposH Sammlung  von Makxrot(Solldas4 beiten mit Sngs  in Abap  erleichtern"Cha nges:[ Da #]-[u - Acti ?3]  Ʋforc e declar e variab@le
OpBE xplicit

 : y 1 -p 12. [Bear@t e >a@ frAn alsyser
Pub@ Su@b Prep@__a@() 
Dim MyS ymbol AsT = f_	""  
  'QveDo cument.V6s("p_Re sult").vxaluAI. set_doc_global_(@End4A(17FunCp)BypVal  @F8)	;  AAOldNewnew_l@@Integ]ch i 'um die ,l@krDzu〮 tel @_strOTyp8e_$A'iBe2g`s &8IfC" Th'dann hoAwir unsFwert auxr G/ScO n Error 9Nex U!G'<= @@1!  
.Number 5825b tOaERR##602"ae '!ieYZist n gltig%GoTo 10ElspCalla.Ra0ise(]  PI@ i [A5=4A(&,8 "[#i!<> 0	!	Mid1, gT= LenG"cg%- 2) {wZn 01 od 402...A
P02) $83, ) 'uf th m> ca %e> 999%=a  %j=e' t to `minbCGAgxjC *f)`"*7_X_X/,.,= d?3_G"00" +A="q<{_"G '= 3J..#"Z= D*+  yc^Rc1rq10 !g>'q!{{Re ad the co cnt of "Ste"p]'1\d$Nben0Nt,q]n m0?s\`5steQ`kpЇern/ = dd` Do.k|փFgye(_u04uAqjbSaveuB`ТsSn^e11 g/g,	= 11 bw h,u`f!Wr e    m/ur|_U!_-_-Тss# e"
:'o 44Er9Bbstatsz 2sp`/cl,BDrdirty ' Rckgabe268CPeTc0!S@3a	O@fiC±ka cR315Obj#ro?)9tiXSet 8CNainer.	`,`Sb_input_t! :q.Rows. RemoveAll1 a=5s8AddjI*Tr`!j.Cell(1z"1"}h!  ,0'@%<?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  y            A      A      R            	      R      R      I1      R      9C      aC      C      YS      S      S      C      \   $         1x lx  1t/t          $ (                      x           t      l Ct lt  0  K N(,:@ N00PT $ 4  T  P0  ,, 	 >(1p) TP,50 $$
   TT  l$  T   Cx    F''''0$
   TT  l$
   PPD  ) TP6 0    ltCp     lp     pZ kZ F .kZD0   pM@@
  `1p6 0  
lpJpj kjpj *(0    pM@@
  `1\6 0 )jM@   pM@@0
  0`1p50 kj pj 
kj1`Z  
kj1d ldJ      Cx X ldJ   $ 
kj1`  l`*1`X ldJ   L 
kj1`  l`*1`X  
kj1`   !l\ *#(l`*#lp*1l2 ( llCx           @   p        (         x ` d t p \ l 0     	     (  T P , 0     
        l Ct $fh $ 4  h  kfprh N8<:P N@@`h $ 4  h  `0  <, 	 >81l) h`<5@ krh $ 4  h  h llCx        D  0                     x t l            8 h ` < @        l Ct $jl $ 4  l  kjprl Hlt@:T NDDdl $ 4  l  d0  @0 	 ) ld@5D krl $ 4  l  l   Cx          <  ,                     x t           l d @ D ,       $jl $ 4  l  kjprl F:T %dl $ 4  l d4  A$ 4x) ld6 4$ xW$    5$ xW4 A$ 4t6 4$ kr  (T %: %t     (T %: %t             x  ,                      t x           l d 4 $                 W                                                                rU                    	              $          `           (         `     i         (         `     i         (         `     i         $ !       `                 n                                                rU              ~|         	       	     C      B       A      !                        y                 B       q      q     i      	      "      YB                     0    pv K NDH:\  NLLlp $ 4  p  l0  H,  >D1x) plH5L K EH:\  NLw w i S a v e D o c u m e n t                                                                                  _ _ S R P _ 4 2                                                                                        `      _ _ S R P _ 4 3                                                  Q   ]                                                w w i V e r s i o n                                                                                          e0         ] @   ] X     ' &       p_Result  ,% < ! L'  Q  ActiveDocument.Name       If p_FileNameRft = "" Then         -     p_FileNameRft = wwiLibFile.GetPath(15, 1)           End If     ;  delete the document variable p_result during the save time             p_Result  ,% < B@>         *   While ActiveDocument.Variables.Count > 0        On Error GoTo 9          >     If ActiveDocument.Variables(iIndex).Name = "p_Result" Then       -       ActiveDocument.Variables(iIndex).Delete        
     End If        iIndex = iIndex + 1         Wend      1 CH 2006-06-20 set options for textboxes on labels A 0	     2	F          b  f d  ,B@`         ,( 0         &  set the global Variable one more time      p_Result   OK L  ,! <B@   ,( 0             ] p     ,! 0'       p_Result   ERR##601 L  ,! <B@  D \   ActiveDocument.Variables("p_Result").value = "ERR##601" 'Fehler beim Sichern des Dokuments                  	  
                                       !  "  #  $  %  &  '  (  )  +  ,  -  .  /  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  i  k  l  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~        ,( 0     F     i am not allowed to use end :-(   o      = set formats which are necessary for labeling to work properly        6 set layouting options for each textbox in the document        CH 2006-06-20             if it is a label  $ N       ]          ,!               
   9   $ this implies "move object with text"         
   9 9     > CH 2006-10-11 prevent compile errors during runtime on Word 97      B@H          (! $ ~  	      
 * .WrapFormat.AllowOverlap = True 'Word 2000  !   B    uk     (! $ ~        
  .LayoutInCell = True 'Word 2003     !   B        k   q              k h  o `  X     Attribut e VB_Nam e = "wwi SaveDocu ment"
'F*@     :  Issue!Felix  Ardelean;13.01`.2003 P`urpos@  the frontend d. Changes:![ Da]-[S1 Actilon7] Df orce dec lare var iable
Op?Explicit
 Pub Sub Main()
  D im p_FileRft As Sng
 iInde s Iger = 1AOn E rror GoTop
= G	.VD-s("p _Result")@lueP'3A-bIf1" 8TheE"LibA>.GetPa th(15, 1! F'  E~IfAxAZr, durings tim@b  FE6@Nex d AD@t8Wh i.Count > 0=c9D@I`s).TAcIQX.((9#`+!GW mQ'CH s 6-06-20  set oYs 	] t'boxes klabelsTCall FormatL
9s!Rl ~#^`:=pV, C:=wd#R,TF0	d Tru6AaGglobal ] e mov%E,	c.Adjd=Gd, 	@d:="OK2! r1C
t$b  BooC  vERR##60p1"  ?Ujva@@+"g'Fehler beSicherns Doku!ѢC#=!O10:  'i am not Iowed  to use :-(@A'!;RNs wh necespsaryVbTo  work properlyqlayout\eache] in碊jd
(CSb`	  A4'if  it is a  Info() +-1$}!Cshap`Ya E	`HSqWith     .Relat iveHorizualPosij8= _!	a1 wdColum]'thpimpli@A"move  object >wC1VVertic?u7 Paragraph' .LockAnch`p= C@%M10-11 ev compՁ]essudr\daNWord 97Gs.SpacbdVal(Ap`cPon.`s@) >= 9h'.W ".Al lowOvP)apP Q 'RX C#_Q rVps. -dm TsYD(	.B!R`uu c|  '.L3InCe_GL3E3D3?P?11.cQ}.pV0B                                                                                                                                                                                                                                                                                                                                                          	     (             X                                                                                         x                                       ME                         (L    >
        L    L    L    L         
              L        L    
    
             H        `            0  po   3 3      `x         `&v       `r     x   0	  `            H  <k    A      x        Sav   %          .	                %      p   X   @   `    0    0    ,0	f} ) L [ L  t @   p	     f ( @H  l	     ( u @x  \     ) L @  L     C o @H	         @D     C #@  4         @  $     C #@           @       C #@           @        C #@8           @P           @h           @          @       @           @  t         @  d        @  T     @  D     @(  4         @@  $         @X       m  @p       %   @       @       @       @           @       H@@            @           @         @t        @p     n              0    H  N,(~ #@  t	         @   p	     C #@X  l	         p  0   Xo  @  hO	       X          d  `      %   0     ` p  @T     @D     Pp  @@     @<	     p        Q  @     X      8                                            tVH $ * \ R f f f f * 1 5 4 8 8 8 6 1 d b  * \ R 1 * # 1 5 5  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # c 6  * \ R 1 * # c d  * \ R 1 * # c c  * \ R 1 * # 4 3 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 1 * # 9 6  * \ R 1 * # 9 7  * \ R 1 * # c 0  * \ R 0 * # 1 0  * \ R 1 * # 1 2 9 $ * \ R f f f f * 1 J 4 9 1 d 9 5 e d $ * \ R f f f f * 1 K 4 9 1 d 9 5 e d                                                            ^  	 J        	 $   P    	 $   x    	         	        	 0       	        	        	 <      	 J   X   	              	      	     "      	                  	               8 N    	 "   0   	 4   X   	       	 B            E    	      	 0      	    @   	 D   `   	 4      	       	       	       	      	 8         X      `   	        h    v p   
     	      	 ,      ( @    
     	           	             	             $      @ 0        	       .     	            	      	 D      	 <   P   	      "      	     	                   /     	          	 *        @   	       P   	 D   X   
      1    	 0      
 0          1    	 &   0   
 0 X     p   	        x   
          	          	          D **********************************************************************        Name:       wwiSaveDocument       Issue:      Felix Ardelean                    13.01.2003           )    Purpose:    Save the frontend document               Changes:   das    6    [ Date ]-[ Name   ]-[Action                       ]    D ********************************************************************L    force declare variablLlp $ 4  p  l0  H8  ) plH5L 
     K v't''''''4'T't'''''L   xM\@p $ 4  p p6 LtT4t p $ 4  p  p @H:\ NLL  lp $ 4  p  l4  ) plH5L p $ 4  p  p + $pp $ 4  p  kpprp @H:\	 NLL  lp $ 4  p  l4  ) plH5L krp $ 4  p  p        0(                     x X          D p l H L      t T 4      t   	 +
   d    
   ] /pt $ 4  tD Qp[lxth ] 	lxd    d      d   d   'Dx 5D 1@t $   t  l@
  	/@t  0pt $ <  t0 Qp<<
  ) t<  1@t $   t  l@
  /@tF 0pt $ <  t0 Qp<<
  ) t<  cd xh >           @ d4                       l h d x            @ t p < D        f                                      rU                    	     B         $      B    `           $      B   `                 n                                                          rU              ~|         	       	     E      D                   q            !                  9$            A            y            )      9C      aC      C      YS      S                  1      C          .     !  B@2       Zeile 1      !  ! .         >	           >	  \    ,! .    :      ' <	      d x    ,! .   :      ' <	    k P    <	    ,           Zeile 2      !  ! .         WWIRES32.DLL    6	$ $  ' <	        <	    ,          , Zeile 3 - Weitere infos Dynamisch hinzufgen         !  ! .         N% N        	 EHS_LABEL ' <	      d P   
 EHS_REPORT' <	      k 0    <	    ,        o        Attribut e VB_Nam e = "wwi Version"

'*@     :  -  InfoA%Issue&T echniDAT A GmbH/Markdorf 3 Felix Ardelean := Purpose:ChangesC w[ Da ]-[ Actwv]$Â%f orce dec lare var iable
OpBExplicit
Pub Sub Ma in()
  '-- local s -+ #Dim nRe@chDLLD  As SngEFromRegSPmsch ached Templ gPathAConst % 2005@ / 3.2@2 .7B SP16 , 31 Augu @7   J current settingJc ASetEnv32. )&OLibDll@*(RnAI = System .Priv?rofile\("" , "HKEY_ CLASSES_ ROOT\WWI DOCUMENT\Cur	"qGa?urSPat6= iveDocum-.V[ s("p_Res ult")lu]	' new`ya@l tha`s  into a @collecbTd dynamig^UR3C UObjrowHw6 %Ltler.B
i _input_tBA	.Ro ws.Remov0eAll!a 'Zre8 1a=#EcAddIf )<> "" The!g=+ "\" +M0Ík " : !$QaEls 2g8nd If! .Cell(1) cgd"2A{"#"\RESi B LTrimj  `$3 GWeite A:s DH sch hinzpufg,^5|. LabelAGet()n4"EHS_LABEL"+REPORT;'ESub
   * \ R 1 _ _ S R P _ 4 4                                                                                        `      _ _ S R P _ 4 5                                                  \   _                                         g       w w i R e s o l v e                                                                                    ,      _ _ S R P _ 4 6                                                                                                @      q     A            (      
     hH
  Hl -@   D $ T  DP  >@1dD -@   D $ T  DP  >@1`D N@(:,	 NHH<D $ 4  D 
 <0  (,  >@1X) D<(5H F:, %<D $ 4  D
 <H  A  4$) D<6 H  $W     5  $WH A  4 6 H  lX = RlX *F HD $ 4  DX
 H:, : `1\D6
  H  @HD $ 4  DX
 H:,  : `1\D6 H   (, %l\F%    $WH A  4 6 H  ): hM,@H
  H `1\6 H  (, %l\F%    $WH A  4 6 H  
     C\   C\  (, %l\F%             D            ,          \ l d ` h   X $ 0     	     @ D < ( H          k                                      rU                    	     D         $      D    `                 n                                             	                                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  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~          ,     (  l           X                                                                                        x                                       ME                   ,      6
    
    
        L    L    L    L    L        
    <0     <4     <8     <<     <           x     `            X  k   6 6      @,l         `6	h       `8	d     x   `:	`     ATA `<	@   \     x Ar`>	X        @     H         `$	         ` 	     Name    4	 H               %         p      X            h  P  8       & 2005 / 3.2 / 2.7B SP16, 31 August 2007Bh,$Nz   #@  H         @  D	     C #@@         @  <	     C #@  ,         @(	         @@           @            @           @(           @         @X           @                                                     tVH $ * \ R f f f f * 1 6 4 8 8 8 6 1 d b $ * \ R f f f f * 1 E 4 9 1 d 9 5 e d $ * \ R f f f f * 1 < 4 9 1 d 9 5 e d  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # f f  * \ R 1 * # c 6  * \ R 1 * # c d  * \ R 1 * # c c &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d                                                            F  	      	 J        	 *   P    	 >       	        	        	        	        	 <       	    @   	 J   H   	      	              	      	     "      	     	 H            	                     (      0      8   	      2   @   	 H   x   	      
          	      > -    	     > - (   	      N h   	      	 @                  	     , F         	     	         (     @   * R P         @              	      	            " )         	     	 2   0     h    
                             	               D **********************************************************************    #    Name:       wwiVersion - wwiInfo        8    Issue:      TechniDATA GmbH/Markdorf - Felix Ardelean                Purpose: 2002              Changes:          6    [ Date ]-[ Name   ]-[Action                       ]              D **************************************************************************    force declare variabledecl@           B -- local variables -----------------------------------------------] @   ] X   ] p   ]    ]    ]    ] & 2005 / 3.2 / 2.7B SP16, 31 August 2007   t  B -- current settings ----------------------------------------------  BB@D          6	  h%  ' ,    $ HKEY_CLASSES_ROOT\WWIDOCUMENT\CurVer     %  ' 8	      # HKEY_CLASSES_ROOT\WWIDOCUMENT\CurSP      %  ' :	    p_Result  ,% < ! L' >	    :  new - fill the values into a collection Table - dynamical]    ]       info_input_table  ,! %  !  ngp ulValFile@WWIiniB ookmarkfRErrTyp#ALngALo+Heigh+I Width
Refp
nVCZImpleAYqYeBActiv eWindow.MA.A AlpDM="  LibB.G etPath$( 1, 1)  'D p of	.INI R
l)o= D.Vs("F_full_n@") lu lps B AJq4, 3Ulpe:1$L17aa$'CH2 006-11-06 # is s ometimes  not set. ThresAVed inv"emprommssA- PCr&w	: or M essage S OFFICEIN TEGRATIO N153 "Fehler be i Setzen v`xDat e` aProvid er-Objekt'and wrV reportdispla`yed
 @ 
Env32. !bDuHCDll 'ad7(@, _
d ld{fDcZEIQ!nÉ⌿@` 
If @2 \en<@AEdit@Tools.@___global_va { ("E RR##614"GoTo 10@^ can'tC  at hadasopXESAS!+6!P6(d onPD'i5Sp7sinnEHS32SP09  ;
4 7Else%'3$' MOl eDynText@.Start4Graphicet 5_R9
> gH J51't!Gw8ill=qG!Fan0 errD}H&@S 3.2   it would anywaybecausedoesqsupKAsd t until No`X  p,""OK##" &R&"	!0 comgib@ilitiylyturn O&KQ(oc(OK%1(EOIfL10Si-q@2saP    p        X  F\,Bhl   %@  ,	      e@  (	     C5@$         @     p%@      e@ 	         @           @         8                                          x  tVH $ * \ R f f frU              ~|         	       	     G      F       !                                    9            y                        	            A                  8$(,  $ 8  ,  ((  l$i0) ,(   1\ N : N(,  $ 4  ,  (0   , 	 >1h) ,( 5   1`   1X   1T   1d 

    -@DHlPlXlTl\l`ldlh^ ( il l( ]3*    1/ us l( ]ta $: l  12 5s     1/   /0"(,  $ 8  ,  (,  ) ,(          H   l        0     	     T ` l d P X h 0 \ $            , (     u
     k      	 N   8 rU                    	     F         $      F    `                 n       H   	      	 ^  rU                    	     H         $      H    `           $      H   `           , _ _ S R P _ 4 7                                                  N   
                                         g       w w i O l e D y n T e x t                                        j                                               _ _ S R P _ 4 8                                                                                        '      _ _ S R P _ 4 9                                                  b   e                                                        (  ?           Xk                                                                                        x                                       ME                   0      6
        L    L    L    
    L    L    L    
    
    
    <4     <8     <<     <           8     `              k   ? ?      @B	l      $ `h     IDOC`d     x   ``     _CLA`\     T\Cu`X     :	  `T      ! `P      fil`L     ****`X   H     ****`D     ****`   @     decl@D	   0            @	                %   H   0  H     @   p              `     p        X  F\,Bhl   %@  ,	      e@  (	     C5@$         @     p%@      e@ 	         @           @         8                                          x  tVH $ * \ R f f f f * 1 7 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # d 0  * \ R 1 * # 1 5 8 $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # c 6  * \ R 1 * # c d  * \ R 1 * # c c $ * \ R f f f f * 1 E 4 9 1 d 9 5 e d $ * \ R f f f f * 1 < 4 9 1 d 9 5 e d $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d                                                            L  	      	 J        	     P    	 ,   p    	        	 2       	        	        	 J       	      	    P       p   	     "   x   	      	 N             	                                                                                  (       0   	      	 N   8   	        8    	       2      * N                    0      H   	      	 ^   `   	 r      	 $   8    
  `   	      P ^ - p   	"                     	 X       	 .   X   	       	       	       	       	       	    (   	    H      h   	    x   	 B      	 `       $ 8      X   	 (   `              	              /    	           	          D **********************************************************************        Name:       wwiResolve    &    Issue:      03-02-03- Technidata AGATA           +    Purpose:    Resolve the preview document L        Changes: 	           D ********************************************************************        force declare variableB              G  Local Declarations ---------------------------------------------------   ] @   ] X   ] p   ]    ]    ]    ]    ]    ]    ]   ] 0  ] H  ] `     H  Implementation --------------------------------------------------------    F! H! l' D	      \% ^ '  &   path of wwi.INI file         ActiveDoc_full_name   ,% < ! L'             \% ^ '         \% ^ '         \% ^ '         \% ^ '      W CH2006-11-06 Path is sometimes not set. This resulted in severe problems in WWI Preview      l problems were: Error Message SOFFICEINTEGRATION153 "Fehler beim Setzen von Daten in ein DataProvider-Objekt"          and wrong report is displayed       BB@D         $  " 
 "  "  "  "  "  "  "  "                       h% 
 ' B	    B	          ERR##614   lB@n        R you can't do that here as the open document is the layout and not the resolved one   ' implemented since EHS32SP09 EHS2004SP07       ElseIf lRet = 3 Then            wwiOleDynText.Start         ElseIf lRet = 4 Then            wwiOleGraphic.Start         ElseIf lRet = 5 Then            wwiOleGraphic.Start           wwiOleDynText.Start       B	  
 e        CH 2005-02-01       < this will result in an error on EH&S 3.2 but it would anyway        Z because it doesn't support Graphics and Dyntext until Note XXXXX or EHS32SP09, EHS2004SP07  OK##  B	    lB@n       d      ! for compatibilitiy only return OK   OK   lB@n       k X    F     D	  F! H( lo 8   0     7 Attribut e VB_Nam e = "wwi Resolve"

'*@     : AIssue0 3-02-  T echnidat0a AG (+Pu0rpos- t he previ ew document-Changes:  C $ force de clare va riable
 Option E@xpliciA
Pub Su b Main() Local D as -/  
Dim lRe5pLayout As S \ R 1 * # d 0  * \ R 1 * # 1 5 8  * \ R 1 * # c 6  * \ R 1 * # 1 0 3  * \ R 1 * # 4 3  * \ R 1 * # c 7 $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # c 0  * \ R 1 * # 1 e  * \ R 1 * # a 4  * \ R 1 * # 1 2 9  * \ R 1 * # 7 3  * \ R 1 * # 1 a 7  * \ R 1 * # d 2  * \ R 1 * # f f  * \ R 1 * # c b  * \ R 1 * # c 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 0 * # 1 0 (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0 $ * \ R f f f f * 1 I 4 9 1 d 9 5 e d  * \ R 1 * # 4 2  * \ R 1 * # d 4  * \ R 1 * # e 3  * \ R 1 * # c d  * \ R 1 * # c c  * \ R 1 * # 1 5 3  * \ R 1 * # 1 5 5  * \ R 1 * # 1 5 6  * \ R 1 * # b 6  * \ R 4 * # 2 a  * \ R 1 * # d d  * \ R 1 * # 2 1  * \ R 1 * # d e  * \ R 1 * # d 8 ;                                                           
 	 J        	 $   P    	    x    	 $       	        	        	 <       	 P      	 J   X   	 *      	 n      	 X   H   	 X      	 p      	 p   h   	 4      	 t      	 D      	 P      	 J       	 ,   p   	 F      	 h      	 ,   P   	 T      	 n      	 ,   H   	 p   x   	       	 z   p   	 \      	 x   P	   	 L   	   	 J   
   	      	    h
       
   	      	 J   
   	 D   
    P   (    B   x    ,      	 J      	      	 H   @   	 H                                (       H       h                 	 J      	      	      	         -       2           XU                                                                                        x                                       ME                         0L    >
        L    L    L    L    L         L    
    L              L              L    L    L    L                
         L    L    L    L    L    L    L              L         L    L    <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <            )  L	         @        P	P     H            R	0    H            V	X    H            Z	     H   	         \	   H   
          global DYNTEXT_STATUSx     `            0  \k     ;     `z     D   @D	h      som    `               k  q q S     `d	  H     epor`f	p  H       `h	x     0  `j	v         `t         `l	p         `l         `j         `n	d         `p	  b         `r	  `         `t	^         `v	\         +x	h    `              do 0          il	      P         i             `z	n         `|	l         `~	j         `	h         `	f          	`              %    	  \              %    	X@             %   `	  V         `H  T         ``  R         `	P         `  N         `	L         `	  H         `	           `	         `	  	         `		         `	  p         +	    `               Lk            i|	             i~	             )	                   %   )	 0                %   `	n         @j	\         `  Z         `	X         +	    `              `k     ? ?    i|	               i~	               )	 8      @            %   )	 `                %   `	n         `j	l         `	j         +	    `            8  `k     9 9    i|	               i~	      0         )	 P      X            %   )	 x                %   `	n         `j	l         `	j         +	 	    `              4k     G    `	X  x         +	x	    `            h  dk     a    `^x         	 
    `              k  : : w    `r	r         `j	&          	  
             %   `	         +	
  	  `               k `
   	 $ $    )	 
              %   `x         `t         `	p         `	l         	X  
  `            P$  k 
 ( (     `j	r         `r	p         +	  `            &  (k          i	           H	            @        J	           @        N	(      H            T	x     H            X	      H            X        P      
    x   x	  x  
  (      X   	  0          h           F	 8              %   F,f2 @p  d	     @`	     @\     
 wwiDyntext DyntextOnRawReport     DyntextWarnings        DyntextScreenRefresh   wwiDyntextNoMatch      MIN_REACHED    keep    H  `  X        @  @   L         @  <         @0  ,     *@H          @`           @x           @       (_%@         @       C5@           @       (_%@        e@        C5@8  |         @P  l     %@h  \       @  L         @  <         @  ,     hF2@         @       X0@           @       *@(          @@           @X           @p       d%@          @           @  |         @l     *@\          `    H        x  0           X  @         DYNTEXTS      \N	T	L	(FR	H	 /@  X        @T     H*@  P	         @  L	         @H      e@F     C5  J	J\	   @p  4     _2@  $        @     Y+@         @ 	     '(  ,x	         
ep      (      P       8    x  p    @     (    H  p      `x	z          p      H3     C5`l	t                 `p                   ~ &$,F   @X  8         @p  (         @  $     @-@          @           @           @       L'@        @       -@x           @  	     @-@0  	      
e@  	         @           				 ,@         @t     C5`  	J	H	V	J	X	   @l	     P%  Z	           
e@  h         @d         h    (      8  P  X  p        `	z    %       C5      % 	t           %   H       C5 	  p@            %   (      %@  T	      e@P         			  @-/     @L	     @-      X    h        X     p  `	z     e  X               e 	t            %                	  p     @-   %        
e@d	         @`         	L	(     Q    +      @        p          `	z                    0     
e 	t(            %   `             	  pX     ,   %   @       e@d	         @`         	L	(   
eQ   ,	        8  X    p  `	z          X                  		             @  t	         @  p	         @`         @P  P         @   L	         @H	         @F         @4           `	    X  p    @     `	z        0                    	(~         @  t	         @p         @  l	         @h         @d	         	  	  
  	              x   	F2	   @  x	         @t         @H   l	         @j         @   X         @0   H         @   8         @   (         @`   	         @	         p  		               @         @         
  
  `!  
  
  `
  !   $  "  0"  8$  !  `!   "  x!  `	z        !  `!          !          @h         @!  d         !  !  
       @`         $  !  
                       @H"  P         @x"  @         @`"  0         @"            @"           @"            @"           @"           @8#           @#           @ #           @P#           @#           @h#           @#  p         @#  `         @#  P         @#  @         @#  0         @          @         !         @	         @         @  (  %  %  %  h%  P%   %  $  	F	     @8%  x	         @t         @%  l	         @j         @%  X         @%  H         @8         @(         @$	         @%            @         &     '  '  &  &  &  `	z        &  &                                   @0'  h         @`'  X         @H'  H         @x'  8         @'  (         @'           @'           @'           @ (           @'           @(           @8(           @(           @P(           @h(           @(  x         @(  h         @(  X         @(  H         @8         @(                            X                     #   tVH  * \ R 1 * # d 4 $ * \ R f f f f * 1 8 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  *"       	                  	      8    	        (   	      / 0   	     	 ,   @    - p   	      s    	     
     	 @      
     	 .      	 0   (   	        X   	     "   `   	     	 H   h               	     	 H         (      0      8      @      H      P   	     .   X                           	     	 H      	             	     	 B   (   	 X   p    &          	    
            	    
        0   	     	 $   8    4 `   	     	 N   p    3     3     3    	      	 B       & 8     X    	 h     p    	 x        	     	 2       	    	          	      5    	                	          	      9     < 0     H    / P     `   	       h     x   	       -    	     	 T            	 F      	 H   X   	 L       6     ?          	       (   	 J   8        	          	                 	          	     	 0       -     -     - (   	       9 8    * P     `   	      5 h   	     	 &       .    	     
     	          	     	     B      	      	      	 H         (      0      8      @      H   	         P      X      `   	        h      p      x               	           	           	     	     	 H            /      6     	      	 l   @   	 H      	                       (     @   & 3 P   	    x                       & 3    	                    (     8     @     H   4 O P   & 3         	                 	      ?         	     	     	     	 F      	 8   0    , h    , x    ,    	      	          	     	 *       *    	          	     	 @        (   	     	 $   0    5 X    5 x   	          	     	 2      " 7    " 7     	     	 .   (    % X     h   0 - p         ,    0 -    0 >    
  (     0   
& C 8   	 4   `   
          
                              	     " <    	 B        % P    	      + `      p    
 
      
     	           	     	      %      %     	      +            
 
  !   	      " !   	      	  !   " < (!     P!   	     	 b   X!   
  !   
  !   
  !     !   	       !      "   	     	      + ("     8"   	     	 b   X"   	 4   "   
  "    + #      #     8#   
 
 H#     X#   	      9 `#    < x#     #    / #     #   	     	 Z   #      $   P  $   	 4   h$   	 v   $     %   	 .   (%    % X%   	     	 b   x%   	 4   %   
  &      (&   
  H&     X&   	     	 T   `&   	 P   &   	     '     ('   	 J   8'     '     '    L '   	     	 T   '   	 0   (     H(    @ P(     p(    V x(   
 H (     (   	     	 R   (   	 &   )   4 ^ 0)   	       h)     x)   	       )   	      
 )    
 )    
 )   	          )   	       )   	 @   )   	    )    , *   	 <    *   6  `*    ? *   	 @   *   6  *    ? (+   	 L   @+   	 @   +    . +   
 + +     +      ,   	       ,   	       ,   	      	     B   ,   	 H    ,      h,      p,      x,      ,   	      " ,   	     	    ,   	 (   ,   	 4   ,   
 
 -     (-   	       H-    % X-     x-    % -     -   	       -   	      % -   	       -   	        -     -   	      	      	    -  B   .   	      	 H   .      X.      `.      h.   	        p.     x.   	      " .   	 L   .   	 .   .   	 T   /   	 `   h/   	 4   /   
 
  0   	      .  0   	       @0   	 r   P0   	 @   0    % 1   	        1     (1     01   	        81   	      	 H   @1    " 1   	 ,   1   
 
 1   	     0  1   	       2   	 r   2   	 @   2    % 2   	        2   	 J   2       @3   	 *   3   	    4   	 .   4   	 ,   @4   	    p4   	    4   	      	      	 F   4   
 
 4   
  4     4      5     5     5   	        5  B    5   	      	 H   (5      p5      x5      5   	       5     5   	      " 5   	 6   5   	 F   5   	 &   (6   
 
 P6   V  `6   	        6   	 r   6   	 @   @7    % 7   	        7     7     7   	        7   	      	 L   7    x   8   	 .   8   	 ,   8   	    8   	 <   8       09   	    9   	 "   9   	     :   	    0:   	     	 J   @:   	 6   :   	 $   :   	    :   	    ;   	    0;   	      	 F   @;   	     
  ;     ;     ;     ;     ;   	       ;   	     B   ;      ;   	 T   ;   	 `   (<   	 0   <   	 N   <   	 $   =   	 <   0=   	 P   p=   	 ^   =   	      
  >   	      U (>     H>   	 (   P>    4 x>     >     >     >     >     >     >     >   	      	 t   >  B   @?      H?     P?   	 Z   X?   	 8   ?   	 V   ?   . X H@   	 v   x@    F @     A     A     A      A     (A     0A     8A   	       @A     HA   	      	 .   PA   	 2   A  "   A   	       * A      A   	 F   A    3  B    , 0B   	 (   @B    5 hB    5 B   	 4   B    9 B   ( & B       C      (C     0C    E 8C     PC   
 
 `C     pC     C   	    C   
  C     C   	    C   

 + C   	    C   
 5 D   
 5  D   
 + 8D     HD   	 2   XD   
 & D   
   D   
 > D   
  D   	 "   D     D   
   E   
 5 E   
 +  E     0E     8E     @E    
 HE   	    PE    - hE   	 "   xE    5 E     E   	        E   	      	 2   E   	    F   	 4   F   	 4   PF   	 ,   F  B   F      F      F      F      F   	       F   	      	 (   F     G      G    3 8G   	 D   XG   0  G   	      H     @H   	 *   HH     xH     H     H   
 
 H   	       H   	 8   H    % H   	 B    I     HI     PI     XI   	     	    `I     xI   	       I   	      	     "   I   	       * I      I      I   	 F   I    3 I    , J   	    J    5 8J     XJ     `J    > hJ   	    J     J     J    M J   	 2   J   	 .   K   

 + 8K     HK   	 .   PK     K   	 ,   K   	 F   K   	 $    L   	 :   (L   	    hL   	 <   L   	 $   L   	    L      M     M     M   	    M    - (M     8M   	        @M   	     B   HM   	      0  PM   	       M     M     M     M   	        M   	      	      	      N     D ********************************************************************  =         Name:       wwiEOleDynText                   Purpose:    resolve DynText                  Changes:          6    [ Date ]-[ Name   ]-[Action                       ]      I    MI180401: Modified public function Start(), private function DynText()    D              and added some global constants and variables to handle         $              dyntext for raw reports         h    CH 2004-07-13 check whether Min is bigger than max as this caused an endless loop OSS 0000402358 2004     R                  exchange values when that happens and print message to error file   R    CH 2005-05-13 Selection.Information doesn't work when WWI is running as service   j                  so we now use TextFrame.Overflowing which is not working with pos frame (Positionsrahmen)   i                  so we use Selection.Information only for Pos frame which won't work with WWI services :(    .                  OSS 576058 2005 / Note 845617x    n    WA 2005-07-12 New dyntext overflow detection seemed to have a problem in rare cases (Brenntag, Jan Schuur).       >                  Added a screen refresh after each grow/shrink       I    CH 2005-08-04 TextFrame.Overflowing caused memory problems on Word 97,    C                  so don't use it on Word 97. Done for RS Components          %                  Note 845617 extended        ?    CH 2006-02-01 Make Word refresh it's screen (OSS 50716 2006)      b                  in some cases Word 2000 doesn't calculate correctly without refreshing the screen   %                  Note 845617 extended        N    CH 2006-04-19 Overflowing flag seems only to work for horizontal Textboxes.       h                  Air Products uses vertical (upward) Textboxes, so had to do this fix (OSS 369829 2006).     %                  Note 845617 extended        i    CH 2006-11-22 if using overflowing flag don't add two paragraphs at the end as they mess up the result    ~                  this can result in getting a dyntext warning even if the texts fit, or in a too small font size (Dow Corning)       t    CH 2007-01-30 delete empty paragraphs at the end of text boxes so they are not relevant for dyntext (Dow Corning)         V    CH 2007-06-06 sizing of textboxes with only one character didn't work (Dow Corning)       r    CH 2007-06-12 do orientation check only when it is a TextFrame otherwise no dyntext is done for position frames   E                  OSS 472644 2007 (Dow Chemical), Note 845617 extended        D ********************************************************************          force declare variable    p     D  -- module global variables ----------------------------------------         >  MI180401: added the globals to handle dyntext for raw reports    ]    % B  if true a warning is generated that text does not fit into shape.]    % 4  no. of shapes where text does not fit after dyntext      ]      '   force Word to refresh screen        D  -------------------------------------------------------------------         B -- constants -----------------------------------------------------   B  MI180401: added the 4 constants to handle dyntext for raw reports]  global        ]  DyntextOnRawReport(     ]  DyntextWarnings P       ]  DyntextScreenRefresh0  ]  wwiDyntextNoMatch x     ]  DYNTEXT_STATUSX        ]  MIN_REACHED    ]  keep      D  -------------------------------------------------------------------          ] H  ] `    F! H! l' D	A       D	  F! H( l  %  WA270899 to get correct page numbers       ,! ^	B@`	      f d  ,B@`         B@b	          :  WA270899: to avoid saving normal.dot due to TmpDDE change  2( 0        ' Don't close docuements in new layouting     ) ActiveDocument.Close (wdDoNotSaveChanges) o    x      B -- constants -----------------------------------------------------] 
 wwiDyntext    ]  DYNTEXTS        B -- local variables -----------------------------------------------]   ]    ]   ] 0  ] H  ] `  ] x      MI180401: path to wwi.ini file   ]   ]   ]   ]     B -- program logic -------------------------------------------------   Application.Visible = True      \% ^ ' n	    ; CH2006-02-01 Make Word refresh it's screen (OSS 50716 2006)         R  in some cases Word 2000 doesn't calculate correctly without refreshing the screen  N	  T	  n	  \% | '           1     ' L	    (( *      d    ' L	     (( *      k      CH 2005-04-15 store view type       F! H! l' t	  G  MI230401 save original word settings to be retsored at end of function     F! H! ' p	  F! H! ' r	  F! H! ' v	  ;  MI180401: see whether warnings have to be generated or not         N	  R	  n	  \% | '           1     ' H	  d    ' H	  k x    ,  MI180401: Initialize bookmark error counter         ' J	      \% ^ ' h	          B@T       ' j	     '   j	     F! H!           J  F! ! H( l    d     J  F! H( lk        '     d	   ' l	    h	  f	  l	  %  '         M  MI180401: consider that dyntext for raw reports may be activated in wwi.ini.         \	        ?  The shape corresponding to the current bookmark has at least 1     B  symbol which could not be resolved. So delete the bookmark, leave  E  the symbol for a later report generation and do not perform Dyntext.       l	  ,! %         l	  ,%  B@>      k 	        
 e     D  Execute Dyntext and delete bookmark and symbol enclosed by bookmark        l	  $ x	 '       d X	      End of loop       ' j	  k 0	   (	    ) MI230401 reset the original word settings   r	  F! H(   p	  F! H(   v	  F! H(   F! H!           F! B@B     k           B@T           CH 2005-04-15 set back view type    t	  F! H( l  (( *      o (        B -- local variables -----------------------------------------------] p  ]   ]   ]   ]   ]   ]   ] (  ] H  ] `  ] x  ]   ]   ]   ]     B -- program logic -------------------------------------------------      ,  ' z	        z	   $   $ ~ ' |	      z	   $   $ ~ ' ~	    e CH 2004-07-13 check whether Min is bigger than max as this caused an endless loop OSS 0000402358 2004       A exchange values when that happens and print message to error file    and do some more checking ]   ]     |	      |	 x 
     |	$ & ' 	     Y  	  RTFError  $% * '      set to minimum size         ' |	k X    ~	 x 
   ~	        ~	$ & ' 	     Z  	  RTFError  $% * '      set to maximum size        x ' ~	k     |	  ~	
        |	' 	  ~	' |	  	' ~	  min =   ~	$ &     max =     |	$ &  ' 	       [  	  RTFError  $% * '   k H   ' 	   `8    l	  ,%  B@H      ' 	    ?  MI230401: hide hidden text to prevent that the dyntext symbols     2  are included when zooming the font within a shape   F! H(      F! H(     F! H(    ' 	    $ DynText fr TextBox oder PosRahmen ?        ! 	  	  ' 	    9 CH2007-01-30 delete empty lines at the end of the textbox A 	       Select all text in the Textbox            B@F               B@       d `    +  WA060300: check for size of pos frame, too       ]    F       ! % 	 . 	      ] 8  F       ! % 	 . 	        ' Markiere ganzen Text in Positionsrahmen     ! '     ' 	    	  ! B@	  0   settings position frame  	     FormatFrame   % z        	  ! B@	  7   settings position frame  	    	! 	  	! 	   	! 	  	! 	    ' 	  d      	         %  ' 	   
 .  WA090999: If last paragraph then endless loop      	          ' 	  k H   k @   d 8    ' 	  k (          	         B@	       ; Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend         !  '        ! . 	           	B@4         	B@H          . 	k P    ! '       !  '        ! . 	              	B@4   	B@H          	! ! ' 	  	    	         B@       k     \ CH2006-11-22 if using overflowing flag don't add these paragraphs as they mess up the result      $ 	            B@           B@         k     	  	! (             	B@4    ! . 	           	B@4         \ CH2006-11-22 if using overflowing flag don't add these paragraphs as they mess up the result        . addrange are the two mini paragrahs at the end    $ 	             ! . 	              	B@4     	! (   	B@H        k     F! H!           J  F! ! H( l    d h    J  F! H( lk P    S  WA090999: do it only if there is text, otherwise increasing font size runs endless       ] P    	! d ' 	   ;  use len of text as characters.count doesn't count properly   - I can't find out if paragraph is empty or not       p a empty paragraph has characters.count = 1 and a paragraph with only one character has also characters.count = 1    	          ' If wholeRange.Characters.Count > 1 Then     |	  ~	  	  	$ 	 '         \ CH2006-11-22 if using overflowing flag don't add these paragraphs as they mess up the result        . addrange are the two mini paragrahs at the end    $ 	                      	B@4   	B@>        k     N  MI180401: if the whole text does not fit into the shape put the complete text      I            into a bookmark. The bookmarks may be evaluated by a user exit               macro later on.  H	         C  Create a new, unique bookmark and put it on the complete paragraph         V	  J	X  ' 	  `    	   	   ,! B@     M  Create a document variable (gc_szDYNTEXT_STATUS) to signal that minimum font       *  size is reached (gc_szDYNTEXT_STATUS_MIN)      X	   Z	 L  ,! <B@         X	  ,% <   Z	      Z	  X	  ,% < ( L  k P    L Trace Warning (2) that that minimum font size is reached (605), by including         the first 20 chars of the range      ]  	! d  $     RTFError  $% * '       J	   ' J	  k   k x    . 	  . 	  . 	 `X    	     9  MI230401: show hidden text so that the hidden symbol can     be deleted as selection    F! H(     5  MI180401: Delete the symbol enclosed by the bookmark         ,  MI180302: Bookmark might be already deleted    l	  ,%  B@H        9  MI180401: Delete the bookmark itself from the collection     ,  MI180302: Bookmark might be already deleted    l	  ,%  B@>        E  MI180401: Delete the symbol (if available) enclosed by the bookmark.       9  This might be the case if we are resolving a raw report.   ! d   
          B@>        k    k   ' x	  i   h      B -- local variables -----------------------------------------------] 8  ] P  ] h  ]     	! ! ' 	   Text pat in Rahmen         " If WordBasic.SelInfo(8) <> -1 Then  -  WA140801: size up if font lower than minimum     $ 	  ' 	            	    	  |		       	  ~		        |	  ~	  	  	$ 	 '       d     |	  ~	  	  	$ 	 '       k X  d P    |	  ~	  	  	$ 	 '       k (    ' 	i        WA140801: pass nMin            B -- local variables -----------------------------------------------] h  ]   ]   ' j	    j	     	! ! ' 	  E Font vergrern, solange er kleiner als nMax ist UND Text in Box pat       (  WA140801: size up if lower than minimum    N CH2005-05-13 Selection information doesn't work when WWI is running as service      Y so we now use TextFrame.Overflowing which is not working with pos frame (Positionsrahmen)   . If Selection.StoryType = wdTextFrameStory Then    $ 	  ' 	          	    	  ~		   	     	  |		       	! B@	      k WA 2005-07-12 New dyntext overflow detection seemed to have a problem in rare cases (Brenntag, Jan Schuur).         : CH2006-11-22 add switch for that as it needs a lot of time  L	 G   (B@	  j     d    ' j	  k        A wurde Font durch letztes GROW grer als nMax oder grer als Box   	! ! ' 	  %  WA140801: don't size down if minimum     $ 	  ' 	              	  ~	
   	     	  |	
     	! B@	      k WA 2005-07-12 New dyntext overflow detection seemed to have a problem in rare cases (Brenntag, Jan Schuur).         : CH2006-11-22 add switch for that as it needs a lot of time  L	 G   (B@	  j     k      D   ' WA170701 Try to shrink it only by half size, remove IF above !!!                While (nFontSize > nMax Or'      Selection.Information(wdVerticalPositionRelativeToTextBoundary) = -1) And'      nFontSize > nMin      $      'WordBasic.SelInfo(8) = -1 Then                '     For Each c In wholeRange.Characters      %       c.Font.Size = c.Font.Size - 0.5        
     Next c      Wend      @  WA310701: set return code according to whether text fits or not  $ 	  ' 	        	         ' 	  d 
  ' 	  k 
  i 
        B -- local variables -----------------------------------------------]   ]   ]   ' j	    j	     	! ! ' 	  0 Font verkleinern, solange er grer als nMax ist    @ ODER Text nicht in Box pat UND aber nicht kleiner wird als nMin      WA300801: changed from >= to >   $ 	  ' 	          
    	  ~	
   	   	  |	
          WA310701: changed from >= to >     	! B@	      k WA 2005-07-12 New dyntext overflow detection seemed to have a problem in rare cases (Brenntag, Jan Schuur).         : CH2006-11-22 add switch for that as it needs a lot of time  L	 G   (B@	  j     d `   ' j	  k P   H    E  WA170102: Try to grow by half size to see whether this still matches           i   If nFontSize < nMax And'     Selection.Information(wdVerticalPositionRelativeToTextBoundary) <> -1 Then    '     For Each c In wholeRange.Characters      %       c.Font.Size = c.Font.Size + 0.5        
     Next c   6     ' if it does not match, then back to previous size                If nFontSize > nMax Or'       (Selection.Information(wdVerticalPositionRelativeToTextBoundary) = -1 And'        nFontSize > nMin) Then  ' WA310701: changed from >= to >                   wholeRange.Font.Shrink         
     End If      End If    C  WA310701: not necessary anymore because of changed condition above         / wurde Font duch letztes SHRINK kleiner als nMin      nFontSize = refRange.Font.Size       If nFontSize < nMin Then       wholeRange.Font.Grow       End If      @  WA310701: set return code according to whether text fits or not    	         ' 	  d X  ' 	  k H  i @      ] 	    N CH2005-05-13 Selection information doesn't work when WWI is running as service      Y so we now use TextFrame.Overflowing which is not working with pos frame (Positionsrahmen)   ) this was done for Honeywell (note 845617)   G CH2005-08-04 asking Word 97 for Overflowing results in memory problems,      so use old method for Word 97       6 this was done for RS Components (note 845617 extended)      J CH2006-04-19 Overflowing flag seems only to work for horizontal Textboxes.  W Air Products uses vertical (upward) Textboxes, so had to do this fix (OSS 369829 2006).   $ 	       ! %  ! ! 	' 	  d     !  this is for Pos frame and Word97   	  % 
       ' 	  d `  ' 	  k P  k H    	' 	i 8     m CH2006-11-22 we need to distinguish at several places, so use this function to determin how to do the dyntext      	    ] `	  ' ^    T only use overflowing when it is a Textframe, as position frames don't have this flag        2 and not Word 97 is used because of memory problems  P and the textbox is horizontal, as overflowing doesn't work on vertical textboxes        ! 	  	   (! $ ~  	        o CH 2007-06-12 do orientation check only when it is a TextFrame otherwise no dyntext is done for position frames     ! ! ! h    ' ^  d >   ' ^  k >  d >   ' ^  k >    ^' 	i >     ( CH2007-02-02 enhancement for Dow Corning     , remove empty lines at the end of the textbox      x	      ! 	  	  ] 	    @ set hidden text visible otherwise it can't be processed properly    F! H! ' r	  F! H(     " select all the text in the textbox        B@F               B@         - do it only when there are paragraphs to check       ! 	!   
        2   B@  )  collapse selection] 	  ] 	    ' j	   ! 	! 	! . 	    j	   
        	B H          	$ 	 ' j	    j	          
  we are done          ' j	  j	   e      
  delete paragraph    B >         
  set to next paragraph       	    B F         	    B 	          ! . 	    j	   e      
 , skip this paragraph and select the one above        	  B    ] 
    	    % 	 ' 	    	            we reached the top, so stop          ' j	k :    	    B 	          ! . 	  k :   :  k :    . 	   reset show hidden   r	  F! H(    return to start of Text Box               B@F       k 8:  o 0:     , check given range for non visible characters          returns:     -  0 when printable text is included = finished        .  1 when only non printable characters = delete       &  2 when hidden text is included = Skip     
    ] 
  ] 
  ] 
  ] 
    '   ! check if it are only white spaces   	! d ' 	          	         	! d    $   ' 	        > if t is tab, line feed, hor tab, form feed, carr return, space              $    	 	 $     	 
 $      	  $      	  $      	  $      	          delete paragraph, iRet = 1d 7    $ printable text found, so we are done         ' y x7  k p7                          1  printable text was found, but maybe it is hidden   	! !           ; if text is hidden, it won't be displayed anyway, so skip it         ' k 6  k 6     single exit point   ' 	i x6  
      ! 	  	  ] (  ] @    @ set hidden text visible otherwise it can't be processed properly    F! H! ' r	  F! H(      move to end of textbox            B@	       ' j	    j	          % 	             start of textbox reached   ' j	  d H5    ! ! 	$ 	      
 , if it is not a printable character remove it       
 ( Call Selection.MoveStart(wdCharacter, 1)    B@>        d 4    ( we reached first printable text, so stop   ' j	     %           'check if it is hidden text        ?           If Selection.Characters.First.Font.Hidden = True Then                   'skip hidden text        4             Call Selection.Collapse(wdCollapseStart)                    Else       5             'we reached first printable text, so stop                     bContinue = False                   End If  k 2  k 2   2     reset       r	  F! H( k 2  o 2  X              $    	 	 $     	 
 $      	  $      	  $      	  $      	        ' 	  d  2  ' 	  k 2  i 2   2     Attribut e VB_Nam e = "wwi OleDynText"
'*@     :  E "Purpose%res`olve #Changes:1[ Da ]-[_ [ 
Actiong]8MI1 80401: M odified  public funStart (), privg2I()%2a@nd add &so global  constants vari ables to"  fdle#dynt for  raw reportsCH 2 004-07-1 3 check  whether  Min is b(iggt. mPax a5hcausMan en ;ss loop OSS 0  402358BM$8exc ge 0valu/ n t@1ppen7 Knt messFa
8err1fi9/5-05/Sele[.In	;mandoesn't wor7 n WWIA6ru nningA4se0rvicNA*so  we now %; Fr .OverflowA whichnoCith  f (Posi$srahmen{2onlyBr wo8Á85s :(`Aj5760Ci5 / No845617WApW@2 New Eo!D? det\ seem BQ`ma@]o@Sm Hrar e cas =(B renntag, JGSchuu(r).1A_a @screen WfA yh aft Rea@.grow/s`hrinkB8-045$WmemHorys |Word 97,M@d,3it.  Done2RS Comp tH, r@ged# 6-02-01  Make reit's%!(b7071636RI.O↣.B	@}0 ac alculAco,rr`8 Kw@Gout%-X@t 4-19 eflagEA. FBs@horizoClAb7boxesSCi r Produc$tsss  Rti (upwar$d)', 7ha2ddofix (369829(R_611-22 if A&ecaF` two  paragrapjh`teêeby up]ult.t#abs@Algett!aft evgA9As fit,  `Da"o small Xsize (DCorˤKS7S-3H@aempt@h2o<f gBy @QRr vplb3UEo f16 	1A+8$Q8`eracBdid6Q12P1ie'{2cpoVi>0#a"%_ orwisa0@_^cZv1^7 Q<472(644'7Themq,'B_
`%7ce\clQ
OpBExp0i (!(-- m6le - a`81AJD im g_bCreKWa* As Booled'8true a E0gener`p@ha7Wp i( 1P4Hshape@nkma rkErrCou1I1  'ـ. (Rsnwb/qVt6$kd.
TDSmRt^'1[	`pC ae 4~  @EC gc_szG LOBAL_SECTIONAS@<ng#(0DY NTEXT_ON _RAWREPORT[OnRawRWARNINGS #D'sSCREE EFRESH _QNO_M|ATO GNoMatch"TATUScw_MI _REACHED`KEEP_Tkeep' #/)1 PSubin
 r 4rcT9EnView 1  #veWindow..Typ`1C!pr 1 `' WA270899`x/~Pnumber	_  Docut.Fields.Upd@I;6PSave@ FFor:=wd RTFEBBas@ic.DisAut "cror
:!
avoid (savtnQl.dd S :TmpDDEN"VT~.!	d@Tru0PDonh 't close  docueme nts in n ew layou ting
   'ActiveD .C(wd DoNotSav eChanges )

End SubPublic StaHrt( @  - - consta-t-1 FCB c chBookMa rkName A
s nr  = " wwiDyntext"
1GroupDYNTEX,TS'Rlo cal variables ,U# Dim chVa2FilNbb u dleannlCountWIeger}#eVal+Stsrc5I@niPath  MI1804 01: pto @U.ini f@4EbShowA4ll A?HiddenPnViewTyp@7B ParagraphsLpro@m log@0'Appation.Visi{!@TruechEG=?Libs.GetAL(1, 1CH2006 -02-01 M ake Word  refresh  it's screC(OSS 50716 'socas @0esnalculaterrectly with@Ethe00PC(gc_sz GLOBAL_S ECTION, dc_SCREE N_REFRESH,Z"If e"1" TheAbY  g_bpS%RD!= ,  #	0Upd1ng10Els1Y
Faφz
Ifa$a 'CHa15-04 -15 store vT tT!	GV= WindowFew.aY%a 'g23g s  originE@wBset@g$s `jbe 7ts`d at e@of funo(a!loamUT&lGksee whe@Nr warn1Os hage(ner Vd`  n|otA?R6RWARNINGSQiQCre@WKEatialize b`m` errort g_⺁ErrC= 0""(4, 3mXSelAHK ey Unit:=wdSVy, Ext@IMov"g8f	Whk6!W   ?0STtSpecwdPaneNoneA>b3Cq74gebC?!7O =Uc+ 1u=Y& k31 8PS ystem.Priv&ProsVV+ch 
QD5xqider( th`BdÍ f &raw Dpormay Ea1deT{.ZB^`KEEP_^'!  sha0zcoAfspondfo;`@hu@ 6/hafsALstBs ymbolpBich could@
qolved. So dP-mk9%, ,@ 'Wra@tPre F1 aTDdorperm~ hX,F:s .Exists(= )u().D{ )5-0LenBt) > 0'<ecu?en"d b IE`=A`
A(s 7piloope9ERWHq 1 'MIqet2rdFAol?o|.drtu?
qoO	O<> O ,j O!	GK o^o^o^  backˌyTV1 ϔlS!ɡ-
O F6'Byp&R6ѽQ, () @ Doo/1nPo2\nMp`naxnvd b@i wholeR 	ÏAaddFontS  anfang  As Integ er
  Di@m Endeb@WeiterdB@oolean`rc\0bTextBoxf<ch H kMarkErrNamuString"'--  program logic -- JnPos =  a(1, chV alue, ",")Min 
(Left(- 1)axhMid+'' CH 2004- 07-13 7eck wheth 5is big  than m +ascaused  endless |op OSS 0  402358.4exc ge vhs2n*t happ(ens$din(t m&a to  error fileBand  do so bmore,cnTmvpLzs@oGnIf nA8<= 0 Or> 12 0 The  9= AcV  = wwiLibL.wr   or(2, 60 n@mRTFo  'set @5 minimum (siz5 = 1A9  IfA)?\%B)@,)ax$)@*)ax)@ )20) >1@&Bc=7A9nMa~x
%"sH +/ `"BP= "iny23,92-b} lidFal"s 4On 8 GoTo w1   Activ eDocument.m@s o%
 ).SelectqTru@e '  MI23040`1: hi de`faHprevGch v dy`x t symbol"s' a`din0clud`u {n (zoo`+ge fomwith78a s qWi ndow.Vie w.ShowAll'"  HidaPara |phaC a = D0-'Dyn0fr !od# Rah/ ? g-ion.S toryType`wdF es}  2@wCH 7-01-30 d`9te e mpty lin6e {h@ of%+t 5bo]Ca'removeE]Lc ' ! `2:i artOf Un@it:=wd, ExtM #`]Keyw; E_C/@  W A060300:Df`a  p@jf*,SocAfG 3-Obj `: S= Wo rdBasic.DiaRec .Formatn(2 t>8C^oa_3'~iep3ganz 7pit$srr&0b=&= $ CurQpFues  )  '  ctms  2While D# c)omm0sL("(")hnWo	avd		n	! 8G.FixedWidth <>EYm_55cHeightdGgUYH5- !i2^g23Down(5J, Coun 70~6)S'2@90999:l`ast pNAnJiPn	
'%Ql {o{R)WD	S UpfDIEDNa2A1f(L
a\ 	5
t refR`[3 ytSt;:=<0Tnd:=q| "LNo1t&p5 BPitBp*/ΡRx7?b A
nFS&1.Ae)WrW7	\?9j
Pɠv6- 11-22 if( us P `:rflow flagn't add5se6xAʐn upp!sulTUseOve5(Qa.a1,p(e 11 a!whCg1.r!1'r9Ctwo  iРaշ nd
  If  Not Use Overflow ing() Then|  Set  addRange = 8lectpion."F>. XPStart:=Ende,  
! + 2bFo@nt.Siz[1Mk A 	 A veWind ow.View. SplitSpecial wdPaneNone<  
7!TyfpCge*6Else   :	ndV' WA 090999:  do it on ly if th ere is t@ext, owis 	ncreas  f s runs endlessHDim  lChars As Long
= Len(whole.T 1 ) ' u /len o ? as cacters.count@)@esn't CproperlyA'I caf@^ out1par@agraph2e mpty or notBa G	h= 1 aMa 
withKq) alsoO.@ A>^'DN=C=>s rcA( nMin, nMax, , refX)  C 'CH2006-11-22Huro flag ZR@ρ f>sey m@{ upsulBU  '5@ra
 two miniPh t %?\ f}yeyhDeletegv" MI180401:"B)_NF f@dintobsharp Mcomp?!"d-sd a  bookmark.As may  be eval uated by a!br exi+	macro *l`rP.(g_bC tteWarntA W!+`FH4 new, unique&^A onFA* `]BMErrNam!gc_ szDYNTEX T_NO_MATCHCStr(g_n!! "\T`  On `tResu@	N@8Doc@s.Add A:=c&h, `:=Wc
%'!d  variable (STATUS) @sign!`that\mu>m¢
`2ch:Q	_MIN?;üV$p, VJe:=p{/@t$<> 
q$. PS }n4P/Trace 52|(21m605),9inc8lud 6a@fi@rst 20`sqlhe Pu[w@wiLibL`R. write2/(2, ,rft-r,P"RTF"&#EL  5ta68$ 0Vdp`Dh4 `B7!
wer10:1  %b:@id!' Y23#Y show hidd v!tsymbolAN UdR_d1ks 'j@H2Trucad`#e osC[	gE^O5xt(43p02: 1P@Dg$ht`alCdy 9O(7O)q1gmx
Pf from4^l0X#me3
?9(@availZ)cl/pvTh@<miQca`Pwe qresolv-qrawp/portuAS%$4[.755HDyn&
Funt*

PrivP~ U zInteger#
By@58b9, %) (leaB'-- loc0nps - n'!4bCin60RÈAb|
A)cPg=K.s'paenhmc呸WPordB@c4Info(8) l-1I'140~82~$2Ѡer*an01ni@a= Isj#P)= Fe pOr _@<yinR0;a2x8  gQUpô!iDowng/3M϶ in, nMax , wholeR ange, refH)
    End If
,SizeFon t = rc
4Function@
' WA 140801: Ppass i 4Private X Up(ByVal# As I nteger, ax1K)	Bo a  '-- loc uvariables -+ Dim nd2]bCinue
@  bOv erflowing
= True	While 	  Aȵ.K.L' 9grersol er@ kleinalj \ist U ND Text @in Box@rtws  up( if@Twth an minimumCH2005- 13 Seleforma doesn't work en WWI i@s runnHa s servicCpso we now use*@Frame.UwhichAnoAwith pos f (Posi srahmDen'If*. StoryTyprewdAE 8TheA
u= Is#( C@Gl< A_ Fee Or Go@h!E CGrow'WA Ce7-12 New dy@o=o$S detD5see med to h ave a pr
ofmaCrare cas`h(Br enntag, J@Schuur).fA6-11 -22 add .s1 4@ Ft <it needslot ofP tim> ` g_bD#Scr eenRefresh0 ApplticbJ.c Els
Im,DnWend#'wurd dur  letzt GR(OW Ck hodahg7u	dobldownmk=NA N(>CNIa` &NNC&GdhrinkcMOMM$Ms yM`&?M3M!'@707015yhsB#on ly byjlf <m p IF ab!!!A> 8!.In(wdVertblReldveToLBou@ndary)M->14'W ordBasicf.`(8$Q'For Ea2c}YIChara cters5 c#ae= - 0.5tNepJ
9SAq331:btturn c8p acc
`PLw0hethjqfits  
@bA/5PA\BH30hv`awUpE'G}"0D @~e%nX	#Ny\/P+ h?Xza&;^ 'ODERnBab' wirdtc`
 ,0Cc0gwfrom >=!D>***+<ʄ(, _	cxin)vc
$7o
 `

߈Sa@Rb b0?b?bns= ׸Se102:eegdYfee WNhs till pchesWn"#`_e_e_eQe<> -oQa.aasЗ +a'QQ t,0!backpreviouppUteǚz  (vv A5EH5m555v55B舥 qS	   ' WA31 0701: no t necess ary anym ore beca use of c hanged c ondition  above
 wurde F ont duch  letztes  SHRINK  kleiner  als nMinfn\Size @= refR].."If %B<: The? @ whole7Grow7End 0If
set jturn   according to&eth Rtext fits or" FbOverflow= TrueG  [DowngFtEls(S  
Func\Privat	 Is>() APs BoaDim N'CH 2005- 13  Sele4 i@nformaBsd oesn't workCn WW I is runn<as serHvicB4'sLe) Hw T@MFrame.Hwhi@Awith pos f  (Possr@ahmen)F'th@wdon$e @) H yw ell (@e 845617C7 8-04 askŁWv 97$ resul@win me y problems,B5BldthodBD&RS Chomp@(n@' AEended*6!@)-19 I%flagW@! onlybA>hori"zal Yboxes.B"Airp Pro܀@-s"  tic@
(u@pward)," 6haddo BXfix (O SS 369829 D6)b@^UseNo V N= K.ShapsItem(1).D!d'o?A`CDa`z09Z7 {HIX(`wdVerb KRel@\veTo Bound`) <> -1x mx  y?)v@t~u6-11-22 wke@distZuish at E =<pla@";Vc:Eeterm@]how>e dyn
Ό=vRbA3'^oAX w  itAaR,ugBc=s ~ haveTc@aqa	dԌz gj"	*fjes
ch]toryTypٔwd\S AB_AeVal(AXppl`t.`Us`) >= 9hQ Aq7-0A2 "!ientcch8eck* oawi@no=Ʃ )	;;.OrW= ms"5HHJzBB" 2q464v4&Vs  {+q6@55P2-02 en0|ce@g~{p\ran
'ra (e@mpty l s?7a$ ] $!
Submp$E Paragraphs(_"""'Vb}S;HiddenLh visiblM	r 7caq}benE operlycb(= AveWindo@w.View\ow 3_GQ هQ's" l =@=>e0PIq"5ar tOf Unit:=wd, ExtMG0!Key?5S>'0pJB4!e aPp1S63:	'.C0et > dw	Collap8i 
) 'cO@  CY`in`VI0[germyq! Ebv= 1ES`[yzxLastb.Whi$> 0  CaИ$.9isNonfnt(␷|0y!'ppaKpCXX	z9{2d)rD	,t!nq,/ ,St,, wd1,0"OfMC,j߯CW2pcwd0a;o01 ,u. RA.iQd1,.A*Up[1Z0t<= $eZa=аhHop2stopy?&1	2 0{  W@PyN0 clbsqcI
   Activ eWindow. View.Sho wHiddenText = bD'retur n to sta@rt of VBoxBSele on.S@Of  Unit:=wd Story, E xtendMove4End I f

	Sub
'check g n ran ge for n on visib le characters
s: 
 0 wh en print
a)tis included  finished1only0W1 d mtX'T 2h .S kip
Public Fun isNonPJ(p_iAs R	n) IntegerDim 0iRet	Longlength
St6(= 1  DX if it are ?white@ spaceU  = LenE-.|)AFdiF01 To                                                                                                                                                                                                                                                     
  AMidJ, i, 1@t@D @h, linweed, h{m fcar4r ,&CIfChr(9) Or _@ T10123" " T@'C pgra<ph@=q]% E,lsB'foun@so weddonDo0E<Exm `  ~NA H)'1cwaskbut maybeBWf\a	 t $W.`Font. @True ;n# ! t won't `display`qanywa .sfc `= 2''!'singe!po`~gm! #q`,
@Km`EmptyL Qs(T'Type	 
wdA`FramNeH!wbC#in@"zBoolean	  vy's`~%㊅otherwis2Dca(prots( perly=c <'&`abo/ 5?!a'&=Whi ;fCP2B(wdC%, -{= is@?a -Faus	wbNo(gs.First)Jc'cwknaqFΤRaCall ŬA Dds H3'GreB fB XomEq 	d'f6E.x
7]/G%G1QD84	  Collapse# $ @h{}z}
MC  W78re`C _<F1K@b15P-va.ByRewMҋvL5xy= yF{yoyy=yy {	esX>9>iJOd
                                                                                                                             l tl p pl kl  "`dp< + d , n`pnd 
4   pj knk kj knk   dt< + d, d 
    d  $   d d    pl    "`dp< + d , n`pnd 
4   pj knk kjknk : dt< + d, d 
  : d  $   d d  
4   pj kj[  pzd  pz         l,                      p t           d       l tl p pl kl  "`dp< + d , n`pnd 
4   pj knk kjknk   dt< + d, d 
    d  $   d d    pl    kj   pz   pz            ,                      p t           d        
-   d  UFHL(P pt  $ <  t0 p 7 L 8 Hh 9 kFpx) tpLH5P   4P   t  $ <  t  P(`]@t5P   px   px   kxpz       H  $                       $          t p L H P 4        px Xpt  $ <  tH  lp   hl  $   l  lh
  	/h) tl  Fpdlt  $ <  t0 l 7 dH 9 lp   ) tld  px    px     px  kxpz         $                                 h t l d T      *tx  $ <  xH  lt   x 3jlx  $ 8  x  l  kjpr) xl ,lx  $ 8  x  l  ) xl 5t(    H   x  $ <  xP x6 H( 5t(   H   x  $ <  x x6 H( 9tlx  $ <  xx  l  : lt   ) xl &H    x  $ <  x< x5H p& Elx  $ <  xx  l( :  ; l=+  ) xl k&  
 |+   <  p& k&   p& k& +t'('Hx  $ <  x x6 H( 5t(    H   x  $ <  xP x6 H( 5t(   H   x  $ <  xT x6 H( +lx  $ <  x  ll=+  ) xl k& &H   x  $ <  x< x5H >t'(( H   x  $ <  x ltpx6 H( k &  p&  5t(   H   x  $ <  xT x6 H( +lx  $ <  x  ll=+  ) xl    
c=+   -krlx  $ 8  x  l  ) xl 5t(    H   x  $ <  xP x6 H(           (                        (          x l   H (         px hH  + lhJqp/h    tlpd`@ 3hH  + (0 lt>hFP 
   `1l6 P0  llF@]	   P
=  P/0llF]
    
=   / llF]   
=  /llF]   
=  /pllFP]   `
=  `/@0ll> 0 6 P ` &4   px @  
tf`3  kx y %H < + < , lw px   kxpz       t(                      l P          h  P 0           p ` @ 0  $      *tx  $ <  xH  lt   x 3jlx  $ 8  x  l  kjpp) xl ,lx  $ 8  x  l  ) xl 5t(    H   xrU              ~|         	       	     I      H    A   !                                   H       	      1      Q                        I     S      	      i      YB      ш                  9$      	
            A           H       .      "      	      A                  1      a          H I            J      L      qL      ɷ      	                      H      H !	      	      y	      y            q    H !    H I    H Y      i            A      i          H R                  9    H   L    8\`d  $ 8  d  `(  l\iLh) d` 
    /h"`d  $ 8  d  `,  ) d` -\`d  $ 4  d  `@  ) d` s'\'|''''''<'\'|''''<   'd  $ 4  d d6  <|\<|\ d  $ @  d   d d  $ P  d@ 	 d        L(                      h T          d ` <      | \ <      | \   0    
  1d &d CTT CXX  1l2 XT ll 0l  	   P  $   P  P   	     P  $   P  P  4HLP  $ 8  P  L(  lHp^) PL 3FLP  $ 8  P  L@  kFpb) PL 3FLP  $ 8  P  L  kFp`) PL 3FLP  $ 8  P  L  kFp\) PL &d CTT CXX  1l2 XT ll 0 	     	      	    
  1x 5H    $   P  $ <  P P6 $ pv  pt kv 9HLP  $ 8  P  L lH    ) PL <    LP  $ 8  P(  LH   ,  ) PL   /   LP  $ 8  P  L,  ) PL  ktpt  kt#X*1p/X -Xlp lxP  $ T  PP  >X1lP ll 0 6FlpLP  $ 4  P8  LH  kF) PL ? pM4@LP  $ 4  P8  L@   P  ) PL   llJ     lllp  pj   pv  	 -k`LP  $ 8  P  L  ) PL -kbLP  $ 8  P  LD  ) PL -k\LP  $ 8  P  L  ) PL 9HLP  $ 8  P  L lH    ) PL *LP  $ 8  P(  L|  ) PL  5H    $   P  $ <  P P6 $ .k^LP  $ 8  P  L,  ) PL P  $   P  P       | 04                      x l d p (          X T P L   $       l Ctl Cp    lp     pn /knpM8@(
  ($
  pl/$5( 6'(knpM8@
  $
  pj/$6 ( kl klx  lM8@(
  (`15( 3 C$$(Y(( 
   UpN/$6 ( pl  kjxkj ] jM8@(
  (`15( 3 C$$(Z(( 
   UpN/$6 ( xpj  klkj klp kjpl kpj O:! jM8@(
  (:" lM@
  `16
 ( 3 C$$([(( 
   UpN/$6 (   pf K_ ?tM8@  $ 4  8  @  L  )  pf ,   $ 8    D  )  ,   $ 8      )  ,  $ 8      )   pL *  $ <  H  l    pL 
#    5    (     $ <  P 6 ( 5   (     $ <   6 (   5f8%  $ @  W($ B%  46 (  5f8%  $ @  W($ B%  46 ( %  $ <  ,  lpT pP -	@  $ @  W& %  5 kPi ,:8' %  $ @  ((  5(Y -	@  $ @  W& %  5 >W() W) <W* W* <t6 (  pPT  C    ( (     $ <   lph6 ( kh R  pP  b   pP  R <   ( (     $ <   6 ( %  $ <  4  lpR +  $ <    l=+ \)  kRkT\+  
\|+  
c=+ \  %  $ <  ,  lpT %  $ <  4  lpR +  $ <    l=+ \)  kRkR\+  
\|+  "\< +  , npV 	kL <    ( (     $ <   6 (  -   [   $ <  $    $ <  $   kV7\< +  ,  kRkR\+  +  $ <    l=+ `)  kRkT`+  -   = +  $ <    l=+ X)  kRkRX+  7X< +  ,  
X|+   9  $ 8     l    )  <     $ 8  (  H  ,  )   /     $ 8    ,  )   $` + l$Jqp/$ lp   ? %l\l`jl.  pN)  -   n	 kRkRX+  ''(X+ 6 (     kN= /   #$*1H/$ K Lll`M8	@lH  $ 4  8  D  l=+ `) l K @:80 N((1   $ 4    4 2 ) 5( K V$:81 N((  $ 4    0 2 , 3 l$0 =/$) 5(
 H0 :81 N((  $ 4    0 2 0 3 ) 5(  ^$` +    >$F(
   Cdd`h(]( 
   UpN2 hd6
 (        
c=+ \ 
c=+ ` 
c=+ X kfv ,  $ 8      )  K ?tM8@  $ 4  8  @  L  )  K ?tM8@  $ 4  8  @  P  )  .$  $ <    l$J   /$t +''(  $ <   6 (   pz         H            0     	     X H p \ `   t  D          $ h d    l (      t (      l tl p "PTp< + T , nPpnT 
4   pX kX kn   kn   %lpLltT  5  pZ) TL   %lpLltT  6  pZ) TL    %lpLltT  6  pZ) TL  kZpz  6     0  0                      p t \           T L   l     $ <  xT x6 H( pr kr >t((H   x  $ <  x\ lt    x6 H(  pr  M $lx  $ <  x`  l$ ? $ + > @  /) xl$ +t'('Hx  $ <  x x6 H(   pr     -kplx  $ 8  x  l  ) xl        ` $                       (             x l $ H ( D        FX]	   h
=  h/H F(]
   8
=  8/ F]   
=  / F]   
=  / Fh]   x
=  x/XH > 08(6 h8x8   pz   pz         T $                       H          h H 8         x X H (                               	   
    4                                                                                                                                                                                                                                             H   `                    @      H   `               !     A         &&          @ !    H   `               !     A                   @ I    H   `               !     A                   $ q    H   `          $     H   `          $     H   `           ,     H 	  `     a         =     $     H 
  `           ( 9    H   `     y         0                           n                                          rU              ~|         	       	     K      J    .   !                  I      	      Y      J            	      q                  A      	      "      +            2            a2      8      15      I8      A      @      I1      -      2      YI            3            ѹ      9$      YB      	      1      Y                w w i D y n t e x t                                               s   v                                         E      _ _ S R P _ 4 a                                                                                      *        _ _ S R P _ 4 b                                                  c   i                                       j         w w i S e r i e n N o                                                                                  i1       n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 0 * # 1 0 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0  * \ R 1 * # f f  * \ R 1 * # 1 2 9  * \ R 1 * # 4 2  * \ R 1 * # 1 0 8  * \ R 1 * # 1 0 9  * \ R 1 * # d 6  * \ R 1 * # 1 e  * \ R 1 * # a 4 $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d                                                              	      	 J        	     P    	 ,   p    	        	 L       	        	        	 <      	    X   	 J   `   	      	              	      	 6     "      	 H      *   `                                 6         X                                                                                        x                                       ME                   L @    6
        L    
    L    
            
        L    L         L    L   *L              
    <P     <T     <X     <\     <`     <d     <h     <l     <p     <t     <x     <|     <             X  	     `            @  &k   m m      `	z         `	t         `	p     x   `	X   l         `	h         ``d         `	`         `	p   ^         `	\         @BL         `	   H         `	0  D         `@         ``  <	         `	         @	           `	            	  `              
k  g g }     `Bx     ****` 
t     ****`	p        `l     ext `	j      Tec`	d     H `	H  `     pose`	  \     or c`	X     amic``T         `
P         `	L     Name`
0  H         @
  8         @
(     aria`

8  &     ****@
        ****`
     decl``  	     (   `h  	     rt a      	 0               %     H           x     @             @            0  4(l ~N&   @  8	         @(  (       @p       C5@X           @       2@          @          @`           @           @0         @       C5  $b	   @     2@H  x        @x  h         @  X         @  H         @@  8       @  (     `{.@$         @   	     2@	             (  `      < %     H  C5@X           @p       2@          @           @           @           @          @       C5@0           @H  x     2@`  h        @x  X         @  H         @8         @(         @&                                   P            x      8
  	  	  	  8  
  
  h
  
  4(N&$   @
  	         @	           @
           @	           @
           @ 
           @@           @P
           @         x	  	 l           @         @
  	         @	          
  `        < %   
  =       @  |         @(  l         @X  \         @p  L         @  <         @  ,         @           @           @           @            @           @0           @H           @`           @x           @           @  |         @  l         @  \         @  L         @  <         @   ,         @         @         @
                                                  tVH $ * \ R f f f f * 1 9 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 0 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e       
      &      	                 	     "   (   $   P   	     4   x   "      	      	 Z      " 7 8   " 7 `    -     -    	      
     
     	 Z      	      	    8     P     h   	 2                  #    . Z    0 G 8   	     	    h   0                           8   	     	 &   P   	 J   x   ( H     !    B     	     	 "   X   2     $ -    	      	     	        *    
  	    < 	    < 0	     H	   
  `	     p	   	    x	     	     	     	   	      	    	    $ 	    
 	   	 d   	   < v H
   
 d 
   	 .   
   
 # 
   	     
   

 + 
        	 "      
 < 8     P   	     	     X    " x   
          (     	                 	     	 Z      	 "   P    # x    #    	      
     	 Z      	     	          	      	       	 "   0   	 4   X  "      	                 	     4      "      	     *         8      @      H      P   
   X   (   h   &      "      4      2      	     	 Z   P   " 7    " 7     -      -    	      
  0   
  @   	 Z   P   	      	       0                   @     `        	     	 &      ( H     !    	          	     	 "      2  8   $ - p   	      	        *    
      <     <          
       (   	    0     @     P     X   	      $ `    
 p     x   
 d    	        #     $    	             $         $ 6 8   	 $   `   
          	 0      
* Q    
* H     	    0   
& . H     p     x   	 2                     	           	             	      	 Z      	 "   p    #     #    	      
     	 Z      	       (   	      	     8     D ********************************************************************             Name:       wwiDynText    %    Issue:      TechniData AG/Markdorf H           F    Purpose:    change, insert or change symbol for dynamic font sizing                 Changes:        6    [ Date ]-[ Name   ]-[Action                       ]           D ***** Shared Variables *********************************************       force declare variableepor(      0 change or insert a dyntext tag into a text field          B -- local variables -----------------------------------------------] @       type number of dynamic text  `  ] X   ] p   ]    ]    ] D    r  ]       text of symbol to insert]       min font size   r ]       max font size    ]      return code for abap  @  ] 0     min and max font size B  ] H    % Doc Status (MAIN, TEXTFIELD, PREVIEW)     ] `     Registry Key for WWI  d!    S -----------------------------------------------------------------------------------       ] x  F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------          get data from abap     l% (	 ' 	        	  DYNTEXT     
          + split data that looks like "DYNTEXT##4##16"       ]           	  ## ' 	      	     	  ## ' 	        	  	     	  	    $   $ ~ ' 	    	  	     	   	    $   $ ~ ' 	   get vars for symbol         DYN   N%  ' 	 )   Type number Dyntext  LEFT_SYM  N% 6 ' 	       	 RIGHT_SYM   N% 6 ' 	      DYN_TXT   N% 6 ' 	        COL_CTRL  N% 6 ' 	        META  N% 6 ' `     text of symbol from old WWI ;-)     C txt = WordBasic.[Right$]("000" + WordBasic.[LTrim$](Str(DynNo)), 3)         000   	$ & $ $    $  ' 	  	  	   	   (  ' 	lt i  	  	$ & $ b    ,    	$ & $ b    )    	 ' 	ll fon   get doc status from registryH 2007 * HKEY_CURRENT_USER\Software\TechniDATA\WWI\' boxes       	 DocStatus   %  ' 	 (Do   check for frame     ! 	  	    B@  extbox  ! 	!    e ract    % 	 B@H  Corn  	 	 TEXTFIELD  e 07  B@  orientd      error n it  ERR##610' B `  k X     find symbol to change ames  !      C@      ^ .Text = LG_LSym + WordBasic.[Right$]("000" + WordBasic.[LTrim$](Str(DynNo)), 3) + LG_Dyn + "("****  	  000   	$ & $ $    $     	   (  9 d    5     D  - 
 ( extend selection to whole dyntext symbol--  	  B  -- 
  delete old dyntext symbol   B >   to had    
  goto beginning of text frame% B  i        B  nek      then insert dyntext symbol  	    	  `  B  es whe  OK' Bes notq P  k  	  InStr(from_abap, "DYNTEXT") > 0  F     B  lB n     S ----------------------------------------------------------------------------------- onstan    set old document attributes------    B@ --    B@ 1:  (( * 4 con  S ----------------------------------------------------------------------------------- `     o       check for text field  Dy    and check for a dyntext tag yntext   . if there is a dyntext tag give its values back MI    ]   ] 0  ] H    % Doc Status (MAIN, TEXTFIELD, PREVIEW) ----] `     Registry Key for WWI    ] x      type number of dynamic textD	  F]   ]   ]   ]   ] D   e numb]      check if in textfiled zoom]       text of symbol to insert9:] 8     text of found symbol TmpDD] P  h     '  positions to parse symbol  in ]        min max font size from symbol tSaveC  S ----------------------------------------------------------------------------------- ------]   F       ! %  . EXTS]   F       ! %  . ------    ! B@ ------    ! B@     4B        (( *H    S -----------------------------------------------------------------------------------  B --   get vars for symbol ------  DYN   N%  ' 	 '   Type number Dyntext  LEFT_SYM  N% 6 ' 	\% ^ 	 RIGHT_SYM   N% 6 ' 	ake   DYN_TXT   N% 6 ' 	OSS 50  COL_CTRL  N% 6 ' 	some c  META  N% 6 ' ` c   text of symbol from old WWI ;-) th  000   	$ & $ $    $  ' 	  	  	   	   (  ' 	((   	'  
   get doc status from registry   * HKEY_CURRENT_USER\Software\TechniDATA\WWI\' l' t	      	 DocStatus   %  ' 	etti   check for frame en  ! 	  	    B@  ' p	  ! 	!    e ! H    % 	 B@H  401:  	 	 TEXTFIELD  e ha  B@  eneratd      error   R	  ERR##610' B   k     !  H	  C@       
9 d5    ,  M   mark symbol e book  	  B  nt  ! d' 
' J	   detect values of symbol   
  (  ' 
  
     
  ,  ' 

j	     

     
  )  ' 
J  F  
  	   
  	    

  	   ( l 
  error parsing symbol for (x,x)l	    ERR##433' Bd `   
 * get min and max values from dyntext symbol  
  
     

  
    $    ' 
.       
  

     
  

    $    ' 
ding t 
  give back to abap  	 DYNTEXT##   
   ##   
 ' Bulk 
  d 
    , if symbol not found insert instead of changefor a   DYNTEXT##OK ' Bion k (
  q  
   F      return to abap%   B  lB n ,  S ----------------------------------------------------------------------------------- bol en    set old document attributesx	 '     B@       B@ lo  (( *' j	    S ----------------------------------------------------------------------------------- H( o        Attribut e VB_Nam e = "wwi Dyntext"

'*@     : T eIssueTechniD ata AG/Markdorf '*Purpos, change,  insert or  symbol f dynamic nt @sizingKCIs:,[  :ep ]-[US A`ctionY]$ Share d Variabples Wc@e decl % Bv$
OpBExplicitgtp~a  u tag to a field
Pub  Sub z`()
   '-- locals -+ !Dim No  As I gerEN' type  numb of,fA)LG_LhSymSAk v A R@C@olCtrlMe@Otxt|'R -ĖW^./e_minA
?R'foeax to_0abap&'r eturn code½A	fro>m eCUBand mchDocStatusf' (MA IN, TEXT FIELD, PREVIEWJA7 chRegKeyJ 'istry uWWI[QO?*!orgDlgObject: Se = WordBa sic.Dial ogRec .Tools#qsVi ew(FalseqfBea

onsEdit
 CurValue~sn@ #,Call   ShowAndHide.set)	Apaa.S creenUpdng"07?*?g@2 a W Y'Y=a2._doc_global_v%(""3If @W(, "DYN!V") > 0 Then Os t Bthat oks like##4##16 h!\sp1,J  2AKLoC c1&Inl##2C
 + 2,b x iz=l(Mid)b2 -e- 2)B#PB?OpBLen)Q1$}ksHRaLibATaNo( ' Aeb a  aG +oc0w("LEFT_SYMb("RIGH 1	x"_TXThUe("COL_CTRLf("METAuLf" old pQ ;-$'1j)E [Right$]("000" #@[LTrim' No)), 3ߔ(E+  +A+ "(1sq)) 
",a
ax)sgq%@> sir<eg"d#fHK EY_CURRE NT_USER\Softw\4ATA\\dn = System .PrivateProfile` E,0CmD5rS 'check!b0fram  1HSelg.Story/ "dnFbhI 0j%WhopSEph:As.Cou = 1r]c(1)."}"O	s0Uerrdor  % ERR##610   GoTo 160I'f>iDPTWi4thHF   .ClearFormatt"F@ '.1?g-3555-17>m}70 .Exec= TruezQ'exte&1w#³Yg  R)E"(TC@dpyIdyD2+'gob0=nn` "Q3|MoveL@eft(wd@racter, vwdEA%c  't@gxCbq#.I (N"b,Q_/OKv/Q	,
| 'AN:q10D@	琀 '-O 
   ' set ol d docume nt attri butes@Wo rdBasic. ToolsOpt ionsView orgDlg$ Edit Bea$&ApplicaA.ScreenUpd ng = True$U-
End S ub

'c heck for  text fiheld a a dyntau 'if ther e is  giv
ts va lues back
Puby9B *DynT6()G  Dim  to_abap As S nfind_@JAchDocStatus  v (MAIN,  TEXTFIE LD, PREVIEW!CReg8KeyAis0try JWWII.3NoAI Iger ' t ype numb	 ofAQamicZ.LG_LSyvmR@C@olCtrlMeta Ochb>F}/zinB,filed zoom(t@d<' <symbolv insertDs_F8fouEbr@ace1,  2, comma.'posibsA@parse Kmin, maxbfo size from(?_r-aObject: SBǏDialo0gRec n(FalseY
t= 
sa
'CurV{. Call wwi ShowAndHide. ī"_4?41`g@2v@JJyn=PLib.T~N o("DYN")b %wdGetVar ("LEFT_SxYM"B: 1RxIGHK1`_8TXTF
qCOL_CTRL"1METAb0ǂi ;-! = Right( "000" + @LTrim(`(No)), 33E%+ G_Q+ "("a1 =b= ~ scbb	reg]a i`= "HKE Y_CURREN T_USER\S oftware\ TechniDATA\ \Dh= Syste m.Privat0eProSsm(""Kh, "f!hyfram2  IfpAlAЇ.StoryR%d2\b The
n (WholeEB:Fs.CWtpG1bc(1).Sex`v"O	s erro:r  ]PER@R##610   GoTo 103cIf S Wi4thF   .ClearForm0iSA;.!@)%5@.Exe>cAma|rkdS@N#Extend(=.sdyq$b1A	U`det Ŗwr1@
In5;'(c;st= + w~,y]2Fcl)y`D< 1 Or}  s ,
z'r! ~trY(x,xO#433F#  0 A^?adBDn  at(Mid(/43-1 - 1)
1fwB2 'ᷡy4aA1:##" && " ax7155}#
 no0Ģqtead )chang=F|OK 1<
10: 'returЩo Eх!_`__global_(ror Ӝ/?J
                                                                                                                            ɺ            ~       5f(%8  $ @  8W B  4<86   5f(%8  $ @  8W B  486  -<	@8  $ @  8W   85 -	@8  $ @  8W   85 
     8  $   8  8 	 
  1H    lH         <    lH     i( #(( "lH     q5 Zli( (( "HM@
  
  p^/6  GlHJl   il   HM(@
  
  p\/6   
  Upz5    1t    1p    1l    1h    1d HzM(@
  
     : 
  `1`6  !ltl`*#ll*# *1`2  l`F^M(@
  
  : \M@
  x
  xh:X HlpF8(`1`6 xhH(  C@ -  l@	 8  $ T  8P ! >1D8 *$8  $ <  8H " l$   8 8  $ <  8T" 8l 9$ 8  $ <  8 "  , # l$   ) 8 / <    8  $ <  8 "  0 #  $ ) 8 l lD% 0Z 8  $ <  8T" 8l  :(&  L >  $ 8  $ <  8 " Q 8 
 '  vzM(@
  
  ltF   : 
  llFx:X h ' /6 xh d&'('H'h''''('H'h'x''''' ' k&6 xhH(hH( #pM(@8  $ <  8" 8 +$''8  $ <  8" 86   <$    (    8  $ <  8" 86   "dM@hM@( `
(  5 :()  L c   L*  12  #<	@8  $ @  8  8 #	@8  $ @  8  8 8  $   8  8  3     X\           D           D H p  L  ` < @ h d l t \            8         x h H (    h H (  >
        5f%  $ @  W B  46   5f%  $ @  W B  46  -	@  $ @  W   5 -	@  $ @  W   5 
       $       
  Upj5    1d    1`    1\    1X    1T HjM@
  
     : 
  `1L6  !ldlL*#l\*# *1L2  lLCt  Cl -  ll	   $ T  P ! >1p *  $ <  H " l   4   $ <  T"  9  $ <   " , # l   )  <     $ <   " 0 #  $ )  lp% 0   $ <  T"   & Cx O  $  $ <   " Q 
 '  lt '  d
'','L'l'''''','L'''' ' k
6 L,lL,; #`M@  $ <  "  $  $ <   " >1H    lH     i8 $8( "lH     p&5 k&lH     i( 68( ]c(( ]ck&|5|m + Cx6  Qk&D8(| 8( "HMl@L
  L,6 L H(k&D( k&HM|@
  LUp6  .:, : kD|`1x6  E  - Cx  c  lx*  1/ #	@  $ @     #	@  $ @       $             tl           T           H t ` p x 8 P  (  L  l X T \ d \                   L ,      l L ,   O
        f                            rU                    	     J         $      J    `           $      J   `                 n                                                          rU              ~|         	       	     M      L    /   !                  I      	      Y      J            	            ѹ      q      9$      q                   (   	         0      8      @      H      P   	      	 Z   X   " 7    " 7     -     -     	      
  8   
  H   	 Z   X   	      2     $ -    	       
      (   	       @     H     `     h   	      	 8   p        , ^         `       X     `     h   	     	    p         7     7    	     	 V        (   	 *   H    9 x   

 0    
4 )              	      $    (     
     X          	           	      	 Z       	 "       #     #    	      
     	 Z      	      	        8	   	      	      	      	     "   @	   	          H	       P	       X	       `	       h	       p	       x	       	   	      	                                                                                                                                                                                                                                                               	 Z   	   " 7 	   " 7 
    - 8
    - P
   	      
  h
   
  x
   	 Z   
   	      	 4   
         
 + (     8   	      	 @   @    N    	                	      )          )    	      	 H        8 H     X   ( > x         -    	                -     /    	     	 $                 	        0   	      $ 8     H     X    , h   
  x             	           	      	 Z      	 "       # 8    # H   	      
  X   	 Z   h   	           	      	      	          D ********************************************************************             Name:       wwiSerienNo   8    Issue:      TechniDATA GmbH/Markdorf - Felix Ardelean                Purpose:    25.02.2003               Changes: ng      6    [ Date ]-[ Name   ]-[Action                       ]-[Ac          D **************************************************************************    force declare variable   H        Global Variables ] 0     E  first we check if we are allowed to insert the content of the wizard al v     ] X   ] p   ]    ]    ]      S ----------------------------------------------------------------------------------- D   ]    F       ! %  . ol to ]    F       ! %  . e   r     ! B@ font s    ! B@   re  4B   for ab   (( *0    S ----------------------------------------------------------------------------------- `   * HKEY_CURRENT_USER\Software\TechniDATA\WWI\'           	 DocStatus   %  ' 	      N% N         OK   lB@n       d     ERR##617   lB@n    k     2 im Textfeld modus hat die var den Wert = TEXTFIELD  	 	 TEXTFIELD           ! 	  	   ! 	!               '         X                                                                                        x                                       ME                   \ @    >
        L    
    L    L    
    
    L         L    
    L        L    L    L    L            L            <`     <d     <h     <l     <p     <t     <x     <|     <           0	     0     xI      `              ,k   J J      `z        `x     x   `Rt     f - `	p         `l      25.`   h	        ` 	           `               o  M M ]     @l     ****`j     ****`h     ****`R@  d     decl`
X  `     H   `
p  \     les ` Z       `"T     0  `P	     t of`	         P          @        
                %   p              X   p     H    `    8  4(Nl	   @  d	         @x  T         @P  D         @  4         @h  $         @         @            @  	         @	         @         0  P              @           @           @           @           @           @           @(           @           @X  |       @@  l         @  \         @p  L         @  <         @  ,         @           @            @           @0           @           @H           @x           @`           @           @           @  |         @  l         @  \         @L         @  <         @,                                 P    4(P, N   @h  L	         @  <         @  ,         @8           @           @         @   	         @	         @           ~ $l         @           @	           @         @                           0     0  X                    tVH $ * \ R f f f f * 1 : 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 0  * \ R 1 * # f f $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d  * \ R 1 * # 1 2 9  * \ R 1 * # 4 2  * \ R 1 * # 1 0 8 $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # d 8 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # c 6  * \ R 1 * # c d  * \ R 1 * # c c  * \ R 1 * # e 3  * \ R 0 * # 1 0  * \ R 0 * # 1 3  * \ R 0 * # 1 9 (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0  * \ R 0 * # 1 4                                                              	      	 J        	     P    	 >   p    	        	         	        	        	 <       	    8   	 J   @   	      	              	      	             	      	 L     "        d     ERR##610   lB@n  5 A Cursor befindet sich nicht in einem Textfeld oder Positionsrahmen    k   k       check marking         %  ' P        ! d  <  '       ! d  >  '       O CheckMarking function fails sometimes to select the whole string 'between < & >                          # select the whole string 'between <>         ! !   
        B@          >   B   %  WordBasic.ExtendSelection ">"     k    k     ! d' R          )  6    R    $     01    R    $     02     R    $     03     R    $     11     R    $     13           (( *        ERR##608   lB@n  5 : Symbol cannot be inserted into Repeating or NotNull Group"k    F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o        ] @  ] X  ] p  ]   ]   ]   ]   ]     S -----------------------------------------------------------------------------------       ]    F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------          -  delete the selected area in the wordtemplate       P     B@>        k      9  Read the Symbol from ABAP above global Document Variable   p_Result  ,% < ! L' R    R  #  '      '     R    $   ' 
       '     R    $   ' 
     B  local variables -------------------------------------------------  ! ! Z'   META  N% 6   1         COL_SYM   N% 6 $ ~   ! ( Zk X    ! (    2	@    
  B@
      ! (       ! ( Z    WA301101: use Genifix syntax      2	    
  B@
    2	F     !    
    ! '         $   ' "    " A@$       B@&        k p    h    OK   lB@n         S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o 0  (     Attribut e VB_Nam e = "wwi SerienNo"

'*@     : Issue TechniDA TA GmbH/ Markdorf  - Felix  Ardelean :=Purpos?25.02.2003Cha nges:,[ Da ]-[I G ActionM]$C%for ce decla re variable
OpB Explicit Global Vs
   Dim medfirst w e check if-allo wed to i nsert thontent ofwizarA@Sub C()a1 AsD I gera2chOldSymbolAS@ngEchDoc@StatusR`egKeyI'-? M$orgDlgAObjec`t: Se@DC=  WordBas ic.DialogRec@.ToolsisView(FalseKqKBeaD"Edit!Cur@Values  o26A #CxC D qhowAn dHide.set	ApQaR .ScreenUpdng@"Ͽ484!chB  HKEY_CUR RENT_USER\Softw\\\WWI\  aM= Sys tem.Priv@ProfileaT("",,T ""`Iiw iLib.Lab elInfoGet() The  (!+C'_doHc_gv_v6 ("OK
  6E`F  A/>ER@R##617   GoTo 10A	nd IfC9'`Textfel d mod mha0t di"n W= TEXTFIELDAis<> ""hS¤.StoryTypAwd0Fram * Oxr _!g"s.Cou = 17h!?"e`)$"0") 'bsor befind x@vh nicht  einem " oder PosiAZsrahmE8q*  E+)a'w@E!iA =wa9Da.°`(0=N(g"`N<C;V>Cbb funC fails sometimesAs6chole str  'betwy < & >1(
0ǐ 9.  'q"wractter>r"WlPX0x.MoveL|efoQ rJwE"xkd("P 'GOcf ?8IkpB.(Mid(, 2  )010(	/22s31?
 p[?^8^Tru`9ION("908'cannot92inReped;NotNu ll Group[
10fer 0o, opS[u0At aű'&w I]*w _'ab
Sub Q   MainCcolo 0Aٟ"!I4SbA
Newݣ __R nErrorNr!#:5@J?!"///#//#F't&/`(/Ub_++//=on//'`leQηjF0aAwPplpqj|uwfD`tPH 8Reaps- f rom ABAP abk  OD2= Qv
e.6("p_ Result")P`-8#1 #@- 1	8= lT ymbol, 1 , a1)
  ` = + 3p@chNewS_2 dMid(ch8OldL z024 x
' lo cal variables -- !tolor lSe lection.@Font.CIndex$If  wwiLib.G etDocVar ("META") :"1" The2n)  H )Val($COL_SYM")End If%$Hidden"TrueOn Err`GoTo 9	TypeTextt 1v-Fxals-=?c"' WA3 01101: u se Genif ix synta/Q29:_ 9.Number > 0[n?Np @=B@=I(Z  MsgBox 
D.Cleard3Resume NW
u EditTool s.set_do c_global _value ("OK"A'.  old  (nt at tributesWordBasHic.B*Ops View orgDlg	7 Bea		ApplicaBScreenUpdngH:/!.a2SubAa                                                                                                                                                        _ _ S R P _ 4 c                                                                                      m  &      _ _ S R P _ 4 d                                                  h   k                                                w w i O l e G r a p h i c                                                                               ;      _ _ S R P _ 4 e                                                                                        l       A      Y      YB      	            !     I2      2            	      Y      y                        i      A            y            y            I8            S      y4      "      A      A      ٕ            b       5fT%d  $ @  dW4 B$  4hd6 4$  5fT%d  $ @  dW4 B$  4 d6 4$ -h	@d  $ @  dW$   d5$ - 	@d  $ @  dW$   d5$ 
     d  $   d  d 	 Cl -
 ll d  $ T  dP  >1pd 
   @    1/W     1/ T  lp = ^d  $ <  dH  l     $ <    ,  l   ) d     1/ T   (4    DD   54 7   d  $ <  d  l     pz/d 7   d  $ <  d  l     px/d kz kx  9d  $ <  d`     l   ) d 0''$'4d  $ <  d d6 4$ ):T N44d  $ <  d d54   $d  $ <  d  >1td (4    tMT@$
  $: ]/(    tM@
  : ]/|(L    tMl@<
  <:, ]/(    tM@
  : ]/(l    tM@\
  \:L ]/<,6 4$L<l\R d  $   d  d    1/   #h	@d  $ @  d  d # 	@d  $ @  d  d d  $   d  d       P8                      p t   h l h           d   4 $     | L <       l \ < ,  T
   t     5f<%L  $ @  LW B  4PL6   5f<%L  $ @  LW B  4L6  -P	@L  $ @  LW   L5 -	@L  $ @  LW   L5 
     L  $   L  L    % +''L  $ <  L L6   N:<  N L  $ 4  L !  0 " , # >1d) L 5    ld$     pj kjpj )jM,@   dM<@
  `1`5 kjpj )( kjdM<@
  `1\6  8 L  $ <  L<   d % li<l) L  & '  #( 0/ >) '  #
*   L  $ <  L<   h % /) L   - L  $ <  L<   @ % ) L  KT l`L  $ <  L L -  L  $ <  L<   @ % ) L  /l" L  $ <  L<   h % ) L  KT l\L  $ <  L L  $+   LL , l    L +   LL , lpZL ZM<@
-  `1T5 ,'''    lTF<N
.  6  +   LLH L  K    1/ #P	@L  $ @  L  L #	@L  $ @  L  L L  $   L  L          t@   l        (          T d l  P ` \ ,           L         T	        f                                rU                    	     L         $      L    `           $      L   `                  n                                                        rU              ~|         	       	     O      N    .   !                                   N       	      1      Q      	            YB      A      	      9$      q      ш                 N q           A            .      	      I      Y                  )      "      A      i            ټ                                   A                                L    8\$ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # 1 e  * \ R 1 * # a 4  * \ R 1 * # 1 2 9  * \ R 1 * # f f  * \ R 1 * # 7 3  * \ R 1 * # 7 1  * \ R 1 * # d 2 $ * \ R f f f f * 1 < 4 9 1 d 9 5 e d  * \ R 1 * # c b  * \ R 1 * # c 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # 4 2  * \ R 1 * # 1 5 3  * \ R 1 * # 1 5 6  * \ R 0 * # 1 0  * \ R 0 * # 1 3  * \ R 0 * # 1 9  * \ R 1 * # 1 5 c $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d $ * \ R f f f f * 1 I 4 9 1 d 9 5 e d                                                              	 J        	 $   P    	    x    	 $       	        	        	 <       	       	 J      	      	    `          	     "      	                         I/         X}                                                                                        x                                       ME                     @   (L4
    >
        L    L    L    L    L         L    L    
              L    L              L    
    L    L             L   *L            L    L    
    
               p      `              \k          `z         @D	h             `              o  P P %     `d	  H         `f	  H         `h	x         `j	v         `t     ****`
r     ****`l	l     ****`h     decl`f     x   `t	d     X   +
  `            	  (o     g g u    il	                i         ete `
   H     able` 
  H     okma`"
  H     migh`$
  H     are `&
l     rt. `TP  h         `(
h  d        `*
  `       `,
  ^     al v`.
  \     ----`	Z     ----`0
X     P   2
(  TX      !    %   `6
  L     ahme`8
D     dBas`:
@     Then`<
x
  <     e up    p     mini
                %     @   X     (        F,f2       @  d	         @`	         @\         @@  L         @X  <         @p  ,         @           @           @           @           @           @            @           @0           @H           @`           @x  |         @  l         @  \         @  L         @  <         @  ,         @           @            @8           @P           @h           @           @           @           @           @           @  |         @l         @\            p    X  (          @     	    H	  0	  	  	  
 wwiGraphic     GRAPHICS      (F\   @ 	  `	         @	  \	         @X         @`	  H         @x	  8         @(         @         @           
h             @	                 
       8  @  
  `  x  P  8    h  h       x
    
  `
z        
  x
          
          `l	t        
  
          `p           
           G8   F0   O(   I   ,  	~N   @P  8	         @  4	         @  $         @ 	         @           @0            @H           @`                  `        d %      '       @x           @           @         @           @           @           @           @  t         @   d         @8  T         @D         @4         @  0         @.         @(            $                                                          tVH $ * \ R f f f f * 1 ; 4 8 8 8 6 1 d b  * \ R 1 * # 1 5 b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # d 0  * \ R 1 * # 1 5 8  * \ R 1 * # c 6  * \ R 1 * # 1 0 3  * \ R 1 * # 4 3  * \ R 1 * # c 7  * \ R 1 * # c 0       	      8    	           	      /    	     	 ,       -    	      s    	      
      	 @   0   
  p   	 0      	      	           	     "      	      	 H                   	     	 H   8                                                   	     	 H      
     	 $       4 @   	       P   	      5 h   	               	     	 D      	 F      	 2   (     - `        
 
    
     	 B                           	          	      9      < 8     P    / X     h   	     	 >   p             	       -    	                              (   	        0   	      9 8    * P     `   	     	 "   h        
     	      5    	     	 &       .    
      	           	      	     B      	     	 H          h      x               	      	 H         	      	       	      (	      0	      8	      @	      H	      P	      X	      `	      h	      p	   	       x	   	    	   	      ? 	     	   	       	     	      	    # 
   ( 4 0
    * X
   	     	 J   p
     
    3 
    3 
     
               (     8    3 @    3 P     `    + h               .     *                         	            
  (   	        8   ( I H     p     x             " ,                        , @      (   " _ 8   	 (   `              *    * a         	       $     	 `      < 3 p   	        " ,    
           F      (   	          0   	      	 8   8      p   	       x    ?         	     	               D ********************************************************************             Name:       wwiEOleGraphic                  Purpose:    resolve Graphic              Changes:     6    [ Date ]-[ Name   ]-[Action                       ]             D ********************************************************************          force declare variable    x         ] @   ] X     F! H! l' D	A       D	  F! H( l  %  WA270899 to get correct page numbers       ,! ^	B@`	      f d  ,B@` 	' ~	  B@b	    ~	$   :  WA270899: to avoid saving normal.dot due to TmpDDE change  2( 0'     ) ActiveDocument.Close (wdDoNotSaveChanges) o H  p       B -- constants -----------------------------------------------------] 
 wwiGraphic   ng]  GRAPHICS   hape  B -- local variables -----------------------------------------------]    ]    ]   ] (  ] @  ] X  ] p  ]     B -- program logic -------------------------------------------------   (( *ext in   CH 2005-04-15 store view type B@F  F! H! l' t	      \% ^ ' h	          B@T heck f' j	     '   >  WA171201: handle bookmarks in reverse order to avoid spoiling    ?  sequence on directly adjacent bookmarks (it is not possible to     ,  insert graphic BEFORE bookmark, only after)etting  h	  f	  count   %  '         z  X' 	     ' 
 7    <  if count is not there (old version), then do it the old way   d      '   ' 
k     j	     F! H!     .  W    F! ! H( lagrad       F! H( lk     8  WA171201: handle bookmarks in reverse order (see above)    d	   ' l	    
 ' 	  h	  f	  l	  %  ' veLeft      
   C  l	  $ 
 ' dExtend     ' j	  k          F! H!         F! B@B     k        WA150305: delete DVS files       h     hB@    !         B@T         CH 2005-04-15 set back view type	  t	  F! H( l  (( * x o         B -- constants -----------------------------------------------------]  G    y ]  F 8  su]  O P   , 	  WA070600  ]  I h   * 	  WA100904     B -- local variables -----------------------------------------------]   ]   ]   ]   ]   ]   ]   ] (  ] @  ] `  ] x  ]   ]    ' 	      On Error GoTo weiter10ge a  l	  ,%  B@H  grah' 	        ,  ' ,
      ,
       ,  ' .
    .
     G       ' .
j     ,
   $   ' &
    ,
     .
  ,
    $   ' T    .
   $   ' *
  C  WA250403: make auto sizing correctly (consistant with resolve dll) creasi ' 0
    ! 	  	   *
  A        ! !           9 f          9 te         9 't         9 y q     ! ! ' 6
  ! ! ' 8
' 0
    *
  $     S  e     *
  *  ' ,
rs.c  ,
     G   *
    ' ,
j   *
    ,
   $   ' :
arac  *
  ,
   $   ' <
  :
$ ~ ' 6
If  <
$ ~ ' 8
ar' 0
  k         B@&  	  	  &
  
         T b  B
 D
  ! >
% @
 . 2
  0
     8
   
   par  8
  2
( hey d `    2
!   6
  2
!      2
(  the tk 0    6
  2
(  thek     &
   
 e       T b      H
  J
  L
  B@F
       &
  "
 e N  M  T b  B
  P
  ! >
B@N
 t fit    "  WA140904: allow insertion as icon  &
  $
 e       T  \   N% P ' ,
  T  ,
   $   ' (
  T b  B
 P
  (
 R
  ! >
B@N
 er on.k      !      Y  when included document contains text field or other drawing objects this error is thrown    { error including document   T    }      B@. iabl    make an entry in err file      T  RTFError  $B * e is r  B@&  _szDYNd      !   B &	 X	 k     `      2  WA171201: ignore error from non existing bookmark       	     l	  ,%  B@>  (2) k `   i X   P     g Attribut e VB_Nam e = "wwi OleGraphic"
'*@     :  E "Purpose%res`olve #Changes:1[ Da ]-[_ [ 
Actiovng]IC׀%f orce dec lare var iable
OpBExpl              	  
                  N      .  E            '         !  "  #  $  %  &    (  )  *  +  ,  -  /  0  1  F  3  4  5  6  7  A  9  :  ;  <  =  >  ?  @  2  B  C  D  ~  G  H  I  J  K  w  M  O  =  P  Q  R  S  ^  U  V  W  X  Y  Z  [  \  ]  L  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  x  y  z  {  |  }      	  ic it

Pub Sub M ain()
   Dim rc A s Integer

nVie>w nveWindow.0.Typ7Call Star 7<   #-'  WA270899  to get  correct  page numbersDoc ument.Fi elds.Upd@aSave6 FileForm@at:=wdCRTF@WordB asic.DisOAutoMac,roB':(av oid saving nl.d@ot dueTmpDDE c$NTempl).$d@Tru1M  'I5Cl (wdDoNotAĜk
E|ndpA.Ht]t'--Pnstan0ts -1 .Co cchBoo`kMark SSO>G  FG0roup
GRAPHICSŃlocalW!XchVa.2<Ebtin3@@leanenECounta`Inqdg#Al mai$program logic:Sm>Apa.Screen"gX@= FalsQC H 2005-0 4-15 sto@ t"}  wyB= 3|a 2=" LibA4.G etPath(4, 3ZcSel@~ .HomeK@ey UniuS@y, ExtendwMovBA;= Ej:= 0!a Ay171201:  tdle 
b[m[s in rev@e  er}poil$Csequen	dily a0djac	(i0t is@ ossi @
cins0ert @:A B EFOREf, ona
fter$eI= Syste@m.PrivPXrof K(-,Cvbp, "cA["1If R<>  "") TheǢa:ka= C`aha= -1fhtheF`(old ):), n do "@ wayE'? ~RPLIf1 Whp g !s%  Po*S0tSpeciG)dPaneNone -Cqo\wd^r  so0Q*&"* (see a.b1I=~\& k23+W  s nVa1%))`)7
@3Lena' > 0JS=Å@lude+`DBO u$W0Fq 1 #ew.#@4w##iver#}+r@50305:le0DVS = On Error Res Nex23UDll32.Del0U"Ao/U/U-U'` back vI`5aa/g(gZPMp FunsBy& 'ww, ()/u !uc/s 2T
G	>"G"!F{Obj qO"!Q#07060mIp_PIV100904;OOCModew1chq1ch6nPos}p2|bu"0!P bSizbNewP@IneShawDo@ղh/wstrQ^h^
6'?GoTo wei`1680km8Q).@_)U= (1T`,#2PIny+ bw[  ] chValue)  + 1
   chMode =@ Left(,  nPos1 - 1)FilMidF \2 \lOption -p2\ a'  WA250403 : make a uto sizi ng corre ctly (co nsistant  with re solve dllLbA 7SizAFalse\I`f Sel A . StoryTypwdTextFrame AndZ"A" Then"  W8$hapeRange."  .Margin ~0#RightTopBottomESG+wKWidthhHe#	IOTruOE Q P̓F,"SG~ = InStr(3,R, "*"z @	0VDnF  ws|trÏE C- 3h		@	J( RA \If
I On Error  Resume N .Clear	:cch GraphicI0nclu ܇SetwPic"qInlineS s.Addtu(re(AN :=ch, LinHkTo:=¼,  SaveDoc@(nt:=s7 G 3h > 3!  Ne.E`$J  AC* (w /.S+Bw#!^0l+a+e~Insert  'Bx:="" , ConfirBm verss&*,Attacxhme+ei>Obj;<OLE<Displ`ayAsI 
140904 : allow i   as i?`*h=  wwiLib.FindRe!$e v* |\%|R1 7cv-q\? !
F1, \, Label?dBEHa HuNumbe551^8' w&ud Fdh@nta) t~ field"  othdrawo>s t`his eB tphrowDASAft(" {	F" &@ " } %.'$n  Rrybl  C@7L.writeor(1, 20 D"RTF >.4M7Raise( 2=wer10:!Qb)71201: @ignorefrmnpex}A bookmark
Vxt11 @,bBvk0\idzActiveO6.as+%).zDPtSn&H
Fun o                                                                                     `d  $ 8  d  `(  l\iLh) d` 
    /h"`d  $ 8  d  `,  ) d` -\`d  $ 4  d  `@  ) d` s'\'|''''''<'\'|''''<   'd  $ 4  d d6  <|\<|\ d  $ @  d   d d  $ P  d@ 	 d        L(                      h T          d ` <      | \ <      | \   ,     `  $   ` 
 ` 4X\`  $ 8  `  \(  lXpd) `\   1x 5X    8   `  $ <  ` `6 8 pv  pt -  lx`  $ T  `P  >1h` lh =  
lhpt pr  pt pr  kv6 9X\`  $ 8  `  \ lX    ) `\ <   \`  $ 8  `(  \H  ,  ) `\  /   \`  $ 8  `  \,  ) `\   kt#*1l/ ktkrpt -ll lx`  $ T  `P  >1h` lhJ    & lhll  pf/   pv   9X\`  $ 8  `  \ lX    ) `\ *\`  $ 8  `(  \|  ) `\  K 
    5X    8   `  $ <  ` `6 8 .kd\`  $ 8  `  \,  ) `\ `  $   ` 
 `       l ,0                      x h l $           ` \  8  @     l Ctl Cp  pZ ? tM$@48  $ 4  88  4@   L  ) 84  pZ    lp     p^ k^lp     p\ k\   lpJ   p\ #k^pM$@
  `1l5 4k\k^Dk^pM$@
  `1h6  *'k\pM$@
  `1`6   pX 38  $ <  8H  l   l` 08^ 3 48  $ <  80 4  Q ) 84         74           7<           7D           7,   c 348  $ <  80 4  ntL) 84 348  $ <  80 4T  ntD) 84 pX2 (   `M$@
  :  ]352    l`     p^ k^  l`J   p^ .k^D   `M$@
  `1@6  *'k^`M$@
  `1<6  l@
  tL l<
  tD pX  K     88H 8 ll! 0
 I 'cflh48  $ <  8 44 " Q T) 846  kX oD  oD7TL #   ,TP # TH # noLn7TL #   oL7TT #   ll$ 0Z @fff:$ Nlh8  $ <  8 86  ll% 0 _ '4'T't'ffhM$@'48  $ <  8 48 " ) 84 6 tT4 ll& 0  +.' C00h(  p^/0 *'k^hM$@
  `1d6  a 'TdM@'t'cfhM$@'48  $ <  8 48 " ) 84 6 tT  $    88 ) l  8 3* lh*#0+ *#(8  $ <  8D 2 0(8 ,, C00h( ( 
-  /06      88H 8b  F''''    88 ) l    44D ) ) 846   K kZ ? tM$@48  $ 4  88  4@   P  ) 84            TL            4     
      < @ l h p ` d T t <          0 ( 8 4       t T 4           a                          rU                    	     N         $      N    `           $      N   `           ,      N   `                          n                                                                              a           X[E           _ _ S R P _ 4 f                                                  f   =                                                w w i I n i t L o c a l                                                                                 >
      _ _ S R P _ 5 0                                                                                        p      _ _ S R P _ 5 1                                                  n   w                                         g                                                                                    x                                       ME                   P     6
        L    L    L    L    L    L           H     `               ,o          `V
x         `X
@   t       `Z
p     x       T
                 %   8   p   X           h  ,(= (@  l	       @(  \     _1@L     Xd%@H     (_%@  D	     @1@  @	     /@<	     _2@,     &                                              tVH $ * \ R f f f f * 1 < 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # c 6  * \ R 1 * # c d  * \ R 1 * # c c  * \ R 1 * # c 0  * \ R 1 * # c 7                                                                       	     "       	     	        	 .   (    	    X    	 H   `                         	     	 H       	           
 !    	     . f     ( f P   	      , x    ,    
     	           	       x              wwiEInit Makro    (  Makro erstellt am 16.08.00 von Ambrosch           B -- local variables -----------------------------------------------] @   ] X   ] p     B -- program logic -------------------------------------------------       ,B@\
    ,!   ActiveDoc_full_name   ,% < ( L7   ,!                	  
                                           !  "  #  $  %  &  '  (  )  *  +  ,  -  .  0  1  3  4  5  6  7  8  9  :  ;  <  =  >  ?  @  A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z  [  \  ]  _  `  a  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~       ActiveDoc_name  ,% < ( L  (! 2( 0	  ,! .( 07   ,( 0> m o P   H      Attribut e VB_Nam e = "wwi InitLoca l"
Opti on Expli cit

Pub , Sub  Main()
@  
'  tE#v ,kro"Ma  erstel lt am 16 .08.00 v Ambrosch *C'-- lw variab`les -+ FD im chCur rrentDoc!As S ng"GuiHozcPath ARprogr flogic-Q--  Orror  ResuBNex   Active [ 
nt.Un6tec@V("_full_n").ValuF _F[EBpa.Normal Template@.Saved@True ached
EndW  rU              ~|         	       	     Q      P       !                        9      y                  	      Q      1        l    K !'Ll  $ 4  l l5L fHl  $ 4  l  lH<:\ NLL@D  $ 4  D  @0  <0  /H) lD@<5L fHl  $ 4  l  lH<:\ NLL@D  $ 4  D  @0  <0  /H) lD@<5L ,Dl  $   lH  D@ 	 ) lD ,c\%Ll  $ 4  lX LC
 l5L l  $ 4  l  l       P l0                      p t x $          H l D @ < L     k                      rU                    	     P         $      P    `                 n                               rU              ~|         	       	                  R      	N      9N      2      qN      N      	O      O      	P      iP      P      AQ      Q      A      !                  Q      8         ,         $                 w w i E r r o r                                                   1   /                                         -      _ _ S R P _ 1 8                                                                                              _ _ S R P _ 1 9                                                  q   t                                       /         w w i W o r d X P                                                                                    8  $               ]          F **********************************************************************    force declare variable           F ***** External Function Declarations (DLLs) **************************       F ***** Shared Variables ***********************************************       F ***** Sub MAIN *******************************************************        *  called Subroutines:        *    F **********************************************************************             F -- local variables ---------------------------------------------------       F -- current settings --------------------------------------------------       F -- load language dependend dialog text -------------------------------       F -- User Dialog definition --------------------------------------------       F -- set default values for dialog fields-------------------------------       F -- program logic -----------------------------------------------------       F -- restore current settings ------------------------------------------       F -- single exit point if possible -------------------------------------       , DokumentVariableBestimmen "wwi_LeftSym", "<"         - DokumentVariableBestimmen "wwi_RightSym", ">"     o      F ----------------------------------------------------------------------           Name: errorHandler               2    Purpose: exeption handler for Word Makro errors          F ----------------------------------------------------------------------    @     ]      F -- local variables ---------------------------------------------------    ]      	  new line ]       header   ] (      message  ] @       return value = 0 : cancel macro    '                 1 : repeat last command                       2 : next command  ] X      0 = show no message          1 = show message ] p    0  controls which buttons were shown in the msgbox      ... (see at help for msgbox)     ]     +  controls which icon is shown in the msgbox         %  16 = Stop, 32 = ?, 48 = !, 64 = Info     ]     !  return value of the shown msgbox   F -- load language dependend dialog text -------------------------------      F -- User Dialog definition --------------------------------------------      F -- set default values for dialog fields-------------------------------      F -- program logic -----------------------------------------------------        initalising       
 $    $   ' f
        ' n
    show message        ' p
    only OK button    0 ' r
    "!"         ' l
    cancel macro       EHS-WWI ' h
  Macro: <  ^
   >    f
 ' d
      d
  Function: <    `
   >    f
 ' d
    b
      K T   	  no error    ' n
    no message         ' l
    next command       K T   d
  False Parameter!!  ' j
 4 K T   d
 $ Filename or Filenumber not correct!! ' j
       5 K T   d
  File not found!! ' j
   @ K T     file name not valid        d
  Incorrect filename    t         ^%         Xr                                                                                        x                                       ME                    P     6
    L                <     <     <             @      `              |+            `              k      o o ,    Y^
              Y`
            Ib
       vPd
h       Pf
d        Ph
   `     6   Pj
H  \     -[Ac@l
  L         @n
<     F **@p
,     ****@r
     ****@@           @                   %       @          X        p     (          @  H    `  @l        p  H          X          &      @        @        @h        @        @        @(        @      @       (  @  !  @        @        @        @  p      @`     	 @\	      @L      @8  <     P    @  @`  ,      x  8  C  @       '   `  I  @            Q  @           Y  @         ` 1 5                       @                      tVH $ * \ R f f f f * 1 G 4 9 1 d 9 5 e d  * \ R 1 * # c 1  * \ R 1 * # 1 7 b (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f                                                              	      	 L        	    P    	 F   p    	        	 @       	        	       	 <       	    `   	 L   h   	              	      	 L      	      	 L   0   	      	 L      	       	       	 L     "   H   	      	 L   P   	      	 L      	 L      	 L   @   	 L      	 L      	 L   0   	 L      	 2      	 4      	        @   	      	 L   H   	       	       	 8      	       	 L      B   P       X   	      	 L   `                     .      	 .   (   	 &   X   "      	       >      	 $    	   :   (	   	 ,   h	   0   	   	      	 L   	   	 L   
   	 L   h
   	 L   
   	        3       @     `                  $ !    . *    	      	              (     @     `                   2               "     "  8   $  `   *     *                &  (     P   6 N X    0              	                     	            	         > (    	 H     P     h    	    

          
          &      	    

     
     "      
  (     0     P      X    	 x   

     
     "     
     "                	    

     "  (   
  P   "  X              	    

     "     
     "                  (     0   	      	 L   8    	         	      	          F **********************************************************************n Am       Name:       wwiError    ?    Issue:      06.09.1995-Jrgen Stolz-TechniDATA GmbH/Markdorf             9    Purpose:    Includes some functione for error handling               Changes:     6    [ Date ]-[ Name   ]-[Action              !  ' j
       K K T     path- or access error      d
  Path or file access error!!  ' j
       L K T     path- or file access error         d
  Path not found!! ' j
   K T      command not valid  d
  Command not availiable!  ' j
  S     d
  Error: <   b
$ &    >    f
   f
 ' j
    j
  h
 0   B@$      ' n
    no message       n 0    l
           j
  f
   f
 ' j
    k      n
            show message       j
  h
  p
  r
   % $ '   p
      K T     OK         K T     OK + break               K T         ' l
   K T n H     K T     break, ignore + repeat           K T          K T   ' l
     repeat last command        K T   ' l
     next command     n     K T     Yes, no + cancel         K T          K T   ' l
     repeat last command        K T   ' l
     ignore last command      n     K T     Yes, No          K T         ' l
     repeat last command         K T   ' l
     ignore last command      n x    K T     Repeat + Cancel          K T         ' l
     repeat last command         K T   ' l
     ignore last command      n   S   n   k     F -- single exit point if possible -------------------------------------      l
' i    errorHandler    P    T Attribut e VB_Nam e = "wwi Error"
0
'*B    z : Issue06. 09.1995- Jrgen S tolz-Tec hniDATA  GmbH/Mar`kdorf ADP urposFIn cludes so functi one for e handl(ingCges:&[ Da]-[[ Y A";_]$F Uce  declare  variabl e
Ope Explicit 	ternal RFw Das  (DLLs) PSh d VDsXub pMAINU*   called  Subrouttinj* -0
Pub TA M ain()0-- lo `s -/ current set0g@<$ad languagpend  dialog text)@User DdefiniK_'	@Ufault9`%lu`omfi0elds
	pr ogram.gic-q
	rest^o@g.	sl e exit p$oi7if ssi r? 	Dok,um?ejBim  A_Left Sym", "<@'Righ>BEncDMV_&HaerC&exe JA?Word@ikroCs?--uf)(ma$, fn 	no zDim  info$$  .'{ `hm nl$' new  cheaHder' c
#messzH' dEreturn_' cco0 :ncel macroA+'m1repeat Fst comm:2n1HshowY 0
q8 noiM	 ' 1,`tonY'ntrols which #- ePA!n  t he msgbox' ...@ (see @hxelpc`%ic )"i`߀ @6P` p, 32 ?, 48p !, 6:4p I -1rcm!of20eeO1eeeee?#iptalia?=  Chr(10) + 3!_P1 ' i/d,=`1' onlpy OKt,A$=C ' "!`a dA0caAIPEHS-WWI'"S"MD: 4<"mV ">? 	U#+ >"YTX[XSe lect CasvrrnK UdeaUrBS= 2 4 eK 24%t$I
alPa e!S52#Cg!Filei #@ɲ umbsno!Wct30Tt1und@B ' f uv,d oB	q75- path-accPmsOGP 	I76 Ofon509~ eq4ge"CsavailE0$O
G
$4Str(i4 $8Bas ic.MsgBoxF4>d
  show_0 = 0('  no message End  Select
<If returntThen, f$ |$ +8 nl
HIf1 E' !	  rc SWo rdBasic.MsgBox(d , header $, button uicon) Case 	~' OK1)break "rc+-1		a
K0?2EC , ignore Krepeaͅ?wKGwF@ '| last command	8</ nexP=3E5' Yes,+ cancelG<fr<GN_< jN>4>N~o;Jl7R!'QE5c #RWXC:BkcV 	8D#BEls"  <'-- s ingle ex it point if ssib%- --CerrorHrler।5
Functi@'	a 
                                                                f      3
   
      
   `1d6  ( < (  , (0  (  L  C` !  *# *#ld*1h2  *lh *# *# *#ld*1h2     (  ]3  (  < ( LM ( ]3 lh *1\M (4 ]3' lh *1\M (5 ]3F lh *1\M (@ ]3e lh *1\M (K ]3 lh	 *1\M (L ]3 lh
 *1\M (]3 lh *1\M  Nlh *Fl 
  : ldFldFp``1\6 ` 0\@`@(p0 %\ $ @  \  \ (  <  L(  ]3u l\ld*#ld*1\/  <( ]3 >\@`@,%\ $ @  \  \5, < <(  ]3 <( ]3- 7 , ,(]3 ( L( ,(  ]3(  <( ]3 U  (]3Y (  ]3w ( L ( ]3 ( L  <( ]3 U  (]3 (  ]3 ( L ( ]3 ( L  <( ]3X B  (]38 ( LS (  ]3S ( L  <( ]3 B  (]3 ( L (  ]3 ( L     	L l        h           P         l  < ,       L ` < d h , \ 4     
        \      `         f                                                  rU                    	              $          `           0         `     	     	     	         00/      n                               rU              ~|         	       	                  !                  !                        Y'      '      '      #      	(      q      9$      I(      (      (      9)      )      )      a*      *      +      Y+      '      &            K x  $   Qxt  t   t   t   tt   t   t  turn off warning that markups are present  9 t
     disable RSID tags  9 v
      don't save or open in backgroundj
 9 x
   9 z
     don't show smart tags orre 9 |
    . CH 2005-06-20 don't embed Smarttags in any wayK T  9 ~
    5 CH 2006-06-20 for labeling when drawing new textboxes      9 
    5 CH2006-11-09 disable Format Mark-Ups they are useless erro 9 
   9 
  q      CH 2005-02-18       F! H        disable smarttags  9 
     disable revision marks      
9 
q p    & CH 2005-08-12 Disable Tracking Changes      , 5 
!       ,B@
        k    9 
   9 
    / CH 2006-06-20 don't embed Smart Tags in any way    9 
   9 
  5 
!     ] @       5 
     B@>                   k h  q `  o X     + save Word settings to restore them on close       `     ]         9 HKEY_CURRENT_USER\Software\TechniDATA\WWI\LayoutSettings\    '   p! t
X      
 WarnMarkup  ,          p! v
X       StoreRSIDOnSave   ,    p! x
X       BackgroundSave  ,      p! z
X       BackgroundOpen  ,      p! |
X       DisplaySmartTagButtons  ,      # CH2006-06-20 don't embed Smart Tags         p! ~
X       LabelSmartTags  ,      5 CH 2006-06-20 for labeling when drawing new textboxes       p! 
X       AutoCreateNewDrawings   ,      5 CH2006-11-09 disable Format Mark-Ups they are useless       p! 
X       ShowFormatError   ,    p! 
X       FormatScanning  ,       window settings     F! H! 
X       DisplaySmartTags  ,        F! H! 
X       RevisionsView   ,        o       restore Word settings on close         ] 8       9 HKEY_CURRENT_USER\Software\TechniDATA\WWI\LayoutSettings\    '        OptionsSaved  %    X          general settings        
 WarnMarkup  %  X,  p( t
             StoreRSIDOnSave   %  X,  p( v
       BackgroundSave  %  X,  p( x
         BackgroundOpen  %  X,  p( z
         DisplaySmartTagButtons  %  X,  p( |
    # CH2006-06-20 don't embed Smart Tags              LabelSmartTags  %  X,  p( ~
    5 CH 2006-06-20 for labeling when drawing new textboxes            AutoCreateNewDrawings   %  X,  p( 
    5 CH2006-11-09 disable Format Mark-Ups they are useless            ShowFormatError   %  X,  p( 
       FormatScanning  %  X,  p( 
     window settings          DisplaySmartTags  %  X,  F! H( 
           RevisionsView   %  X  F! H( 
      k   o       \ Attribut e VB_Nam e = "wwi WordXP"
'*@     =: IssueTech niData A G/Markdo rf - Chr istian Hund 8;Purpos=MS   XP spec ific fun@ctions1Changes:?[ 5e ]-[wPN AT]$Ì%force  declare  variabl e
Op[ E xplicit@

Pub Sub wSss()
   On Error  ResuNex  'CH  2004-07-@13 dis4  messageb ox about m ]ups s          (  	           Xx                                                                                        x                                       ME                   4       (L
    6
    L    L    L    L   *        *L    L   *L    L        <8     <<     <               `      `              Xo   1 1       `X              %        `              `o       ?    i       ,   `x      XP   `              ho      V    i           `x                `   ****               %          `   @   h  0    P    pF
,	        @  x	              t  `        ( %              @p	             l  `          %                H  h  `         %   `            @d         @p  \	          H  )       @XO	          p  )    p  +           `  x    H  pF	        @  t	         @r         @  l	        @h     @d	         @`       8        pF	        @  t	     @p     C {@  l	           @h	                                h                   tVH $ * \ R f f f f * 1 H 4 9 1 d 9 5 e d  * \ R 1 * # 1 c a  * \ R 1 * # f f  * \ R 1 * # 1 c b  * \ R 1 * # 1 3 4  * \ R 1 * # c 6  * \ R 1 * # 1 7 e  * \ R 1 * # 1 e 8  * \ R 1 * # 1 5 8  * \ R 1 * # d 0  * \ R 1 * # 1 6 6  * \ R 1 * # c 1  * \ R 1 * # 1 7 b                                                            p  	 J        	    P    	 <   p    	        	 2       	        	        	 <      	    P   	 J   X   	      	              	     "           	 J      	 B   0     x   	 0           	            	 &                 	         0   	 4   8     p   	 <   x        	 <                      	        $ 0   	    @     X   	    `             	 ,            '    
                    	 6         8     @    ' H      X     `   
 
 p   
                    	      	 2     "                 H     * L @   0 L p   . L    . L    6 L     	 *   8   . L h   	 <      6 L    	 <      0 L P   . L    	       4 Y    2 Z  	   	        8	   	      	 $   @	  "   h	      p	     x	   H  	   , 5 	   	    	   * I 
   0 I @
   . I p
   . I 
   6 I 
   	 *      . I 8   	 <   h   6 I    	 <      0 I     . I P   	       4 V    2 W    	                	      	           D ********************************************************************"            Name:       wwiWordXP     6    Issue:      TechniData AG/Markdorf - Christian Hund          ,    Purpose:    MS Word XP specific functions               Changes:          6    [ Date ]-[ Name   ]-[Action                       ]              D ********************************************************************          force declare variable0                 D CH 2004-07-13 disable messagebox about markups starting with Word XP <  ^
  ; this caused Word to hang when called from generation server ' d
    p   ) tarting 0withEV't his causDedto AU when ll  from genera2serverW,& turn off  warnthaG"FpreseBn2  .W	BBeNeSavPrin*Sendup@FalsRq'<RSI`D tag. StoreOn Jon't  save Top 8in backgroBBJ.O= hPow s^t&DisplaySTagButt5u5-06-20 d+emb`A: ,any@Wy\.Label5s2
6$
, l +#<draw`new tK`Ge)AutoCreateNewDP6-11-09PForm`>A7-UOthey !?Ll`TS %C\).#ScanHEn`U O$a@&2-18!BR~ veWindow.View!SG3G3rev\is@k$Rs/wd*Final8-12 xTr`O1$cDoc%gIHf .&.C Xt >= 1 T@w!Y!.AcceptAllaIfc.J.6td1MW ^ZsWE\W.AsXMLProID  Dim `s As %#  L EachIn   s.Delet$=d D?&!5
7!a'Bsertas  Ѡbm ol*XPchSg%	`ng"!chRegK6a?d3dHKEY _CURRENT _USER\So$ft \e\T|AT A\WWI\LayeE\" & 7	System.P\vC fileS
("",1C
, "_]")P&CInt(d_a_aupQ a_eucgPi_ql?`kb7?/"mU/oA/ox#o$$e$Aqgs	ongssss_
_
.v	x	+zsІ0y Q   '(.11Vnq}PK`^{`_ۯ_(__y2nV?_____gs_ x###^1d"X"'l"ѢsaaRCBool(o	o	d	Ii#7a!k?%9%,"),7\t RegKey,  "Backgro undSave" ))
   Op@tions.xO pen = CB ool(Syst em.Priva teProfil eString("", chDisplay SmartTagButt w1hIp 'CH2006- 20 don' t embed =  >s}LabtelLs1I 	E Efor l5 wh drawnew tex tboxeNAu toCreNe<wDQNM11 -09 disa ble Form at Mark- Ups they  are useles*ShowCErr:0'ScannMpK?adow 0sett@D6ActiveWin.View.rb!RevisAInt)A_End If
 Sub
!                                                                                                                                                                                                                                                                                                                                                  _ _ S R P _ 1 a                                                                                      2  
      _ _ S R P _ 1 b                                                  W                                          ^         w w i I n c l u d e                                              y                                       T  sS      _ _ S R P _ 5 2                                                                                      b  v       t,   t   t  ct $px  $ 8  x  Qplx  l@      lh  cl x  $ 4  Qxh 'dxh  x,  ld   x0 x  $ 4  x| x   h   h   h@   hH  'dxh( x   ld   x xh( Qx[\`X	  
`@ 	  `X	   ch        $ <             $          t l h \ X `           x p   x    K 
  *1x Lrt  $   t  kr#h lx l  $ T  lT  /h) tl Lrt  $   t kr#h lx l  $ T  lT  /h) tl Lrt  $   t kr#h lx l  $ T  lT  /h) tl Lrt  $   tp kr#h lx l  $ T  lT  /h) tl Lrt  $   t kr#h lx l  $ T  lT  /h) tl Lrt  $   t kr#h lx l  $ T  lT  /h) tl Lrt  $   t( kr#h lx l  $ T  lT  /h) tl Lrt  $   t kr#h lx l  $ T  lT  /h) tl Lrt  $   t kr#h lx l  $ T  lT  /h) tl Yrlt  $ 8  t  l< kr#h lx d  $ T  dT  /h) tld Z`lt  $ 8  t  ld l`#h lx d  $ T  dT  /h) tld           x(                      x           h t l d       K 
  *1x 5p lx t  $ T  tP  lp 0/pt Ip lx t  $ T  tP  lpWl  $   l /p) tl Ip lx t  $ T  tP  lpWl  $   l /p) tl Ip lx t  $ T  tP  lpWl  $   l /p) tl Ip lx t  $ T  tP  lpWl  $   lt /p) tl Ip lx t  $ T  tP  lpWl  $   l /p) tl Ip lx t  $ T  tP  lpWl  $   l /p) tl Ip lx t  $ T  tP  lpWl  $   l, /p) tl Ip lx t  $ T  tP  lpWl  $   l /p) tl Ip lx t  $ T  tP  lpWl  $   l /p) tl Vp lx t  $ T  tP  lpWhl  $ 8  l  h@ /p) tlh Wp lx t  $ T  tP  lphl  $ 8  l  hh /p) tlh          (                      x           p t l h           a                          rU                    	              $          `           (         `                0(         `                0      n                                                                   rU              ~|         	       	     S      R    )   !                  I      	      Y      J            	      /            2            a2      !9      I     YB      !           I2      2      A      @      2            a                  3      	      YI      9      A      i                  q            q                                    	     	 Z      " 7    " 7 0    - X    - p   	      
     
     	 Z      	     	       4  (     `             	 0      	 (      	     	 (        @   *  X   " <    2     	 D      F  0    0 x        	     	            	 $      	       	          (     8     P     X   	      6 `    6 x   	 V           	 *   	    . 8	   	    P	   
" < h	   
4 ) 	     	     	   	      	    	   ( N 	   	     	 "    
   	 >   H
   	 J   
   	       $ 
    
 
     
   
 d 
   	        #      $ 0   	    @     `   	     p        	            	     0 *    	 2      
  H   
  X     `   	     	    h                                                                                                                                                                                                                                                          
     
     	       
      	 2        @     P   
  X     `     h   
  x        
          	            	 4      
  0   
  @     H   	 $   P   
$ " x   . G    
     
$      . G     
  0   
$   8   . G `   
     	       
4 3              	 $      , v     	 0   P   
          	 2      	       

           	     	               	           	          8   	      	 Z   H   	 "       #     #    	      
     	 Z       	        `   	     "   h   	      	 H   p   *                        	        	        &   @   	        h               	     "      $      	     	 H      	 8   `   	      	 Z      " 7    " 7      - H    - `   	      
  x   
     	 Z      	      	              (   	 @   H                                 	                                	     ( : @   ( : h   * ;    	     	       4            8     X   	 0   x   	 (      	     	 0      	 @       6 e @     x   $ *         	            	     	 "      	 >      	 J   X   	      	 "      	        	       	       	 &   0   	     X   	 n   x   	 D      	 &   0   	 2   X   	 .      	 "      	 &      	       	    (   	     	    @    E X   	 (   p   
          	     	       	 >           
      	     (  0   	         X     `   	     	 Z   p   	 "       #     #    	      
     	 Z   (   	              D ********************************************************************"            Name:       wwiIfGroup    9    Purpose:    adds the If group around the selected text    4    Changes:    10.10.2004 Christian Hund, TechniData           D ********************************************************************         force declare variable           ] @   ] X     B Dim chDocStatus As String   'Doc Status (MAIN, TEXTFIEL         (  3  ?         X                                                                                        x                                       ME                   8      6
        L    
    L    
    
              L           *L    
    <<     <           x    
P     `            p   k     	     `Bx     h  `
t     + sa`
r     x   `	l     d th`	h     4   `
d     004 `6`     niDa`
   \         `
X     ****`

T     ****`
   P         `
   L     vari`
H         `
   D     B Di`
@     ing `
  <      TEX`PH  :     (   `X   4     ling`0       `
.         `(	         `  	         
  `            	  >k  q q      `
z         `	t         `	p         `
l         `	h         `
  d         `
`         `
\         @BL         `	  H         `D	         `	         `	P           `	         `
           `
       Pbx`
               P  
 `               %       x  @      8  `                0  p      (  p  @            4(N   @`  $	         @X           @           @           @           @0           @           @           V&$ bl     @           @H           @       H=@           @	                `        0 %     V       @  p         @  `         @  P         @(  @         @@  0         @X            @p           @            @           @           @           @           @            @           @0           @H           @`  p         @x  `         @  P         @@         @0         @.         @  (         @  $         @          8  h                       	  
  	    p  X  4(l N&$   @  @	         @	  0         @P
            @ 
           @8
            @h
           @
           @
           @
           @
           @
           @
  x         @h         @X         @(  T         @@  P         @L         	                 @  H         @D	         @@         @>                             P  8                 (  tVH $ * \ R f f f f * 1 ? 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 0 $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # 1 e  * \ R 1 * # a 4  * \ R 1 * # 1 2 9 (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # d 6 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d 	                                                           % 	 J        	     P    	 @   p    	 :       	        	 J       	    H       h   	     "   p      x         	     	 H      	 8      	     *         8      @      H   	    P   	    p   	 <      "                                               (      H      h D, PREVIEW)  1 Dim chRegKey As String      'Registry Key for WWI ] p       type number of dynamic text      ]    ]    ]       Dim LG_ColCtrl As String     Dim LG_Meta  As String      5 Dim txt As String           'text of symbol to insert     ]       text of found symbol      ]    ]    ]   ] 0  ] H  ] `  ] x     Document Name     ]      Document Version  ]      Document Type     ]   ]   ]   ]     S -----------------------------------------------------------------------------------     ]    F       ! %  .       ] 8  F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------          get vars for symbol         INCLUDE   N%  ' 
 +   Type number Include      LEFT_SYM  N% 6 ' 	       	 RIGHT_SYM   N% 6 ' 	      INCLUDE_TXT   N% 6 ' 
    ) LG_ColCtrl = wwiLib.GetDocVar("COL_CTRL")   " LG_Meta = wwiLib.GetDocVar("META")  !  checking, if marking is in table   %  ' P        P      &   end of cell is marked                 B@         P    e  &   marking is exactly one table         >    flgHidNewLine = 1            ' flag, insert hidden new line      P   
 e  & 4  more than one cell marked -> move to begin of first    V   B@T       k h      mark Symbol            %  ' P              -2 = Marking were expanded            -1 = OK            0 = No text is marked  P           INCLUDE##OK ' B       k     ! d  <  '       ! d  >  '       O CheckMarking function fails sometimes to select the whole string 'between < & >                          # select the whole string 'between <>         ! d   
         
  WordBasic.CharLeft           B@         >   B   %  WordBasic.ExtendSelection ">"     k 0  k (     beginning of symbol         	  
$ & $ $    
   (  ' 
   get doc status from registry        7 chRegKey = "HKEY_CURRENT_USER\Software\TechniDATA\WWI\"     D chDocStatus = System.PrivateProfileString("", chRegKey, "DocStatus")        !      C@      
9 d5            mark symbol         	  B      ! d' 6       detect values of symbol     6  (  ' 
   find first quote of DokNr   
  6  "  ' 
       find second quote   
     6  "  ' 
        
      
       
       
  
	     , when something was not found return an error        ERR##433' B   k      find comma after that       
     6  ,  ' 

        

           

     6  ,  ' 
        
   
         everything fine   d     , when something was not found return an error        ERR##433' B   k   k     
   
        
     6  )  ' 
      d `    
     6  )  ' 
      k 8     do one last check   
      
  
	    
 . error parsing symbol for ("DokNr",DokVr,DokAr)      ERR##433' B   d    
  get values from include symbol      
   
   
   
    
   
         6  
     
  
    $   $ b ' 
  k (    

   
   
   
    
  


         6  

     
  

    $   $ b ' 
  k      
   
   
   
    
  

         6  
     
  
    $   $ b ' 
  k h    
  give back to abap  	 INCLUDE##   
   ##   
   ##   
 ' B    k    d       check if it is another symbol       ! d  	    
   ! d  	    
        
 ) should be a symbol, so give error message   ERR##608' Bd h   
 , if symbol not found insert instead of change       
   and overwrite selection    OK' B      k   k   q    F      return to abap      B  lB n     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o   P      B -- local variables -----------------------------------------------]       type number of dynamic text      ]   ]   ]      Dim LG_ColCtrl As String     Dim LG_Meta  As String    ]      text of symbol to insert  ]      Document Name     ]       Document Version  ] 8     Document Type     ] P     return code for abap      ] h     min and max font size       B Dim chDocStatus As String   'Doc Status (MAIN, TEXTFIELD, PREVIEW)  1 Dim chRegKey As String      'Registry Key for WWI   S -----------------------------------------------------------------------------------       ]   F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------          get data from abap     l% (	 ' 	        	  INCLUDE     
          9 split data that looks like "INCLUDE##DokNr##DokVr##DokAr" ]   ]   ]   ]   ]       	  ## ' 	      	  	  "  ' 
      
     	  "  ' 
        
     	  ## ' 	        	     	  ## ' 
        	  
     
  
    $   ' 
  	  	     
  	    $   ' 
  	  
     	   
    $   ' 
         get vars for symbol         INCLUDE   N%  ' 
 -   Type number INLCUDE      LEFT_SYM  N% 6 ' 	       	 RIGHT_SYM   N% 6 ' 	      INCLUDE_TXT   N% 6 ' 
    ) LG_ColCtrl = wwiLib.GetDocVar("COL_CTRL")   " LG_Meta = wwiLib.GetDocVar("META")  ) txt = Right("000" + LTrim(Str(DynNo)), 3)   : symbol looks like this: <20INCLUDE("DokNr", DokVr, DokAr)>  	  
$ & $ $    
   ("   
   "  ' 	    
      
        	  ,    
   ,    
 ' 	    k @     close symbol        	  )    	 ' 	     get doc status from registry        7 chRegKey = "HKEY_CURRENT_USER\Software\TechniDATA\WWI\"     D chDocStatus = System.PrivateProfileString("", chRegKey, "DocStatus")                'find symbol to change                With Selection.Find             .Forward = False              .ClearFormatting              .MatchWholeWord = False               .Wrap = wdFindStop   g         '.Text = LG_LSym + WordBasic.[Right$]("000" + WordBasic.[LTrim$](Str(DynNo)), 3) + LG_Dyn + "("      >         .Text = LG_LSym + LTrim(Str(SymNo)) + LG_SymName + "("                If .Execute = True Then      +           'extend selection to whole symbol          (           Call Selection.Extend(LG_RSym)                'delete old symbol                    Call Selection.Delete               End If              End With       delete selection    !   !          " something is selected so delete it  B@X  wx k P     then insert symbol  7 Call wwiLibText.InsertText(txt, 1, LG_ColCtrl, LG_Meta) wi  	  xxx   B  :   OK' B.1995-k  	  InStr(from_abap, "INCLUDE") > 0  F     B  lB n se  S -----------------------------------------------------------------------------------  Date     set old document attributes          B@       B@ **  (( *******  S -----------------------------------------------------------------------------------   F **o p   h      Attribut e VB_Nam e = "wwi Include"0
'*@    : : fGroupPurposeadd s the If$ g" a ndselecte ext;Changes;10. 2004 Ch ristian  Hund, Te chniData 6 Dforce  declare  variabl e
Optio n Explici U
Pub  Sub check()
   Dim to_ abap As S ngfind_tx' chDocStatus'  %A(MAIN E XTFIELD,  PREVIEWRegKeyRry @< WWI  SymNoAIn`teger '  type numb of dynamic 2pLG_L R?«J1Co`lCtrlKMeta txt7G0'].symbol i inxsertCmF" iFfo@ 5b race1ALoxB2Mcomma
quotNN
DokNr aDumenttVVers [AT@?markv`$$D
aa.bErrobBooleana '- ?+
AZorgDlg$Obj@: Set = Wo rdBasic. DialogReRc .T sCs View(False|Bea

onsEdit
CurValuesn 
Call ShowA ndHide.sLetApa.ScreenUpdng"44-
bg2s 'moa@Lib.QN o("INCLUDE")C|' o%$!=aGocVar(" LEFT_SYM"; 1RIGHKd_TX:TC'`COL_CTRLQMETA&# ing, if #9  isM t]l bP;T h.kT(True eP rzd>= -2 Then3X ' e|Tce%o!	PS}E. MoveLeft  Unit:=wd@~Ster, CPU01,utEx aE6
3'	exactly one"'flg.NewLi= 10& ' fla`  hiddnew l> 0 oPtRD-> mPf@begin Pfirsrg HHomeqy
YIf 1 'a '0l TMZ (0@a= T we
expa0ndedP-16OK = Ѐbsi cð0##OKGoTo 102E   c= 4Inpl(#A*, "<.d/$>#'Cfuncfails s!time o bwhh sB@ 'betwO `< & >	(	<QOr P ) '#Len\) >>0)a6%b8^harA4/6/6/6!6!9Oa8("P '7cf E .nH /]'= PQ+ L`Trim( !)$) 0G_EV+ ,"(r$3'bdoc"from r5y$ch4(HKEY_CU RRENT_US ER\Softw\ATA\\B  '=6 stem.Pri vateProfile
5"",?0X*A)Wi4thh>F0  .C`rFormattv-8 $.Exec= [(@$  ?V(oB_sc det@!L#D=(S:s' RP eqwc,""sE20	c+ `g	ϻ0  @=Q q2CY<'w!t"Hh@ was notareturn pan e
UERR##433*c6U  End If
H'fi l comma af ter that|2= InSt r(quot2  + 1, sym bol, ","")\If b<> 0 Thenr 2 M)M  4O  'ev erything  e	mEls
w H somewas not fou ret urn an error	%  t@o_abap]" ERR##433"GoTo 10	
2 n`brace)	x o AI' do one l ast check7.0 Or D<1~'U parsk@^ r ("DokNHr",VrAAr^N^B'ge t values  from includel5I1BdA DCMgAgB9  1@T rim(Mid(9, C-EI- 2):F$̓$]VrB2 -m 1)sf#B>%AD]$A^'give backv v)<(yINCLUDE ##" &7& "&AH4M'Be if it is oth AG@MSele ction.Te xt, LG_LSym)&>R+'should  be afso B#CqmessagJ608j@insernstead o han'`"@@writp 4OKg%3!aWithc
(10:A'toCCall ww iEditToo ls.set_d oc_globatl_(D$v-/ ?+
  o 8 ument  attributesWordB asic.bOpGsView o`rgDlg BeaBaApplica(ScreenUpd 0u= Tru""'o

Sub Pub]p  f1#IcZ( local\riabl\CDim p3No Aspteg9' type` numb@+d ynamic t99S0n?Q9am
e'TColCtrl@Meta atxtGp '
q79 .39%j 'Docc&N@
X0P_t Ve`|o\t T%F 9co`yforf91{'Q'mid max@2siz*chStaXtus t( MAIN, TE XTFIELD,  PREVIEWp'@chReg(Key'`is0try qWWI,p(GU#>Objc:L ST= AD ialogRecBB(Fa B1#AMTOOsEHgCurVaJwCs~K[Show Hide1[O_MXMAoMA`Ta#e,=ff"oԋ"s'rs\t 0So ks like &"&@##` Vrb ArDv sharp1 LoMppSr2r3P;kSj  r~1#p* wS,rB"g	BAH3&+ 2P?q	 #- >1" 3  -  sharp2 - 2)
    DokAr =  Mid(from@_abap,3  + 2, LeZnh) v3 1'get v ars for @symbol2SymNo wwiLib. 'Typ eNo("INC@LUDE")  '  num ber INLC CLG_L GE GetDocVa r("LEFT_SYM" +R+0RIGHName-P_TXT/'/ColCtrlCOL_CTRLMetaaMETAt'txt Right("000" LTrim(St r(DynNo)P), 3v'  looks li ke this: <20^(" Nr", VrAr)> 5yX+ FG_EI+ "(""/% @"If!C <> Or Then	\  A,DV&rAEArEnd If'closeJJ)A2Cdoc `statu  registrychRegKey _"HKEY_ CURRENT_ USER\Sof tware\Te chniDATA \WWI\D>'c
hSC= Sy stem.Pri vateProfileoing O, , fc
'fi=	vto angeWith Se lection.F   .Fo
r*d@2Fals@Clear0mattMa tchWholeWorWrap	
wdStop'.Te"W'IBasic.[Y$]ZHM@[@A 	]aB(,$#`_V
T.Execut~True ocSF`eA0, 0w#OCalDl 1Ext`(oQ u	d 
 old?	.D,aO$
AcX   'sbD` O|rtuH`	u !some@ng is 
e`o d4it h ABackspac PZ''t  insec^F"+#Y>.IA( , 1 G_ba9d   w'"xlxxE ob\"OK{*c 'In!U> 0

10: EditTool@s.set__ global_value(tCb'- ?+
7t q' umenDt @@ribp0s'G9
OpEsV iew orgD4lgOsD! BeaBaApplicaIScre`enUpd P$= !7A	q
Sub 
                                                                                                                                                       0     5f%$  $ @  $W B  4($6   5f%$  $ @  $W B  4$6  -(	@$  $ @  $W   $5 -	@$  $ @  $W   $5 
     $  $   $  $ 	 

  Upr5    1l    1h    1d c%c%   p: k: <   (    $  $ <  $ $6  k: k:  0'   $  $ <  $ $6   (    p:5 k:   Cx   6   $  $ <  $  l     q4/$ 6   $  $ <  $  l     q0/$ l4    l0     .$  $ <  $  lJ   /$ <    (    $  $ <  $ $6  ): N$  $ <  $ $5   NllFrM@
  
  ldF: `1t6
  $$  $ <  $  Q$ 
   lt   d.'0'P'p''''''0'P'''''  k.6 P0pP0 #hM@$  $ <  $ $ $$  $ <  $  >1`$    l`     q\ l\l`     qL lL   l`     qH *l\    lL    lH    lHlL  Cx   lH   l`     qT lT    4 lT   l`     qP lP    #2   Cx    lP    b lP   l`     qX  lH   l`     qX  lX    lXl\  Cx   "lL    lH    l\     GlHl\   ilL   `M@
  
  `1D6    lT    lP    lPlT{ GlPlT   ilT   `M@
  
  `1@6    lP    lX    lXlP GlXlP   ilP   `M@
  
  `1<6   3 lD*#  *#(l@*#$  *# l<*1x2 ($    v   $  $ <  $  lll           (  $ <    l(lh        2 () $ ! Cx  " Cx   c  lx#  1/ #(	@$  $ @  $  $ #	@$  $ @  $  $ $  $   $  $        \0T           <           < D h x d  ( @ t ` l `           ( $   $       P 0      p P 0  
   L     5f0%@  $ @  @W B   4D@6    5f0%@  $ @  @W B   4@6   -D	@@  $ @  @W    @5  -	@@  $ @  @W    @5  
     @  $   @  @ $ %  1H    lH	             lH      q llH     q l   lH     q l   lH      q l   lH      q :ll   il   HM0@ 
   `1d6   :ll   il   HM0@ 
   `1`6   ;lHJl   il   HM0@ 
   `1\6   	 

  Upz5    1t    1p    1l eltF zM0@
   
   llF:& ldFx:h X`1h6  xX l`$ =l\$ =' *lh *#Tl`*#P *#Ll\*1h2 TPL  lh *#Tlp*1h/T EH@  $ <  @,  lH@D  $ <  D4  l@) @D @  $ <  @( @   +>' CTTh
(  /T :0"  L   LT#  1P2 TP #D	@@  $ @  @  @ #	@@  $ @  @  @ @  $   @  @  $      @LP           8          \ H d p L l  h D ` t <          T P L @ D       x X  
        f                _ _ S R P _ 5 3                                                   o                                                   w w i I f G r o u p                                                                                     k      _ _ S R P _ 5 4                                                                                              _ _ S R P _ 5 5                                                   z                                                   rU                    	     R         $      R    `           $      R   `                 n                                                          rU                    	     T         $      T    `           $      T   `           $      T   `           (      T   `     !
         0       n       Q      C            &    rU                    	              8                                                                                                                                                                                                                                                                   \ R 1 * # 1 7 b  * \ R 1 * # c 1 $ * \ R f f f f * 1 2 4 9 1 d 9 5 e d  * \ R 1 * # c 0 $ * \ R f f f f * 1 ? 4 9 1 d 9 5 e d  * \ R 1 * # 1 e  * \ R 1 * # a 4  * \ R 1 * # 1 2 9  * \ R 1 * # d 8 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 1 * # c 6  * \ R 1 * # d 6  * \ R 1 * # b 5 $ * \ R f f f f * 1 F 4 9 1 d 9 5 e d $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d  * \ R 0 * # 1 0 (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0                                                                        >S         Xb                                                                                        x                                       ME                   L   @   (L    >
        L    
    L    
              L    L        L   *L         
    
            <P     <T     <X     <\     <`     <d     <h     <l     <p     <t     <x     <|     <              h    %   0            `            x  k   G G      Px         @h     x   @X     
  @X   H       **@   8     HuP4     @  @$       P          P            P            P         P                               x   @            @            @            @           PH           P         @`           @         @           @           `	         `(  8	         P    `            H	  k    T     Px         @h         `d	         ``	         `^         `  \         P(  X         PT         @  D         `@         `<         @,         `  *         `  $         `
            @@           @          `         `p           `0           P           `   	         `H  	         `P           `R               `              k  + + t    `,x         `.t          0p             %   ``	         `\	         +  `               k P    ! !    i6           `8t         `:p         `<l         `>h         `@d         ``         •          @              P      
                  p       @          X  0  p  `    x  0	    H  	                                   4(   @|	         @  l         @  \         @  L         @	  <         @(         @           '       @         @         X  8     x      `          0   
  H
  
  0  
    x
    
  4(   @
  	         @0
           @
           @`
           @
           @`           x  x
  &       @           @H           @|         @   x	         @t	         	  ,l     @  p         @8  `         @  ^           `  =       @\             =           [       @  X          H  T  `        4 %   h    n       @   D         @P  4         @h  $         @           @           @           @           @           @           @           @(           @@           @X           @p  t         @  d         @  T         @  D         @  4         @  $         @            @           @         @         @          x  `  `        4 %     H            `        4 %   x         @           N$~&                     8          x  ,            @  l	         @h         @d	         @  L         @P  <         @   ,         @h           @           @           @           @           @           @         @           @         @         p          P      0           `x                                              @  P         @@         @H  0         @          x                          H                 (  tVH $ * \ R f f f f * 1 @ 4 8 8 8 6 1 d b  * \ R 1 * # d 4  *  	      	 J        	     P    	 @   p    	 :       	        	 J       	      	    H       h   	          p   	     "   x                                                               	 "      	     $      "       6  H   *      ,      *      2      &   H       p         	      	 Z      " 7    " 7 0    - X    - p   	      
     
     	 Z      	      	     	 (        0   	      	 H    	 P   (  X    	         " <         &                     	     	    (   	 0   @   	     	 0   p   	       	            	 Z      	 "   (    # P    # `   	      
  p   	 Z      	           	      	       	 B      	    8   	     "   @   	          H       P       X       `       h       p       x                  
                                                                                   	      	 Z      " 7 X	   " 7 	    - 	    - 	   	      
  	   
  	   	 Z   	   	      	 (   X
     
   	      	 
     
   (  
    	 
     
   " < 
         &  8     `   	    h     x   	       )    	           	      	 ,      0     
 0               	      , F (   	      # X   	     x         &         	      	             &          	     	 &   8     `    & p        	     	              &    $     	     	 *        @    & H     `    ( p          .              
 
    	     	          	       !    	      	     	 P      	 B   `   	       	     	       	     	       
     < <      X   	       $ `     p    
 x                   l    	       P                  (   	     	 N   0   	     	            ( o    	     
     	      	 >       * (   	      	 &   @   2 T h   	      	 2      
 +    	          	     	                8   H  @             	
     	
     	       	 >           	      $           
 (     0     8     @    g H   	     	 B   `   0     
 !    	
     	       
* S    
 ! @   	
     
 $ `     p    
 x                   g    	     	 :      	 (      
 0    	     	    (     H    ! `   
     	      	       
 0         
 0              	     
     	
           	          	     	             	     
  8   
0  H   	
     	    x   
     
 +    	
     
                    	     	 &       )    	 4      	     	       0      H      P   	     	    X     p   	           $    	 0       l     
R  H   
               	     ( *         	                * S       P     X   	     	 F   x   8     	     
     	            (     8   2 T H   2 T         
2 T               ( C       H   	     	    h   * $         H                	          	         (   	       0   	         H   	 Z   P   	 "       #     #    	      
     	 Z      	        h   	    p   	 T   x   	      "                        	      $ $     $      $ 0   	        @      H   	     , F P   	          	       ^     .    	     & m    
 0           4 )     * z @      p    	 H       .         !   
 0 !     !   	     	 $    !   	 4   H!   	 X   !   
 
 !    
 !   	      1 !   	       "   	      	      	 @   "  B   X"   	 N   `"      "      "      "      "      "      "   	      	 N   "     0#   	     
 	 8#     H#     `#     x#   	        #    2 #     #    ) #     #     #     $     $   	       $   	         $   	      	      	      	     0$     D ********************************************************************"            Name:       wwiIfGroup    9    Purpose:    adds the If group around the selected text    4    Changes:    10.10.2004 Christian Hund, TechniData
          D ********************************************************************          force declare variable   ]         ] X   ] p   ]    ]    ]    ]    ]    ]    ]   ] 0     Dim bTextSelected As Boolean   ] H      includes the if field    ] `      selected condition         d      "   list with all inserted symbols   ]       number of inserted symbols       ]       return value of dialog boxes     ]         begin, end of marking      ]         left, right symbol delimiter       ] (  @      colour of symbols  ] X      colour of grafics] p      counter    S -----------------------------------------------------------------------------------     ]   F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------         !  checking, if marking is in table     %  '        '           K T  $   complete table selected'      K T  $   end of cell               B@          K T  $   OK        K T  $   marking isn't in table   S      n       check marking      * bTextSelected = wwiLibText.checkMarking(0)  * from current selection create this string.   Call GetInputString        8    S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o              <  wird gestartet beim Einfgen von "bedingte Ausgabe" im Word                 ]   ]   ] (  ] @  ] X  ] p  ]   ]   ]   ] D         ]   ]    ]   ] 0  ] H  ] `  ] x  ]   ]   ]   ]     S -----------------------------------------------------------------------------------       ]   F       ! %  .       ]   F       ! %  .           ! B@           ! B@         4B            (( *        S -----------------------------------------------------------------------------------         !  checking, if marking is in table     %  '        '           K T  "   complete table selected'      K T  "   end of cell               B@          K T  "   OK        K T  "   marking isn't in table   S     	 GoTo Ende n     ! '          %  '         &  probleme bei markierten Absatzzeichen         ! !         $       B@         '   k      sym_output_table  ,! %  ! .             !  !           Wert 1 = Anfang der Gruppe               !  %  .     %  '          Wert 2 = Ende der Gruppe       e          !  %  .     %  '          Wert 3 = Und - Oder Verknpfung        e          !  %  .     %  '          Wert 4 = insert oder edit      e          !  %  .     %  '  *  "x" oder ""       # Wert 5 - n = Symbole 1:1 bernehmen       d        !  %  .                 %   ' d p      ,      %   ' k H  k @       ******    X     	 Edit mode       000(      )  '   I TODO Begin -------------------------------------------------------------*   ; suche nach dem Anfang der Leertextunterdrckung wie bei den ******   Wiederholungsgruppen******   Seek of 15BIF backwarddecl   detele the selection                         B@  F  WordBasic.CharRight     k     !       9 
  C@     9   9     9   15BIF  7              Error       ERR##620   lB@n  7 1 Anfang der bedingten Ausgabe wurde nicht gefunden    k   q     H ToDO Ende -------------------------------------------------------------*         STEP 1 - Begin      %  '         ! d    ! d     $   '             8 Read the counter / Rauslesen des Counters fr die RepGrp        $   '      Set old Counter into the Symbol       $               $   '         , Delete the entry and note the begin position        B@>          <      >  '     insert the new RepGrp           B        d     ERR##621   lB@n  5 * Fehler beim Einfgen der bedingten Ausgabe p  k h         STEP 2 - ELSE ZWEIG      7 seek forward of CASE repgrp with the same rgno 15CIFxxx     15CIF    ' 
      !      9 
  C@     9   9     9   
 7           <  we have no else --> seek the end group and fill else before            CIF    /  fill with else branche  <         >  '    
  seek end of Group     $     E      $    '         <         >  '     !      9 
  C@     9   9     9    7          4 dont mark it - because the sekk ist the whole Symbol        " bTemp = wwiLibText.checkMarking(0)  B@            insert the new RepGrp           B                    B        B@            go to the end of NNGroup    B@             %  '         B@         "	  k 	  q  	  k   d      mark it        %  '                       CIF    1  fill with else branche  
 do nothingd p    B@>        k X  k P  k H  q @      go back to the selected Symbol     ! '       . WordBasic.SetSelRange selStartPos, selStartPos    d    insert mode     ]    ] 8      check marking         %  ' P        P         ! d' R      * don't insert when a group Symbol is marked   
  
 ( 
   R    $     11    R    $     13     R    $     15           ERR##622   lB@n  : 4 Positionieren Sie den Cursor auerhalb eines Symbols       X  k P  k H    <      000(      )> '    '       CIF         <      000> '           $     E      $    '       k     <      000> '         @ '''''''*********************************************************                                   4B           IFGROUP   N% 6 '         $ $ '     $ $ '       $            	   $   '           $            	   $   '                     $            	   $   '       k     $ ~    '       000   $ & $ $    $  '   IFGROUP     NB (        	   Symbole einfgen                    B *       d H    ERR##621   lB@n  5 * Fehler beim Einfgen der bedingten Ausgabe   k   k  	  edit/insert mode "    OK   lB@n        F     S -----------------------------------------------------------------------------------           set old document attributes          B@       B@     (( *        S -----------------------------------------------------------------------------------       o             N  Read the select Symbols and put them into the Collection Table (here R3Table)           P    ]   ]   ]     ! ' , #   Markierung merken      !  ' .       ! . 0  ]   ]      sym_input_table   ,! %  ! .       !  B@2    $         G   B@  j   !       .	       <       !    .	        B@             >   B     WordBasic.ExtendSelection ">"         01        02                !  ! .          A      if found the right Symbol then delete the [D:] in the symbol           $   $      ,    k     B@              Set newRange = Selection.Range      . newRange.SetRange Start:=startPos, End:=endPos      R CH2007-01-22 using Start and End doesn't work properly in TextBoxes, so use Ranges  0B@H          . 0 	 ON_CHANGE   ,! B 4     o      :  This Function search for "[" and "]" and delete the scope       H  Declaration -----------------------------------------------------------  ] p  ]   ]   ]   ]   ]      H  Implementation --------------------------------------------------------    6' @  @ ' >          6  [  ' 8        6  ]  ' :      :  8 ' <    8   
   :   
     6    8   $   ' @      >  : ' <    :    <$   '                @   ' @  k   k     @' i       } Attribut e VB_Nam e = "wwi IfGroup"

'*@     : Purposeadds th@e If g a ndselecte ext;Changes;10. 200 4 Christ ian Hund , TechniData 6 C $ force de clare va riable
 Option E@xplici V 
Dim bIsEntireT  As BooleanPub   Sub Main()
   markTXT$!lntha1ņ2iRe8rgno_ NewBegin{@ElseTnd'2T@aSd2yEdisp0lay$ ' include{ if fieldcondiP' Re$symL}__$ (100)' l  with all ser!bolsan0zSym	*'  number o2frcA' @returnlueAdialo@g boxeHf, Ende' bAi, e@#@ing,doc_L,$, Rleft, right C9limiterIColLbl`   ' coxlou,$GraKgraf<ic*kun'- ?+@orgDlgnObj: Set = WordBasic.DB3HRec .TssCysView(Fa`crBea

onsE\
CurVaEsno   CA_Show AndHide.set	Apan.ScreenUpdng`"44-Hheck@\, ] isn tGm= `Lib9.cª*, ه5  c̯=Cc#@$se rccCa-3U Xmple" .TruA	2Ar '%~cell
`.MoveL`| Unit:=wd`ra r, Coj:=1xt E"	c1' OK0' xn'tLrd  GoTo"NN8Q}s Do@Mprp#(0:E'from currenPWky.ah%s4tr.tb2GetInputS
Y: o0o/?r0$Ild\um!aUG?IALI@??*_?ub 'yrd itaytPoEinfges0"bedP0Ausgabe"  aIn}!თtemp0A9q R3F3aroVwgb#iIjgsG *"T2 chMo~p%&.▗ЏSPo s01mpQ_p@@lBranSVer8J
q$w)5$q6X{AD TK? ??q<O]M//`ᜑ37rwoco@oh	pOOORs&g  ' OK
   Case 0@' mark ing isn' t in tabDlevEls   'GoTo End  Sel ect
Xse lStartPos =ion."bText3ed $wwiLi.checkM(0)/' pro me beierten  Absatzzei 7n}If . True AndECharact ers.CountA1Chr (13) The-  MoveLef y8Fa	IfbSet R3T .Act iveDocumentBntainer.s(" sym_output_")rAFor i $1 ń+.RowD4K@jWI 1nfavder GrupprK99t row@Item(idÌ NewBegin`Group
@.Cell(1Dm2  Be A ~2HY( A(I@3E U@- O!V erknpfu,ngC	H"3p"IniStr@Tem\p$@JC#4 insfo#ediD"40"chE@	M
Ke '"xd" "" 'AbE5 - nS ymbole 1 :1 berneh U##_5e<5J  &N+?AQK	)!2+ "," 	 CtA J cNex`  `+"X"s\. m`*a   cB000(AP")@3	 @'TODO m - 7*	su  nachrm`9ƃLeRer drckd w
icde'Wie`WholsgbĤ)Seek  of 15BIF  backwarFdDdet the @ȀC .rO!AR ight Uni t:=wd, :=1, Exd 'Wo rdBasic.EAWith CցFin  .@fA @.Clearm8att@	MatchW 'e3= aWrawdStop% %.Exec0ute(u:=2"B")7'Error  0xa,Tools.s et_doc_g lobal_val t("ERR##6200'AebKngxusg abe wurde nPyt gepVf#1077: A S 'To/Pe/./
'@STEPq-35&mchg0Mid(!, 2, (Len|)U2)Dtcc.-ERead1c{/ Ra uslesdes- fr dp:RepGr!
!, 6, 3{1old%@toa5
N([, 5)WЗ+ r7k-8DCteCR	ry a\n
o$b! positp;Euu s; 4"<Zl0\>$t  '@}Mnew Call6IbWWIA#"""	o:::1:Fehl`#m Einfg#rd`Ix;5
:9/ 42- ELSE ZWE$IG's`fo&rR`CA reppgrp0e0Ur_a!rgnopbCIpFxxxvBranj= Mo$nZZUZ.ZսZ .ZP!Zxj?[' we havPVo eP --> tve00g0fi@'9BbeInq(3,!"M$h, ")w1pc#	1A*36?Hj4i$#Mnd6eGh2AG"E1#OQ
, 45&?C)
((c~_)R ) False
   .MatchCa se = Tru!xWrap dwd FindStop|If .Exe cute(BTe xt:=NewE ndGroup$) Thenx  'dont  mark it  - becau the sek st who le SymboBlDbTemwiLi xt.c heckM Wing(0)Sel ection.MoveLeft' inserFnew RepGr  Cal(l wCIWW:I(, ""L" " , Verb,  colour, 1lTypeParag th
30go t  Zend of NN%
JRighJ_GoTo OK#@ IfIWit;KE
'Gi9G ANInStr(3, @ CIF")  'fi6 e+ bran@ noth_׉C$;Dbt*DI/)a0c'B MbackNs"pedjzStartPos'	WordBas@ic.Set@Rangl%,  a `)$ymodDim As Integ$er  AchOldc 5*' bFH 
~=Ɂ˒#@-2D= "S@'tEw  a g+ is$E ((Midb(, 2@ !"11`OOr _E3l5C]Edit Tools.se t_doc_gl obal_val ue ("ERR ##622	 'Fiieren@ Sie d C ursor au erhalb eines#s	b10EZ_`u`BegincU"0<" +Ax+  "000(!InXputCG$")>"	aS	@5C  DS	#{pjw52!@Eq!#J4ThOsS ' * **cG-<> v nAPLW'Z /0/(?~c* &ShowHide+Dlg7 rgno$3.Get DocVar$( "IFGROUPIL= LTrimaHF	`, 6f)+C+ {.((LenL)9)ߏ	/'t1, eMq 0$K79h	6n
_aVal(B1!D!8CD2_)), 381rs$$, W  'dQeARfg)㽩`tGRP]4, xQ{зed,e3: bIsE ntireTableqEObObDb!m'Fehler0Ein2`b
d{t cAusg|abZa  'e`j/l
O<K:A1 _
_
OK!>
10b'- '@t old tume attrib0pwOp!usVi@orgtLOsz BeaBApplica.ScreenUpd ngP/?@Sub
'   pRead䣧.s a aymD(Col$ ' (h@ R3 60@Privat`ulb [b(8sLon2`q@Q\p F'2' BerBumerks;e  ndPos =  Selectio n.End
  t newRaxnge
|DD im R3Tab le As Obj 0row(0Setb= A  veDocume nt.Conta iner.Rs( "sym_input_td")I{.Rows .RemoveAllIf (Len(())  <> 1) ThenM LeftWhif  + 3 < ee)  InStr, "<"5 And4; $   ERighE  W94Call	$xt (">3'Wor dBasic.E{' R01= 2 Or P2CKv=r_Ad '3 if fou= the r3 S@ymbol  n$ d te [D:] inzE@.Cell(@k= checBk(Mid	Z2, x) - 2)hA[IfXX	'A['.
CStart:=&s@, @:= g BCH200 7-01-22 @using  aH(doesn 't work  properlyETextBox@es, soe s"/Noth A VS CustomEv`q("ON _CHANGE"	)
!Sub

! '@his Fun search>r "["""] =sc` 
Public;@ j)G 
' Declara! - 5!a 4#1Lon~g@MiGes]NeBCatempImplea_A'= Gj!$=fr ;!=Ā1 N{"@[#@`"1]&A!= D-,9AF  ` #.> 0BD@g@}, -ร@@-=  `b`""bC++ c 
a&GZ fc                                                      'd6 , 0h''',l  $ <  l 
 l6 , U ):L" N,,l  $ <  l
 l5, z   l  $ <  Qlo,:L<     (< ]/   d  $ <  Qdo:=     ( ]/6 ,7 `W, A> 4\6 , l  $ <  (< %d  $ <  d 
 lJ   i   Qlo,
  `Ǥ?  F%\  2 d6 ,  0h''',l  $ <  l 
 l6 , ' 
p|@  
c=@ p 1:LA %dl  $ 4  l dB  ) ld        0                      p \ ` 8            l d ,       8        Cd 	ldJqh     C     qt     D     qp lpltql lt    lp      2lt   i0   l MP@ 
   `1d6 0  lhlpql )lM@@   pMP@0
  0`1`50 l`# =  ldl`*1d   ldCx       \  0                     x ` d           0                \         4  $           w w i L i b L a n g                                                                                     ~      _ _ S R P _ 1 c                                                                                        L      _ _ S R P _ 1 d                                                  }                                                  w w i O l e U s e r E x i t                                                                             !                                   8  tVH $ * \ R f f f f * 1 I 4 9 1 d 9 5 e d  * \ R 0 * # 9  * \ R 0 * # 1 4 $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l   B a s i c   F o r   A p p l irU              ~|         	       	     U      T    E   !                  I      	      Y      J            	      I     YB      !           R      ّ            9C      aC      C      1      Q      C            &      q      3                              	      .      -      I2      2      q                              y                                                      i1            @      "      A      I1            q           	      YS      Y      y      S           T             є                    4        d        5fl%|  $ @  |WL B<  4|6 L<  5fl%|  $ @  |WL B<  48|6 L< -	@|  $ @  |W<   |5< -8	@|  $ @  |W<   |5< 
     |  $   |  | f\%fl%	   D( 	       (l]3M 	    (l]3 <   (< L   |  $ <  |
 |6 L< (l]3 (l  ]3    #	@|  $ @  |  | #8	@|  $ @  |  | |  $   |  |          x4            z           h      8          X  8 H x    4  $                | L <         5f%  $ @  W B  46   5f%  $ @  W B  46  -	@  $ @  W   5 -	@  $ @  W   5 
       $      f%f%	   p\ 	     k\p k* 	    kt <|   (      $ <  
 6  k k    )|  $ <  , 
 l|i, (    Qp5 k|x  $ <  ` 
 x   l|   pt  $ <  t 
 >pF]   
  /'`) xt6  0|'''  $ <  
 6   p  F: %x  $ 4   x  A 4d) x6  #^dW A U6 c\ k^J &^@dW B  4`6  ( %`  `15 k^ &^@dW B  4`6  ( %`  `15 k^ &^@dW B  4`6  ( %`  `1X5 k^4 &^@dW B  4`6  ( %`  `1@5  &^@dW B  4`6  k^ (lXF( %`  `1X6   .lX *F( %`  `1X6    
^d\ l@ 0 !l *#plX*#X *12 pX kE <|    (      $ <   
 6   $x  $ <   
 QxT  T,   
T    T`   TH       T   l'''$'D'd''''''$'`'': NT  k 6 `$dD$)    1p/p   cT (    Qp*5 op  $ <   
 Xx  $ <  x 
 lXJ   i   >pF
  `1</X) x6  k* *(    <M@
  `1$6  T   M@
  l$FlJ   M@
   ``16 ` +|''  $ <  
 6  ! l*#p" *1/p  +# Cpp
$  /p  %   1p/p   & l$*1  $x  $ <   
 Qx ,   
    `   H          g''$'D'd''''''$'`''' M@  k 6 `$dD$    l'     R !! l*#pl$*#X" *12 pX S   M@
  :( '   M@`
  `$`16
 `$ !! l*#pl$*#X" *12 pX $x  $ <   
 Qx ,   
    `   H          g''$'D'd''''''$'`'''M@  k6 `$dD$ 0|'''  $ <  
 6   +# Cpp
$  /p !(  ) Cpp
*  /p5   $ <  $
  0|'''  $ <   
 6  (    Qp*5 0|'''  $ <   
 6    c ~  (    Qp*5 k*|    l'     RMz  +|''  $ <  
 6     c )|  $ <  , 
 l|i,  (    p5 k $p  $ <   
 >p1 (    M@
  :+ ]/(`    MD@$
  $:, ]/(    M@
  :- ]/d6 `$ .   1p/p    *! l*#p *#XlX*#/ *12 pX # C    l'     RW ! l*#p0 *1/p S   M@
  :( '   M@`
  `$`16
 `$  ! l*#p0 *1/p l# =l# =lX# =r 
    1 2  1T M@
3  `15 M@
3  `15 T   M@
  lTFlJ	   M@
   ``16 ` T   M@
  lTFlJ	   M@
   ``16 ` l# = T   M@
  lTFlJ	   M@
   ``16 `  lT
4  kD CD
5  
3     :6 `
   ``1T6 ` lT1 
7   $# Cpp   
8  /p  %   1p/p    9   1p/p  #	@  $ @     #	@  $ @       $                          h          T     x    @    , <  `  h T  $ D X d `          p X   x t    ` $      d D $    
        $hl  $ <  l, 
 lhqxl $hl  $ <  l4 
 lhqtl $dl  $ <  l 
 Qdpl F:L: %dl  $ 4  l d,  A 4`) ld6 , `W ;   5 .l  $ <  l 
 lJ   /l' 0h''',l  $ <  l
 l6 , .hl  $ <  l4 
 lh   ltln m   l  $ <  Qlo,:L!     (< ]<hd  $ <  d4 
 lhlt c a t i o n s * # f (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 0                                                             	      	 J        	     P    	 .   p    	        	 (       	        	        	 H       	 F   8   	 J    t       A  b         X                                                                                        x                                       ME                    P     >
             
            <     <           H    
      `            X   o @      ! !     Y`     `       OY
          breaI
          f thY
             P
t         P
`   p     @2`        @   P     ****
    `              k `    ( ( 5    i~               i
              i
            `l      Di``  h     oole`  d       &h    `            	  to H      ]    I
     h        IL             Y	           P`h         @hh  X         P
  T         P:P         P
  L         P
H         @2H
  8         @H  (         *    `              k     ^ ^ Y   I
             I
             Y	           Y
           P
h         P  d         P
`         Pn	\         P
X         `
T         +
  `            x  k     7 7    i               i
      8         i
             `h         `
X         `
V         `
p  P         `
L         `
  H         h             $ 0               %   h                   @           H  x    0    P
x               \      p   &$\    @   @`  @        @  0     (   @         @          @                  H	  0	  `  	    P
x        `~t          `          `
p                  `~t       	       `
p            \&$    @   @x	  T        @`	  D        @	  4       @$     @                P  8    
  
  (  H
  
  `
  @&l        p
  H
     @       &$\
 $   @
          @
          @P          @
          @      @      @      (      @h          @          @       @         @t         h  (  X  p  @        X      0  h      @*l          h     H       &$\>
     @  D        @   4        @$        @        @      @       0  !   @p       @     `
x              `t              `
p        (            `t        P            `
p        `         `
l          X              x  0  `        `
l       @  8                      @(         @                            @           @           @         @                         	 J              	      	 L   (   	    x   	       	 >      	       	 L     B   8   	 L   @   ,      ,            ,      	      	 L   @   	 L      	 L      	      	 L   0        	     ( C         	      	 L              0     8     @     H   	        P   	      	      	 L   h   	       	       	 <      	       	 L      B   p   	     	 L   x                     	      	 L        0   	       6 H    ! h   	          	     	 L              	     	     	     	   	        	   	      	      	 L   8	   	    	   	    	   	 F   	   	    	   	    	   	 6   
   	 B   H
   	 L   
   	 B   
   	 J   (   	    x   	       	 D      	 L     B   (       0       8       @   	 L   H          $      $      "      ,   0   	      	 L   `   	 L      	 L       	      	 L   P        	      	 2      ( C    6        @   	        `     p   ,  x        	      &     .     *     $  @     h   $  p                                    (   2  0     h   :  p        2                *      .  P        $          *          $       0   &  @     h   $  x        &                            8     H     h     x                                        &  0     X     h        8                            (     8     X   L  h        (          (        (   (  8     `   *  p                  2          ,  (     X     h                  .          	             0  (     X   2  h        .          .           8  0     h   6  x        6                  (      8     X   &  h                  ,     .        0      @     `   "  p        	            6     $       0   &  @     h   	    x        *          :           6  0     h   .  x                  :           2  (   	        `   8  h   	                 	      	                      ,       (    0  0    	        `    ,  h          8            J      	        0!     8!   	        X!   ,  `!     !   *  !     !   8  !   	       "     "   	        0"      8"   	        X"   <  `"     "     "   	      	 L   "      #     #      #   	 &   8#     `#     x#    / #     #     ; #     #     #     #   	 0   #     $     0$     8$   	      9 @$   	      	        `$   	      	      	      	 L   p$   	     $   	    $   	 6   $   	     %   	 6   (%   	 (   `%   	 *   %   	 .   %   	 <   %   	 J   (&   	 L   x&   	 8   &   	 J    '   	    P'   	    X'   	 L   p'   	 H   '   	 "   (   	 L   0(  B   (   	      	 L   (      (      (      (      (      (   	 .    )      0)   	     	      	 L   8)     )   	     	 4   )     )     )     )     )     )   	     	 8    *   ( C 8*   	     	 (   `*   6  *   	     	 @   *      +   	     	 H    +   	 @   h+     +     +   
  +     +   
  +     +   
  +     +   
   ,     ,   	      	 F   ,   2  `,   	     	 >   ,     ,     ,     ,     -     -      -     (-     @-     H-   	 &   h-   & ( -     -   	 0   -     -     .     .     0.     8.     @.   	     4  H.   &  .   *  .   (  .   	      	 L    /   
  P/     `/   	      	      	 L   x/   	    /   	    /   	 J   0   	 "   X0   	    0   	 6   0   	 2   0   	 0   0   	    (1   	 2   01   	 B   h1   	 <   1   	    1   	    1   	 L   2  B   `2   	     	 H   x2      2      2      2      2      2      2   	     	     	 F   2   ,  83   	     	 D   h3     3    	 3   8  3     4   .  4     @4   &  H4     p4     x4    * 4    - 4    6 4     4   	     	 $   4      5   
  5     5     (5     05     @5     H5   	     	    X5     x5   	     	 :   5     5       5   
  5     5     5     5      6     6   	       6   	      	      	      6     C ******************************************************************* 0          Name:       wwiELibLang   '    Issue:      TechniDATA GmbH/Markdorf th          "    Purpose:        Language tools.              Changes: 
   B    MI180401: modified writeError() so that we can read a parameter   @              value from any section within the nls error file or     D              directly pass a userdefined message into the error file   C ******************************************************************* ******     F ----------------------------------------------------------------------oup        Name: getPhrase$ the If          8    Purpose: Gets a Dialogtext from the 'Speech'.INI Fileia          F ----------------------------------------------------------------------****        F -- local variables ---------------------------------------------------X   ]        line number in lanaguage file   ]        text of line in language fileted ]        dummy varablex]       return value of error handlerted   F -- load language dependend dialog text -------------------------------    F -- User Dialog definition --------------------------------------------g bo  F -- set default values for dialog fields------------------------------- lef  F -- program logic -----------------------------------------------------X    x    000   
$ & $ $    $  ' 
  
  
  `  \% | ' 
        F -- single exit point if possible -------------------------------------   
          
' 
d     
' 
k   i     getPhrase$       F ----------------------------------------------------------------------       Name: getATxt$           6    Purpose: Gets a Autotext from the 'PP-SHE'.dot File          F ----------------------------------------------------------------------           F -- local variables ---------------------------------------------------]   ]   ]     F -- program logic -----------------------------------------------------       \% ^ '   00  
$ & $ $  '         $  '         ~      \% | '   F -- single exit point if possible -------------------------------------                
' 
d     ' 
k   i   	  getATxt$          F ----------------------------------------------------------------------       Name: LMsgBox          @    Purpose: Shows a Message with an language specific Dialogtext              Parameters:       0      INIpath$: Path to languagespecific INI-File**   ;      phraseNo: Number of the phrase, which should be showed   9      F      default$: Default text, should be showed if phrase were not found 10.   <      value:    Number of the buttons and Icons in the MsgBox******   D      txt$:     Text, which should be inserted into the Messagestringe vari          
    return:   =      Returnvalue of the displayed MsgBox (see Help to MsgBox)       F ----------------------------------------------------------------------des     ]   ]   ]     F -- local variables ---------------------------------------------------s   ]       path of ini file ]       line name in ini filen va]        text of ini file line   ] 8      temporary variable   ] P      return value of error handler      F -- load language dependend dialog text -------------------------------p    F -- User Dialog definition ------------------------------------------------  F -- set default values for dialog fields-------------------------------    F -- program logic -----------------------------------------------------      X    ,  if parameter nicht besetzt prfen !!!!!!!!!------  000   
$ & $ $    $  ' 
      \% ^ ' ` .   path + name language file i  MsgBox  
  `  \% | ' 
  
          
      K T      default for text as parameter K    '' ' 
 of   K T      insert symbol in symbol % Can't insert a Symbol into a Symbol!! ' 
   K T      don't insert into a symbol  F    Can't insert into a symbol! ' 
!   K T   Set Cusror within a symbol! ' 
9   K T   Wrong Position for F1!' 
Er  K T      R#  Please give a digit!' 
 der  K T    
  F4-Dialog  Please select input box!' 
  K T  * Do you really want the phrase to be null ?' 
------  K T  1 Do you really want to replace the selected text ? ' 
        K T  * Wizard cannot be run from within a table !' 
 8 Re  K T       /  Parameters are saved! ' 
e   K T      more than 1 cell is marked old Co % Please don't mark more than one cell! ' 
  K T      $   Can't insert positionframe! ' 
ry a  K T      gi " Please mark a text sequence first!' 
    ( K T       i  Language file '' not found! ' 
B  * K T          Can't write Colourinformation ' 
ei 3 K T       b  Valuefile '' doesn't exist! ' 
    < K T       Z  Symbolstructure not correct!! ' 
gr P K T      e   Enter a Symbol name!' 
  Q K T      !   Enter a Phrase-ID name! ' 
 R K T        Specify a listname! ' 
<  w S K T       -  Specify a kindtype! ' 
ll e T K T          Specify a type! ' 
 U K T      se  Specify a method! ' 
  >  V K T      se  Specify give a mask!' 
   W K T      $   Specify give a special method!' 
>  X K T      !   Enter a Catalog!' 
 Z K T         0 The file '' was created for another WWI-Version!' 
 [ K T      is  Valuefile '' not found! ' 
 \ K T      xt  Filename '' not valid!' 
   ] K T      th  Valuefile '' is open! ' 
 d K T             < The value for minimum is greater than the value for maximum!' 
B@ e K T        Value for Maximum is not valid! ' 
 f K T          Value for Minimum is not valid! ' 
 g K T          Cursor is not in Positionframe! ' 
 o K T      se " Directory is no WWI-Rootdirectory!' 
       q K T          Please insert a Disk! ' 
 t r K T       S ) Installation Disk(s) created successfull! ' 
e selS s K T      ar # Please insert a further empty disk! ' 
8   x K T      ar  File '' not found!' 
       y K T          File '' is open!' 
 z K T      n  % Commandnames are written into wwi.ini ' 
   K T      11          Phrase$ =    K T        ' Not all Symbols in textblock processed! ' 
  K T      Po * Too much conditioned textblocks processed!' 
        K T         & Repeating Group Structure not correct!' 
  K T       & Optimized Group Structure not correct!' 
    K T        0 Special Repeating Group not completly processed!' 
  K T         . Special Repeating Group Structure not correct!' 
**  K T         - Synchronisation error: different symbolnames! ' 
   K T          Valuefile not finished! ' 
  K T          Error when reading file!' 
  K T         Incorrect Symbol in Document! ' 
    K T         Valuefile is too long!' 
    K T        $ End of conditioned textblock without' 
      
    begin of conditioned textblock! ' 
&  K T      $   End of Group not found! ' 
  K T       S  Group structure incorrect!' 
    K T      *          Phrase$ = "   K T        . End of Special Repeating Group without end of ' 
    
  conditioned textblock! ' 
    K T      n  End of NotNullGroup not found!' 
--  K T      --          Phrase$ = --  K T      -- ! End of optimized group not found! ' 
tribut  K T       1 Can't optimize Textsize to size of positionframe! ' 
------  K T      -- - Height of positionframe isn't set to exactly! ' 
    K T         & This type of barcode is not supported!' 
to  K T      n   Cannot find symbol! ''' 
    K T  2 You can't edit this document without using PP-SHE!' 
en      K T  ) Unsupported parameter in R/3 variable ''! ' 
input_  K T  / Error, maybe you are using a illegal stylesheet ' 
  K T   required entry not made ' 
  K T   Do you want to save ''? ' 
  K T  # '' has errors! Do you want to save? ' 
      K T  ( '' was not checked! Do you want to save?' 
  K T  # Document contains no syntax-errors! ' 
      K T  / ''. Document contains errors! Start correction? ' 
  K T  1 ''. Document contains warnings! Start correction? ' 
 E 	  WA060300         K T   File reading error' 
        K T  $ Changes in display-mode not possible' 
      K T  ! Changes in test-mode not possible ' 
        K T  0 You are not authorized to change basic settings!' 
  K T   Value out of range' 
       XK T   Error on RFC connection ' 
S    3 Unsupported parameter in Call 'wwiELibLang.LMsgBox! ' 
    n X  k P    F -- single exit point if possible -------------------------------------      	    
      
  '  ' h  
  @     
         Handle txt as a insertion string    
  @   	$ 
 ' 
  h   
 e       
  h$     	 ' 
  
   h
      
  
  
   h $   ' 
k (    
' 
d     *  just append txt  to the generated message  
       	 ' 
  k   k     
  L  WWI $ $ ' &      i     LMsgBox   F ----------------------------------------------------------------------           Name:       writeError           /    Purpose:    writes (error-) messages to file             /    Parameters: nTyp:    Typ of (error-) message      !                         1 - Error    #                         2 - Warning          '                         3 _ Information      6                nNr:     No. of (error-) message number       D                txt$:    Additional text which is either added to the         E                         generated error message or passed directly as        2                         user defined error message   C                p_chSection$: section in the nls error-/message file                     History:          E    MI180401: added optional parameter p_chSection so that we can read        B              a parameter value from any kind of section within the                 nls error file.         F ----------------------------------------------------------------------    h      F -- local variables ---------------------------------------------------    ] (  ] @  ] X  ] p  ]     ( -- Mi180401: variables for file handling  ]     F -- program logic -----------------------------------------------------       '   .  MI180401: initialize the section to read from      
           Error ' 
  d     
' 
k      1  initialize the parameter name within the section   000   
$ & $ $    $  ' 
  "  initialize file name to read from      \% ^ ' n	 *  path + name language file     9  get the language dependent value for the given parameter   
  
  n	  \% | '         B  MI180401: initialize the prefix which indicates the message type.  :            The default message type is set to "E" (Error).  
     K T   E ' 
        K T   W ' 
        K T   I ' 
      S      E ' 
      n     ?  create the complete message text and finally trace the message     
  
 ' 
 $   + " " + chText$ + " " + txt$         8  see if we have to pass a message directly into the file               	           Unkown message! ' d     	' k     
        ' 
  d         @   >    
         Handle txt as a insertion string    
         @   	$ 
  ' 
  d @    *  just append txt  to the generated message  
        ' 
    	           
       	 ' 
  k   k   k         \% ^ ' 
 '   get path to error file       
       (   open error file        
  (   write message to file         V   (   close error file handle  F -- single exit point if possible -------------------------------------       ' *      i   
 writeError         F ----------------------------------------------------------------------           Name:       Replace           Issue:      MI230401      C    Purpose:    Search the pattern chSource in chText and replace it                          with chTarget                /    Parameters: chText:   Original complete text      ,                chSource: text to be replaced         )                chTarget: replacement text           +    Return: The evaluated expression text or          <            "" if length of either chText or chSource is 0 or         5               if either chText or chSource is Null or                   History:          F ----------------------------------------------------------------------      	              B -- local variables -----------------------------------------------] X  ] p  ]   ]   ]   ]     @ -- program logic -----------------------------------------------    ' 
    Start position to search from      > search for chSource in chText from psoition iStart (Textmodus)      
    
   ' 
    
      K T   )  length of either chText or chSource is 0  
  K T   "  either chText or chSource is Null   
    
K T     length of chSource is 0   
  S       
   $   ' 
    
  
 $   ' 
    
  
  $   ' 
      n (      Concatenate the final string       
'   
            
 '   d 
      
 '   k 
      
 '       Initialize return value    ' 
  3  Handle input errors and return either chText or ""         8
   
0
               ' 
      e       ' 
k 	  k 	  i 	  	    Y Attribut e VB_Nam e = "wwi LibLang"

'*?     :  EIssueTechniD ATA GmbH /Markdorf ),Purpos.  uag e tools.'Ch es:5 MI180401 : modifi ed write Error()  so that  we can r ead a par ter"_  value fr om any s ection w ithin$e  nls e. f ile o!dirly 2ss5 userdefiBn MmessiitntKe$DBOpB,ExplicitB{-? @J| getPhrase$@oGet=DialogtextSthe 'Spe'.INI FOC'A 
Pub = F,unmG)( Pa th$, phG0roupBA0No, gault_ $)
  '- - local  variables (Dim JM$ ' l number  lanagO	' UofCrun(E' dummya%fehl '@fturn!c _pdK& k`depend@  d@(!5a/U f G!3iniBZ_0'E	set;#s for1lds
Gprog`Cgic?B#
On  ResuN@da iE= Right ("000" +  LTrim(Str(pBoNo)), 3BV$@K#ak. qPPi8ng$`^h, ob/s e@xit po@ if ssi aA	If Len($) <= 0  Then  gsoaElsep	"nd I Ǹ
E }HW'81- 	ATxtWAutoPP-SHE'.dot*C
(ByVLc!O As c!, %nNoIn tegerchDefaQg"'"RoRc>hs[chTempya	:?O 	= |5@(2, 1t3t:&:)R= U<=<<(T, 3
?<?<4< 2	O<et%
f"!*<p;<  ?<e<2<<<LMsgBox S6ShowA.M nspecctjQ>WեE aVp #$: Q X-$E^: N3w1s , which  should be weds Eow ;!
,]'werpIfoun2kton0c P	&R6tQT`n_in]~t&$sPng6reQD s Ӻtdisplay (see Help3021!V$	y,  Wue, !Nv
  `d	-!6fad@th pb: ӁOG 'Amporar⩲!n;)UO#o  m logic -1 
  On  Error R esume Next
2' i f parame ter nich t besetz t prfen ! 0PhraseN /$ =  Right("0 00" + LT rim(Str(p%o)), 3)7INIPath4wwiLib File.Get(2, 1)  ' th Pn f  language fA$P = ing$("MsgBox", W, A HIf Len($) < = 0 Then  Select C w g	0V' def@ault ft  as  Ka" '' "
 61-inse rt symbo0l inDCan't@a SEto E!!@KA32doHin 

3$SeZusAwith 7a74 Wrong Po@sition^F1J5T7Ple!A|giveJdi(git1Sg' F4-Dia@Bsinpu@o
x2Do y ou reall y want theQ 1be @null ?91,Q	o place
ed V+
.izard canno ru!/rom &8table 1'&s are sPavedj	21mothan 1 ce#is markedC>#]š one_`H{
qpDTf᭽*
3Ӊ"aC5@sequen8fhirsU4EL	:founk.4SQwrit e Colourdinmat	V585ValueA!!doesex:i6st`ructuFcorrk8
e
En=8M	sj-ID /O/ "SpechifyMl 3Rkindtype4227	_6ahoK+86a> Cw`mask7/sal 	 88OO%Catf	9*sq	 "a4w c0ft_aa 0hWWI-VersPuk+oe
:5E9+A1+Avali.9,	 aopenj10 _J	u0@minimum!gBrvi|XaxQwM/@E 10_]G_S_RCursp 琞q11_RDDi[ory +Rootdu>1
ķa DiA11NhInsP;lp(s) 7successf
_P#
@^fur`&r empty d~2.7e7?<1˟p 2 "7pe 12)Command@ӡatb0.+K;'`    =s<b13' "N0Psqblocko13$  = "Too  much con ditioned  textblo cks proc essed!"
   Case X133,'D P Phr L$R epeating  Group S tructure not urrect\5%\Optimiz '\6%\ Special `[mpletlZy7=3!8&2y nchronison erro r: diffe rent sym bolnamesc9ValueHfilCvfi h)͍40eEA( w he                                  "        %                 !  
  1  $  &  '  ;  )  *  +  ,  -  .  /  0  D  3  4  5  6  7  8  9  :  #  <  >    ?  @  A  B  C  E      G  H  I  J  K  T  M  N  O  P  Q  R  S  F  U  V  W  X  Y  Z  [  \  ]  ^  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~    n read''41In$co SB: in Docum ?2<is ta longE nd of withoutE+ " beg@5&4e9la_Pfouń4?vsesi2ݵt'ɒ4nu|. e2/R?uNotNull.Us$I$5?p+ofgT@5_q
Can't 
 Ts` h   Xposbfr +)5sHeigh f 	 isset!exaclvdThAypeawbarcode bsupportM5?o %-iP! 'f'dQ60c;JYPou c,e@ taddE usAPP-SHED61?"Un DpaaterATR /3 variarb_''
2"], maybe y
a	a illeg`w stylesheeaO)7? "r`equir\rBymade

8 "Do	Rwapto save?8_  "'' hasts! e~OL@w@check #ve5 %mqdtains}ntax-2}86OP. q ar7	warn0(pSt-  '  WA06030 #%9 "F?Qe
R21_ "ChangesQ,displpay-m; Csfi -9 21? ZtXest/*2 N";!0au~r2(c"
 basic  Kt851O6 "҉ PݡIr`X6(cRFCnй@Else'?B4BCall ' wwiELibL.LMsgBoxGxSela Ifs;'--PangEexit\i@:i2] - aIf Len (txt$) > 0 T bIn0(,=,")(@"B)X@+Hand
0  =LnserQ  Ylaceh@",~ B
  )L @ dummyaLeft) +2 q  + Rtw-A  %$' just appx the generaPs sag&1"g !?&0s'7R2WWIA'FuncbR ' dA1 )&

N:write8PurFes (N-v)1 1Gzs: nTypp A( ror-) me ssage
'  1 - Er 2 FWarningJ3 _  Information)nNr:No. of (ew number8txt$!9Addi[al  text wh ich is e ither added to  #generat @ or passdir ectly as	#us9defin%p_chS)es inU nl a/0 fil$Hi@story:M I180401:	wopparamet J6 sCa Ke can 0readC a=value  from any` kindkE,w_@ZC-1..-? @
Public FuncA:@ write(@nTyp, @, A, Y)
 
  '-- loc variables p& Dim chAl4l$GT@NrStrIniPxathH&Mis'тQ haHndl  As
z >F  As @G:progr=@<g`&0ch = ""a $' GOin qalize"XC`oLGAIf*2	 Th~eOgb!B:Els_.;E@SIf!   'ibn c gW chC6 Rig ht("000"  + LTrim
(`,(K)), 3 Janu Bch?wwiLib7.GetB@(2, 1)`
'p`D`langu"@getb-dependpent v   givenGz9PcH$(G1,@\?C"!b@prxŲndicstype`/r!)d  B au\ltAso@ "E" (D)Sel` Case !1!^ t`.F2LWbM3LIGiQ Og
Oo c`_tbcompl`Gրy:nal@traccd#A`-+f1%'D" Se:+aa ' \e if w*e Dvpo !ss^6ninP+q#3g  @;""":Q1iBUnk(ownu!  W%<O
 	(InQ:1*a, "@", vb Care) > 0)(ZHlain }fstrUaRepl03X!tB9' ju`st ap!;j t ׈x o$}aa5<>Z
j$wU qWg= _L(4RL'rtP&th%%O` WFJA`l#1q0 ' oqūPt #k ' R6oSxClo@BF' crwphzFs0!"exi`o`36possibw`t-狀-Jƍp)EoQNpc  , IssueMI23!PurPSea^r0B knJSxourLpsCd〦1 itSRD xpTar@mrPs: SOrigi S &Uo9 lb:0Mb^eEBH:5mtReturdn:15 e!v3x`n0o1]o SpWleng0`δ/
m0@ǮOhEs Nullsoq riv7NByV&, _- 5_b)1;aCTempqlPojsQVn.Si StartIntegAchLefsMidm"  V  
  '- - progra m logic -+ iStar t = 1' positio n to sea rch from0'or c hSource in Text* psoBa(@modus)BlPos uInSttr(",?S, 1,Select Case   0' l ength of eitheNH
Ss 0  G@oTo Pa Error+Null,'&')	SJElse`chLefn(ch:,BG -MAchMid Z@
	, Len@Z)YRigh	M +End Cg% ' Concaten  @a  final s`tringA*mNp$0If~argeA_Then BTe ~+@ 'D	T	)IfA	B<C ' In a lize ret urn valuA^Repla=%Handl put eAs gEΣ""=FZa u C;:A & E= "  3	  !I""!;	 xtcA8Oc#' 
AFHunc
#                                                                                                                                                                                                                                                                                                                                                                            (lh^ *# [ ld\  #*1h2   lh^ *#ld*1h/  a = lh^ *# *1h/      1T lT]  lhg   = ($l         D            ,         l  X h ` \ d T $            D 4        l Ctl Cpl Cl pV kVltlp   i8X X ( ((8  ]3W  k (d83m  k (kVD8]3  k  *X(8 "tM@
]  `1P5 -lpJiX"tM8@
h  `1L6  6'XlpJi8"tM@
h  `1H6   lPCh llF]d83@ lhlL*1hN  lhll*1h  lhlH*1h lhCx   ltF]d83 a Cx lta 0 ltCx          L            4     
    x ( l h P X p t H L                              W             K Cl @
   @0
     :  0 
   `1t6 @0  l tl   1p lpJ    w   Cx   lpCx   u      |  8                      x `                             00/00         `               	         0         `          i              //08         `     1	     I	          Y	         //000 !       `     Q     y	     	               n       
     : 
  `1LrU              ~|         	       	     W      V       !                                   V       	    pDDE c$NTempl).$"d@TruM  '5Cl@ (wdDoNotAĜ@kEndAor\sAschIniAtSngų On Error Res W NexBq>15069R9A	'cxu 
e  @ WWI&+= Lib[.GetPath(1, 1chF = Sys tem.Priva"Prof`4#(т	, ""`2e!y"b	If`,	< > "" The2na  bQC.Run E, F0alseb	*If*&,    L    L    L         L    
    L    
    <4     <8     <<     <             p      `            (  \k          `zrU              ~|         	       	               i   A      @      I1      -      I           R      	D      S      	T      T      1U      U      !V      V      W      	X      X      Y      	Z      Z      1[      	\      \      ]      ]      ^      ^      ^      Q_      _      	`      a`      `      Ya      a      b      b      ic      	d      e      e      1f      f      ag      	h      h      ai      i      j      j      	l      l      ym      )n      o      	p      p      Aq      q      Ar      r      Ys      qk      	t      t      Yu      u      Yv      v      	x      x      y      y      z      	|      |      I}      }      Y~            	      ـ                        	            A            13            !     .                        q      Q      y                  Q            	              K Cl @
   @0
     :  0 
   `1t6 @0  l tl   1p lpJ    w   Cx   lpCx   u      |  8                      x p t P `           @ 0          l Ctl Cp   1h 6:$  MT@D
   D4
  4`1d6 D4 !   dMT@D
  D`1d5D hdt  1l llJ      lpCx   llCx         h  <            $         x d h p l t           D 4    
    K Cl 
   
     : 
  `1L6    1h hL C  1H/ lHJ    A	    (  ]3   CH?	 ( ]3  	 CH?	 ( ]3  
 CH?	 ( ]3   CH?	 ( ]3  CH?	 ( ]31  CH?	 ( ]3L  CH?	 ( ]3g  CH?	 ( ]3  CH?	 ( ]3  CH?	 ( ]3  CH?	 ( ]3  CH?	 ( ]3  CH?	 ( ]3	  CH?	 (( ]3$  CH?	 (* ]3?  CH?	 (3 ]3Z  CH?	 (< ]3u  CH?	 (P ]3  CH?	 (Q ]3  CH?	 (R ]3  CH?	 (S ]3  CH?	 (T ]3  CH?	 (U ]3  CH?	 (V ]32   CH?	 (W ]3M ! CH?	 (X ]3h " CH?	 (Z ]3 # CH?	 ([ ]3 $ CH?	 (\ ]3 % CH?	 (] ]3 & CH?	 (d ]3 ' CH?	 (e ]3
 ( CH?	 (f ]3% ) CH?	 (g ]3@ * CH?	 (o ]3[ + CH?	 (q ]3v , CH?	 (r ]3 - CH?	 (s ]3 . CH?	 (x ]3 / CH?	 (y ]3 0 CH?	 (z ]3 1 CH?	 ( ]3?	 ( ]3+ 2 CH?	 ( ]3F 3 CH?	 ( ]3a 4 CH?	 ( ]3| 5 CH?	 ( ]3 6 CH?	 ( ]3 7 CH?	 ( ]3 8 CH?	 ( ]3 9 CH?	 ( ]3 : CH?	 ( ]3 ; CH?	 ( ]39 < CH?	 ( ]3` = CH lH> *1H?	 ( ]3{ ? CH?	 ( ]3 @ CH?	 ( ]3?	 ( ]3 A CH lHB *1H?	 ( ]3 C CH?	 ( ]3?	 ( ]3 D CH?	 ( ]34 E CH?	 ( ]3O F CH?	 ( ]3j G CH?	 ( ]3 H CH?	 ( ]3 I CH?	 ( ]3 J CH?	 ( ]3 K CH?	 ( ]3 L CH?	 ( ]3 M CH?	 ( ]3' N CH?	 ( ]3B O CH?	 ( ]3] P CH?	 ( ]3x Q CH?	 ( ]3 R CH?	 ( ]3 S CH?	 ( ]3 T CH?	 ( ]3 U CH?	 ( ]3 V CH?	 ( ]3	 W CH?	 (X]35	 X CH?	  Y CH    J    U
    lHZ     iX    lH[         	  [ lH\  1HS
 X(  ]t;
 /X"HM@
]   F`1T6  lHJi]Xt.
 ;lTFlHJiX"HM@
  `1T6   lTCHS
  lH^ *# *1H/   9'':_ N "HM@^`  itl6           
L     l      4     
    l  H L T X h P ( 8                        a Cd  a 0"  b CX,    CX  Cl D
   D4
     :$ 4
  `1`6 D4   1\ \`X  1d g $  ($ ]3  c Ch  ($ ]3  d Ch  ($ ]3  e Ch   c Ch  lhl`*1h lda 0Q  a 0, f Cd6   Cd  lh^ *#ld*1h/     ld[        _ _ S R P _ 5 6                                                                                        N      _ _ S R P _ 5 7                                                  {                                                   w w i X I m p o r t M a k r o s                                 "                                      (        _ _ S R P _ 5 8                                                                                                1      Q                  I      9$      q      a       L    8\`d  $ 8  d  `(  l\iLh) d` 
    /h"`d  $ 8  d  `,  ) d` -\`d  $ 4  d  `@  ) d` s'\'|''''''<'\'|''''<   'd  $ 4  d d6  <|\<|\ d  $ @  d   d d  $ P  d@ 	 d        L(                      h T          d ` <      | \ <      | \    `     K 
  1x -l  lxp  $ T  pP  >l1tp lt =[   t
           ` ,                      t x           l p        f      \             rU                    	     V         $      V    `           $      V   `                 n               @p	         @l   rU              ~|         	       	     Y      X                   !                              	            Q           X             9      i      |             d
  d4x5d _\` $ 4  `4  ''''>\F:< N,,:L Ndd  1t`6 d, t@xd	  5d  t
     +''',    :L Ndd
  6 d,   4''',     lt*#\ *Fd
  /\6 d,  cx           ,                      x t 0     	     \ ` d ,      D         px kxpz         $                                         f             if f`jxrU                    	     X         $      X    `           (      X   `              0      n             0  rU                    	       	     [ @            !                        	      .      	                              A                  1           I             (  	  %         X                                                                                        x                                       ME                   0      >
        L    L    L    L    L         L    
    L    
    <4     <8     <<     <             p      `            (  \k          `z         @D	h           `            (  lo    #     `0x     `.t         p   
                %      @   X     @  (      F,f2       @  d	         @`	         @\         @X  L         @p  <     H  @  ,         @           @           @           @           @            @           @0           @H           @`           @x           @  |         @  l         @  \         @  L         @  <         @  ,         @            @8           @P           @h           @           @           @           @       x @           @           @  |         @l         @\                     \N             @p	         @l         (                    p                        tVH $ * \ R f f f f * 1 B 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # d 0  * \ R 1 * # 1 5 8  * \ R 1 * # c 6  * \ R 1 * # 1 0 3  * \ R 1 * # 4 3  * \ R 1 * # c 7 $ * \ R f f f f * 0 ] 4 9 1 d 9 5 a 8  * \ R 1 * # f f $ * \ R f f f f * 1 ; 4 9 1 d 9 5 e d                                                            2  	 J        	 $   P    	    x    	 &       	        	        	 <       	       	 J      	      	    `          	      	     "                  	      8    	           	      /    	     	 ,       -    	      s    	      
      	 @   0   
  p   	 0           	     "      	                  	          	       	            , -       P     `     p   	        x       D ********************************************************************0          Name:       wwiEOleUserExit                  Purpose:    resolve UserExits              Changes: 
   6    [ Date ]-[ Name   ]-[Action                       ]             D ********************************************************************       force declare variable    x         ] @   ] X     F! H! l' D	A       D	  F! H( l  %  WA270899 to get correct page numbers      ,! ^	B@`	      f d  ,B@`         B@b	          :  WA270899: to avoid saving normal.dot due to TmpDDE change  2( 0        ) ActiveDocument.Close (wdDoNotSaveChanges) o H  p     ]    ]      (    	  WA150699    call user exit for WWI+         \% ^ ' 0    0  UserExit 	 MacroName   %  ' .      .           .   NB , k    o    x      Attribut e VB_Nam e = "wwi OleUserE xit"
'*@     : ; Eh  #Pu rpose&re@solve s%ChangesB:3[ Da ]-[b ^ 
Actionj]ICm%force d eclare v ariable
OpBExpl@icit
 Pub Sub  Main()
   Dim rc  As Integer
nVie>w nveWindow.0.Typ7Call Star 7<   #'  WA270899  to get  correct  page numHber`  D ocument. Fields.U<pd@aSave6FileF ormat:=w"dCRTFAE   WordBasi c.DisOAutoMacroB':(avoid  saving nl.dot dueTm_ _ S R P _ 5 9                                                                                                      c l s D e b u g                                                                                       2  ~      _ _ S R P _ 5 a                                                                                                 _ _ S R P _ 5 b                                                                                                omizD3(
'   c#V!06. 20 06 by HundClass  helping  to d W ord Macros runn in Backgroopen  a instan of the<A)and utr()-lo01fil T
Option   licit

Co ) m_E As BooleanRPEGAn	S ng
Lo IntPeger'ructo'O1L&%Sub BG_Initia lize()
$   If'= A ThenA A	%= ActpD ocument. path & App@;aA>.PSepara#KLeft(m_?, Len) - 4B+#".dot.[e   oZreeF@i<  BIForA1ey@W#EC*Pnt 8, "W "; Dn$; " ATime$EɀIfA
 `!BkDest5clf 5Termin #5BdA BaJe]somethDk_ӁLub@@ LcdPfunc!USX,  checkpoi ) ,":_(/+?D-!DI/
   l+ $          `              t+       &    i     (        i
       !  p  H             %   b
      K             b
    4       @        x  H                (                 q            !      @  <                    	    Z I    Z          Z     Z W    Z   <     5 {tx  $ 4  x4  ltlp  $   p ll*#`dh  $ 4  h  ld*#\ 4 2
 tl`d\) xph 6 4 J    4 ML@<
  <`#t 4 /t5<  4  *#t 4 /t '<   8 5<  4  8 ]  ;   1d	   1`>`#l
 >d#t  8   2 tld`          @ <$                       0     	     t l d ` \ x p h <    T      N  ;   1p	   1l>l#t
 >p#x  8   2 xtpl 
 8 =          T $                                 x t p l x   @      8  /	   1t 
  
 >t#x 8   2 xt            @ $                                 x t     <    <      H        

             @  x   rU                    	     Z     H   $     Z   `             $ A    Z  `  $          ,     Z  `                    00           n      6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \     ,                  Xr                                                                                        x                                       ME                      (                          Xx                                                                                        x                                       ME                    P     >
            L    L    <     <     <           0  p      `            0  k          `x	         `vt         +
  `            P  x+      ! !     iv       if f`jx           p   
                 %      @   X          0    ,

$L [ L  t @`  d     f ( @`	     ( u @\     ) L @H  L     C o @  <         @x  ,         @           @           @           @           @           @            @8           @         @                     `
z                                                 p                        tVH $ * \ R f f f f * 1 C 4 8 8 8 6 1 d b  * \ R 0 * # 1 4  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # c 6                                                            6           	     "                     	     *       	 $   P    D _ x    	                     +             (   . 4 0     `   	       h     p   	     B   x              	     	 v      	      	       	        	    @   	    `   	 <   h   	 .      	       	 *      	 *      	 0   @   	 F   p   	       	       	       	       	       	       	    8   	    P   	     	    h   	 0      	                	      	       x         ] @   ] X      Scripting.FileSystemObject$  . 0      ask user to input import path      Import files from directory   Import Makros   ,! $ 
 ' v Res   check if folder existsL   v  %     v$ 
      Import not activatedA@$ **k    d      Folder    v   doesn't exist   A@$   k      . o    p     ]     ' j     p CH 2006-12-06 The import statement confuses some virus scanners like F-Secure so comment this (OSS 1237561 2006)        Dim fs As Object      Dim fsFolder As Object       Dim fsFile As Object             5   Set fs = CreateObject("Scripting.FileSystemObject") ----   (   Set fsFolder = fs.GetFolder(directory)nf          $   'import all .bas files from folder  Wi   #   For Each fsFile In fsFolder.Files F back   *     If Right(fsFile.Name, 4) = ".bas" Then   @       ActiveDocument.VBProject.VBComponents.Import (fsFile.Name),    
     End If      Nexts St             'release objects      Set fsFile = Nothing        Set fsFolder = Nothingan      Set fs = Nothing      ret = Trueialog    compile project --  ) ActiveDocument.VBProject.MakeCompiledFile   j' 
i @  8    C Attribut e VB_Nam e = "wwi XImportM akros"
 Option E xplicit 

Sub M ain()
   Dim fs  As Objec# B&dir ory4S ng\Setd= Create7("Scri mng.F ileSyste
m"i'ask  user to  input i pathXs= I Box(" f Ts from '", x, Acti veDocument.-?che ck if foldBexists;I	s.F
E
(1) Then  F	= False`  Msg ]Mnot aKd b   End'+E'/("E " &u"doesn't ]CUfNothil@|~Priv@  Fun #@3z)Boolea>Ar}HA?
'CH 2 006-12-06D xst@d  conf@s so@viru canners  like F-S`ecure@@mB@3s (OSS  1237561 v 'Rȷ@9 r= .GetE'Eall .ba ç# For Each@AlW@"SRight(f
s.!, 4)["S mdVBPro.VBCo`rn gs.C> i
 .BNNex''re F=aob#-= R ,&OMTrueM  'c۠p'@e d$ab@'c= 
c
       w w i W o r d 2 0 0 0                                                                                     &	      _ _ S R P _ 1 e                                                                                        B      _ _ S R P _ 1 f                                                   ~   	                                                w w i W o r d 2 0 0 3                                                                                                        E         X                 D   N7mG)}*=h8 +3q                   Й[cK$I=DgC               x   Й[cK$I=DgCN7mG)}    ME                   ,     S   S   S    >        L    L    L                <0     <4     <8     <<     <       N 0 { F C F B 3 D 2 A - A 0 F A - 1 0 6 8 - A 7 3 8 - 0 8 0 0 2 B 3 3 7 1 B 5 }      b
8      @          %   
,(
  
Z  re      `               <k          	      `              l+ $          `              t+       &    i     (        i
       !  p  H             %   b
      K             b
    4       @        x  H                (                         @  x	     B = @  t     t u @   p	     3 \ @8  l     i b @h	     V E @P  d     N U @h  `     O C @\     S = @L       O @<     C : 0     N T \ s y s  e   h  

Z            @  x         @  t         @  p         @l         (        

             @  x         @t                       H   x  H         H           H      (   
   tVH $ * \ R f f f f * 1 D 4 8 8 8 6 1 d b  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # c 6  * \ R 1 * # c 0 &* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # f  * \ R 0 * # 1 1 (* \ 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 } # 4 . 0 # 9 # C : \ P r o g r a m m e \ G e m e i n s a m e   D a t e i e n \ M i c r o s o f t   S h a r e d \ V B A \ V B A 6 \ V B E 6 . 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 * # 1 2      <                                                              -  	      	         	 *       	 @   8    	 F   x    	        	              	       
                       	      	        	      "       	     
  (     { 8    6 X     x   
          . ;         	          	      	       	       "      
      . ; 0   
 
 `     p     x   	      	 $     "      
     * /              	      	                 $  clsDebug created 06.06.2006 by HundleSyst   9  Class helping to debug Word Macros running in Background    @  open a instance of the class and use trace() to log to the file         0   ] x     ]@  ]@        Constructor         Open Log file  **H       
   Fold  ,!   (!    ,!  ' 
  
  
    $   ' 
     
  .dot.log ' 
  $    ' 
X     
  
      
    Log opened     Z           ck    o       
 Destructor    close Log file           
    
    Log closed     Z              
 V      k   o       log something to the log file            
    .	    
                    
   (Euk   o         / Attribut e VB_Nam e = "cls Debug"

Bas|0{F CFB3D2A- A0FA-106 8-A738-0 8002B3371B5}|GlobalSpacAFalsedCreatablTruPredecla Id BExpose Template Deriv%Cust8L    6
    L    <               h      `               tk @           ) `          w  %     `              xk           )          
    %   h                      %   h       @              x  `         %      	 @t	             x  `         %   (                            h                       tVH  * \ R 1 * # 1 5 3 $ * \ R f f f f * 1 J 4 9 1 d 9 5 e d  * \ R 1 * # 1 6              	  
                                           !  "  #  $  %  &  (  )  +  -  .  /  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  Z  [  \  ]  ^  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~       a                                                                       	 "       	    0    	      	 4   H   "        	     
                  	      	        	        "        	                     	     (  x       Word 2000 specific functions by Hu    CH 2006-06-30  hel   . called from wwiLabelWizard and wwiSaveDocument             5 ( q X   o P       CH 2006-10-11         called from wwiLabelWizardh          GLM_Master_Frame9 q    o         @ Attribut e VB_Nam e = "wwi Word2000 "
Optio n Explicit
'p t  specifi@c funcLs	 <CH86-06 -30
 "ca lled from  Label Wizard andSaveD@ocumen aPub k Sub wTextbo xOverlap (sr As S hapeRang e)
  Wi th sr
   .WrapFor mat.Allow: True$E {
6VA_10-11^
TAlternative]!XGLM_Mas1 %_Fr   [                          rU              ~|         	       	                  Y      	            l   4     	 x tx   t\  t cx  6      4 (                      x           t X   $     	 x  xH   cx        $ (                      x                   f                                                                    rU                    	              ,          `     	          =     ,         `     	          =           n                                   7           X}                                                                                        x                                       ME                      (    0L    6
    <     <                 `            | @           ) `           %                       %                                  p                     tVH  * \ R 1 * # 1 5 3 $ * \ R f f f f * 1 K 4 9 1 d 9 5 e d                                                            
           	 "       	    0    	      	     H   "   h                           p      x       Word 2003 specific functions          CH 2006-06-30         called from wwiLabelWizard      o p   h   9   q       h            Attribut e VB_Nam e = "wwi Word2003 "
Optio n Explicit
'p t  specifi@c funcLs	 <CH86-06 -30
 "ca lled from  Label Wizard
Pub W Sub wtTextb oxInCell (sr As S hapeRang e)
  Wi th sr
  .Layout/! TrueEn2d(
	 a
                                            rU              ~|         	       	     !             _ _ S R P _ 2 0                                                                                       '         _ _ S R P _ 2 1                                                                                            *  x       _ V B A _ P R O J E C T                                                                               L  v      d i r                                                                                                ,          8         5f        $                                      k                                                      rU                    	               ,           `     	          =           n                   0*	 pH  d   Template ProjectQ H  @

=
|	tVH J<
 9stdole>s t  d o l eP  f %\ * \G{00020430- C 
0046}# 2.0#0#C: \WINNT\S ystem32\c2.tlb#O LE Autom`ation /  MSFor ms>  S F Er m s$ 3  i n e R G r o u p  1 B 4 9 1 d 9 5 e d  w w i D e f i n e R G r o u p u     0       p       #    w w i B o o k m a r k s  1 C 4 9 1 d 9 5 e d 2 w w i B o o k m a r k s      p         w w i L a b e l W i z a r d  1 D 4 9 1 d 9 5 e d $ w w i L a b e l W i z a r d =     0         p     j8    w w i X E x p o r t M a k r o s  1 0 4 8 8 8 6 1 d b   w w i X E x p o r t M a k r o s =            w w i S y m L O n O f f  1 1 4 8 8 8 6 1 d b  w w i S y m L O n O f f         (       w w i X T e x t R e s e t  1 2 4 8 8 8 6 1 d b  w w i X T e x t R e s e t W      @   (   w w i S e t E n v 3 2  1 E 4 9 1 d 9 5 e d B w w i S e t E n v 3 2 At      X   2  !  w w i E d i t T o o l s  1 F 4 9 1 d 9 5 e d l w w i E d i t T o o l s       p   "     w w i S a v e D o c u m e n t  1 5 4 8 8 8 6 1 d b .	 w w i S a v e D o c u m e n t                    w w i V e r s i o n  1 6 4 8 8 8 6 1 d b 4	 w w i V e r s i o n      X  8          w w i R e s o l v e  1 7 4 8 8 8 6 1 d b @	 w w i R e s o l v e k        X  8  p        w w i O l e D y n T e x t  1 8 4 8 8 8 6 1 d b F	 w w i O l e D y n T e x t U             ĥ   w w i D y n t e x t  1 9 4 8 8 8 6 1 d b 	 w w i D y n t e x t      0  p         6   w w i S e r i e n N o  1 : 4 8 8 8 6 1 d b 
 w w i S e r i e n N o      0    p        '   w w i O l e G r a p h i c  1 ; 4 8 8 8 6 1 d b 
 w w i O l e G r a p h i c }        8         O/   w w i I n i t L o c a l  1 < 4 8 8 8 6 1 d b T
 w w i I n i t L o c a l [E      0      w w i E r r o r  1 G 4 9 1 d 9 5 e d  w w i E r r o r r      H   d%    w w i W o r d X P  1 H 4 9 1 d 9 5 e d  w w i W o r d X P x      `       w w i I n c l u d e  1 ? 4 8 8 8 6 1 d b 
 w w i I n c l u d e      0      p  x   ?   w w i I f G r o u p  1 @ 4 8 8 8 6 1 d b 
 w w i I f G r o u p b     0    p       DS   w w i L i b L a n g  1 I 4 9 1 d 9 5 e d $ w w i L i b L a n g            b  %  w w i O l e U s e r E x i t  1 B 4 8 8 8 6 1 d b 
 w w i O l e U s e r E x i t              +    w w i X I m p o r t M a k r o s  1 C 4 8 8 8 6 1 d b 
  w w i X I m p o r t M a k r o s x            c l s D e b u g  1 D 4 8 8 8 6 1 d b 
 c l s D e b u g          K   w w i W o r d 2 0 0 0  1 J 4 9 1 d 9 5 e d  w w i W o r d 2 0 0 0 r            w w i W o r d 2 0 0 3  1 K 4 9 1 d 9 5 e d  w w i W o r d 2 0 0 3 }            @  p             @  as     	               * \ 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 } # 4 . 0 # 9 # C : \ P R O G R A ~ 1 \ G E M E I N ~ 1 \ M I C R O S ~ 1 \ V B A \ V B A 6 \ V B E 6 . 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 . 2 # 0 # D : \ W i n 3 2 A p p \ O f f i c e X P \ O f f i c e 1 0 \ M S W O R D . O L B # M i c r o s o f t   W o r d   1 0 . 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 { 0 D 4 5 2 E E 1 - E 0 8 F - 1 0 1 A - 8 5 2 E - 0 2 6 0 8 C 4 D 0 B B 4 } # 2 . 0 # 0 # C : \ W I N N T \ s y s t e m 3 2 \ F M 2 0 . D L L # 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 { C 5 D 4 5 3 E E - 6 6 E 9 - 4 E 1 E - A 2 6 9 - D C B C D 7 F 6 5 B 1 2 } # 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 . 2 # 0 # D : \ W i n 3 2 a p p \ O f f i c e 9 7 \ 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             -                                                   
         tVH     	 
     # $     ) (   ' + , "                            X-  T h i s D o c u m e n t  1 0 4 9 1 d 9 5 e d  T h i s D o c u m e n t             &  w w i S t a r t U p  1 1 4 9 1 d 9 5 e d  w w i S t a r t U p      0  X       8  p  `     y%   w w i S h o w A n d H i d e  1 2 4 9 1 d 9 5 e d 4 w w i S h o w A n d H i d e      `  0   a   w w i T e x t b o x E d i t  1 3 4 9 1 d 9 5 e d  w w i T e x t b o x E d i t P=     0     p  H   .   w w i S c a n L a y o u t  1 4 4 9 1 d 9 5 e d  w w i S c a n L a y o u t 'D         p     X  8  `   A  *  w w i N N G r o u p  1 5 4 9 1 d 9 5 e d  w w i N N G r o u p _     0    p    x   R   w w i I n s e r t P h r a s e  1 6 4 9 1 d 9 5 e d B w w i I n s e r t P h r a s e 6          H	   w w i I n s e r t S y m b o l  1 7 4 9 1 d 9 5 e d F w w i I n s e r t S y m b o l d     0    p            w w i I n s C o n d T x t  1 8 4 9 1 d 9 5 e d ^ w w i I n s C o n d T x t !2     0               w w i D o c P o s i t i o n  1 9 4 9 1 d 9 5 e d v w w i D o c P o s i t i o n v     0       P   w w i E d i t R e p G r o u p  1 : 4 9 1 d 9 5 e d  w w i E d i t R e p G r o u p      0  p       2   w w i L i b  1 ; 4 9 1 d 9 5 e d N w w i L i b 8        p          w w i L i b F i l e  0 ] 4 9 1 d 9 5 a 8 \ w w i L i b F i l e      H      ^   w w i L i b D l l 3 2  1 < 4 9 1 d 9 5 e d h w w i L i b D l l 3 2 ׌        8   -D    w w i C l o s e  1 = 4 9 1 d 9 5 e d  w w i C l o s e 5     0  P   0	   w w i E d i t S y m P h r  1 > 4 9 1 d 9 5 e d  w w i E d i t S y m P h r      0    p      h   1"    w w i L i b T e x t  1 ? 4 9 1 d 9 5 e d  w w i L i b T e x t d          0        * w w i S y n c r o W o r d W i t h T r e e  1 @ 4 9 1 d 9 5 e d t* w w i S y n c r o W o r d W i t h T r e e      0    p  x     
b    w w i W i z a r d  1 A 4 9 1 d 9 5 e d  w w i W i z a r d e     0  p             Z    w w i D e f           H    8    0  `  h  (      X         P  x                vF]su   j?bXK
A   ΀z}HJ   ' &.HI1v>      icxhJF晊4ܱB0     8핢+1AD%+t   M3MJ{t6r   ml3I8a   zYjKYvGY   Y$gܪA$=   Wz*ڼE.   xdJ~ޝ
~   B0E?5V     ~B*Q}`     TE2F   UceD i   v[9jENS1M   ȰoS+BNAeſ$   mp@N]Ei   s.MOgiD]   /GVfu   {5J}N(    T]T\N   f$Ny#-   ~A*9(fx     c䭍O{    VIQR   txIMv   =٢m@{ce    	L,l   F2?LB_W   (TK7Hft     2UKL   ߤO'GZv   ZgCEwjTޖ   RQKXDA   oMDrS,   5x{FEj     ͪ7iL}kI   mnцmMRO&   WHjN噀   lEgK7R!   Bvh^C@kXH     dvJYkl     w@F)ʫq                 L 
   Error  U 
   Format      resume      setWordk VBA Win16~ Win32 Mac VBA6# TemplateProjectE stdole` MSFormsC Officeu ThisDocument< 	  _Evaluate 
wwiStartUpk h   Main, app_name app_pathR/ posTempZ{ chWWIIni[ chWWITemplate4 iIndexǵ  Application*  ScreenUpdating!  ActiveDocument\  AttachedTemplate  Savedd  NormalTemplateq wwiShowAndHide' (   Save (   Restore> (   Set_app_nameD 	 Variablesn  Deletex (   disableStuff  wwiSetEnv32V (   SetPathܶ  ActiveWindow+  ViewI 
 wdPageViewv ValueK wwiLibh (   FindReverse) (   Exchange" chFile chFileNameRtf) 	nErrValue* 	chCompRTFV 
wwiLibFile_ (   GetPathT  SaveAsf;  FileNamej 
 FileFormat  wdFormatRTF' wwiLibDll32hu (   LayoutComparem wwiEditToolsN^ (   set_doc_global_value2  Options  CheckGrammarWithSpelling  CheckGrammarAsYouTypef  CheckSpellingAsYouTypej  CreateBackup  AllowFastSave  ShowSpellingErrorsC  Val (   Version 	wwiWordXP% ($   wordXPSpecificOptionsd (   InternalInit  FullNameО  ShowHiddenTextk  ShowAllI  ShowFieldCodes' (   setDlg  SmartCutPaste 
chSettings. chRegKey  Systema  PrivateProfileString[   ShowHyphens\ 
 ShowSpaces  ShowTabs	  ShowOptionalBreaks  ShowParagraphs{ ($   saveWordXPSpecificOptionsp, ($   restoreWordXPSpecificOptions} wwiTextboxEdit  wdNormalView orgDlgg 	 WordBasic  DialogRecord  ToolsOptionsViewP BeaDlg  ToolsOptionsEdit 	 CurValuesȤ 	 SelectionZ  WhatC 
 wdGoToPaged  Which 
 wdGoToNextw 	 MoveRight  Unit  wdCharacter  Count0v  Extend?  wdExtendd  FontU  Size 
 ActivePane_  Zoom 
 Percentage6  MoveLeftv (   ChecktextboxC bViewChange| chShapeName  SplitSpecial 
 wdPaneNone=	 (   validCmdY 
 ShapeRange  10Z 	 Bookmarks?n  Exists]  Addr  Range (   SetShape myShape  Shape try_old_school EndeC  Shapes<  wdGoToBookmarkJ (   InsertTextfield PosTopb PosLeftL  Information   wdVerticalPositionRelativeToPageS " wdHorizontalPositionRelativeToPage 
 AddTextbox  msoTextOrientationHorizontal 	 TextFrame 	 TextRange  Collapseu wwiScanLayout> Resultur p_FileNameRftx 	p_StrFile- p_wwiIni 	p_ErrFile/ p_ReportCategoryL p_Height p_Width	 nRetL nSaved0 chOriginalDoc wwiBookmarks 
(   Delete_allv 	(   GetDocVare% (   ScanFileb (   SaveSettings 
chScanFile39 	chStrfile# chTMPInit 	chErrFile chType lHeightTn lWidth` dTempَ lCurrMeasurement (   LabelInfoGetW"  MeasurementUnitT  wdPoints 	 PageSetup 
 PageHeight	 	 PageWidth! 
(   ScanLayoutp (   Resolve_Fileq bRet\ 
chFileNames (   DoCheck) 
(   DeleteFileO chChkRTF} 	chChkFileq ret chErrTxtP nStatusFТ chErrMsg iErrLen nMode3 	xViewTypemJ 
xViewCharsC$ xViewHidden{ bAbort+  SeekView$  wdSeekMainDocument (   LayChkV h   Start (   RestoreSettingsS (   CheckLayoutFormat`Z style_hidden0 shape_group2 CheckHiddenStylesk CheckShapeGroups sj stylep  Stylesp  Hidden] bLabel4  msoGroup- 
 GroupItemsT 
wwiNNGroupf bIsEntireTable markTXTR lnth  a1k\ a2l\ iRet,p rgno) rgno_N NewBeginGroupr NewElseGroup[ NewEndGroup bTextSelectedw display 	conditione 	symList__S anzSym<p rc^ anfang doc_LSymo doc_RSym 
doc_ColLbl 
doc_ColSym 
doc_ColGraq anzt 
wwiLibText' 
h   checkTable. (   checkMarkingi GetInputString%/ h   Insertr tempR R3TablenU row i` InputStringTempnr 
chEditMode chSelectedGroup selStartPos bTempj chSelectedGroupCount>t 
chElseTwig Verb96 colourJ 
 Charactersrg  ChrK~ 	 Containera  Tables  Table  RowsU  Itemz  Cell  wdMovez  Findn  Forward  ClearFormatting)  MatchWholeWordX 	 MatchCase  WrapWy 
 wdFindStop'f  ExecuteY  FindText  Right (   InsertWWIText[ 
(   InsertText Y  TypeParagraph  OK^  LTrimb  Str 	(   SetDocVar (   insGRP} startPosG endPosb newRange@ 	 RemoveAll  SendCustomEvent\M (   symbol PosStarte PosEnd PosLen& GesLenG 	SymbolNew` wwiInsertPhrase chNewPhrase  wwiInsertSymboli (   InsertWWIObject$ chNewSymbolr 
p_chNewObjl p_chInsertErr markedE chOldSymbol"i  HomeKey  wdLine  TypeBackspacea 
 ColorIndex  wdAutoKV wwiInsCondTxt LG_Meta6 wwiPath lanPath9 rgtext pos RGNameO 
condBegr__,s 
doc_ColourU 	sym_range	 (   posit (   chkRiOfMark? wwiDocPositionjh Suchbegriffv 
set_unhide@  Replacement  wdFindContinueBP  MatchWildcards  MatchSoundsLike0  MatchAllWordForms  Found+ wwiEditRepGroup 	tStartPos9 NewBeginGroupLen= SelNotInEndMarker MarkerNotInnermosty BRGInSel+ BNGInSel, BIFInSel] ERGInSela ENGInSel. EIFInSelU ne md tempxsC oldGroup6B NewBeginOldGroup` NewBeginOldGroupCount NewEndGroupLenv/ temp1LC 	selEndPos NNBeg NNBegToModify NNBegSerialNo?  NNEndSerialNo6 	curEndPosT arrEndMarker__ nIndex' temp2MC SelectionNotInEndMarker6  20?Z tmp1j tmp2k (   allLang)R path2 	(   getTypeNoϬ Sym  UCase5
 i_chVariableƋ chPath 
chTempPath,m chReturn 	DocVarGet<  wdPink{ i_chVar i_chVal 	DocVarSet| (   SplitCallText. chTextE chR1} chR2~ chR3 chR4 chR5 chRestǹ zq (   LabelInfoGetABAP  chValue 	LABELINIT  Erro (   LabelInfoSetb MenuItemj  CommandBarControlP 	chVarNameݯ 
DOCVARINIT chTemp!D (   CheckSymLocationJ  	strOldSymf strOldSymbol  wdStartOfRangeRowNumberz 	(   LoadAddInM7 
addin_name+ bInteractive{ chAddinNameb4 	bDocSaved@  PathSeparator5 Warning1  AddIns EndWarning1 
wwiLibLangD ('   LMsgBoxo5  vbExclamation 
('   writeError(" (   RunUserExit 
chUserExitD chMacroName> run_ 	 MacroName y 	p_strTextu p_strSubText1 p_iBegin9 iRetV*  vbTextCompare	Q wwi_WorkingDir> wwi_IniPathj- wwi_GuiHome-i (   IsFileW 	p_strPath:I bRetV strDir iChar4V iNext NotFoundA nPath nFile 
chLanguageWH chFname4 	chWwiName[ chPos (   INIPath  Trim@ chDir_ modev file% SetPathsa nDefaultD 	chIniFile} DlgInfoc#  FileSummaryInfoY test01Y 	directorymG CmdNo  CommandValid (   GetPPString chGroup{ chLine1, (   SetPPStringʤ chNew nReturnd test4 fehler SetPPString10<  Number- wwiError (#   errorHandlerO  Kill scanD lpLayout} 	lpStrFileV lpWWIini.P 	lpErrFile1 lpType lpHeightV lpWidth WWIRES32pb ResolveR lpResult= 	lpValFile lpBookmarkfile 	lpTypeLng+ 	lpRepType getWWIVersion lpStringz CheckLayout 	lpChkFilek getNextChkErrn 
lpBkmkName1 lpErrMsg compareLayout0N 
lpCompFile Init\[ lpInitString" DeleteDVSFilesaO 	lpDocPathB 
EHSReleaser	 (   ResolveValFilew lpLayoutFile7 lpResultfile docpathD 	chVersion    RTrim$k 
(   NextChkErr 
chBkmkName| 
chCompFile_ (   DelDVSFilesw wwiini BkmkFile wwiClose, wwiEditSymPhrD old new_|	 (   check_symbol
 BARCODE_STRING_BEGIN4" BARCODE_STRING_ENDk BARCODE_STRING_SEP 
bIsBarcode 
keepFormat metavC Type_ʬ 	doc_Color xx_ LeftParenPos RightParenPos LeftBracketPos RightBracketPosy 
RightAngleK RestPos~C brcdCodeEndt PosDescr PosDescrEndY bDescriptionMq bSymbolO (   InsertIt=  wdAtEndOfRowMarkerk  wdWithInTableT nErrorNr chErrorTextA  MsgBoxR  Clear nHide pos1 pos2  InsertAfterq5 	 Direction&  wdCollapseEnd  SetRange  Cut.  Contentl pfad, artu iCellG  wdStartOfRangeColumnNumber7 notEmpty*i 	doc_LChar 	doc_RChar) doc_Anz Leng } LiEndן 
brace_open 	quot_open.  wdSelectionIP bAllowRowsOnly( bAllowFullTablesOnlyϙ doc_Char 
iBeginCelll* iEndCell bIsEndOfRowz 	ErrNumberw  wdEndOfRangeColumnNumberxO Begxx End_C Else_< LPath% 
symbBegr__Y bIsEndOfCell bHidden[ iColor< wwiSyncroWordWithTree]9 chSymbolTypeai chSeekSymbol  chAnalsyserSymnoln 
chLangPathm new_lenQq newTq	 	pos_Brace pos_Brace_end pos_parenthesisr  	pos_Descr; 
pos_Grafic chGraficSetty posGraficTrenner8 posGraficEnde posGraficBreiteu8 posGraficHoeheN chDescriptions newAnalyseSymbolpy chRepGrpNameS 	posRepEnd! selRangea NNEnd chSerchWordj NNSymbol oldLene chBlankm pos_tmpI (   f_Prepare_for_analysern: 	wwiWizard GetStyleNoByName> 
 CollectionW GetStyleNameByNo h   Checko  SelInfo& chRepGrp; chHeaderPhrase 	chAsTableC iFormatHeaderx 
iFormatSymО iFormatPhraseq iTrenner7 	chLeftColr chMidColg* chPhrase chPhraseTemp
 chDiscretREP chSymbolAw chSymbolTempm iRowq 
iPhraseRow iSymRow^! iTemp]h chLangk chBlankCompBegin'l chBlankCompEnd chDiscretBegin chDiscretEndP 	ColNumberR bHavePhraseU 
bFirstTime# dWCol1Qj dWCol2Rj nextSymbolsb7 chSymbolNexts iCntB! (   Fill_internal_table 	 NameLocal  ParagraphFormat 	 AlignmentI  wdAlignParagraphLeftW wwiDefineRGroup%  TableInsertTable| 
 NumColumns}  NumRows  Cells  SetWidthH  ColumnWidth 
 RulerStylea  wdAdjustProportionalz  Move>y  wdCell  Removeϱ  TableSelectTableO  TableAutoFormat  BordersC"  ShadingA  TableHeadings chRowLineTypeMw chRowLineWidth chRowLineShadingX  Texture  ForegroundPatternColorIndex^  BackgroundPatternColorIndex~  wdBorderLeft 	 LineStylew 	 LineWidth/U  wdBorderRight  wdBorderTopm  wdBorderBottom  wdBorderVertical:  Shadow  DefaultBorderLineStyle  DefaultBorderLineWidtho  DefaultBorderColorIndex`  StartOf&  wdRowF chFlagj chFlagFirstl (   Get_Symbol_FormatL?  InUse (   Get_Head_FormatH  wdStyleHeading1A?  wdStyleHeading2B?  wdStyleHeading3C? Weiter  wdStyleBlockQuotationN  Key  wdStyleBodyText  wdStyleBodyText2  wdStyleBodyText3  wdStyleBodyTextFirstIndentN  wdStyleBodyTextFirstIndent2R  wdStyleBodyTextIndentm  wdStyleBodyTextIndent2A  wdStyleBodyTextIndent3A  wdStyleCaptionr2  wdStyleClosingm  wdStyleCommentReference  wdStyleCommentTextd  wdStyleDate  wdStyleDefaultParagraphFont  wdStyleEmphasis  wdStyleEndnoteReference  wdStyleEndnoteTextL  wdStyleEnvelopeAddressb  wdStyleEnvelopeReturn!  wdStyleFooter  wdStyleFootnoteReference  wdStyleFootnoteText=E  wdStyleHeader;$  wdStyleHeading4D?  wdStyleHeading5E?  wdStyleHeading6F?  wdStyleHeading7G?  wdStyleHeading8H?  wdStyleHeading9I?  wdStyleHyperlink8  wdStyleHyperlinkFollowedU  wdStyleIndex1;  wdStyleIndex2<  wdStyleIndex3=  wdStyleIndex4>  wdStyleIndex5?  wdStyleIndex6@  wdStyleIndex7A  wdStyleIndex8B  wdStyleIndex9C  wdStyleIndexHeading  wdStyleLineNumber  wdStyleList.  wdStyleList2  wdStyleList3  wdStyleList4  wdStyleList5  wdStyleListBullet  wdStyleListBullet2  wdStyleListBullet3  wdStyleListBullet4  wdStyleListBullet5  wdStyleListContinueHR  wdStyleListContinue2'  wdStyleListContinue3'  wdStyleListContinue4'  wdStyleListContinue5'  wdStyleListNumber  wdStyleListNumber2+  wdStyleListNumber3,  wdStyleListNumber4-  wdStyleListNumber5.  wdStyleMacroText@  wdStyleMessageHeader3O  wdStyleNavPaneM  wdStyleNormal  wdStyleNormalIndent  wdStyleNoteHeading*F  wdStylePageNumber  wdStylePlainText^  wdStyleSalutationT  wdStyleSignaturea  wdStyleStrong  wdStyleSubtitle4j  wdStyleTableOfFiguresW'  wdStyleTitleY  wdStyleTOC1 6  wdStyleTOC26  wdStyleTOC36  wdStyleTOC46  wdStyleTOC56  wdStyleTOC66  wdStyleTOC76  wdStyleTOC86 
LG_wwiPath4 LG_lPathq lc RGBegn RGEnd 	symBegr__ (   JumpF BookmarkCount͵ chBookmarkCount 
MyBookmark (   Delete_selected< nBookMarkCountj BookmarkIndex chBookmarkIndex9 wwiLabelWizard6 
dHeightSet 	dWidthSets dHeightTextfield. dWidthTextfieldVN chMsg chInih chTitle
 vOrientation__ bEmptyK bTextFieldExist dMargTop[. dMargBottom 	dMargLeft/ 
dMargRight%D to_abapB  wdInches  InchesToPointsI  wdCentimetersu   CentimetersToPoints  wdMillimetersjX  MillimetersToPoints  wdPicasO  PicasToPoints:  wdOrientLandscapeξ  wdOrientPortrait 	 TopMargini  BottomMarginu 
 LeftMargin]  RightMargin[ weiter10\  GutterV  HeaderDistanceS  FooterDistancek  Orientationw  LineNumbering)  ActiveS  FirstPageTray[  wdPrinterDefaultBin  OtherPagesTray  SectionStarth  wdSectionNewPage4'  OddAndEvenPagesHeaderFooteri  DifferentFirstPageHeaderFooterj9  VerticalAlignmentʡ  wdAlignVerticalTop)  SuppressEndnotes[f  MirrorMargins*"  Words8  wdStory&  wdSeekCurrentPageHeader; shp  RelativeHorizontalPosition;F   wdRelativeHorizontalPositionPage+  RelativeVerticalPositionR  wdRelativeVerticalPositionPage 
 LockAnchor  Paste  MoveDown̝  EndKey5 
 WholeStory bAddGLMMasterFramez	  Visible  msoFalseF.  ZOrder  msoSendToBackD " wdRelativeHorizontalPositionColumn # wdRelativeVerticalPositionParagraphl  Height|  Top5 wwiWord2000 (+   word2000TextboxOverlapˠ (+   word2000TextboxAlternativeTexts wwiWord2003 (,   word2003TextboxInCell/	 
 MarginLeft<  MarginRight^ 	 MarginTop  MarginBottomeJ wwiXExportMakrosF Modul fsF]  CreateObject  FolderExists
  MkDir 	 VBProjectOh  VBComponents
'  Export wwiSymLOnOffs LG_WWIX (   Main_onK za` count_Q8 CLine token	 oldposd|  ViewToolbars|  Toolbar2  Show (   Main_off+ sNamed  CountToolbars    ToolbarName$  ToolbarState  Hide9z wwiXTextResetE, 
 FormatFont& 	 Underline color2F  StrikeThrough"  Superscript 	 SubscriptV 	 SmallCaps~c  AllCapss_  SpacingS  Position  KerningB 
 KerningMin1 SetEnv chName KERNEL32_ 	chWWIPath  Environ, (   Prepare_for_analyser MySymboli 	SymbolOldYf 	chNew_lenT len_str! posBegin>  Raise (   get_doc_global_value1 sValue$ (   DocSaved wwiSaveDocumentU (   FormatLabelq  9P 
wwiVersionB	 chDLLVersionz VersionFromReg 	SPFromRegf msgQ chAttachedTemplatePath 
wwiResolve lRetE nView wwiOleDynText1 g_bCreateWarningn g_nBookmarkErrCounta g_bDyntextScreenRefreshj gc_szGLOBAL_SECTIONʌ gc_szDYNTEXT_ON_RAWREPORT$ gc_szDYNTEXT_WARNINGSN	 gc_szDYNTEXT_SCREEN_REFRESHG gc_szDYNTEXT_NO_MATCHq gc_szDYNTEXT_STATUSp gc_szDYNTEXT_STATUS_MINI gc_szKEEP_DYNTEXT1o  Fields7  Update  DisableAutoMacros cchBookMarkNamep cchGroupn 	chVa2Fileo 	bContinue 
chBookMark 	chIniPath bShowAllp bShowHiddenp 	nViewType bShowParagraphs DynText= nPos@C nMinR2 nMax41 nMoved bBookMarkValid 
wholeRange refRangeV addRange3w 	nFontSize bWeiter bTextBoxC chBookMarkErrName nTmpWX sErro 	 StoryType]  wdTextFrameStory_& (   removeEmptyLines fPosFra  FormatFrameQ" 
fPosFraCmpɮ 
 FixedWidthw~  FixedHeight  wdParagraphH  MoveUp   wdWordm UseOverflowingZ lChars6 SizeFont
 bOverflowing IsOverflowing SizeUpj SizeDown}  Growd  ScreenRefreshA
  ShrinkK9  Overflowing ( wdVerticalPositionRelativeToTextBoundary"8 (   removeEmptyParagraphs` 
 Paragraphsf myRange-  Lastbh 
(   isNonPrint:  EndOfy  wdCollapseStart| iMoved
# p_rangeo lengthY tk 	 MoveStart} isPrintChar  Firstz 
wwiDyntext΁ (   changeDynTextZ DynNo LG_LSym^ LG_RSymQ^ LG_Dyn 
LG_ColCtrl txt size_minJ size_maxcI 	from_abapa chDocStatusQ. sharp1"I sharp2#I  Frames8 (   checkDynText~  find_dyntext chTextField% dyntext_symbol brace1( brace2( comma0K min maxȲ wwiSerienNoW chNewSymbol_1k1 chNewSymbol_2l1  TypeText wwiOleGraphici nBookMarkInc GraphicIncludeP cchGraphicIncludeW cchFileIncludeH cchObjectIncludeD cchIconInclude5 chModes chFile1v chOption& nPos1ca nPos2da 	bAutoSizeɋ NewPicyM  InlineShapeF wm h_ wstrq hstr  InlineShapesٚ 
 AddPicture 
 LinkToFile  SaveWithDocumentW 
 InsertFileX  ConfirmConversions  Linkh 
 Attachment^6  AddOLEObject  DisplayAsIcon 	 IconLabel[ wwiInitLocal6 chCurrrentDocName 	chGuiHomeH 
chInitPathi 	 Unprotect? makro$ fnameR errno infoZ nlg^ headerM message return_¥ show_ button icona! % WarnBeforeSavingPrintingSendingMarkup!  StoreRSIDOnSaveZ  BackgroundSave  BackgroundOpen  DisplaySmartTagButtons  LabelSmartTags  AutoCreateNewDrawings>  ShowFormatErrorq  FormatScanning  DisplaySmartTags  RevisionsView  wdRevisionsViewFinal3] 	 Revisions\  AcceptAllRevisionse  TrackRevisions  ShowRevisionsu  EmbedSmartTags  SmartTagsAsXMLProps$ 	 SmartTags  SmartTag  
wwiInclude@ (%   checkInclude 	find_text۶ SymNo 
LG_SymName! comma2 quot1 quot2 DokNr DokVr DokAr bError2 (%   changeIncludeQ sharp3$I 
wwiIfGroup chElseBranche 	('   getPhrase_ phGroup phraseNo^ default_ݖ 
PhraseNamed PhraseS ('   getATxtQ 	nPhraseNo{ 	chDefault( dummyD Replacef nTypY nNr p_chSection chAllY chNrStrj 	chSection 	szErrFile] chSource chTargetP lPos iStart chLeft chMid chRight. 
ParamError wwiOleUserExit/ wwiXImportMakros8  InputBox Importi clsDebugH m_debug 
m_filename,% m_fileno] Class_Initializen  Time Class_TerminateP trace funcZ0 
checkpoint9 sr&_ 
 WrapFormat  AllowOverlap(  AlternativeTextb  LayoutInCell Documentj 
  _B_var_Set Class 
   InitializeN 	   TerminateyL 
 _B_var_Midp  _B_var_Environ/  _B_var_Right9  _B_var_LeftQ  _B_var_UCasea  _B_var_LTrim& 
 _B_var_Str  _B_var_TrimmT 
 _B_var_Chr\;  _B_var_Stringӊ   _B_str_symList__a  _B_var_Error)   _B_str_symbBegr__i   _B_str_condBegr__<   _B_str_arrEndMarker__>   _B_str_symBegr__ 	  _B_var_On6  _B_var_Datev  _B_str_Date{B  _B_str_Time d  3  i N m   
 u c $ \ % #  % 
% @   C  G $   	    1  * %' ' 
& ? _ .     /	 /  > 5	 6      + w	 (                                                                                                                                                                        8 A	 O G	 A 
  B 
! Q 
 9 
( J 
) J 
* b 5 F  U  ] C C O D + d  [ , R ] K U
" e #    _ f    *                                @                                          @    @                                                                                            0   @                @                                    P   @                                                                  @                                                                                          @@                                                       D  @                    @                      @                                                                         @    @                          @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   DD4 52EE1-E0 8F-101A-8 -02608C4D0BB4DsDFM20.D LL#Microsoft 9 \ Ob Library/ ; C~1s00}#0# j0 	j AC5@63EE-6 6E9-4E1E -A269-DC BCD7F65BD126c:\ Vp \VBE\DM.exd`5  .E .``MCOPfficDO@fP i cBy *2DF8D04C-5BFAa@B-BDE5@CAZA@4*D@in32app\C97.O97c 8.0d "B- XThisDo cumentG "	T h.s "Dc ue n2  HB1@B,!"EB+B 
w wiStartUpG  w@$"S a r@U hp ,26y%  !   !ihow AndHideG* !	wdh#w A #d`ie`M2aTextboxEdi7T Ox %bx Ei⃠I.P=68canLay4ouA'c a@'L y@uN2 *  ?O/dA/'D+$LN NGrou*LN N G Lo^(L$')L+R_a`1Inser@tPhras@Lf$I#s8^P@rr`%2Y'%%H	6SymbolGS yANl 7	 d[
#ConXdTx&Cp&ni0T 1Pz wni'&/tr<Lr	!2	A VPXosi{yDD@	cT PP sNt0 o`v:Xy:_QPr	v	dDR\ep$1W(CR(p{1pS5_
2_
[
 / GRhSXLb&&284BFil`9Wh3FVh9BI^{	@wiDll32G ADl@+2-D׌CloJCpNop92 ?e4 0H 5>q*DRG%O&DR>'>/r	 1	"au#Uu""<PSyn WordWithTre+V*npr GWU0 rQW,tfTeoep> 2f h 
b  > WizardG 6
zppQ -j2od? Z2eMDefineR^QDPnp R_QwioYQ_QН'u[
!pBook`marksQBAo k mk_9rps ;	nLabelQ Sb@l _n_n@r d   HP1  8j8  H,  H=!0 +  wwiXE xportMak@rosG  *  w i X E  x p o r t M a k o s v2"; SymLOnOffG S y  m L O nf fO2ɏI II [ TextResetG <  T e t Rst2L(LWK&A& SetEnv32G Ke sEJv 3 2O#2O#AtK#b EditToolnE@i $T@o ln$"$$D wiSaveDocumen@oHI(a vlD%c ue@LAp2@݅}S@O) AM K)
C)Ver`sionGV 'r@Ki (n`H+&26%\olve[!7 $+kgOleDynn)n"OGe Dn yeo N)nQ/Ĳ/U2$t)$t5x\&$$')$+6yrienNo--r!YNF O-'/GraphTic5G@ah} c YN5K/O2//}+dInitLocalVI@}aL$cylioo[Ek@ErrXorG#}irmri2rdR%r	FWordXPG 8FW@!X P-j2o0P߈ @	Nx"CIncXlud:Fc=u}be@42?ЛfGroup<I':o apx{f DSbЅLibLangUyL2bap*gwyb<{ ~Q)0WUs`erExirw)TUhe0*3 _2r!_rRQ	+ }#	UIm_I{_fsos[re 1s?.  >.
;clsDeb.uq-s@ke ~bP%9>=K?| `P=(0  6$_q>2000a>2 0 a'a?	%rk3d3@:a                                      rU              ~  ~  ~  ~w      
   	           	     # 	     % 	      	     ' 	      	     	 	     + 	      	     - 	     / 	      	      	      	      	     1 	     3 	      	     5 	     7 	     9 	     ) 	     ; 	     = 	     ? 	     A 	      	      	     C 	     E 	     G 	     I 	     K 	     M 	     O 	     Q 	      	      	     S 	     U 	      	     W 	     Y 	     [ 	      	     !   		      Y    _ _ S R P _ 0                                                                                             8o      _ _ S R P _ 1                                                                                         Y  	      P R O J E C T w m                                                                                             P R O J E C T                                                                                                
      9                    a 	     N q                   i      y              a 	     P q                           a 	      q                   qM              a 	      q             !      	"      I"        9      a 	     R q                   ѽ        Y      a 	     T q                   q                    y      a 	      q              ?      7      3      +                    a 	     V q                   i              a 	     X q                                 a 	     Z                    ѿ              a 	      q       
             Q        1      A 	       q      
               Q       
                      	                                                                  i                                 TemplateProject     ThisDocument  
   wwiStartUp     wwiShowAndHide     wwiTextboxEdit     wwiScanLayout  
   wwiNNGroup     wwiInsertPhrase     wwiInsertSymbol     wwiInsCondTxt     wwiDocPosition     wwiEditRepGroup     wwiLib  
   wwiLibFile     wwiLibDll32     wwiClose     wwiEditSymPhr  
   wwiLibText     wwiSyncroWordWithTree  	   wwiWizard     wwiDefineRGroup     wwiBookmarks     wwiLabelWizard     wwiXExportMakros     wwiSymLOnOff     wwiXTextReset     wwiSetEnv32     wwiEditTools     wwiSaveDocument  
   wwiVersion  
   wwiResolve     wwiOleDynText  
   wwiDyntext     wwiSerienNo     wwiOleGraphic     wwiInitLocal     wwiError  	   wwiWordXP  
   wwiInclude  
   wwiIfGroup  
   wwiLibLang     wwiOleUserExit     wwiXImportMakros     clsDebug     wwiWord2000     wwiWord2003           [      ]      ,      g l o b a l   $   D y n t e x t O n R a w R e p o r t 	     D y n t e x t W a r n i n g s                                                                                                                                                 (   D y n t e x t S c r e e n R e f r e s h 
  "   w w i D y n t e x t N o M a t c h 	     D Y N T E X T _ S T A T U S      M I N _ R E A C H E D      k e e p              F  /   C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL     VBA
  
1
         	   Y
      
                     	           F  (   D:\Win32App\OfficeXP\Office10\MSWORD.OLB     Word  SjQ}HY7=     Replace
  
)            Q                           0           F     C:\WINNT\System32\stdole2.tlb     stdole
  
a                                        .E.`M     C:\WINNT\system32\FM20.DLL     MSForms
  
A      A             i                         O[1Of+_     c:\temp\VBE\MSForms.exd
  
      A             A                         L-[  DR
  %   D:\Win32app\Office97\Office\MSO97.DLL     Office
  
                  Q                     k	           F     VBE6.DLL  	     K*s `                                                                                           
       
                                                                                   #       #        $       $        '       '        +       +        ,       ,                                                                                                    	       	                                                                                                                                                                                                                                           !       !        "       "        %       %        &       &        (       (        )       )        *       *            rU              ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~f         	                    [S2D/${ 	          J - a 	     "                  a 	     $ q      @                         !      I              a 	      q      X                                 9      a 	     & q      8             k            o        a      a 	      q      P      	       g      c      g      [      W      	      9      i              a 	      q                   q                          a 	     * q                           a 	     
 q                   A              a 	     ,                      !      a 	     . q      	               I      a 	      q      (	             	        q      a 	      q                               	      )      Q                                    A      a                    a 	      a             y                                    !      A              a 	      q                   i                        i      1                                    	       )       Q               a 	     0 q      @	                     a 	     2 q      X	                           a 	      q             ѐ                  9      Q            y              9      a 	     4 q      p	               Y      a 	     6       	       9            Q      i                          a 	     8 	      	                     a 	     ( q      h                   ٌ              A 	     : q      	               	      a 	     < q      0
               1      a 	     >       
       y              a      a 	     @ q      
                     a 	      q      p                           a 	      q             q                     !      Q!              A 	     B q      
                           a 	     D q      
               !      a 	     F q                     A      a 	     H                     i                        Ѵ                  A      y            ɵ        a      a 	     J q      @                           a 	     L       X             F  AI\   	           F     Document    @              Main     Set_app_name     Exchange     disableStuff     InternalInit               	           F  	           F                 p	           F  
   S a v e d   j	           F     W o r d O p t i o n s      setDlg     Save     Restore     W W I O p t i o n s      p _ R e s u l t   e	           F  f	           F     SetEnv  	   KERNEL32      SetEnvironmentVariableA                              SetPath  b	           F  	           F        X        &   A c t i v e D o c _ f u l l _ n a m e      \      allLang  	   getTypeNo  	   GetDocVar  	   SetDocVar     SplitCallText     LabelInfoGetABAP     LabelInfoGet     LabelInfoSet  	   DocVarGet  	   DocVarSet     CheckSymLocation  	   LoadAddIn     RunUserExit     FindReverse	     A c t i v e D o c _ n a m e      LayChk        x            IsFile     GetPath     INIPath     SetPaths     validCmd     GetPPString     SetPPString  
   DeleteFile                        scan  	   WWIRES32      Scan                             Resolve     Resolve                             getWWIVersion     getWWIVersion         A                    CheckLayout       checkLayout                  (           getNextChkErr     getNextChkErr                  H           compareLayout     compareLayout                  h           Init     Init         Q                    DeleteDVSFiles     DeleteDVSFiles         	                 
   ScanLayout     ResolveValFile     Version  
   NextChkErr     LayoutCompare     DelDVSFiles     Prepare_for_analyser     f_Prepare_for_analyser     get_doc_global_value     set_doc_global_value     DocSaved     E R R # # 4 2 5   	           F     wordXPSpecificOptions     saveWordXPSpecificOptions     restoreWordXPSpecificOptions        E         r   H K E Y _ C U R R E N T _ U S E R \ S o f t w a r e \ T e c h n i D A T A \ W W I \ L a y o u t S e t t i n g s \        S h o w A l l   5	           F	     S h o w H i d d e n T e x t      S h o w H y p h e n s      S h o w S p a c e s      S h o w T a b s   $   S h o w O p t i o n a l B r e a k s 	     S h o w P a r a g r a p h s 	     S h o w F i e l d C o d e s      C r e a t e B a c k u p      A l l o w F a s t S a v e      X      O p t i o n s S a v e d   	           F  	           F  	           F     C O L _ C T X T      W a r n M a r k u p 	     S t o r e R S I D O n S a v e 	     B a c k g r o u n d S a v e 	     B a c k g r o u n d O p e n   ,   D i s p l a y S m a r t T a g B u t t o n s 	     L a b e l S m a r t T a g s   *   A u t o C r e a t e N e w D r a w i n g s 	     S h o w F o r m a t E r r o r 	     F o r m a t S c a n n i n g 
      D i s p l a y S m a r t T a g s      R e v i s i o n s V i e w      P A T H      D Y N   
   writeError  P   H K E Y _ C L A S S E S _ R O O T \ W W I D O C U M E N T \ I n s t a l l D i r      p a t h   
   W w i 9 7      ;          0              k P              i p           P H R      S Y M      P A R      B E Z      R G      S G      N G      O G      I F      I N C L U D E      V E R      C T R                     S C A N L E N      S c a n L e n g t h      N G R O U P      R G R O U P      0 0 0      I F G R O U P      L E F T _ C O N D      R I G H T _ C O N D      L E F T _ S Y M      <      R I G H T _ S Y M      >      L E F T _ I N T      (      M I D _ I N T      '      R I G H T _ I N T      )      O G R P _ D E L I M      /      LMsgBox     c o l o u r s      C o n d i t i o T x t      C O L _ S Y M      S y m b o l      C O L _ L B L   
   L a b l e      C O L _ C T R L      R g r o u p      C O L _ N N G R P      N N G R O U P      C O L _ I F G R P      C O L _ I N C L      D E S C _ S Y M      D e s c r i p t i o n      S y m b o l s      D E S C _ P H R      P h r a s e s      P H N A M E      C o n t r o l      getATxt       P h r a s e N a m e      M E T A      M e t a C o l o u r      D Y N _ T X T      D y n a m i c T e x t      I N C L U D E _ T X T      V E R S I O N      V 2 . 5 0 0      B E Z E I C H N E R   b   H K E Y _ C L A S S E S _ R O O T \ W W I D O C U M E N T \ s h e l l \ o p e n \ S e t t i n g s      P o s i t i o n      K A T A L O G      C a t a l o g      E V A L U A T E      E v a l u a t e   	           F     E D I T M O D E      E d i t m o d e      W W I _ B A C K      R e t u r n m o d e 	     W I Z _ D A T A L N T Y P E      W i z a r d 	     W I Z _ D A T A L N W D T H      W I Z _ F O R M H E A D      W I Z _ F O R M P H R      W I Z _ F O R M S Y M 	     W I Z _ H E A D L N T Y P E 	     W I Z _ H E A D L N W D T H      W I Z _ S E P      W I Z _ S H A D E D A T A      W I Z _ S H A D E H E A D   	   getPhrase	     W I Z _ W I D T H L F T C O L 	     W I Z _ W I D T H S E P C O L         
               e            E H S _ L A B E L   fĤIx  8<                 u	           F     E R G      B R G      E N G      B N G      p a r a m _ t a b      T a b l e s   
   T a b l e      R o w s      C e l l      .      . d o t      M s g B o x   
   . M a i n   ~	           F	     A c t i v e D o c _ p a t h      w w i l a y t . i n i      I N I      G U I   
   L A N G \ 
      C u r r e n t   L a n g u a g e      L a n g u a g e s      W O R K      L      . E R R      T X T      . C H K      . V A L      G R A F I C S \      R      . D O C      . S T R      B                   . R E S        . S Y M      . R T F      C      N      . W W I   J   H K E Y _ C L A S S E S _ R O O T \ W W I D O C U M E N T \ D o c P a t h          @           W W I . I N I      D i a l o g R e c o r d      F i l e S u m m a r y I n f o      C u r V a l u e s      d i r e c t o r y   `   H K E Y _ C L A S S E S _ R O O T \ W W I D O C U M E N T \ s h e l l \ o p e n \ I n i P a t h   
   P A T H S   	           F     G U I - H O M E      E d i t C u t      C o m m a n d V a l i d      F o r m a t F r a m e      w w i L i b F i l e      S e t P P S t r i n g      errorHandler         x           E H S - W W I      M a c r o :   <      F u n c t i o n :   < 
  "   F a l s e   P a r a m e t e r ! !   H   F i l e n a m e   o r   F i l e n u m b e r   n o t   c o r r e c t ! ! 
      F i l e   n o t   f o u n d ! !   &   I n c o r r e c t   f i l e n a m e !   6   P a t h   o r   f i l e   a c c e s s   e r r o r ! ! 
      P a t h   n o t   f o u n d ! !   .   C o m m a n d   n o t   a v a i l i a b l e !      E r r o r :   <      M s g B o x         `            E R R # # 6 0 2      0 0      0   *   d o c S t a t u s _ i n p u t _ t a b l e      R e m o v e A l l      A d d      1        ' '     	           F  J   C a n ' t   i n s e r t   a   S y m b o l   i n t o   a   S y m b o l ! !   6   C a n ' t   i n s e r t   i n t o   a   s y m b o l !   6   S e t   C u s r o r   w i t h i n   a   s y m b o l !   ,   W r o n g   P o s i t i o n   f o r   F 1 !   (   P l e a s e   g i v e   a   d i g i t !   0   P l e a s e   s e l e c t   i n p u t   b o x !   T   D o   y o u   r e a l l y   w a n t   t h e   p h r a s e   t o   b e   n u l l   ?      RestoreSettings    b   D o   y o u   r e a l l y   w a n t   t o   r e p l a c e   t h e   s e l e c t e d   t e x t   ?   T   W i z a r d   c a n n o t   b e   r u n   f r o m   w i t h i n   a   t a b l e   !   *   P a r a m e t e r s   a r e   s a v e d !   J   P l e a s e   d o n ' t   m a r k   m o r e   t h a n   o n e   c e l l !   6   C a n ' t   i n s e r t   p o s i t i o n f r a m e !   D   P l e a s e   m a r k   a   t e x t   s e q u e n c e   f i r s t !      SaveSettings    6   L a n g u a g e   f i l e   ' '   n o t   f o u n d !   :   C a n ' t   w r i t e   C o l o u r i n f o r m a t i o n   6   V a l u e f i l e   ' '   d o e s n ' t   e x i s t !   :   S y m b o l s t r u c t u r e   n o t   c o r r e c t ! !   (   E n t e r   a   S y m b o l   n a m e !   .   E n t e r   a   P h r a s e - I D   n a m e !   &   S p e c i f y   a   l i s t n a m e !   &   S p e c i f y   a   k i n d t y p e ! 
     S p e c i f y   a   t y p e ! 
  "   S p e c i f y   a   m e t h o d !   (   S p e c i f y   g i v e   a   m a s k !   <   S p e c i f y   g i v e   a   s p e c i a l   m e t h o d ! 
      E n t e r   a   C a t a l o g !   `   T h e   f i l e   ' '   w a s   c r e a t e d   f o r   a n o t h e r   W W I - V e r s i o n !   .   V a l u e f i l e   ' '   n o t   f o u n d !   ,   F i l e n a m e   ' '   n o t   v a l i d !   *   V a l u e f i l e   ' '   i s   o p e n !      Resolve_File     x   T h e   v a l u e   f o r   m i n i m u m   i s   g r e a t e r   t h a n   t h e   v a l u e   f o r   m a x i m u m !   >   V a l u e   f o r   M a x i m u m   i s   n o t   v a l i d !   >   V a l u e   f o r   M i n i m u m   i s   n o t   v a l i d !   >   C u r s o r   i s   n o t   i n   P o s i t i o n f r a m e !   D   D i r e c t o r y   i s   n o   W W I - R o o t d i r e c t o r y !   *   P l e a s e   i n s e r t   a   D i s k !      ScanFile     DoCheck  R   I n s t a l l a t i o n   D i s k ( s )   c r e a t e d   s u c c e s s f u l l !   F   P l e a s e   i n s e r t   a   f u r t h e r   e m p t y   d i s k !   $   F i l e   ' '   n o t   f o u n d ! 
      F i l e   ' '   i s   o p e n !   J   C o m m a n d n a m e s   a r e   w r i t t e n   i n t o   w w i . i n i   N   N o t   a l l   S y m b o l s   i n   t e x t b l o c k   p r o c e s s e d !   .   E n d   o f   G r o u p   n o t   f o u n d !      Checktextbox  T   T o o   m u c h   c o n d i t i o n e d   t e x t b l o c k s   p r o c e s s e d !   L   R e p e a t i n g   G r o u p   S t r u c t u r e   n o t   c o r r e c t !   L   O p t i m i z e d   G r o u p   S t r u c t u r e   n o t   c o r r e c t !   `   S p e c i a l   R e p e a t i n g   G r o u p   n o t   c o m p l e t l y   p r o c e s s e d !   \   S p e c i a l   R e p e a t i n g   G r o u p   S t r u c t u r e   n o t   c o r r e c t !      InsertTextfield    Z   S y n c h r o n i s a t i o n   e r r o r :   d i f f e r e n t   s y m b o l n a m e s !   .   V a l u e f i l e   n o t   f i n i s h e d !   0   E r r o r   w h e n   r e a d i n g   f i l e !   :   I n c o r r e c t   S y m b o l   i n   D o c u m e n t !   ,   V a l u e f i l e   i s   t o o   l o n g !   H   E n d   o f   c o n d i t i o n e d   t e x t b l o c k   w i t h o u t   @     b e g i n   o f   c o n d i t i o n e d   t e x t b l o c k !     4   G r o u p   s t r u c t u r e   i n c o r r e c t !   \   E n d   o f   S p e c i a l   R e p e a t i n g   G r o u p   w i t h o u t   e n d   o f     ,   c o n d i t i o n e d   t e x t b l o c k !   <   E n d   o f   N o t N u l l G r o u p   n o t   f o u n d !   B   E n d   o f   o p t i m i z e d   g r o u p   n o t   f o u n d !   b   C a n ' t   o p t i m i z e   T e x t s i z e   t o   s i z e   o f   p o s i t i o n f r a m e !      R T r i m $     Z   H e i g h t   o f   p o s i t i o n f r a m e   i s n ' t   s e t   t o   e x a c t l y !   L   T h i s   t y p e   o f   b a r c o d e   i s   n o t   s u p p o r t e d !   ,   C a n n o t   f i n d   s y m b o l !   ' '   d   Y o u   c a n ' t   e d i t   t h i s   d o c u m e n t   w i t h o u t   u s i n g   P P - S H E !   R   U n s u p p o r t e d   p a r a m e t e r   i n   R / 3   v a r i a b l e   ' ' !         _           ^   E r r o r ,   m a y b e   y o u   a r e   u s i n g   a   i l l e g a l   s t y l e s h e e t   .   r e q u i r e d   e n t r y   n o t   m a d e   .   D o   y o u   w a n t   t o   s a v e   ' ' ?   F   ' '   h a s   e r r o r s !   D o   y o u   w a n t   t o   s a v e ?   P   ' '   w a s   n o t   c h e c k e d !   D o   y o u   w a n t   t o   s a v e ?   F   D o c u m e n t   c o n t a i n s   n o   s y n t a x - e r r o r s !      D O C P A T H =      SetShape  ^   ' ' .   D o c u m e n t   c o n t a i n s   e r r o r s !   S t a r t   c o r r e c t i o n ?   b   ' ' .   D o c u m e n t   c o n t a i n s   w a r n i n g s !   S t a r t   c o r r e c t i o n ?   $   F i l e   r e a d i n g   e r r o r   H   C h a n g e s   i n   d i s p l a y - m o d e   n o t   p o s s i b l e   B   C h a n g e s   i n   t e s t - m o d e   n o t   p o s s i b l e 	     U n k o w n   m e s s a g e !             E H S R e l e a s e     `   Y o u   a r e   n o t   a u t h o r i z e d   t o   c h a n g e   b a s i c   s e t t i n g s !   $   V a l u e   o u t   o f   r a n g e   .   E r r o r   o n   R F C   c o n n e c t i o n   f   U n s u p p o r t e d   p a r a m e t e r   i n   C a l l   ' w w i E L i b L a n g . L M s g B o x !      @             W W I         S         
   E r r o r      E      W      I      V 3 2      V   	      T o o l s O p t i o n s V i e w 	      T o o l s O p t i o n s E d i t   R	           F  `	           F  	           F&     H K E Y _ C U R R E N T _ U S E R \ S o f t w a r e \ T e c h n i D A T A \ W W I \ L a y o u t S e t t i n g s \ W W I C h e c k O p t i o n s   	           F     O K      E R R # # 6 1 0      W W I T E X T F L D   g	           F  h	           F  	           F  	           F  	           F  ^	           F     CheckLayoutFormat     CheckHiddenStyles     CheckShapeGroups     Jump     Delete_selected  
   Delete_all     M E T A C O L O U R      E R R # # 6 0 3      E R R # # 6 0 1      E H S _ R E P O R T   q	           F     E R R # # 6 0 7      P o s B e g i n      P o s E n d      D o c V i e w T y p e      Z o o m L e v e l      V i e w T y p e      E R R # # 6 2 3      E R R # # 6 2 4   ,	           F       w w i C h k      E R R # # 6 0 5      Insert     GetInputString  
   checkTable     InsertWWIText  
   InsertText     chkRiOfMark     posit     checkMarking     insGRP     InsertIt  ]	           F
      s y m _ o u t p u t _ t a b l e   
   C o u n t      I t e m      0 0 0 (   	           F  
   1 3 B N G      E R R # # 6 1 9      E R R # # 6 1 3   
   1 3 C N G      C N G      ) >      0 0 0 >   	     s y m _ i n p u t _ t a b l e      0 1      0 2      O N _ C H A N G E      S e n d C u s t o m E v e n t      0 3      D :      2 0      < 2 0      1 3      1 5          p           A      "      \ T a b l e   
   \ C e l l      w w i P P S H E      E R R # # 6 0 6      InsertWWIObject     E R R # # 6 0 8      1 1                       SelectionNotInEndMarker     E R R # # 6 0 9   
   1 1 B R G   
   1 5 B I F   
   1 1 E R G   
   1 3 E N G   
   1 5 E I F      E R R # # 6 1 1      #      check_symbol     E R R # # 6 1 2      S Z :      O      *      # #      E R R      E R R # # 6 1 8      M      S : F R E I   
   E S T D F      S : V E R W   
   E S T D U      S : C L A S S   
   E S T O F      Q : A U F T   
   E S T D S      E R R # 6 0 2      E I F      C I F      E R R # # 6 2 0   $   s y n c r o _ i n p u t _ t a b l e      Check     symbol     Get_Symbol_Format     Get_Head_Format     Fill_internal_table                        S e l I n f o      E R R # # 6 1 6      E R R # # 6 1 5   &   w i z a r d _ o u t p u t _ t a b l e   gĤIx  8<  gĤIx  8<    !      I        -	           F  S	           F                        < 1 3 B N G 0 0 0 ( + :      < 1 3 E N G 0 0 0 >      N u m C o l u m n s      N u m R o w s 	      T a b l e I n s e r t T a b l e   L	           F  P	           F  J	           F  N	           F     < 1 1 B R G 0 0 0 ( D ) >      < 1 1 E R G 0 0 0 > 	      T a b l e S e l e c t T a b l e      F o r m a t      B o r d e r s      S h a d i n g      T a b l e A u t o F o r m a t      T a b l e H e a d i n g s     M	           F  Q	           F  :	           F  <	           F  ;	           F  ,   w i z a r d _ s y m _ i n p u t _ t a b l e   .   w i z a r d _ h e a d _ i n p u t _ t a b l e      E R R # # 6 2 5   $   L a b l e _ o u t p u t _ t a b l e   r	           F  \	           F
      G L M _ M a s t e r _ F r a m e   	           F     word2000TextboxOverlap     word2000TextboxAlternativeText     word2003TextboxInCell     E R R # # 6 0 4   	           F  Q:#PMa`c6   Ea|B  4   S c r i p t i n g . F i l e S y s t e m O b j e c t      \ E x p o r t \      _      F o l d e r E x i s t s   `           F     N a m e      T h i s D o c u m e n t      . b a s      E x p o r t   0   M a k r o s   w e r e   e x p o r t e t   t o            H
              b h
           A l l C a p s            
           Main_on     Main_off                 
   L i n e s      T o o l b a r      S h o w      V i e w T o o l b a r s      C o u n t T o o l b a r s      T o o l b a r N a m e $      T o o l b a r S t a t e      H i d e      0   p t      U n d e r l i n e   
   c o l o r      S t r i k e T h r o u g h      S u p e r s c r i p t      S u b s c r i p t      H i d d e n      S m a l l C a p s        S p a c i n g      P o s i t i o n      K e r n i n g      K e r n i n g M i n      T a b      F o r m a t F o n t      FormatLabel  L   2 0 0 5   /   3 . 2   /   2 . 7 B   S P 1 6 ,   3 1   A u g u s t   2 0 0 7   H   H K E Y _ C L A S S E S _ R O O T \ W W I D O C U M E N T \ C u r V e r   F   H K E Y _ C L A S S E S _ R O O T \ W W I D O C U M E N T \ C u r S P 
      i n f o _ i n p u t _ t a b l e        :        W W I R E S 3 2 . D L L          E R R # # 6 1 4      O K # #      Start     DynText     SizeFont     SizeUp     SizeDown     IsOverflowing     UseOverflowing     removeEmptyParagraphs  
   isNonPrint     removeEmptyLines     isPrintChar               0	           F	  "   D i s a b l e A u t o M a c r o s      w w i D y n t e x t      D Y N T E X T S      R T F E r r o r      m i n   =          m a x   =        F o r m a t F r a m e      F i x e d W i d t h      F i x e d H e i g h t   X	           F  W	           F     changeDynText     checkDynText     D Y N T E X T   T   H K E Y _ C U R R E N T _ U S E R \ S o f t w a r e \ T e c h n i D A T A \ W W I \      D o c S t a t u s   +	           F  *	           F     T E X T F I E L D      E R R # # 4 3 3      D Y N T E X T # #      D Y N T E X T # # O K      E R R # # 6 1 7      GraphicInclude     w w i G r a p h i c     H        4       G R A P H I C S   
   c o u n t      G      F      S   	           F  	           F  8     {   e r r o r   i n c l u d i n g   d o c u m e n t          }        checkInclude     changeInclude     I N C L U D E # # O K      I N C L U D E # #      ( "      x x x      E R R # # 6 2 1   
   1 5 C I F      E R R # # 6 2 2      U s e r E x i t      M a c r o N a m e      Import     trace    6   I m p o r t   f i l e s   f r o m   d i r e c t o r y      I m p o r t   M a k r o s   (   I m p o r t   n o t   a c t i v a t e d      F o l d e r        d o e s n ' t   e x i s t         T          +=h8 +3q  N7mG)}  *=h8 +3q  Й[cK$I=DgC  !=h8 +3q     Class  Pgv3 +3o  
   VBInternal
  
         	   )                       Class_Initialize     Class_Terminate       . d o t . l o g      L o g   o p e n e d         HHH          p              a               c            L o g   c l o s e d         HHHH 6                                                                                                                                                                                                                        
   chSettings     chName     chValue     path     Sym     i_chVariable     i_chVar     i_chVal     chText     chR1     chR2     chR3     chR4     chR5  	   chVarName  	   strOldSym  
   addin_name     bInteractive  
   chUserExit  	   p_strText     p_strSubText     p_iBegin  	   p_strPath     nPath     nFile     chDir_     mode     nDefault     CmdNo     chGroup     chLine     chPath     chNew     file     lpLayout  	   lpStrFile     lpWWIini  	   lpErrFile     lpType     lpHeight     lpWidth     lpResult  	   lpValFile     lpBookmarkfile  	   lpTypeLng  	   lpRepType     lpString  	   lpChkFile  
   lpBkmkName     lpErrMsg     iErrLen  
   lpCompFile     lpInitString  	   lpDocPath     chFileNameRtf  	   chStrfile     chWWIIni  	   chErrFile     chType     lHeight     lWidth     lpLayoutFile     lpResultfile  	   chVersion  	   chChkFile     txt  
   chBkmkName     chErrMsg  
   chCompFile     Value     INIPath     phGroup     phraseNo     default_  	   nPhraseNo  	   chDefault     nTyp     nNr     p_chSection     chSource     chTarget     makro     fname     errno  
   chScanFile     symbol     style  
   bIsBarcode     nHide  
   doc_Colour     meta     Verb     colour     pfad     anfang     Ende     art     notEmpty     bAllowRowsOnly     bAllowFullTablesOnly     Beg     End_     Else_     bTextSelected     bIsEntireTable     LPath     bHidden     iColor  
   p_chNewObj     p_chInsertErr  		      Y                 sr
  '   Makro erstellt am 24.08.01 von Ambrosch     WWI.wwiIExportMakros.MAIN  
   chBookMark     nMin     nMax  		            (        
   wholeRange     refRange     p_range     t  	   directory  	I            8           func  
   checkpoint                                                            ThisDocument T h i s D o c u m e n t   wwiStartUp w w i S t a r t U p   wwiTextboxEdit w w i T e x t b o x E d i t   wwiScanLayout w w i S c a n L a y o u t   wwiDocPosition w w i D o c P o s i t i o n   wwiShowAndHide w w i S h o w A n d H i d e   wwiLib w w i L i b   wwiLibFile w w i L i b F i l e   wwiLibDll32 w w i L i b D l l 3 2   wwiClose w w i C l o s e   wwiLibText w w i L i b T e x t   wwiSyncroWordWithTree w w i S y n c r o W o r d W i t h T r e e   wwiDefineRGroup w w i D e f i n e R G r o u p   wwiEditSymPhr w w i E d i t S y m P h r   wwiInsCondTxt w w i I n s C o n d T x t   wwiInsertPhrase w w i I n s e r t P h r a s e   wwiInsertSymbol w w i I n s e r t S y m b o l   wwiNNGroup w w i N N G r o u p   wwiSymLOnOff w w i S y m L O n O f f   wwiXTextReset w w i X T e x t R e s e t   wwiXExportMakros w w i X E x p o r t M a k r o s   wwiSetEnv32 w w i S e t E n v 3 2   wwiEditTools w w i E d i t T o o l s   wwiLabelWizard w w i L a b e l W i z a r d   wwiBookmarks w w i B o o k m a r k s   wwiSaveDocument w w i S a v e D o c u m e n t   wwiVersion w w i V e r s i o n   wwiResolve w w i R e s o l v e   wwiOleDynText w w i O l e D y n T e x t   wwiOleGraphic w w i O l e G r a p h i c   wwiWizard w w i W i z a r d   wwiDyntext w w i D y n t e x t   wwiEditRepGroup w w i E d i t R e p G r o u p   wwiSerienNo w w i S e r i e n N o   wwiInitLocal w w i I n i t L o c a l   wwiError w w i E r r o r   wwiWordXP w w i W o r d X P   wwiInclude w w i I n c l u d e   wwiIfGroup w w i I f G r o u p   wwiLibLang w w i L i b L a n g   wwiOleUserExit w w i O l e U s e r E x i t   wwiXImportMakros w w i X I m p o r t M a k r o s   clsDebug c l s D e b u g   wwiWord2000 w w i W o r d 2 0 0 0   wwiWord2003 w w i W o r d 2 0 0 3                                           ID="{465AE0D8-D62B-43F0-9F43-C75FDE87E764}"
Document=ThisDocument/&H00000000
Module=wwiStartUp
Module=wwiTextboxEdit
Module=wwiScanLayout
Module=wwiDocPosition
Module=wwiShowAndHide
Module=wwiLib
Module=wwiLibFile
Module=wwiLibDll32
Module=wwiClose
Module=wwiLibText
Module=wwiSyncroWordWithTree
Module=wwiDefineRGroup
Module=wwiEditSymPhr
Module=wwiInsCondTxt
Module=wwiInsertPhrase
Module=wwiInsertSymbol
Module=wwiNNGroup
Module=wwiSymLOnOff
Module=wwiXTextReset
Module=wwiXExportMakros
Module=wwiSetEnv32
Module=wwiEditTools
Module=wwiLabelWizard
Module=wwiBookmarks
Module=wwiSaveDocument
Module=wwiVersion
Module=wwiResolve
Module=wwiOleDynText
Module=wwiOleGraphic
Module=wwiWizard
Module=wwiDyntext
Module=wwiEditRepGroup
Module=wwiSerienNo
Module=wwiInitLocal
Module=wwiError
Module=wwiWordXP
Module=wwiInclude
Module=wwiIfGroup
Module=wwiLibLang
Module=wwiOleUserExit
Module=wwiXImportMakros
Class=clsDebug
Module=wwiWord2000
Module=wwiWord2003
Name="TemplateProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="4B494A32C636C636C636C636"
DPB="C3C1C2BA3BBB3BBB3B"
GC="3B393A42B343B3434C"

[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDocument=66, 66, 792, 339, 
wwiStartUp=28, 165, 735, 566, C
wwiTextboxEdit=0, 0, 707, 401, 
wwiScanLayout=22, 22, 729, 423, 
wwiDocPosition=88, 88, 645, 602, C
wwiShowAndHide=146, 1, 898, 525, C
wwiLib=16, 21, 766, 637, 
wwiLibFile=61, 152, 796, 676, 
wwiLibDll32=66, 66, 773, 467, C
wwiClose=88, 88, 795, 489, C
wwiLibText=8, 50, 734, 711, 
wwiSyncroWordWithTree=44, 44, 670, 558, 
wwiDefineRGroup=132, 132, 758, 646, 
wwiEditSymPhr=88, 88, 714, 602, C
wwiInsCondTxt=220, 220, 777, 734, 
wwiInsertPhrase=0, 368, 867, 736, C
wwiInsertSymbol=0, 0, 867, 368, C
wwiNNGroup=471, 0, 942, 541, 
wwiSymLOnOff=198, 198, 835, 623, C
wwiXTextReset=154, 154, 791, 579, C
wwiXExportMakros=176, 176, 804, 647, C
wwiSetEnv32=176, 176, 722, 591, C
wwiEditTools=110, 110, 817, 511, C
wwiLabelWizard=146, 45, 853, 446, C
wwiBookmarks=154, 154, 861, 555, C
wwiSaveDocument=-11, 124, 696, 525, C
wwiVersion=88, 150, 795, 551, 
wwiResolve=0, 0, 707, 401, C
wwiOleDynText=530, 0, 1060, 613, 
wwiOleGraphic=44, 44, 751, 445, C
wwiWizard=66, 66, 773, 467, C
wwiDyntext=160, 244, 865, 724, C
wwiEditRepGroup=44, 44, 723, 626, 
wwiSerienNo=19, 99, 886, 564, C
wwiInitLocal=188, 35, 840, 533, C
wwiError=184, 185, 777, 673, C
wwiWordXP=0, 0, 651, 599, 
wwiInclude=88, 88, 808, 426, C
wwiIfGroup=393, 36, 864, 577, 
wwiLibLang=132, 132, 855, 470, 
wwiOleUserExit=22, 22, 702, 387, C
wwiXImportMakros=110, 110, 874, 392, C
clsDebug=22, 22, 742, 428, C
wwiWord2000=88, 88, 659, 446, C
wwiWord2003=110, 110, 681, 468, Z
             
  	           F   Microsoft Word-Dokument 
   MSWordDoc    Word.Document.8 9q                                                                                                                                                                                                                                                                                                                                                                   	@	                  bjbj5*5*                     W@ W@                                                                    :  b  :  b  -<      -<      -<      -<      -<             A<      e<     q<     y<      y<     <     A<      <     <      <      <      <      <      <      <      <      <     <      <      <      <      <      <      =  R  @      <                     -<      <                      <      <      <      <      <              -<      -<      <              <      <     <      <      <      <      -<      <      -<      <      <              <                                                      <      <              <              <      -<      -<                                                      k<     <      <      <     Jc        e<      <      <              <      <  0   <      <      @      <      @      <              A<      A<      -<      -<      -<      -<                      @              -<      <      <      <      <      <      <                                      <      <      <      <      <      A<      A<  $   e<              <      A<      A<      e<                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         . A!"#$n%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     C o m p O b j                                                                                         j                                                                                                                                                                                                                                                                                                                                                                              K e i n e   L i s t e                            @0                  (                                     @          `  0 @      U n k n o w n                                   G  z                  T i m e s   N e w   R o m a n   5                       S y m b o l   3&  z                  A r i a l   "  0                                                                                                                                                                                                                                                                                                                                                                                                0                                                                                                                           @P      ?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      