ࡱ                >  	               =          @          <   v      y   _	              <   bjbj                     *6  b  b  .                                                                                                                                  8   =     =           
%    (      (      (      (      (      \      \      \      >  M  $      $      $      $      $      $  $   '    )     $                           \                      \      \      \      \      $                          (              (  4  $                          \           (            (      >                                                                     \      >                        r   N  T                                                                                 (          CO                                *     $  0   
%           <*             <*                                                                                   <*                      l   \      \             \      \                                      \      \      \      $      $                                                                             \      \      \      
%      \      \      \      \                                                                                          <*      \      \      \      \      \      \                                                              \      \      \            :                                                                                                                                                                                                                                                                                                                                                                                                                                           AddIn fr MS Word zum Ersetzen und Vereinheitlichen von Datumsangabenfr 32-Bit-Versionen ab MS Word 97 (Word 8) Schreibbro Nora Richter 20082023, Version 1.4Riesaer Str. 245/24704319 LeipzigTel.: (03 41) 59 008 95https://www.schreibbuero-richter.deE-Mail: post@schreibbuero-richter.deDer Download des AddIns ist kostenlos zur privaten Nutzung. Mchten Sie das AddIn professionell nutzen oder Teile des Codes fr eigene Projekte verwenden, wenden Sie sich gern an mich. Die Benutzung erfolgt auf eigene Verantwortung. Es werden keine Garantien bernommen. nderung in Version 1.4: Bug in 64-Bit-Versionen behobenLaufzeitfehler 5560 Der Text im Feld Suchen Nach enthlt einen ungltigen Mustervergleich. behobenauch in englischen Versionen und in neueren Word-Versionen lauffhignderung in Version 1.3:Kleinere Bugs behoben.nderungen in Version 1.1:Unvollstndige deutsche Datumsangaben, z.B. 15.5.2008, werden erkannt.Ein Quellformat kann durch das gleiche Zielformat ersetzt werden (z.B. zur Vereinheitlichung).Kleinere Bugs behoben.Funktionsumfang: in Word-Dokumenten alle Datumsangaben suchen und durch ein einheitliches Format ersetzen lassen die Datumsangaben in markierten Dokumentbereichen ersetzen/vereinheitlichenDatumsangaben korrekt mit geschtzten Bindestrichen oder mit geschtzten Leerzeichen (je nach ausgewhltem Zielformat) versehen, so dass sie im Flietext am Zeilenende nicht getrennt werdenversehentlich falsche Datumsangaben, wie z.B.: 31.06.2008, aufspren und bei Bedarf korrigieren Benutzung: Im Bereich Quellformate whlen Sie die Formate der zu ersetzenden Datumsangaben aus. Es knnen mehrere Formate ausgewhlt werden. Bei langen Dokumenten kann es im Interesse der Geschwindigkeit sinnvoll sein, jeweils nur ein Format auszuwhlen. Im Bereich Zielformat whlen Sie das gewnschte (einheitliche) Format aus. Im Bereich zum Ersetzen knnen Sie auswhlen, ob die Angaben im gesamten Dokument oder nur im markierten Bereich ersetzt werden sollen. Mchten Sie die Angaben nur in einem markierten Bereich ersetzen, nehmen Sie zuerst die Markierung vor, ehe Sie den Dialog starten. Nach Klicken auf den Button OK beginnt der Ersetzungsvorgang. Ein Balken zeigt den Fortschritt der Verarbeitung an. Am Ende wird eine Meldung ber die Anzahl der ersetzten Datumsangaben eingeblendet. Falls Zeichenketten gefunden werden, die einem Datum hneln, jedoch kein gltiges Datum darstellen (wie z.B. 31.06.2008), ffnet sich ein Dialogfeld, in dem Sie entscheiden knnen, ob Sie die Angabe ndern oder so belassen mchten. Die Word-Datei Datum.dot ist eine Dokumentvorlage (Template). Einrichtung als globales AddIn:Mchten Sie die Vorlage beim Start von Word jedesmal automatisch laden, um sie immer zur Verfgung zu haben, kopieren Sie die Dokumentvorlage Datum.dot in den StartUp-Ordner von Word. Falls Sie den Startup-Ordner nicht kennen: Im Men Extras  Optionen  Register: Speicherort fr Dateien (in Word 97: Dateiablage) markieren Sie: AutoStart. Falls der Pfad nicht im Ganzen zu sehen ist, klicken Sie auf die Schaltflche ndern (in Word 97: Bearbeiten). Mit Klick auf den Abwrtspfeil hinter Suchen in: knnen Sie den Pfad sehen (in Word 97 ist der Pfad nach Klick auf den Abwrtspfeil hinter Ordnername im Ganzen angegeben). Wenn Sie die Anzeige der versteckten Ordner ausgeblendet haben, knnen Sie diese hier wieder einschalten: Windows-Button  Einstellungen  Systemsteuerung  Ordneroptionen  Ansicht: Unter Versteckte Dateien und Ordner aktivieren Sie die Option Alle Dateien und Ordner anzeigen. Word 97 bis Word 2003: Starten Sie Word neu. Die Symbolleiste Datum-Tool wird eingeblendet. Falls die Symbolleiste nicht zu sehen ist, knnen Sie diese im Men Ansicht  Symbolleiste aktivieren. ab Word 2007: Die Schaltflche Datum ersetzen findet sich in der Menleiste im Bereich Add-Ins. Mit Klick auf die Schaltflche Datum ersetzen in der Symbolleiste oder mit Alt F2 starten Sie den Dialog. Das AddIn wird bei jedem Start von Word automatisch geladen und steht sofort zur Verfgung. Einrichtung als AddIn zur gelegentlichen Verwendung: Kopieren Sie die Dokumentvorlage Datum.dot in den Vorlagenordner von Word. Falls Sie den Vorlagenordner nicht kennen: Im Men Extras  Optionen  Register: Speicherort fr Dateien (in Word 97: Dateiablage) markieren Sie: Benutzervorlagen. Falls der Pfad nicht im Ganzen zu sehen ist, klicken Sie auf die Schaltflche ndern (in Word 97: Bearbeiten). Mit Klick auf den Abwrtspfeil hinter Suchen in: knnen Sie den Pfad sehen (in Word 97 ist der Pfad nach Klick auf den Abwrtspfeil hinter Ordnername im Ganzen angegeben). Wenn Sie die Anzeige der versteckten Ordner ausgeblendet haben, knnen Sie diese hier wieder einschalten: Windows-Button  Einstellungen  Systemsteuerung  Ordneroptionen  Ansicht: Unter Versteckte Dateien und Ordner aktivieren Sie die Option Alle Dateien und Ordner anzeigen. Starten Sie Word neu. Im Men Extras  Vorlagen und AddIns klicken Sie auf die Schaltflche Hinzufgen. Im sich ffnenden Dialog navigieren Sie zum Vorlagenordner und whlen Datum.dot aus. Datum.dot erscheint jetzt in der Liste mit Hkchen. Bei der nchsten Verwendung brauchen Sie nur noch das Hkchen in der Liste zu setzen. Word 97 bis Word 2003: Die Symbolleiste Datum-Tool wird eingeblendet. Falls die Symbolleiste nicht zu sehen ist, knnen Sie diese im Men Ansicht  Symbolleiste aktivieren. ab Word 2007: Die Schaltflche Datum ersetzen findet sich in der Menleiste im Bereich Add-Ins. Mit Klick auf die Schaltflche Datum ersetzen in der Symbolleiste oder mit Alt F2 starten Sie den Dialog.                                                                                                                                                                                                                                                                                                                                                                                                                                                                        @  A  G  K  R  s  u                  	  	  	  	  2
  3
  >
  X
  
  
  %  &  ?  W  s            3  E    	              @  A          b      ;      >  ?                Ǻ߶ߨ  h3 B*h ph     hy  h<X  hgI hgI  
hgI NH  hgI  
h3 NH  hG _  	hgI 5	h3 5h3  
h CJ  
h3 CJ  h3 5CJ NH h3 5CJ  B     G  s  t  u          	  +	  ,	  <
  =
  >
  X
  Y
  y
  
  %  &  ?  @  W  r  s                                                                                                                                                                                                                                                                                                                                    gdgI 
  &d P       $ a$       $a$ s      2  3  E  F                 a    o  8  "  a  b      <        :                                                                                                                                                                                                                                                                                                                                                            gdG _   $        '  (  c  d          '  (  :        ;          E  F                     [  h        .  /  1  2  4  5  7  8  ;  <  4                                                                                                                                                                              h  h  j    h U	h3 5
hG _ NH  
h3 NH  h3  hG _  hG _ hG _ B*ph    .    :  ;    G  c  z  V    [    -  .  0  1  3  4  6  7  9  :  ;  <  4                                                                                                                                                                                                                                                                                                                                                                                    gdG _       / 
0&P	 . A!"#$n%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ^                                            6  6  6  6  6  6  6  6  6  v  v  v  v  v  v  v  v  v  6  6  6  6  6  6  >  6  6  6  6  6  6  6  6  6  6  6  6  6     6  6  6  6  6  6  6  6  6  6  6  6  6     6  6     6  6  6  6  6  6  6  6     6  6  6  6  6  6  6  6  6  6  6  6  h  H  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6    6  2                     0  @  P  `  p                   2  (         0  @  P  `  p                      0  @  P  `  p                      0  @  P  `  p                      0  @  P  `  p                      0  @  P  `  p                      0  @  P  `  p      8  X        V  ~     _HmHnHsHtH    V  ` V          S t a n d a r d      $a$$ CJ OJ QJ ^J _HOaJ mHsHtHd @  d           b e r s c h r i f t   1     $$ @& ^a$ 5>*OJ  QJ  \ j @  j           b e r s c h r i f t   2   *  $ 7S@@@8 @&^8` >*OJ  QJ   l @!  l           b e r s c h r i f t   3   )  $;dh    @&^`;a$  6CJ ]aJ             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  \       0 N o r m a l e   T a b e l l e     :V   4   4 
l a      0 k  0        0 K e i n e   L i s t e         :    :         	 K o p f z e i l e      p#   8    8          F u  z e i l e      p#   b 0@ b          A u f z  h l u n g s z e i c h e n   #  $ 
& F e ^e`a$    D O "D          
 N o r m a l t e x t     $ dT  a$  OJ QJ > B@ 2>         
 T e x t k  r p e r     d   OJ QJ @ /@ B@          L i s t e     
& F d  T  OJ QJ PK     !         [Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,3;rØJB+$G]7O٭V<a(7IR{pgL=r85v&uQ뉑8CX=$␴?6NJCFB.ʹ'.+YT^e55 ð_g -;Ylݎ|6^N`?[   PK     ! ֧   6     _rels/.relsj0}Q%v/C/} (h"O
= C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/Seе   PK     ! ky         theme/theme/themeManager.xmlM
 @}w7c(Ebˮ CAǠҟ7՛KY,e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+&
8   PK     ! `       theme/theme/theme1.xmlYOoE#F{oc'vGuرhR-q;ޝfvg53NjHH8PTj%.H
]k9o7!)O^rC$y@/yH*񄴽)޵߻UDb`"qۋJחX^)I٘+*¥@#Zmu)4Pc{ቒzgb
ppP9]&!fmthH)1,<h{5-m\]&-뛿l_!8X6:E8*֕B05z^g UkKYfV2K q^v֬5\|IʜͭNleXd?6k沃7 onwůWZo@Z'Ϥ1gە52PV1ZXl1Eɰ	RӔ%HP5uKO/疴2$}AS>L1Lg?|z|d9qw}|틇_Veۏ@蟙9ϿzϿV7Cn#cpDŵv#L;6Pk-{*r7eq7Gc E+4߈b9pQZW)IV+2n*]8MR`μ,ǻqc8Q8$	QH?TxwR'\Bw(`Z!94۴Mc˴gȷۨY[EBW`Va0'DJǬ*#Sq= !aϴH@YieE
Ed`-~ЍpVa4(F{\Uw!;'}'ݧ-:&
D?(^'ܩ11TpuL"nF#n<mM8zfQ/.}yO=1ߧ9{yr^O3ֳ/ǔ2#-	7&)aiu+
l TE0=-$PK.JͦXX.Q1VN+ZΪlJ&|{eumԙՍim:^!/\"0  ʫpתᶃ	tm,\ddH=IR^+sh?l1)Q+iki,I*k,PguW,K d;ܜ,AGm\nziE>)d]A^5Jز?Mϲs/?lvx Rma0`d_nBX/ʁ
6:+kPo
Z2_]Zѱ_3*E 
ЈM>R*}ahG.9gMW~'fpv4;!6o%JۍswŴR.+<+΀/FS*BiDpTPTz/ȡanjHP8T$Z2wzvvY,d*dL#rHPs>=A6hN֟=Qr9LV638h&T-;ƬFtEyZƚxY(HH>#:~ l/i#-&-ʆ6t'B`kΒs\uN/^d;kC=٢4o2&1GY|t?L*a>֍   PK     ! ѐ     '   theme/theme/_rels/themeManager.xml.relsM
0wooӺ&݈Э56?$Q,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{ P8g/]QAsم(#L[    PK-      !                       [Content_Types].xmlPK-      ! ֧   6               0  _rels/.relsPK-      ! ky                     theme/theme/themeManager.xmlPK-      ! `                   theme/theme/theme1.xmlPK-      ! ѐ     '             	  theme/theme/_rels/themeManager.xml.relsPK      ]  
    <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>    <    *                 	                                @                                @             H               0    (    	                    
                        0    (    	                    
          B    
        S              	   ?                 =  C  x  }  {
  
  
  
  "  )                          .  0  1  3  4  6  7  9  =                                   @"  Haw5  dFdL  N>                                          h h^h`OJ QJ o(                        '   ^`5 6 CJ OJ  QJ  ^J  aJ o( h    H   /                         ^`OJ QJ ^J o( h    H   o                        p p^p`OJ QJ o( h    H                          @ @^@`OJ QJ o( h    H                           ^`OJ QJ ^J o( h    H   o                         ^`OJ QJ o( h    H                           ^`OJ QJ o( h    H                           ^`OJ QJ ^J o( h    H   o                        P P^P`OJ QJ o( h    H                          e ^e`56 >* CJ OJ QJ o(    .                         e h^e`56 >* CJ OJ QJ o(   .                        ; ^`;56 >* CJ OJ  QJ  o(   )                        `p `^``p (  )                          P ^`P  )                         P ^`P  )                         ^`  )                         P ^`P  .                        0p 0^0`p  .                         e h^e`5 6 >* CJ OJ QJ o(    .    Haw5                        N            dF                                                      E2< Z< gI G _ K
` ?!{ CE "B 3 4 <X Y vN   J - y % |     .  0                q    |    V |  1*         1*  V }  1*         1*  V ~   1*         1*                    
 D a t u m - T o o l             
D a t u m - T o o l S   S   S   S   S        k      ( D a t u m   e r s e t & z e n   ( A l t   F 2 )  B e g i n n   D a t u m   E r s e t z e n       D a t u m . B e g i n n D a t u m E r s e t z e n     (                                                                                      www  www  w  ww  w                  p   (                                                                              5 D a t u m T o o l . D a t u m . A l l e K o p f U n d F u s s z e i l e n F u e r I n h a l t T e s t e n          # D a t u m T o o l . D a t u m . B e g i n n D a t u m E r s e t z e n      ' D a t u m T o o l . D a t u m . R e p a r a t u r S u c h e n E r s e t z e n   | # D A T U M T O O L . D A T U M . B E G I N N D A T U M E R S E T Z E N   } ' D A T U M T O O L . D A T U M . R E P A R A T U R S U C H E N E R S E T Z E N   ~ 5 D A T U M T O O L . D A T U M . A L L E K O P F U N D F U S S Z E I L E N F U E R I N H A L T T E S T E N   @                                <     @      U n k n o w n                                   G  * Ax 	             T i m e s   N e w   R o m a n   5                       S y m b o l   3.  * Cx 	             A r i a l   5                       M a n g a l   O2                                  A g f a   R o t i s   S e m i s a n s   ?=  	* Cx 	             C o u r i e r   N e w   ;                                W i n g d i n g s   A   $ B              C a m b r i a   M a t h   "  q    @m         	  %       (   	  %      (                                                                                                                                                                                                                                                                                                                                   0              #  #      B                                                            KQ                         HP    	 	$P    G _    2                     !                             x   x                                   D a t u m   e r s e t z e n   -   A d d I n   f  r   W o r d        N o r a   R i c h t e r  i c h                                       ^                                            6  6  6  6  6  6  6  6  6  v  v  v  v  v  v  v  v  v  6  6  6  6  6  6  >  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6     6  6     6  6  6  6  6  6  6  6     6  6  6  6  6  6  6  6  6  6  6  6  h  H  6  6  6  6  6  6  6  6  6  6  6                        Oh +'0   x                                                    	              @     L     X     `     h     p              Datum ersetzen - AddIn fr Word                 Nora Richter                              datum.dot         ich       31        Microsoft Office Word   @    $,23@    x9         	     %                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ՜. +,0           h      p      |                                                                           (            #                                             Datum ersetzen - AddIn fr Word            Titel                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         	   
                                                                     !   "   #   $   %   &   '   (   )   *   +     -   .   /   0   1   2   3   5   6   7   8   9   :   ;   >   ?   E   V  B   C   D   F         H   I   J   h   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   [   \   ]   ^   _   `   a   b   c   d   e   f   g   G   i   j   k   l   m   n   o   p   q   r   s   t   u   w   x   y   z   {   |   }   ~         R o o t   E n t r y                                                 	           F            2FOA   ?      1 T a b l e                                                                                             B      W o r d D o c u m e n t                                          	                                           *6       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                                     4          M s o D a t a S t o r e                                          9                           <O <O             E E  3 M O  K E S 1     P     A = =                 2                         <O <O            I t e m                                                         
                                                   P r o p e r t i e s                                                                                      U      M a c r o s                                                             !                        <OCO            V B A                                                            8                           <OCO            T h i s D o c u m e n t                                                                                    
                              	                                                                   "   $   %   &   '   (   )   *   +   ,   -   .   /   0   1   3   4   5   6   7   8   9   ;   =   ?   @   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O   Q   R   S   T   V   W   X   Y   Z   [   \   ]   ^   _   `   a   c   d   e   f   g   h   i   j   k   l   m   n   o   p   q   s   t   u   v   w   x   y   z   {   |   }   ~         <b:Sources SelectedStyle="\APA.XSL" StyleName="APA" xmlns:b="http://schemas.openxmlformats.org/officeDocument/2006/bibliography" xmlns="http://schemas.openxmlformats.org/officeDocument/2006/bibliography"></b:Sources>                                        <?xml version="1.0" encoding="UTF-8" standalone="no"?>
<ds:datastoreItem ds:itemID="{743641B0-B0C3-4428-9BE2-CEF53EECFBF0}" xmlns:ds="http://schemas.openxmlformats.org/officeDocument/2006/customXml"><ds:schemaRefs><ds:schemaRef ds:uri="http://schemas.openxmlformats.org/officeDocument/2006/bibliography"/></ds:schemaRefs></ds:datastoreItem>                                               <       j  x             #               <   ~9Dr
	           F                   <J               x   <J⋊~9Dr
    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           @        0   f+ $ * \ R f f f f * 0 G 6 5 b d 0 4 b 0      4                                                                         	        x   p     İ 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2Option  /licit 

      rU                    	       	                          9	      a	      	      	        4   	      a      	        _ _ S R P _ c                                                                                                   _ _ S R P _ d                                                                                               !   B       D a t u m                                                                                                    K   h      _ _ S R P _ 3                                                                                                 "        `                                              rU                    	          @          n                                                                    rU                    	              $          `           $         `           <         `                                 =      00<         `                                 =      000 !       `     1 e  * \ R 0 * # 1 f    * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 4 4  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 5 5     $ * \ R f f f f * 1 6 6 6 b 9 1 4 c a  * \ R 0 * # 9  * \ R 0 * # 1 3  * \ R 0 * # 1 6  * \ R 0 * # 1 4  * \ R 1 * # 1 5 6  * \ R 1 * # 1 3 8  * \ R 1 * # d b  * \ R 1 * # 4 5  * \ R 1 * # 4 2 $ * \ R f f f f * 0 K 6 5 b d 0 4 b 0  * \ R 1 * # c b  * \ R 1 * # b 5  * \ R 1 * # d 7  * \ R 0 * # f  * \ R 1 * # 1 e  * \ R 1 * # e 8  * \ R 1 * # e 7  * \ R 1 * # e b  * \ R 1 * # b 6  * \ R 1 * # c 6  * \ R 0 * # 1 7  * \ R 4 * # 5 0  * \ R 4 * # 4 d  * \ R 1 * # 2 1  * \ R 1 * # d 6  * \ R 1 * # 1 2 9  * \ R 1 * # c 1  * \ R 1 * # 1 7 b 
                                                           '          	                           8    	       @   (   	      	 h   P    	     "       	 \       	 ,       	      $ P    c `    & x         <                         &                  (     0   	       8  "   @   	 F   H   	 ,      	      	 :             	     	 &       / @   	 0   X         +    	 <                
     	 .   (     X    + p             
     
     	          	     "$      	 6      	 H       	 V   h   	 R      	                   	        (   	        8     H     `   	 N   p   	 4      $ M        9        N>           ^	                                                                                        x                                       ME                   T            (LN   (LR   8L\   1L      )L    )L    (L   ",    >
    <     <$     <(     <,     <0     <4     <8     <<     <@     <D     <H     <L     <P                 L        L        "             L        L    L    L              
    L         L             L    L    L         L        L    L        *L    L    L        <     <     <     <     <     <      \  n y        h4  *X  
  H            
 yyyy-mm-dd    d. mmmm yyyyd ,      `              k     
     J(    `              Lk          Lx          %    Pt             %    Tp             %   `0    `              k h   7 7 8    )b           % na %   id          Pif            6ih          jx          %    l  t(      HA@  %   H    `               |k p   3 3 o    )b           p   %   id          sicif           szeiih       % na jx      hie/  %   `v     vari`p     , Ko+r    `            X  k           i         L )          opfz  %   `r     ten t    `              Tk (         id     H    zeic)j h      p    \(  %   ih       ( Al`x     chniP    `              k          )j              %   ih          xH           %   P    `            P!  ,k          id          und)j           P mu %   i         mehrih       den  x0      . Me  %   `v     C. FP    `            #  Dk    ! !     i           ji           i       elle x      en e  %    t(      . Di  %    pH      erei  %   +p  	  `            &  o    	 " "    i             ji           gleii,              i<          `F         `D         `  B         `'  8         +`	  
  `            (  k    
 r r 5   i            `t         `p         `l         `h         `
f         `	  d         +	    `            p+  p+ 	    ( (    i           ` v         "
    `            p,  k  
 
     +    `            -  Dk X
         i(            *t
            %   &
  (   H             (    8   H            
 dd.mm.yyyy   %   i            %   `x     
    %     %   $ x               %   `t      p
       .<@F J        %   P  p     P  P  
  
        `	  H   X    
  H  (  	    0    %     %   ꀲ         @        +  `            x/  ho      4 4    `              @x  x	     @t	       %    p  `         %          @  `        @  P        @(  @        @@  0        @X           @p          @           @          @          @          @          @           @          @0          @H          @`  p        @x  `        @  P        @  @        @  0        @           @          @           @           @8          @P          @h          @          @        @        @                8  h    P    V            @  l	        @h	        @  d	                  @  `O	                   @  \	        (    
      @`  XO	        P    
      @T        x          @  P	          `        @LO	                                        h    p            @  p	        rtx     @  `     (   @  \	        @   X	        @T       @  P	        @0  L	        @H  H	        @`  D	        @x  @	        @<	     (   @  8        @4        @  $        @        @        @            0      p  (    8       @        @l	         h  `         %                 @P  X        @h  H        @  8        @  (        @          @          @          @          @          @(          @@          @X          @p          @          @  x        @  h        @  X        @  H        @   8        @  (        @0          @H          @`          @x          @          @          @          @          @        @        2       t     eeee@     8   @     @|               H  0               %    t@     eeee@        tH              t           tH     (   `rz    0    tP         t                 @l	         h  `                      X     @`  X        @x  H        @  8        @  (        @          @          @          @          @           @8          @P          @h          @          @          @  x        @  h        @  X        @  H        @  8        @(  (        @@          @X          @p          @          @          @          @          @          @        @        @     (  p    H           @t     (     %     @d        @T         0      x   H     @   t     `  V      @   @    p	        @0   l	        @   h        @`   d	     p   @   T        @P	     @   @   @        @   <        @   8        @!  4     X   @$     @   @        @ !          @8!          @           8      p"  !  "  "  "   "  "  8"  @p	        @l        @H"  h	     	 `"   "  	      @dO	       #  H"  	    @"  `        @\     @         %     @"  L        @<        @,     H"           0      #  H$  #  #  $  ,V`  @   @#  l	        @$  h	        @ $  d	     	 8$  #        @(%  `O	      x$   $        @\         `($  h        $  (%         `X        @%  %         `H        @$  X	        @$  T	        @%  P	        @L	      @%  H	        h%  %     `%  h     $   `X    @DO	          %   `x%  h    %  '    `X    `&    `H     &  `H       `&  h       `X       '  '         `H          @  (  (  '  X  P(  (  (  h(  '  8(  %  `8%  h     `X      `H    `%  h     `X    ((  '     `H     `z       `'  h       `X       `H    X   (      0	       @4	     @0     @(          @(       @      @     H	        )  0	   	  (*  )  *  X*  )  *  )  0+  )  `z     )  )     )            @p*  `        *  )        @*  P        @*  @        @@*  <     X   @8        @6        @0        *  p*     @*           @X+          @      @+         +  *  *    @        +  U      )       p   %     @     	  ,  	  H,  ,  (,  `x    8,  ,    `,    @p     H,   @-  (-  -  $d-  @   @X-  l        @p-  \        @-  L        @-  <        @-  ,     @-       @     @     X
  .  x
  `/  .  /   /  H/  .  .  0/  .  `z       .  .      .      p%  `   .  	     @l	       @\       @L      r      @J     @D       (       0  3  h0  0  0  3  3  0  0  P0  00  `z    @0  0     1       Vd0     @0  l	        @0  \        @0  L        @ 1  <      @81  ,      @(	       $H+  `    0      @P1          @h1          @1          @1          @1          @1          @1          @1          @2          @(2          @@2  t        @X2  d        @p2  T        @2  D        @2  4                   $  @2  $     @2       @ 3       @3       @03       @H3       @`3       1  @3       @ @3       1  @     @     ,w@     @|         3  @ 4  x         @4  t         @04  p         @H4  l         @h         h3               H   
    X  P                   f+  * \ R 1 * # d 4  * \ R 1 * # d 4 $ * \ R f f f f * 0 H 6 6 b 9 2 5 3 b  * \ R 1 * # d c  * \ R 1 * # 1 3 9  * \ R 1 * # e 4  * \ R 1 * # c a  * \ R 1 * # 1 5 5 $ * \ R f f f f * 0 I 6 5 b d 0 4 b 0  * \ R 0 * #         0     H   	 *   X   $ M                        	 P      	 4         X   	 .   h    &    	 P      	 J    	   8  P	   	 6   	   	 (   	    ! 	    ! 
     (
   	 F   0
   	 P   x
   	 P   
         1 (    ! @     `     p     x                       	           	     "$      	 R      	 P       	 T   p   	 b      	 `   0   	                        	          	                
    
                                     [            (     0     8     H     X   P  p                                         (     @     H     P     X     h     x                  	          	     B  	    	            	            
    
                     a         	            	           	     "      	 H   (   	         p   	        x                                                     	           	     "       	 >   (   	 0   h   	           	          	 J      	 X       < d X   Z          	           	     "$      	 L   (   	 $   x   	                  	       '               9     B      (   :  8     x        
     
      3               3         	                 	           	     "      	 :   0   	 <   p   	 ,      	                       	       (   	      /    	 F      	 8   X        & o     #     !    2       (   
  0     @   .  H     x        .          
     	      
    	          	     B (     	 T       	 Z   x   	 L      	      
   (   
   8   
   H   	     
   X   	       h   	     
 
 p   
 
    
 
    	      $          $     $     $     $            (     0     8     @     H     P     X   	       `   	     B   h   	 B   p   	 H      	                                         (   	       0   	       8   	       @    @ P     h     p     x   	           @                   	      8    F 9      (    8 0   D 9 P        	 ,      	 0      	        	     D       X     p   2                                   2      * * 8   6  h   $ *                        * *      H   	 2   h        	                 @                  	       (    	 2   0      h                            $ $     ( $        !   	 $   (!     P!     X!     `!   	    h!     !     !     !     !     !     !     !     !     !   2  "   6 K @"   6  x"   $ * "     "     "      #      #   6 K (#     `#   	 4   h#     #   	    #     #     #     #   	       " #      $    	 $     $   	       $   	     B    $   	 6   ($   	 H   `$   	 2   $   	         $   	       $     $     $     %     %      %     (%     @%     H%     X%     `%     p%     x%     %     %     %     %     %     %     %     %     %     %     &     &      &     (&     0&     8&   
 
 @&   	        P&   	     "   X&   	        P+   
  `&      +   V + h+     +   	        p&   	     B   x&   	 J   &   	 B   &   	 .   '   	        H'   	     
 	 P'   	      	 `'    ' h'     p'     x'   
  '     '     '     '     '     '     '   	     
  '    
 '   	        '   	     B   (   	 (   +   	 <   +   	 @   p*   	         8)      @)      H)   	       0)   	     ,  @*    1 `)   	        p)     x)    
 )   
  )     )     )     )    a )     )   	       $ )    $ )   
  )     8*     X)      *   H ~ *   	 $   +   
  *     *      *     P)     )     (*     0*   	      	       ()   	      	    '   	    '   	 H    (   	 B   H(   	    (   	    (   	    (   	      	      ,  x   ]$ 
 yyyy-mm-dd
   ]$  d. mmmm yyyy
  ]$ 
 dd.mm.yyyy    e    a  Benutzt das Modul Word97VBA5 sowie ReadUntil und MsgFenster und ReSetBookmark im Modul Allgemein H       V Der Sinn dieser Prozedur besteht nur im evtl. erforderl. Zurcksetzen der Suchfunktion    % nach C. Meister/J. McGhie/P. Jamieson  P  .! 0    4  ?  6C@2    < :  .B@8    5 >   9 D  @% B B@2    {ENTER}  \ HA@F  C -  {ESC}  \ HA@F  0   :A@     k     < :  .B@8      * 9 4     9 dq p  A J    o `         ? stellt sicher, dass alle Kopf- und Fusszeilen bearbeitet werden  g  % nach C. Meister/J. McGhie/P. Jamieson  *    4 Objektvariablen fr Abschnitte, Kopf- und Fusszeilen Templ]          *     Durch alle Abschnitte schleifen  s   L   V! X V  ) Alle Kopfzeilen des Abschnitts bearbeiten    P   L! Z         P! \! d         6 Falls die Kopfzeile leer ist, ein Leerzeichen eingeben Z      P! \( d     k      P       ( Alle Fuzeilen des Abschnitts bearbeiten    T   L! ^ p   T! \! d              T! \( dq   k      T    Dd   L     o           (     0 Diese Prozedur macht die Arbeit Suchen/Ersetzen,   B abh. vom Zieldatumsschalter, vom Range und vom Quelldatumsschalter  P muss mehrmals aufgerufen werden, wen                                                                                                                                                                                                                                                                                                      p                                q                                   n mehrere Quellformate ersetzt werden sollent   L nach C. Meister/T. Gahler/P. Jamieson/C. Fredorf, 2 kleine Fehler bereinigtf  ]   ]      b! p. jl   f  j$ r b   d  j  hA t o n B   x  j% v    G Die Suche in einer Tabelle erfordert, die Zellen einzeln zu bearbeiten. s   . Die Suche im aktuellen Zellenbereich ausfhren        j% z ! \!       j(  M o   f  j$ r b   d  j  hA t P r o   x  j% v    $ Weiter in der gleichen Zelle suchen.y l e     j% z ! \!       j(  s \ d   x   k        J Wenn die Suche innerhalb der Tabelle erfolglos war und der Ergebnisbereich  - sich noch immer in einer Tabelle befindet ...     x  j% v    ( ... und nicht in der letzten Zelle steht       j% | . lx s   J If Not rngErgebnis.Cells(1) Is tbl.Range.Cells(tbl.Range.Cells.Count) Then  C 1. Fehler: Obige Bedingung greift unerklrlicherweise nicht, daher: A R T     j% z ! \  l! \! z! ~  l! \% z ! \    0 If Not rngErgebnis.Cells(1).Next Is Nothing Then=   ! ihn in die folgende Zelle setzen,       ~  jB@ 0 6 1        ~  jB@ \ P d p    ? sonst den Bereich bis ans Ende des Ursprungsbereichs erweitern. z   I 2. Fehler: Der Bereich muss sauber erweitert werden, Fehler trat nur auf,   J wenn nach der letzten Fundstelle noch weitere Zeichen in der Zelle standen    jB@8 T   $      jB@       ~  jB@ 0 C 5   b!    j(  k (  k    d     b!    j(  k       o           0  \   K Die "alte" Prozedur jetzt nur noch fr markierte Bereiche, die eine Tabelle t r o   I oder Teile davon enthalten. Die Markierung wird zuverlssig abgearbeitet.   N Leider kann diese Version nicht identische Quell- und Zielformate verarbeiten,ѓ  [ weswegen fr das ganze Dokument die neue Prozedur DatumInEinerStoryErsetzen gebraucht wird.   !  Z Zur Not muss sie zweimal aufgerufen werden, um zunchst ein "Zwischenformat" zu verwenden.]   ]   ] 0     b! p. jo _     j! 0 \ C C@    5 B@  b o n   f9 d9     9 9 4   9    9   C@2    5 >' q p         j! d' s e   $   o n   d  j    hA      b!    j(   3 9 verschiebt Ende des SuchRanges an Ende des Eingangsranges   j! d          |    k    d      $      d  j    hA  m   b!    j(    j! d        h  | X   k P   d H     j  hA  0   b!    j(  k     k    k         o     H    ]     ! 0     C@    5 B@          9 d  9 9 4  5 2' q     ' ri                    B Einen gefundenen String auf Datum oder verneinende Bookmark testen]     j! d' dv   $   $     d  j    hA    d     $   #$  d  j    hA    d     j  hA      jB@8  k   k   o         8  damit der gleiche String nicht mehrfach abgefragt wird,    )  da die Prozedur mehrfach aufgerufen wird ] 0    h   ' h    D  Eigentlich gibt's hier nichts zu zhlen, es wird ja nichts ersetzt,        Q  da der Zhler aber Bestandteil des Hilfsmarkennamens ist, muss er erhht werden.       	 DatumNein   h    j \  V! %  .           !   j! d    $     $$$    j! d    j! d    $    A           ! \. j  o           P       E Ist der String als gltiges Datum identifiziert (bzw. dazu gendert),         wird das Datumsformat ersetzt     ]   ] 8    j! ! ~   
       '         j!          ! \! d   j! d         !   X  d$   A       ! \. j  '  # - um geschlossene Bookmark um Datum zu erhalten       y    k                           X  d$     j( dk 
  d 
    X  d$     j( dk 
      jB@8     h   ' h  o 
        P          4 Datum ersetzen in allen Stories des ganzen Dokuments        5 reicht Quell- und Zielformat durch an die StoryRanges       % nach C. Meister/J. McGhie/P. Jamieson     ]   ]   ] 0        V!          ? handelt es sich um die normale Kopfzeile des ersten Abschnitts,     2 werden alle grafischen Objekte mit Text bearbeitet  !               V% X % Z !      ! !       ! ! .                b   d   f   hA `       k h             k P         b   d   f   hA `     !     b          ! .          b   d   f   hA `                   . o     	    P   4  Date) As Boolean  N  Quelle: Diese Funktion stammt von Angie/Jrgen Beil, www.VB-Fun.de, Tipp 0447      S  mit einer Modifikation in der Deklaration, damit ein String bergeben werden kann,         F  der eben kein Datum darstellt (um ihn zu prfen, was ja der Sinn ist)    ] D         ] D(         ] D@         ] DX           (    X'         X'         X'         !            $  '     !        $              $              $              ' '   k `  k X  k P  k H  k @    8  i 0  p       <  bereinigt den String um Sonderzeichen und zerlegt das Datum         A  danach wird es zuverlssig geprft, gibt True zurck, wenn Datum ]   ]   ]  	  ] 	  ] 0	  ] H	   '      '     $     0 $   9 $  L T S (  z    n       $    0 $   9 $  L T S   z   n         $      
          $    - $  '  2 ! geschtzte Bindestriche entfernen   k h        $      
          $      $  '  2   geschtzte Leerzeichen entfernen    k      %     If InStr(1, strTmp, " ") > 0 Then        )         strTmp = Replace(strTmp, " ", "")    
     End If  $     1 deutsche Form mit Punkt ist als einzige numerisch           .    ' 
  
   
          
   $   '  2  Tag vor dem 1. Punkt          . $  '             R T  '   z         R T     $  '  3  Jahr ist letzte 4 Stellen           
           
 $   '             R T  3   Versuch eines 2-stelligen Jahres            $     0         20    $   '       d      19    $   '       k        
           
 $   '       S  4  Monat liegt dazwischen    +    MsgBox "Das Jahr muss vierstellig sein!" n   z       bzw. weitere Reaktionen  n   d    '  # 4 falls im numerischen String KEIN Punkt enthalten istz x  k p  d h    , *** Datum enthlt Bindestrich, also DIN-Forme n u       -    ' 
  
   
  h T     $   ' s d :     - $  ' x s      
  e n              $   ' > <     
       
    $   ' d p       MsgBox "Kein gltiges Datum": c z @  k 8  k 0     *** Datum Langform      .    ' 
  
   
  l e     
   $   '       $  ' n           R T  '   z         R T     $  '  3  Jahr ist letzte 4 Stellen r e f     
           
 $   $  $  ' d       R T  3   Versuch eines 2-stelligen Jahrest           $     0   y p   20    $   ' n a m d     19    $   ' x s d k p      
           
 $   $  $  ' r S 0    -      MsgBox "Das Jahr muss vierstellig sein!" s d z       bzw. weitere Reaktionenn n   k   k     X   X   X   $   " '     '  k   i x  `	       /  soll einen String in eine Monatszahl umwandeln e    B  Month-Funktion geht nicht, weil die bereits ein Datum voraussetzt   +  und bei 31. Februar Laufzeitfehler bringt! o g g ] 	     '        JanuarK T T   '    Februar K T   '    MrzK   Maerz K T   '    April K T     '    Mai K T k B   '    JuniK T C T   '    JuliK T > <   '    AugustK T t   '   	 September K T   n a  	 '    Oktober K T  
 '    NovemberK T   '    DezemberK T   '  S h     '  n X     X '   n a i @  	      $B@&    t y o    
      D ruft die Userform zur nderung eines Strings auf, der kein Datum ista m e   < gibt True zurck, wenn in ein gltiges Datum gendert wurde,l a r   ' sowie das genderte Datum (wegen ByRef) e ] x
     . *= " g   *   (9 .C@&    A@     5 0   e r y  '   d   5 2' ('   k   q     *A@r n a m   . *i       Sub AutoExec()M e           A     If Application.CommandBars("Datum-Tool").Visible = False Then    <         Application.CommandBars("Datum-Tool").Visible = True/ x s    
     End If           End Sub e   X   (  A ,    )      ] X   % 1 zur Unterscheidung zwischen engl. und dt. Version i        '   ] (  ]   ]     ' '      V! \.     @(    ! 0     C@    5 B@  c  9 d  9 9 4  5 2' q '    !        !      B@|        '   d '    B@|      k X'  d P'  k 0'         '   ([0-9]{1,2})'  '  dient nur zum Test-     :  und wegen ByRef die Version deutsch = 1 oder englisch = 2  !        !         in fktDeutschOderEnglisch  A@d X&  d P+  k H+     6  gibt True zurck, wenn der die Variable gefllt wurden A@  $    *   K Unvorhergesehener Fehler beim Versionstest, Datum ersetzen wird abgebrochen A@d   +     !  deutsche oder englische Version?     jegliche andere Fehlermeldung    +    ݷ Attribut e VB_Nam e = "Dat um"
Opt ion Expl icit

Pub , Con st ctDI@N As S n
g~y  -mm-dd bLo P
dd. m   :4Deutschjdd.mm.5intVers Word1Int eger  'zPur U r Neidu Fzwi n engl.  und dt. "|' Benu tzt das @Modul .9 7VBA5 so wie Read	,il MsgFe ;(ReSe tBookmark im"All@gemein2SDub "par r SuchenEr setzen()
_D'Sin@n diesP rozedibesteht n /evt eerf	er Zurdck& d" 0funkynaX@C. Mei r/JcGhie/P. Jamo@*"CWith@ SelecA.0Find.ExecAMatc hWildcar ds:=True, Text:x="?@}A GC ollapse Dir:=wdaEStar@I f Not .F:oA[TN"Co mmandBars) trol( ID:=313)+KSendKeyŷ*{ENTE R}", Wai'.2SCYDo@EventsEـIf4E.K^False.0v0a:#Call  TeKopf UndFussz eilenFue rInhaltT3NaB
@X
XtZMlltH si`^r,ls e !-i  bearbei tet werdjeDR'WsW' Objektvariab@ fr Ab nit.tSQCDkoSCRD, oH@@k#Foote} o		 'Duro leifeFor EtIn AoveDocumH.I'1b)7sgs*$)f'#  .C(!@pL`: .RangeL) L0 orŁ' Rls  le(@,  < Lgeb!e Z (!aT	kN 60%Fu%a %D=%C%%"I  #"#<#<}InE inerStoryhByRef 8rngCja-, >_
O st`rZielS.QuelSal  lngZaehlve0y@;Lvu ]um@7`~AG /5,'abh. vom ds <Ra@qM bkmuss mehrm [ aufup@$O,p Pere r~maМЏ@QЉlMd=RT. ,Ga)~/0Fr edorf, 2 k Hne F˒Br`9ig2P Er9niEsC*s!tbdT1W1$=%.DuP`Do Wh0hgriffs(%2="%,mGe#P@ceSt $eBdn1V)*, "Ox.InH(wdqtIn)1O 'D$ i[A6 !	 etpPZA2zeln zu[.1 Ym akta2en #b" v$sfhrmTRrU.CPs(1)G- 1{Q[gU%Ol_O?O< o5qf	'We`r!gp1bi s"ev E꛵xit Do1LoopCůMP_ br) lglos wa~rBLa%A noimmq}.befp..//D5A  'R
nP/tUlQ551 hxă  1IK;0<A0;A'
_1) Is 3 .CFt'1.W:@ ObigeOd(inggXft#`@llrherweib:/ If rngEr gebnis.C ells(1). Range <>p tbl0l<. Count^Then
  ' NotNext Is   hing Bihn i n die fo lgende Z e setzen,v	Mov eStart Unit:=wdD, `:=1 Endharac(ter"-"Else-'sons t den Be reich bi@s ans  3e s Urspr ungsbs  erwei :n.*2. Fehler: Der- muss sau $!t wer,D trat nur aufT 'wenn naU@+dl_t@0F undstdno)Ai5Aomta@pЊmCollapse @kF>{While  Asc(13)|, dỷy) =Suc.-	If3Ϗ	:ALoop

Sub  DatumIn MischDLErcj(ByReCŠ( , _307c CstrZielbStr`| Qu J# OptionalA	lngZaBbkALong)#'D "alte" Prozed`_jAZ`"Yfr  markierteie,ein`e Tab^$
o	bTeNdavo@n enth!n4. MC	`z w ird zuve rlssig abgearb{Bt{'Lei!
k"andie`aVe$rs n kt Int7e %-
  q .form>a@
`xsw
e das  ganze DokumbneuFe"0InE rStoryD `Ǽra\Z )סÎ,z m@2 `geruf`um nch *P "Zwn#"}  ` #-D<imi!;SbFdBooleaBZCSC SeJ֊yDuplic`+	Do!APWith.FindA.C 4rFb4tbRe`place1<TyA= me	wa`M= Tru .Wrapwd1
`B	5 .Ma tchWildc s?3Ca)= Fao4h@WorO .Ex0ecut	4= .Lap_SFGaLIs!`/e()/Call Gef7enes2RB<n(P,!, , J4JD _nfQ'2\iebtg!1g<?gsrsKLen(Y)@ 02 Exit`@f& Ao"fktbK0A,  OumOBOheAO )A?y? ./yoUHilfsneOPOw O)%}
 )9A #>gFunczgriff3g8 be_,ЂV j4%As {1KS)ddb? `AD`^5.o`c R#09/^]*b XZwXBa}= eURSr9q3@( p5^G4
'nD_n 
Ӄ   Yn LB#k6 te 1$/0	lc Ek$k?¶ Gefunden esDatumB earbeite n(strZielX, rngE rgebnis,@ Suche4l ngZaehle@rk)
   ElseIf fktKeinString(	) Then15Call R]7HilfsmarkeSetz 
{t.Co llapse wbdEndn  LIf
S@ub

  ADByRef  As Word.Range, CQLong'  damit der glei$ S n t  mehrfach  abgefra gt wird,C* die Prozedur ufgerufenCDim  bkmDNF+BookXI		-= I+ 1
' Ei gentl* g ibt's hi2.s zu z䀠n, es! ja6s erZs@stJ2Zr;Bestandteil@Hs_ nnamens  ist, mus#@hhGer.(@:= A ctiveDocut.=s.Add(N :="EN " &	=, _w:=ȗ[sR(Z.AMid$(	Tex21, 3)@"$$$!P4, L`.)< -d! = #S!Z[zX)GTa#o Id(+9i(	Optionalq'Ispoals g$lt \s B iAJtifiz@\t (bzw.w\ge䠵rt)Y'ssformat].!DpEcLHMAlea@@)X Count > 0,be	= FFor ET InI
*aO CI$O=4Ro	ed@&$(C.eK, P)D]E? ^^	a#TrueA'um g eschlossu  E3  @ >eprhalK#E~x +amˡN}q*4w?P=E)Kw%t{	Oxesfԋ fxErsat@zImDok2](JQ4K< QuelcKXF?t1$cpPzin  StoriErd0 gan  %s'rt 2
-  AF`mnyjnA>C. MeseHr/J cG`{/P. JЈesoTHstyWShapebhpSS $@par r]ny#J1 J'\|'h`elq`Ws s;anXle Kopf:zPeb < AbP?nitts4weф grafi@@Obj`ekte r2b5t0=@."
Type:wdPriyHea@;> GOSeons(1).!s(wd FooterT).rO1	5 	hp[Fr.Has[%U#= s:7q "b/InEinerEc g?H`:= 0`d2P<" 5=&I:= g O	 ^@]O?yOy]0M,ObDo Whi3Noa- Is hPa#/_{"nmao Loopty S '$cD 
mPub!0 Funr=  IsDateVa@lid(By p  varYear  As Varia nt, _
   Month
4DaytOpt ional ByRef dtmRString)
Booleanj'	' Q uelle: D iese FunkX stamm t von An gie/Jrg en Beil,  www.VB- -.de, Tipp 0447T mit eine r Modifika*in d	@Deklar	,( da \ be4b5werd kann,,Uek/  ju"m !rstbt (ihn zu prfen U as ja;Si nn ist)
'Dim in
t Integer͕πO GDfSe~lC
bCOn E rror Res ume Next(= C (@1/C(G(O@If.Num] = 0 Then/=\e3(%, B`()">K$B:B2 **@(,Mi !TruesEnd IfomiKGoTo 0ك
Awcsae IsqT@xstrÄ`K'F G rigt mn#EyqSon@vze$icJ uze8rle s`um
'@xnach  wird eswvssig geAygibt a'rck}`{e zd!zTmpG*Buj?3"P TPosA@2n#, BFalsDBd=D/ Sel@ect Ca L eft$(, 1d{OChr(048) @?A57E&VExGCERigh  `In9(1,%?, 30)) >.f+Replace'd, "-")'gesc htzte Bi Y@Y entfern#v9161tr7A LeerE52D'grx" "P"#sd0nc? 'deut@orm ~P1qx P/a@zige nori#	5= $".	vb0ar yCompare?-P>= 34-P4Q'Ta
g rMm 1. r	!2<"
Rev$ 
	Y;τAB;IsZA9 CC3LenV- 4O	qp*RP= >42JahrBle2~4@`0X=0 MidL + <{	5 -@UG|amp) 27'Versu@f3pj f2-2'n es$

K	P
1"0"?S "2&m2?_YbD X19" __9<f ;0p- ~3GQ' 'A at lizw@#pHMsgBox "Db'muss via0s0!"o1Q: zw. weitere`aB	AYq1;P{  'fall<s ȖOS KEINFfhaltRG	'***!`cPhltm,Yo DIN-FZT9Xr, X@ ߟXG1+X4|+ߏV`)zKF2A2 3`Gs2O.Go: 13 id$(strT mp, intP@os + 1X2 -T- 1)
  ElseD   '  Msg Box "Kei n gltig es Datum"\  Exit  FunctionEnd IfC'***W  Langform,= InStr( ".",  vbBinar yCompare	lIfx> 0 TheJ #Day = LeftD2 DRev" "Sel ect CaseB2iIs(&0Is yingeFa&GGLen-)4FYear!RighG4)A'Jahr i st letzt e 4 StellMX
 MonthatIn Zahl(TriXm(Mխ*5Ư)n)ZA72 ' Versuch c@2-s,n 3es`f (%@1)5"0"P  T"2 & LV2P5H19" 
D-p_'
"5"35 @Dasb3  muss vi 8c6 s8!\aA' bzw.  weitere ReakW$?ygC)'eIs!uValid(CVar!mi), B+@8 )clHTruȴ@QunO	ae L
!
e `rByRefUQ As@{r@)G
' solzl"in	sz | umwan(del 'th-`B- geht nicht,0l die b1its	vor.a?u be i 31. FebruLaufz 9fehler bt!
! Dim iaInteger axII +A)""Jan@Pi>1-P
Mrz "Mae 	a3mApril0X]aioD 5Jun= 6l= 7}August 8Septe&m 9Ok<toxtNov != 1DezK6C&Cqi^/9Sub BeginnDumEr>s/{q @Ffk tDeutsch OderEngl:i (nWordAiBEfrm.ShowsWUn7herep5F5e 5mts; Y
  wird abg9oc$1AC?:&HAStm!<(HeGHB oolea'ruftCUserѣ zur ĠGprungD Ss B,  k0dTF'gibtF  ckIn.nML0L1t @wurde,$sowLdkgeed(wHn 3AJҶ`W #"S Set = New!OpCWi0Ycq.txtGefUen`LpOQ#DoEvent8).bb
AeAQ( ̭54	. uXo1$gE( S Unload Nothqa,,n-:-;8j+.'*>e oq+e?e d8?q+<we+uiable0+fll$+%ux)r4`1߻ Q+b#+9Sbeg0riff<rnzgB @AL.R$##<= "([0 -9]{1,2})" 'n@B zum TestG	= AveDocum/	On Erro
rs Nex"7.FindsQ.ClF08att$QReplace_d.T strSuchb egriff
  .Wrap  = wdFindStoplMat chWildcards JTrue>bGefunden 2.Execut:End W ith
ZIf  Err.Num ber <> 0` ThenJ =p 556"DC0lear9in tVersionPWord 1f ktDeutsc hOderEngligElsn,MsgBoxQ]& " &	Descript;B "in 7"!I' jeCche are F ehlermelpdung{Iw\2&`B	On:or GoTHo 0s
	Func>A'Su@b Auto(p)
' AP vA@pplica
.Comm;Bar s("Datum -Tool").Visible eFaać' -Cv4$*, 
                                                                                                                                                        *#lt
$  2 h<48t6 @ px  ! Qp/        t (       ;               x D          t h < 8 4    p l d P @        'lpH   p    ll    p>  pv pH   Qp[hxd!   9`px  ! p  l`J\H   l\J2 `\p  B`x !       l M,@ <%  #\l`
$  2 `\5< px  ! Qp/  pv d   xd! N  kv 9 3      l M,@ <%  #`H    /`5< s  3      l M,@ <%  #`H    /`5<  <    H  5<              P 0       ;               h d x           ` \ p <        
&    /hl  $ 4  l, Qh[dxl`  \xH  l\   & oLP   TX   hl  $ 4  lp  h@ ' X4  T0 ( PH  QL[Hp)
 lhXTPD) & #\lp ) ll * l\Rl !hlp ) lP * Qhtl l l l t
+    pD)    l l l x
+   lxh llcl lxh Qlx l l l x
+   ; x` 8  
c= x       8 @       ;     (          d ` H D t p x $          l h X T P L x  0    h X, H K 
hEpF 
XEpD 
HEpB $0,   44 - l0    4# kBkDkF 
.   Ot85  $0,   44 - l0    4! $8M@ 
/   kFD ]35  $8M@ 
0   kDD ]35  $8M@ 
1   kBD ]35  o8'<  pz      K         8  00       ;               H X h           4    R       pz  Ct Z   lt2  1` @l`0   P
3  P`#89   @
3  @`#<2 <86 @Pf k     Z   lt4  10 @l00   P
3  P`#89   @
3  @`#<2 <86 @P      8   ltF    P
3  P    @(  ]t6 P@: 9   P
3         5 P<lt6  1t/<5P  8   ltF    P
3  P    @(  ]t6 P@ 9   P
3          P<lt6  1t/<5P  tM @7  K    lt8     pf kf : kflt2  1l     8 lt^9  pd kdp k 3  pz 5 kltJ       lt4  1h *ltJ   kfiPkflt"  1p5P5 kltJ   0 *(P ltJ   lt"  #<: 0/<5P ;    lt4  #<*1h/<  <    lt4  #<*1h/<  *ltJ   kfiPkflt"  1p5P5   F   pz       lt5     pf kf     lt2  1h     5 lt^9  pd kd  $ltJkdiPkdlt"  1l5P $kdkfDPkflt"  1p5P        lt8     pf kf  kflt2  1l      lt^9  pdkdp k n  pz  kltJ       lt4  1h KltJ   kfiPkflt"  F@ 
=   `<>  1p/<6 P@  kltJ    *(P ltJ   lt"  #<: 0/<5P? ;    lt4  #<*1h/<]  <    lt4  #<*1h/<  KltJ   kfiPkflt"  F@ 
=   `<>  1p/<6 P@       "tllF%lpF%lhF %rU              ~|         	       	               [   q      !            I      q                                    1            Y            	                  
            !     I     	      1      Y                                       q     A      y            Q                              1      Y                        	            y            Y                  1      	      9      y            Q      Y      i                        9          9      i                              1      Y                              	           P      	     
 L      	,      	      aT      i)      &      	*      )      )      ?      	L        |    $tx  $ <  x  Qtpx c''''''0'P'p'''cP'':@ N00p  6 P0pP0 &P   x  $ <  x< x5P p8  k& <t' %' %(`9%'@%x  $   xD  t  ) xt cP 
	  5P cP
 
	  5P 
     &P   x  $ <  x< x5P  pP    p   cp 
            |(       ;               p P          x t P 0      p P 0        (    /hl  $ 4  lp  Qh[dxl` $ lx4  Ql[\tX   +Tlt(  l  lTJ    /Tl   lt(  l   l  tX O  lx8  Ql[PpL  +Tlp(  l  lTJ    /Tl  lp(  l   l  pL   x` 1         0 (H       ;     0     	     d ` \ X P L x p t           T l h   4    pH D  Qpx lxpl   p. l xl 
   `   xL `5` MTX\   pxh  p\  \  X4  lT   x8  ) p\X lxpl   pH l xl 
   `   xL `5`: MTX\   pxh  p\  \  X4  lT   x8  ) p\XA  H    `   xL `5` &\   pxL  p0  Q\tp 4X\   pxh  p\  \  X  l48<@TLPt  Ph  L   lTDHt  Hh  D\  @  <  l8=2 48) p\PLHD@<X !T( `   x 6 ` !T(`   x 6 `  `    x 5` 1#8  pT( kD`x /86 ` !T( `   x 6 ` TH 4  lTx8    '  TH 4  lTx8            | 4,       ;               t x @          8 4 p \ X P L H D @ < `         lH D  Qlx  lx4 Qlh 
h   lh  ld  l  h   h,       h   hP    hH    h`   [''''''('H'h''''''('Hh  6 H(hH( h8  kpv ch kv x  >1p p   l pxl 
   |H 4  l|x8   x  lJ    /    p   l pxl 
   |H 4  l|x8   x  lJ    /    l x
   |H 4  l|x8      kv          0       ;               h p x P           l H (      h H (      T      	l t lt4 Qlh 
h   lh  ld  l  h       h   hP   a''''''('H'h''''''('Hh  kpr6 H(hH( ch krpz  N       ,       ;               h t L          l H (      h H (              tH   >t1x x  8  l xl l 
     x  ]  l xl l 
     l l 
   T    H  5T         (  (       ;               x           t T             dP ddMT	@  #t*#hlp  $ 4  p8  lD   ld= / QPx2 th) pdl tx ! hH   8H   (@    lh"  #<# *#4H   l4J   i   l8"  #? 4  pz 	lt1           <     \ ;     $          ` 0 h t p l            < 8 P @    "d  L     Cx  Cp lp@ 0)  pv: lpA 0@  pv: lpB 0X lpC 0b  pv: lpD 0y  pv: lpE 0  pv: lpF 0  pv: lpG 0  pv: lpH 0  pv: lpI 0  	pv: lpJ 0 
pv: lpK 0 pv: lpL 01 pv:   pv  
kv1x          L,     8 ;              x p             0   \        M  '  N $O   T   +'''<    :lP N\\
Q  6 \<         \ $       ;                          \ <           	R t 	ltp ' F\NLLlpS lT l5L p   
    JpU kJ o   pz   DpU >D'  pz  cp ltlV $W  X l 
c=U t       8  ,       ;               p t           D l L   ,     pz Y Ct 1(','Ll  $ 4  l Q(pl6 L, K lp4 Ql$ 
$   l$  ld  l lt$       $   $P   a''''''$'D'd'''''','L$  kpx6 L,dD$ c$ $|,   ll - l|    l $|,   ll - l|  ly ,   llH l   pz  ~''',    |,   ll - l|#x *#pt,   ((, - lt*#l *#hZ *FL
Q  2
 xptlh) l(6 L, ,   llH l !    pz  K        ,0       ;               $ t p d          x t p l h l ( L ,      d D $                                    	   
             %                                                                                                                                                                                                                                                                                                _ _ S R P _ 2                                                                                         #         f r m S t r i n g K e i n D a t u m                             &                                           D      _ _ S R P _ 6                                                                                                  _ _ S R P _ 7                                                                                              2         1     Y         0      8 I       `                          0=      4 q       `                    =      (<        `                               0=      00        `               )          008      	  `     I     a                   (      
  `              0( 9       `              0$ a       `           (        `              0(        `              &             n                   rU                    	              $        `           $       `           $ 1      `           , q      `      i         I     ,       `      i         I     $       `           , 1      `            1         &&$ q      `  F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 5 9  * \ R 0 * # 1 a  * \ R 3 * # 8  * \ R 0 * # 1 7  * \ R 0 * # 1 $ * \ R f f f f * 0 H 6 6 b 9 2 5 3 b    * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 2 6  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 4 2  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 4 6  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1          |    @  X9         $f                    @śANg4
Gz3BI8cZ(O NJG<.B   U+jJ/ZZM               x   U+jJ/ZZM@śANg4
    ME                   d  @   SP   S   S   S   9     >"    L                     *        L             
        L    L    L    L    L    L    L    <h     <l     <p     <t     <x     <|     <      l    0 { 1 5 3 0 2 5 1 7 - 1 B 7 2 - 4 0 5 D - 9 B 6 3 - A 2 2 E 0 8 5 0 4 2 5 F } { 8 2 B D 1 4 B 3 - A B 8 A - 4 7 4 4 - 8 7 F 9 - 5 4 C 4 8 0 5 F C 0 3 D }        b4`  <      @        b6D      @                     8     `              <k          Z    `              |k    &     ^8   `            @  k    -     h   `            
  pk x   
 
 J    )k                %   n   `              pk    
 
 T    )k           x p   %   p`   `            X  lk    ^   	  `rl         t   `              |k    	 	 w    iv             ix           R `              o  g g      `x         `t         `p         `l         `
j         `h  h                           %                 %   j08  4        @        j2    8      @        b(   @      @              8  x   (   8      `          `    %   ,              %          @                P                       !28    @                                           X          @      %     %     %     %     %    x  `         %           :>BDFHJL   @p  t	        @(  d        @T        @D          NR0     p     @@        @<	        (  0\      X	  (	  @	  p	    	   	   x  `         %          .2:B4J6F   @	  t	        @	  d        @`        @	  P     @   @	  @        @<	        @
  ,        	  0fd\     @ 
          @H
          
             %    kxx     @     (    kx         kx          %    kx
       %      
   kxp     @           
   kx
      kx          %    kx           %   @t        @p      kx     x       @t     @p     `   P     %   h       kx(
         H  `  8  H  8    h              h  `                 >BDFHJL  @d	                           `       @  P      @  @      @  0      @         @        @         @(        @@          @X           @p       (   @         @        @           `     , %      @   |     @l           zZ      8    P  H            x      .  @d	      @  T      @   D        x         @0  4        @$            E         @        @          %         @       a y p   BFJ     [   o s 0  @          `  `       @         p              x         (       P                     f+  * \ R 3 * # d $ * \ R f f f f * 0 I 6 5 b d 0 4 b 0  * \ R 0 * # 1 6  * \ R 0 * # 9  * \ R 0 * # 1 4  * \ R 0 * # f  * \ R 0 * # 2 0  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 4 4  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 4 1  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 4 7          H       L         P         T         X         \         `         d         h         l         p         t         x                                                                         	                                           (    	     "   0    	       	 8     * @    
  P    
  `    
  p    
      
      
      
      
      
                   9     
           
  (   
  8   
  H   
  X   
  h   
  x   
               	           	     "      	       
    
     	           	     "      	      	     /     *     /     /     U (     @    . P    
 p     x   P +     
          9    
                       
 (     0     8     @   	     
  H   	       X   	     "  	 `   	        h     p                  	           	     "  	    	                               	          	     "      	            	      	    
     
     
     
  (   
  8   
  H   
  X     h   	       p   	             "          ) (     8     @   	       H   	     "   P   	       X     h     p     x   	           	     "      	 ,      	       	 ,      	 N      	         `      h      p      x               	      %    	      8    F 9          8    D 9 0     x   	 ,      	 0      	       	     	 $      D       `     x   2                              2   	   * * 8	   6  h	   $ * 	     	     	     	     
   * * 
     H
   	 0   P
     
   	    
     
     
     
   	 2   
     
                8     P   $ $ `   ( $         	 $                     	              (     8     P     h     p     x        2     6 K    6      $ * 8     `                  6 K         	 2        (   	    0     P     X     `   	       h    	 p     x    (     $    
                         	          	       x   ]   ] 8  ]     ] `  ] (   x        5 :! <    5 >( @g e n 5 B( @3 . d 5 D( @      5 F( @    5 H( @`   5 J( @ R 1  5 L( @esktop 5 N( P      5 L( P      A R       5 B( T o p5 B! d 5 B( V      5 BB@X        d     5 >( @       5 B( @       5 D( @       5 F( @       5 H( @       5 J( @       5 L( @      k `   q X   o P         ' 0    B@\     o (           5 .! <' 2   5 :! <    5 B! <' 4  5 J! <' 6  5 F! b5 F% ` '    $  '   6X   X   4X   2$   ' 0  d        : Das Datum ist nicht gltig. Bitte prfen Sie Ihre Eingabe.  fA@d  ' 0     5 B( T`  5 B! d 5 B( V 5 BB@X    |    k    d     ' 0  |    k    q      B@\     o    8      j    0  9 L T   S x      ' jn h   o `         j    0  9 L T   S 8      ' jn (   o         ] H      5 >( @e   5 B( @   5 D( @£e 5 F( @       5 H( @  E 5 J( @     5 L( @     q         Januar  Februar   Mrz  April   Mai   Juni  Juli  August 	 September   Oktober   November  DezemberD   ' re  ! F       r9 `5 b          7 ` 9 <k   q   o   `      x  z  E' v  A@Z    k   o x         &  bereinigt den String um Sonderzeichen         und zerlegt das Datum   %  danach wird es in die Felder gefllt    G  Ist ein Klon der Prozedur IsStringDate, aber ohne die Prfung auf Date   ]    ] 8  ] P  ] h  ]   ]     ! .! <'       $      
          $    - $  '  2 ! geschtzte Bindestriche entfernen   k          $      
  n       $      $  '  2   geschtzte Leerzeichen entfernenq   k       %     If InStr(1, strTmp, " ") > 0 Then       )         strTmp = Replace(strTmp, " ", "")    
     End If   *** deutsches Datum mit Punkt       $     1 deutsche Form mit Punkt ist als einzige numerisch           .    ' 
  
   
          
   $   '  2  Tag vor dem 1. Punkt          . $  '             R T |         R T     $  '  3  Jahr ist letzte 4 Stellen           
           
 $   '             R T  3   Versuch eines 2-stelligen Jahres            $     0         20    $   '       d     19    $   '       k       
           
 $   '       S     *   MsgBox "Das Jahr muss vierstellig sein!"| x      bzw. weitere Reaktionen  n P  k H  d @    , *** Datum enthlt Bindestrich, also DIN-Form            -    ' 
  
   
          $   '           - $  '          
                   $   '         
       
    $   ' d H       MsgBox "Kein gltiges Datum"    |   k   k      *** Datum Langform      .    ' 
  
   
          
   $   '       $  '             R T |         R T     $  '  3  Jahr ist letzte 4 Stellen           
           
 $   $  $  '         R T  3   Versuch eines 2-stelligen Jahres            $     0         20    $   '       d x    19    $   '       k P      
           
 $   $  $  '   S     +    MsgBox "Das Jahr muss vierstellig sein!"       |       bzw. weitere Reaktionen  n   k   k            5 B( d         X5 F( b      !  |    B@|        k 8    5 J( d    q        o        Attribut e VB_Nam e = "frmS ngKein Datum"

Bas0{1 5302517- 1B72-405 D-9B63-A 22E08504 25F}{82BD14B ,B8A -4744-87 F9-54C48 05FC03D}dGlobalSpacoFalseCreatablPredecla Id TruBExpose0Temp lateDerivCustomizDOption  0licit

Pub bAende rn As Bo oleanstr
DiDm Tag
MonatJahr	0 d h Su b chk!_CQ%k())   With MJ If ..Valu]T The.E
.lbl *8.EnDG^txt6[cbo`	C%	cmdOK$mdAbbrecF.Default ĘACCall ÁZerleg[RSelStar1A0
JGLe$ng@w=  (.aText?StFocus
E"qj+91dB 	9p>	9 .>,	End If$aahiamAPo(Do= (@Me.Hid s
OK'
4z	ƌ= @Gefu@n{ce dC
aBb	`- bB/"A=List(.IxW e InZpahl( I
s eid(CVarA), 	@
b)?am9{iMs gBox "Das    ni cht gltig. Bit prfen S ie Ihre  Eingabe.p", _.
d vbExqmaAj_(>?1Gdb XGag.GlH@ Exitlq18i =9#!o?B F_KeyЉsPs(By@'  AsciizMSF orms.Ret@urnInt _r+cect CQUqb48 To 57lV= bRelKvu0@/y//P
/ii//-~?/)!R03 User_Initialize?@ian Q T?aU0o0 "=O_XU4(oh/= Ar ray("JanuarG"FebBr Mrz!April Maiqa Junq J"JulBAug0SeptembBeOkto NovfDez F3vc&.efgO1oe-1] fB(0Qπ((QueryCl`(Canc<el!(d@hModeX2= vb1.Con trolMenu$= iÄodStrg3u5' 0igt dj um So{rze@m!'  z"o
' dan ach wird  es in dnFel  gefll9' Ist  KlProzedur	te, q@r ohnerPtung aufϱvҕ5mpcP#ܿyc_2YeaZ٥intPosA2SpTp
=`ۑFϜ  !In
(д 1, strTm p, Chr(3 0)) > 0 Then
   = Replace(, "-")X'ges chtzte  Binde Ric he entfernEnd IfIf InStr(1604  	Leerzen'`F"'  B")
vy '*** deutes Dat um mit PunktsNumeric)  ' For ist al s einzigxe n 2)Zi`ntPos Z"@.", vbma ryCompare0 @FO@CDay Left$ƈ- 1CTag vor@?m 1.	< C2(Rev(H$Select Case :k BI=0E"x^SubLen!) - 4! AYear.RighA4C?JahrBile4 StellI#  MonthMidU+ %5&AJA2@KVersuchAH1 S2-s`In aesC
?= "0"L#'"2& (2!Else3á
19" 
` 	wD `
_3JF3^3MsgBo@x "Das1 muss vi54 s~!" [' bzw. weitereaktioE!m)$ h(lt,Ao DIN-	V`]}O-_Vrk4I3 'A"2Pe&Dw2 wwD\N,%M 1L	qL%KP$ glt ?i?% $  EQoc!Langfkπii2 &ippqi{O gg2!g	G [mpggѝggV6NonatInZ ahl(TrimJ(-s,- h)O-s{yid'isiV i{i 'ii6& Xiи_-6SS 0UB- (j 0D OjOjinOj_0sS OjOjOjd	:On ErrRes Nex)WiMx.txt.T `j ]SA
.cboPat.LIxPCIntDF@*.Numbe9A38q!Cl`i		@ GoTdo 
A 
                                                                                                                                                                                                                                                                                                          6 |l  (P]35( )l'|(   l 6 |l  c  hB     80       ;               h  l &          d  | l `Pres T   $                         $ $       ;                                 %Td   d T`1xd5T 8   lxFD   T
  T    4($  ]t6 T4  9   T
          Tlx  1x/5T  8   lxFD   T
  T    4($  ]t6 T4 9   T
          Tlx  1x/5T  xMD@      lx     pj kj  kjlx   1p      lx^!  ph khp k   klxJ       lx"  1l *lxJ   kjiTkjlx#  1t5T klxJ    *(T lxJ   lx#  #$ 0/5T: %    lx"  #*1l/X  &    lx"  #*1l/  *lxJ   kjiTkjlx#  1t5T         lx     pj kj B    lx   1l      lx^!  ph kh ; $lxJkhiTkhlx#  1p5T $khkjDTkjlx#  1t5T@        lx     pj kj  kjlx   1p      lx^!  phkhp k   klxJ   #    lx"  1l KlxJ   kjiTkjlx#  F4
'  `  1t/6 T4 klxJ    *(T lxJ   lx#  #$ 0/5T %    lx"  #*1l/  &    lx"  #*1l/  KlxJ   kjiTkjlx#  F4
'  `  1t/6 T4      K 	l  lpd  dh d (lt3DTd  d  d5T $(   dd ) l|  d (   ddH d  lld  dh d c K         x 8     X ;                 l x t p             d T 4   ]
  4    
  8        h    T    \    `    p    L    L      
       t tO   tx  tH t  tx  t t  tx  tH t  tx  t t                      @ 4    )          @ 8             n      (       ;               x rU              ~|         	       	                    p                                                       rU                    	                    n                      ME                    rU              ~|         	       	     	             ,      Y-      Y      -      	0      y0      	,      .    W o r d 9 7 V B A 5                                                                                            _ _ S R P _ 4                                                                                         :   J       _ _ S R P _ 5                                                                                              <   B       A l l g e m e i n                                                                                                   rU                    	       	               *   aT      !*      I*      i)      q*      *      *      &      9          *      	,      (      9      i                        1      Y                              	      y,      1      9      y                  Q            Y      	      Q      i                        	                 !&      I&      q&      &      aT        H         )     &                L         1             `0 `     9       P         )     Y'                T   y      i                   `       X         )     y'                \   y      i                   `9       `   "           '              `y       d   "           '                h   	            '               `       l         )     '                p   "           #              `       t         )                     x   	(           1(                   i      /     i                    G                    G            \    	l x *dtx  t dcT]3t5d tx  tH t tx  t t tx  tH t tx  t t tx  tH t tx  t t tx  t8 t  tx  t4  t tx  t4  t       tx  t@ t 9@tx  tl l@J<x  <8 /@) t< tx  t tO   tx  tH t  tx  t t  tx  tH t  tx  t t  tx  tH t  tx  t t  tx  t8 t  cx       @ \(       ;               x            @ t < d D L        
  4               $       ;                             D    	l x /dtx  t d`#` 8 /`t5d *dtx  t dcP]3t5d /dtx  t d`#` < /`t5d /dtx  t d`#` D /`t5d U,'@dtx  t d<x  < ,`#` @ /`) t<6 d@,  @   #` @ /` . 8  < F% @ F% D FP%	 4 l 
 4   +'','@0   :P
 Ndd
  6 d@, 
  4      tx  t@ t 9`tx  tl l`J<x  <8 /`) t< tx  t t  (  
  4    cx      '       D(       ;               x (          ` t < d @ ,     L    	l x ;tx   ltqp lp0   9   3 D       x             L (       ;               x               L    	l x ;tx   ltqp lp0   9   3 D       x     e,       L (       ;               x              8    	l h  dh  dH d  dh  d d  dh  dH d  dh  d d  dh  dH d  dh  d d  dh  d8 d ch        `    :P     l`:@    l`:0    l`:     l`:    l`:     l`:    l`:    l`:    l`: 	   l`: 
   l`:    l``
  `Zl d   Qd "lll'|'              $              $    '                G x j          '        
  S        ' i           ; Attribut e VB_Nam e = "Wor d97VBA5" 
Option  Explici t

#If	 A6 Fals@e Then0   Pub P FuncpJoin( source()  As S ng, al sD0elim "+
X	D -sOut	MiCInteger*	O rror  GoTo err4h:&F%= @LBound\) U- 1 KI= & ypiC)  qNex! 
Exit	
nErr.RaiӁNumbEndCMrS@t(ByVlInI__"5z, nLim 8!Long@?-1bCompare+0BVar8ianE*ReadI6Z˭nKG>7@ń"ŇA  ;PoI@A^If%GsB = Un til(sIn,), 4)GDoAReA2Pre serve£(nC	5@AK`=  +m\`1<> -1 AF>4A5Loop WXhil@!  " a I)-/@^nReverse_Icg('A1 $`Wd@9JKe`In1 ep.'!8a
& Mi@EnC, 1*+DD"n In_m sFi`G"}izƈar$za	   8Pos%gr'c C (.=WGBHn
=)(C}#}!p0Pe2 0'EKL5&- - ) + 2h J"  cRepla !/	?   Fb[_%O% O% C	)i.) js1JD1
,E" ByQ_(tCJP o(m(c FnxDiBM@ ~et	Left( 0#"OO$++6a1kck:RR*:l2> 09-S 8# 7
          ber   `     D  `         `        ~ p               %                           Mid+ Len()End IfSub  MsgFenster(PrtnZei ?CiTitl[I@nteger;v bInforma/CE[strU eberschrifH'objShellA.ObjecI C	O rror Res"u@Nex'  check if Window@ri@ Host ustalled!CSet = @Create(P"WSc.B#"Da |NosD	E&)('fs  WSH nicht iciert,gBox nehmen!!6ml, Buttons:=W	ElseSel@F Case 	 vbQuezs`:^ : Fehler@
 Excla)9: Aung	B	h	!c	AhC(G*E9.PopUp e1wabW,.,I`Dhing!wfWGoTo 0y`w	,yRe@
BookPmark VT&M"hByInhaliU'Recycl-T dQe m{onom Pen WR@en, ge@Ufr @U J c݁wberk`pRang$Tc`eAA veDoctnt.es.Exists(#g$)= K= bm.(	.A  TM#%6pAdd -p., 
:=	:#? 
@
$?    $ i          @   `x     `H  t	         `              Hk      %    i                i              p8            %    l_ _ S R P _ 8                                                                                        >   d      _ _ S R P _ 9                                                                                              P   	      f r m D a t u m                                                                                         X      _ _ S R P _ a                                                                                         Y  9                                                                                                                     x                                       ME                    (     6
    <     <     <             +                   @            )x            B e                        	`    i          `     `         +P                             i     8         i    X        i            )ji          n`                                              `     ! <                                               0   +                             i        e pr`     e.  `     5 B+                              i     @        i    `       i            S x   i            j   `     8   +                           i    (    £ei    H    Ei    h       i            bruar  i              Julii          ber   `     D  `         `        ~ p               %                          H                 (  f+ $ * \ R f f f f * 0 J 6 5 b d 0 4 b 0                                                            W           	      @         	     B        	         (     	        8     	         @       `            	                                           	            	     B$"        	               	               (      0      8      P      X      h      x                                         	            	     B        	             	              8      X      `    	       h    	     B$    p    	                                                             	           	     B4.        	          P    	        h      p                     >                      0        @      H    	       P       X   	     h  x         m-dd         ]        F                         $      '       x       $   ' `     ' z P    H     !   B@       i (     	                    ]                    ' k          $  '   _       @ (      +         '              G x j     $  '                   @ H      +      ' i     P    ]                               $    ' x         ' i     	              ]     $  '     $  '            '                 ' d                '   k    i                             ]             '          '          G  F   j _ X        '   q.      .      A/      /      q      !            	      y            
                    1t lt3 }  &lt3l Md@T
   T`1x5T 0'Tlt3 Jl Md@4
  4`' 6 T4          H  ,                     x t           T 4 @       K   d
  d4t5d tMT	@  ^  %''$'d l MT@
  6 d$   ` p k       Cx  k0      Cx  k@     	 Cx   
 Cx  'l @l @x@l @t   ct  K        |  ,                      t x           d $  T     l Cxl Ct 6blxdh $ 4  h8  dH  kb) hd  ;LxMP@dh $ 4  h8  d@  QLp) hd hp   Qhl ltl    LHllLLMP	@lxdh $ 4  h8  dD  lL= l) hLdH  
c= l 
c= p       4 4                      l t x p           h d L H           a       0 * # 1 4  * \ R 1 * # 1 rU                    	              0          `     	          1             000         `     Q     i          
        @  0,         `                          n            	     "       	            rU                    	     
         $     
   `           $ A    
  `           $     
  `           $     
  `     D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 4 4  * \ R 0 * # 2 0  * \ R 0 * # 1 6  * \ R 0 * # 1 4  * \ R 0 * # 2  * \ R 0 * # 1 7  * \ R 1 * # 1 e   $ * \ R f f f f * 0 K 6 5 b d 0 4 b 0  * \ R 0 * # 1  * \ R 0 * # e  * \ R 0 * # f  * \ R 0 * # 9  * \ R 1 * # c b  * \ R 1 * # c 6  * \ R 1 * # e 8  * \ R 1 *    	     (  
                                                                                                   x                                       ME                   ,        (L   (L\    :     6
                    L    L    L    <0     <4     <8     <<     <              +      `              4k @            i     `         i              i              ' `t     !     `              o           i             i     H          $ i          @   `x     `H  t	         `              Hk      %    i                i              p8            %    lX          %                               %      `      @   H      H    `  `x     p  H                 i @  d        @  T     8   @D         @4           p         X    p  df(    @  d     `  @  T     %   @  D     @(  4     %   @@  $     @      @     @     X   @    @  H           p  8  `x    `         `   t    H        V   x   @  h	     x  @  d	     FH@b     	 @P      @   L	      @H	                             x                 `  f+  * \ R 0 * # 1 $ * \ R f f f f * 0 K 6 5 b d 0 4 b 0  * \ R 1 * # c a  * \ R 1 * # d 4  * \ R 0 * # f  * \ R 0 * # 1 7  * \ R 0 * # 1 4  * \ R 1 * # 1 7 b  * \ R 1 * # c 1  * \ R 1 * # c 6  * \ R 1 * # c b                                                            7           	     B       	               (      @     & P     0 h          	            	     "       	                    	           	 0             @       % `     x        &     (     ,            (    ' 0     P     X     `   	        h   	     "   p   	 L   x   	                  	      6     ;               L (     H   	      
 P    
 X   	       `   	     p  x     	            ]             '        
  x          $   '         $   ' x   k p   i h                  ] p  ]     0     )  check if Windows Sripting Host Installed    WScript.Shell $  .     $     % + falls WSH nicht installiert, MsgBox nehmen!      A@d       d           K T F     MsgFenster: Fehler'     fK T F     MsgFenster: Achtung '   K T F     MsgFenster: Information '   S F     MsgFenster: Info'  n             B@      . k       o          E Recycling-Textmarke mit bernommenen Werten, geht fr alle Textmarken   ]    ] @      V! %          V%  .      ! \.       ( d        \  V! B@  k      .   . o         ݳ Attribut e VB_Nam e = "All gemein" 
Option  Explicit

Pub ,  FunclRe adUntil( ByRef sI@n As S ng, _
  sDelim&. al bCompare9Long 0)FrD _0nPos= In T(1,[ G,/)!If > 0 Then
j~@Left(~,- 1= # b 6  * \ R 1 * # 7 8 $ * \ R f f f f * 0 H 6 6 b 9 2 5 3 b  * \ R 1 * # 1 2 9  * \ R 1 * # 1 5 8  * \ R 1 * # d 0  * \ R 1 * # c 0  * \ R 1 * # c 1  * \ R 1 * # 1 7 b  * \ R 0 * # 1 e  * \ R 0 * # 1 f  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 2 6  * \ R 3 * # 4 7  * \ R 3 * # 2 6  * \ G { A C                	  
                                                !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /  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  S  T  U  W  X  a  Z  [  \  ]  ^  _  `  R  b  c  d  e  f  g  h  i  j  k  l  m  n  o    r    t  u  v  w  x    {  |  }  ~       2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 2 8  * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # C : \ W i n d o w s \ S y s W O W 6 4 \ F M 2 0 . D L L \ 2 # 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 * # 4 7          P       T         X         \         `         d         h         l         p         t         x         |                                                                                                                                                                          5          	                                       	          ,       ,       ,       ,   	     "   (    	         0    	      	 8    $  d1      7  8                      $     l           ShellExecuteA        O2oB2gUM!X@s`Tx'Dz@   ',ER{               x   ',ER{O2oB2g    ME                   ,        SP   S   S   S   !         )L    )L    >"    <     <$     <(     L    L         L                          
                      L    L    L              
    L    L    L    L    L                L    L    L    L    L    L    <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <     <          #    \ F  0 { A 9 B 6 A 2 F 6 - F B D E - 4 4 D 7 - B 3 E 5 - F 6 0 8 C 8 9 9 B 2 4 4 } { 8 5 1 C E 5 3 D - F 0 D A - 4 8 6 B - B 4 3 D - 8 4 1 4 5 B 2 4 0 B 6 7 }    h   +  b@   @      @        `\         bP  D      @        *         %      %                    %   $                %      tp   `         %   bX  <      @           %                        0   b  H      @           %       `            @  k           x            %       `            p  Dk    (     `   `              Dk    6     Z   `              xk    D     ^   `              k  f f J     ` x         t       p  %   ` p          lH       i e  %    hh            %   `P  f     P``         8   `              k           i            x      <([0  %   `v     ]{2;   `              \k x         i           x       :   %    t      ch i  %   ` p       *   `              \k 0         i        .!  xh      /  u  %    t      iede  %   ` p       "    `            @  o         `$z      2@  	 `            P  Dk 	        8  
 `              Dk 
       p   `               k  ( (   	  t@   `            "  |k     	 	 E   iv          A ix       A ,P
   `            #  0k        N   i        83`Fx     6 fa` v     ist,                                                                                                 0                         P                         p                                                                                                                             	                         0	                         P	                         p	                         	                         	                         	                         	                         
                         0
   R
   `            (  H+ $       
   `            P)  \k 
  (      iT       BookV `            *  P+ 0   , 	 	 ,   iZ     P    ! di\     p     i        p  `^h       .                  %                  %   b0  4        @        "   8 H      @        b    >      @        bL      @            8         @    
  @  `      P
  0  X             @   P  
                8                  @h  p	     @P  `     @  P     @@     @<	     @  8	     	           @  4O	               @0        @      	 (          @8  	     	 P          @O	     er.d`  8   8   P  h      8  (   xx   `        X     @   @t	        @  d        @T        @D           P  x  h   x   `   P     X     @   @t	        @  d        @T        @D         r      0       @x	         0    (     p      x              h  (  .&   @  X	        @V        @  P	        @  L	        @  H        @  D        @   @        @8  <        @P  8        @h  4        @0        `  *   @  ,        @(        @          @          @          @8        P    *      @     rx  8  *        xrV 0  8  -   (   @          @           @	     (   @        @        @        @@  	     X    V @O	       @  V `    @  [           H      x    0    .  `O @`  p	     @l	       @h     @  d	           @`O	      X        @@  \      @(  L     @h  <     @,     @(        @       x        8  h       .    @P  l	     e @h	        @  d       h   @`          @\          0  p  P            .`    @  l	     (V@h	        @  d          @`     0     @\                     8  &d(V.   @(  h        @@  X        @X  H     p   @  8        @p  (        @          @          @0          @          @          @           @          @H          @`          @x       (   @  x        @  h        @  X        @  H        @8        @(     @$	     @      @       0   0  H  `         x(  `          46 @t	     @x  d     @T     @D     p         0   X   H    xx  `   p   0          :<U       @t	        @   d     @T     @D     "  H"  !  !  "  `"  "  "  dr6 @!  l     @!  \     @!  L     @ "  <        @"  ,     @0"       @      @     @	      x"  `       %   `"   p!  <4.>x @     @     "  @BD       #  zZ     `$  p%  $  $  %  (&  '   &  $  `$  '  x$  h        `H$  z       $  `$      0   $  H$    H   46(H    p$  `         %   &  $        @l	      @(%  \      @@%  L      @X%  <      @%  ,      @%           @@&        $  *:<&J @%       (   @%          @&          @&       x@'          '   &  '      @      @X&        @p&        @&        @&        @      @&        @ '        @H'       @'  |     @0'  l     @`'  \     @L     @<     %  LN>. @'  8        '  '  [ 	 @4      '      @0        x'  xPdf   (  (  (  (       *     @x	     `   @)  h     H   @X     0   @H        V@BDX*       @)  
  8*   *  *  )  ()  @x     deut@h     '  @d	        @P*  `        @\     	 HV      @Vh*  l     +      '  P  *    0  +  +  +  *  h+  H+  X+  *         h*         D      H+     @d	      @`     df    )  @P     g+                    
                          0$ &   f+ $ * \ R f f f f * 1 6 6 6 b 9 1 4 c a  * \ R 3 * # 2 b  * \ R 3 * # 6 7  * \ R 1 * # c a  * \ R 1 * # d 4  * \ R 3 * # 2 8  * \ G { A C 2  * @     , P    
  h      x    
      
                  
             ,     
            
     
  (     8     @   
  H     X     `   	       h   	     "   p   	       	 x    *    
           +    
                    	          	     "      	       	     *    
           )     
  0     @     H     P   	        X   	     "   `   	      
  h   	        x   	     "      	                                                   4   	     
           9     
          	            $          \ ^ !   	 $   P   	 D   x   X c     
     
         	           $          R %      0 h    
     
          *     *          3    	 6              (      H   
 
 `   
 
 p   
     
 
     
              D      $     	 <        P     `   
 
 p   
               
 
              
 
              	 D       $ (   	 <   8     x        
 
    
               
 
              
 
                         
 	    	      9 (    / @   ( + X   @ B    * Y         
       	   	      9 	   
  (	   ,  8	     4   
  h	   	        x	   	     "   	   	 F   	   	         	      	   	      9 	    / 	    * 
    E (
   :  H
     
     
   
  
     
   
  
    = 
    2 
          h      (   	        0   	     "   8   	         @      H      P   	       $ X     h     x   $ #    
 
    
 
     
     
    	          "      	                         	       $      (     8   $ # X   
 
    
 
     
     
    	           	     "      	            	     0. p+          (   J I     $ 0     < @                   	        (   	     "   0   	      	 8    * @   
  P     `   
  h     x        	           	      	 &      	       	       	 .      	 0      	    8   	 2   P   	       	       	       	       	     "      	       	     *    
           
                	       (   	     "   0   	        ,          0     @     ,     ,      -     0-     @-     P-     h-   4 + p-   
  -     -   	       	 8   
  @   
  P   
  `   
  p    *    
      5     .    
          
                
                
  0   
  @     P   	        X   	     "   `   	        h     x             	           	     B      	                  	                
              	      	    	             *    & ;       H     P     X     `   	       h   	 6   p   	 D      	            	         (   	       0    * 8   4 ^ H                       	     	 $       *         & <         Z R /   (       @   Z R X   .  P                  l  `0   6          ~  1   ,  H     x   Z R h$   .                    Z R p   (           Z R    .       @   l  0   6  P        ~  -   ,                  (    * 0     @   Z R H%   0  P        Z R @.   .          l  @1   6  (     `   ~  02   ,                 *          	 L   (     x   	 ,      	 >      	 N      	 L   @   	 >      	 V      	 >   (   	 D   h   	 >      	 "      	 >      	 x   2   	 N      	 $      	 0   0   	 D   `   	 b      	 <      	 >   P   	 x   /   	 ,      	 >      	 x   (3   	 ,      	 $      	       	 :       	 t   .   	 J       	         	 (   !     @!     H!   L R    "  X!   	 .   !   	 z   3   	 P   "   	 .   `"   	     4   	 V    #     X#     `#     h#    * p#     #   L R    (  #     #     #    * #     #   4 _ #     $   L R P     ($     H$     P$     X$   p  "   0  $     $      %     %   L R X      %     8%   p  x/   0  %     %     %     %     %   	      ( %    * &    . &    0 0&     @&     H&     P&    5 X&    . p&     Z &     p'     x'     '     '     Z '     x(     (     (     (   	     
  (     (     (    F (     X)     `)   	        h)   	     "   p)   	 P   x)   	 "   )   	       * )    
 *     *    
 *      *   	        (*   	     "   0*   	 N   8*   	        *    9 *   , C *     *     *   
 
 +     +   	         +   	     B   (+   	         0+   	      & 8+     P+   	        h+   	     4  x   ]   ] 0  ]    ] X      ]      5 ! <        5 !                !   chkAlle     ( <        ( @k 0   k (        d        5 !           l $   !   chkAlle      ( <WSH ni  ( @liert,k    k         A@dk    q    o x          5 ! <  hl5 ( fK T d @   5 ! <   ht 5 (     k    k    q    o             5 ! <    5 ( PO d     ! <      5 (    J 1k   k   q   o   `      A@r       o h      ]   ]   ]   ] 0  ] P  ] p  ]      ( 
 l s e     G | j   ! ! ( I~2  Z   '   '           .! \.      ! p.  n  {2;2} '    {4;4} '      Dummy: in DIN-Format wandeln,  g e  = damit es von der anderen Prozedur mit verarbeitet werden kann       {1;2} ' *  .   . k           .! \.      ! p. 7           $     A   : ' zuerst in DIN-Format, danach in Deutsch             *  $  A    .   . d     ! ! <      .! l    '      .! \! p.   p#7  /  um die Markierung hinterher wiederherzustellen   k `                            $     A     A             e           B@H  7䜣e  . k   d           .! l     x  .% v      .! |! ~            .! d'      6 falls der String kurz ist, kann direkt getestet werdenk6     	      $   X     A         A@r     |    d       A    k    d       A        k    d      = falls der markierte Bereich Tabellen oder Teile davon enthlt 83  .! d'       6 falls der String kurz ist, kann direkt getestet werden        	      $         A    0%  A@r 
   |   d      A    0%k   d      A        k   k   k x  k p  $   r          V! ! ~   
  '      V!            !  	 DatumNein       
    ! \! d  $$$    A@  3  Hilfsmarken wieder entfernen  ! \! d  $$$    $    ! \( d      k              k x     ! ! (         ( 
        Anzahl der Ersetzungen:         '     A@r       o          ?  falls der String nur ein Datum ist, kann sofort ersetzt werden   ]    ]      .! ! ~   
            .!     ! \! d        !   X  $   A    '  # - um geschlossene Bookmark um Datum zu erhalten       y   k              k                .! d  $        b        ~  .B@        p    .! dX  $     .( d    k H  o @  8    ]   ]   ]      .! \.      ! p.                                    $     A         A                      .   . o       ] P  ] p  ]      .! \.      ! p.                                    $     A ` ;   A    j              .   . o       ]        , https://www.schreibbuero-richter.de/vba.html  p  VB@n   #   $  (        `    !    	      	     $ Es besteht keine Netzwerkverbindung.  .  C Oder der Zugriff auf das Internet mittels Hyperlinks wird verwehrt.       0   # Schreibbro Richter: Datum ersetzen  A@d  :k       k   o           5 4! <  \5 6( @  C -d P   5 6( @HA@Fk 8  q 0  o (      Private Sub optDeutsch_Change() d               With Me         (         If .optDeutsch.Value = True Thenei   *             .chkLeerzeichen.Enabled = True            Elsen  *     +             .chkLeerzeichen.Enabled = False sszeil            End If          End Withh alle           End Sub  s@       5 :! <  Al5 <( @len ded    5 <( @eiten k   q   o           5 6( @ 6 Fa 5 <( @pfzeil5 4( <, ein  5 ( n eing  .! l    5 >( <       x  .% v  e      .! d   
  en des5 >( <s beard   5 ( <L! ^k   d   5 ( <    k      5 @(     5 B(   T  5 D(   L q `  o X        x  z     ' v  A@Z    k (  o    @    ]   ]    '    ' F   '              '        Zielformat festlegen mehrm5 4   5 6! <   w  d.  $    	 mmmm yyyy  ' n d h    (' k X  k P  5 H      0             If .chkLeerzeichen.Value = True Then    =                 strZielformat = "dd." & Chr(160) & "mm. yyyy" n B                 ElseDi  *'                 End Ifk 
  5 :   5 <! <  be  yyyy  $     mm   $     dd ' usfd 0
    &' k  
  k 
     Quellformate ins Array fllen   j5 J! <  o        d.  $    	 mmmm yyyy  K T el    @         '   0  normales Langformat     @ (        '   0  ohne Leerzeichen vor Monat d' F    (K T     @ H        '   0 ! geschtztes Leerzeichen vor Monat r    @ h    <([0-9]      )>.<([ADFJMNOSa-z]      
 )> <([0-9]      )>    +             '   0  2 geschtzte Leerzeichengend    @         '   0  ohne Leerzeichen vor Monatun' F  S       @         '   0  normales Langformat     @         '   0  ohne Leerzeichen vor Monat      @         '   0 ! geschtztes Leerzeichen vor Monat ll    @ 	    <([0-9]      ).([0-9]      ).([0-9]      )>    +   <(      '   0  2 geschtzte Leerzeichenrbei' F  n X  k P  5 ! <  ok    @ (	        '   (  Langformat 2-stelliges Jahr     @ H	        '   (  ohne Leerzeichen vor Monat      @ h	          *  <([0-9]      )-([0-9]      )-([0-9]      )> A        '   ( ! geschtztes Leerzeichen vor Monat de    @ 	    <([0-9]      )>. <([ADFJMNOSa-z]     
 )> <([0-9]      )>    +             '   (  2 geschtzte Leerzeichenh  ' F  k   5 L! <  h       E Falls Quelle und Ziel identisch sind, was an sich nicht schlimm wre, !   *K T   &  falls jedoch ein Bereich markiert ist4     7                     If .optMarkierung.Value = True Then Ei   H                         ' der eine Tabelle oder einen Teil davon enthltd   F                         If Not Selection.Type = wdSelectionNormal Then  j   8                             Call AlleImMarkiertenBereich     O                         ElseIf Selection.Information(wdWithInTable) = True Then      8                             Call AlleImMarkiertenBereich     >                         ElseIf Selection.Tables.Count > 0 Then       8                             Call AlleImMarkiertenBereichB                            Else         8                             ReDim Preserve arrFormate(i)    <([0-9]      )>.<([ADFJMNOSa-z]      
 )> <([0-9]      )>    +           G                             i = i + 1                   'Deutsch normal a                             End If       *                         If bIdentisch Then   >                             ' "worst case": Zielformat ndern!+A   [                             ' und einen Dummy ins Array, in den zuvor gewandelt werden soll          6                             strZielformat = ctDatumDIN       8                             ReDim Preserve arrFormate(i)    <([0-9]      ).([0-9]      ).([0-9]      )>    +  ).([   %                             i = i + 1        8                             ReDim Preserve arrFormate(i)  <([0-9]      )-([0-9]      )-([0-9]      )>    +  )-([   %                             i = i + 1                                 End If                            Else   4                         ReDim Preserve arrFormate(i)l l e   <([0-9]      )-([0-9]      )-([0-9]      )>    +  0-9]   C                         i = i + 1                   'Deutsch normal '9:                        End If   "                     bQuelle = TrueS x      @ 	        '   0  Deutsch normal        (             ReDim Preserve arrFormate(i)          &  <([0-9]      ).([0-9]      ).([0-9]      )>    A  )>"   J             i = i + 1                   'geschtztes Leerzeichen vor Monat  (             ReDim Preserve arrFormate(i)   <([0-9]      )    $     ([0-9]      )    $     ([0-9]      )>    +    P             i = i + 1                   'Deutsch normal 2 geschtzte Leerzeichen  ' F  n    k   5 ! <  u     @ 	        '   (  Deutsch zweistellig ' F  k   5 N! <           yyyy  $     mm   $     dd K T         @ 	        '   1 
 DIN normal  ' F    &K T     @ 
    <([0-9]      )>.<([ADFJMNOSa-z]      
 )> <([0-9]      )>    +              '   1  DIN geschtzte Bindestriche ' F  S       @ (
        '   1 
 DIN normal    @ H
    <([0-9]      )>. <([ADFJMNOSa-z]     
 )> <([0-9]      )>    +              '   1  DIN geschtzte Bindestriche ' F  n   k   q     >! <      .! l      .! d   	          .! d$   ' F  k   k     x  .% v  e       .! d   	            	      Es ist kein Text markiert.  P  0 Bitte whlen Sie entweder Ganzes Dokument oder   P  < markieren Sie einen zu bearbeitenden Textbereich im Dokument   P   und starten den Dialog erneut.   A@d    ' F  z `  k X  d P      	      Es ist kein Text markiert.  P  0 Bitte whlen Sie entweder Ganzes Dokument oder   P  < markieren Sie einen zu bearbeitenden Textbereich im Dokument   P   und starten den Dialog erneut.   A@d    ' F  z X  k P  k H    F  DdL'   d (      
   D Sie haben kein zu ersetzendes Datumsformat (Quellformat) ausgewhlt.  $    0 Bitte whlen Sie mindestens ein Quellformat aus.   fA@d  '   k x  i p  P
      I Entscheidung, ob Sonderbehandlung fr Deutsch zu Deutsch bei alle Formate    oder nur Deutsch zu Deutsch         ! ! <        '   d   '   k   o   
      G berechnet den Fortschrittsbalken, abhg. von der Lnge des Formatearrays           
    T     $ V   ! @(     T d         X    %   ! B( d      ! B(     ! D(     B@X        k   o   
    ]     ! D!    ' ^    ^  \   Z  ' V  i p          "  &   # Schreibbro Richter: Datum ersetzen   $    # Nora Richter, Tel. (0341) 59 008 95    $    $ E-Mail: post@schreibbuero-richter.de   $     $    + Im Internet weitere Informationen anzeigen?     Schreibbro Richter    &    $ d ' $    ]     ] @   ] P  ]          "  deutsch         {3;9} '       e  &  englisch      k H0    {1,2} '     {2,2} '     {4,4} '     {3,9} '    0  d 1   * Unvorhergesehener Fehler, wird abgebrochenA@d       A@r y1    <([0-9]      )>.    $     <([ADFJMNOSa-z]      )>   $     <([0-9]       )>    +  )>  <([0-9]      )>.<([ADFJMNOSa-z]      
 )> <([0-9]      )>    +  ]      m                         arrFormate(i) = "<([0-9]" & str1_2 & ").([0-9]" & str1_2 & ").([0-9]" & str4_4 & ")>"     <([0-9]      )>. <([ADFJMNOSa-z]     
 )> <([0-9]      )>    +  ]     <([0-9]      )    $     ([0-9]      )    $     ([0-9]      )>    +     q                             arrFormate(i) = "<([0-9]" & str1_2 & ").([0-9]" & str1_2 & ").([0-9]" & str4_4 & ")>"   <([0-9]      )>.    $     <([ADFJMNOSa-z]     
 )> <([0-9]      )>    +  >"    <([0-9]      )>.    $     <([ADFJMNOSa-z]     
 )> <([0-9]      )>    +  z  <([0-9]      )>.    $     <([ADFJMNOSa-z]     
 )> <([0-9]      )>    +       <([0-9]      )>.    $     <([ADFJMNOSa-z]      )>   $     <([0-9]       )>    +  })  <([0-9]      )>.    $     <([ADFJMNOSa-z]      )>   $     <([0-9]       )>    +  )>   q                             arrFormate(i) = "<([0-9]" & str1_2 & ").([0-9]" & str1_2 & ").([0-9]" & str4_4 & ")>"    q                             arrFormate(i) = "<([0-9]" & str4_4 & ")-([0-9]" & str2_2 & ")-([0-9]" & str2_2 & ")>"   t             arrFormate(i) = "<([0-9]" & str1_2 & ")>." & Chr(160) & "<([0-9]" & str1_2 & "). ([0-9]" & str4_4 & ")>"                     arrFormate(i) = "<([0-9]" & str1_2 & ")>." & Chr(160) & "<([0-9]" & str1_2 & ").>" & Chr(160) & "<([0-9]" & str4_4 & ")>" 6w/  ] (         A@       4    5 Attribut e VB_Nam e = "frm Datum"

Bas|0{A 9B6A2F6- FBDE-44D 7-B3E5-F 608C899B 244}{851 CE53D-F0 DA-486B-B4 84145A D0B67}dG lobalSpacoFalseCreatablPredec$la Id TruBExpose0TemplateDeriv CustomizDOption  0licit
 
Dim st rZielfor mat As S	ngarrFe()bIdentischBoolean bAlle*deut ;1_2)
2
4_4
3_9I
PEG Sub chk!_Chang/<   =CBMS7s.Control
CWith M g! If .D.Valuxo The@=	  EaE@In .fr`aQuelXEs	TypeO$f As 'heckBoxCB. <> "D*"XA2O$ 
EnEnd IfNext :E?)6?)?)?))e()vaJ)Q?)/)0	Y2^
dbfDv2.gbc.lbl Hinweis.Visik @ 2!oLx2&,[2A Ua&%%a%  %~1_%-2_% S%$ mdAbbrec_Ck()UnloadOK\lngZ aehlerEr@setzen]Lol21bkmA Word.`jkmXark0irtngRcSel  pw%pmTOvA@usgabeQSGwSAppa{.ScreenUpd 0
= % f\i%@itAq/ActWindow@9 ew.ShowFdCodesV	0Cb 	30	rSetR 4= eo|n.XqT.DuCzCall" InMQbereichu!(, ct"DIN8, _C
5 "< ([0-9]" && ")._^>", .y 'Dummy: in -nwandeln,	'damP v`der r/Prozedur ver@arbeitwer0 kan(`-a_WNothi%<#&H3A'&#$$&0 &  __,˵OXD0)#en)'@zuerst", danQ$#??
?
o1b
H
1)__=[M e.optGanzesDokv~r1wd&N1luJ@ &'Ho U   ' um die MeieruCY ,terh:wipߑ zِI,5i`LBound() To< U^0PatHzImum@(hG, i(@u	@
rittsken(i{©i	Xŵ  rngSel. 0ect
! Set  =  NothingEnd If&ElseBIf ion.Type wd$Normal A G_8=Inf-t I (wdWithInTable) SFa z#G3s.Count0 Then>str=xTexB' falls de r Str k urz ist,  kann di rekt getestwerdC:Len(>) < 18QIs:Date
[lC,+D'Ersetz: Unload ML|Exit SubOB'E$ InMarkie rung(lngZaehler)<mC6te Bereich @ellen o Teile da von enthlU,UE. U-B3\U=U ULaGischb9UGaUvde 2Vfijrase arrFe(p$ =ActiveDocum W.Book]e> m 	 Ea `bkm In 0aJn C(1,  .Na me, "um Nein", v bBinaryCompar o#Replace"	Range.A	$$$ 	""  'HilfsA`twiet fernqa'	@D(H왉.NҀ !#Applica!.C)Win dow.View .ShowFieldC`Fs`	2t ScreenUpdngpTru4_Ausgab1}"AnzahlpSYZen: " & [@vb`N@MsgFenpqr , vb(SX<
Se
PrivofmmByRef XRLAs' {nhur # B$x|s"o@t ert e|	Dima# 0Word/RePBM!0leaS,ǆ33r3ssQ!1 'mrNC<R,c#7s@$(CP,mZ&)-b= %!'um Tlossenq$ zuhalt7 \0	24X	[ Do WhyLeft$(#C1q" "WMov eStart U nit:=wdC haracterD, :=1Loop ;RX)s4Ј5> e4o=a-Long1$E1P/Q2i

hS.Du#PK  i$LBпd(k) To U^s(/7B'( L, <ͨrix1
t/rittsbhalki4b+izpZYS.Qm !a# bmQS}EinerStory_L___(_  7_C==lblVk ion_Clic k()

   Dim int UserAntw ort As Integer= MsgBo x(Prompt :="Schre ibbro R ichter:  Datum er setzen" & _N{Chr(13) "Nora5, Tel . (0341)  59 008 95<E-Mai l: post@suero-r1.de=BIm|rnet we
i `e format en an zeigen?",	dTitleButtons :=vbYesN o + vbIn1 If=A ThenO n Error  Resume NextActi veDoc nt .FollowH yperlink  ("https://www.M /vba.html")J<A)New Window:=pTrue/%. Number <\ 0-C FE s besteh@t kein2t zwerkverBb@ung.pv8bLfKA "Od@ Zugri ff auf daCumittels As wird wehr|t.KkEHmjnOKOnlyFANEnd IfxGoTo 0	
ASub@Private  optBހLang_Ch@e%#With Mk6..Value = A;7 .chkLeerac`R.Enab8ledEls!7Fa_"ah'eut YH'
'!T"CF#%D?INF<%< hkTrennsta<A%b %3<hGV\!֡_InitializB\7#`;VWo1@|= 1Xa'dGc>1_2W"@{1;2}"*2E$2.4_4b4D;4l3_9"3\;9%B2engliW,.,,	Y "Unvorhe`rgese >UF@ehler,#Sabgebro?UnloadE!+L&8!@ /55D,"?$B/L%L.l blHin ~s.Visi`KSeleton.fT0s wd&m<alMarkierkITG Xe(wdqInT!)`X
Len(GText) > 7o		];	GsDokjCL2@ O#UALei .Widk=p.txthcou@r/)Balken?1!/,fV6GQХyC lose(CanHcelH, MxodeXp=`ALControlMenu cmdAbbre?7#SuoSFu*n- @#f)id	()Q
Bool\eacQb@ll2qØS O+H5= II0dentOReAarr1
0>ip4z'ZHiel f lp'Ƒ2З oIi<A d= "d602m   y  S2QcongA1 % oS mm.*1"D{+-G /S r 3dd ̲yINq      
'Qu ellforma te ins A rray fllenIf .chkLangX .Value = Tr Th	X Select C ase strZ<ieS#"d ." & Chr (160) 
"mi   y  "3;R eDim Pre serve arrF(i)1
"]"<([0-9F]< R1_2;)>.  ADFJ MNOSa-zq3_94,_4Ui 6i + 1y'nZles nx;J6;ohne Le@erzeic   vor Monazt=b¨Śc tDatumLongSV?S'S geschtztT!Jg#`?x!'?k:M2 #)N?D!"d"?B
߉= ։k'k@Else&&!&&*E zE_g D& ")>Jo"_Xovyvv@[wtrw``{2{o'S?i kO 1S(P9k	'S{@AÏDEnd #1If 82wQrF%o's2բ<Q '' 2-sti( Jahrϭ@έOh& gg'_E_EC03y3TsQ C  _____@bOK_BOOsQ _Bt-A#_@Deut@[oos 'Fall4s u IA i denti s ind, was an ch n	`t limm wre,TO' fjedoein Ber# ma rkiert i:s@'= QopDtMung
d' der   eine Tab elle oder n Tei l davon  enthlt
'  If N ot Selec tion.Typ@e = wd$N ormal Then_Call A ImMar kiertenB@ereich:Else Infs(wdWithIn le) 8Tru g<s. Count > 0\ReDim  Preserv@e arrFJe8(i)
 R"< ([0-9]"  & str1_2 ").`4_4)
>"ii + 1'Deu@tsch nA0lXEnd If@bId@i` ' "worst  case": ZielÜ nn!X2' u %Dummy  ins Array,  # zu vor gewalt werxsol;AcH$=  ctDatumDIN%Cr CCDIC$C^+d^E-^2da^^zZ!x<r!?<?<?<G$b$QuB= A
mC@{ #)M(1'''Q_'H'J~b/` ")>.AChr`(160)!d&p. IA?Ae  'ge] tztes Leerz1en VMona0ortr/oooob>yw	q <t 2fy11478U`w.chkt|2.Val8d  /)/)//&_^\A[_VzweistPFig IN BKgka2"y  %3s8mmdd 	[ /U,s10_Q-'@x [	 {):*?W,kT Bi&eo& ?vEoos oo`%o&o&L ":%" hr(30) &  "([0-9]" Pstr2_2)>"
   i = i + 1p'DIN g eschtzte Binde ichebQuelle TTru#End Select;IfaWithI f optMar kierung.Valu^ Th<en'/io n.Typwd	Normal!Len(ext) < 20IsStringDateK?	ElDseuInfmt=(wdPInT`able)a)=8<MsgBox  "Es ist @kein T J mgt.AvbCrLf@_e1"Bitwh len Sie  entweder  Ganzes@ Dokum@< o"in@zu bear`beite,bere imFustar@ dDialog erneu@@p, vbHc@FaqExit FuncAsсK;4 33L> "3)I3ј"22z21i1i1s
lj@f idJA{G:9adhab $n`Zersetz!Zeatums# (⯃) ausgemsorC,13Ʈrmens a}
.", 	vbExclxamaWH_e'
!^
Priv#Sub A@,Im@oBx()!c%'Ent`eid , ob So}~handl fr D@t 'E aF' nuQ
c@<Me.XchkabZield= G=bI@tia`ac$!a#rpUsbalkl ByRef lng As LongU6chnetLO, abh@g. vonr@ Lnge s  pUraysUBo8(arr) > Mt` lblLePde.`Width 0Schq(, dF txtcter.Ri= CStr(Int  * 100 /))0 %Visi`u*; B.O!  Repain䏫/l0 Zae@hlwertu, MaxS+D o
bPpxT!wS -=C- 4dz/(	* 	@                                                                                                                                                                         cT]3t5dR  tx  t  t   +dtx  t dfT]3t5d   tx  t  t   cx       8  (       ;               x           t d D         	l x *dtx  t dcT]3t5dR  tx  t  t   )dt!  t dfT]3t5d   tx  t  t   cx  d     8  (       ;               x           t d D P        l x $  	 x         $       ;                          x         X
 $   X  X V  kV 5   9LPX
 $   X8  P  LL  ) XPL 
    qx  pf  >  $PX
 $ <  X  QPhX XhD  QXl ^x  @ *#H *#D @ *#@ *#< H *#8 *0 C44l
  2 HD@<840 c    Y,  H *#H *#D D *#@ *#< D *#8 *0 C44l
  2 HD@<840 
c= l 
c= h   < F $PX
 $ <  X  QPhX XhD  QXl %x     8 .(@ 4 l
  -( 0    Y,    8 .(@ CHHl
  -(/H 
c= l 
c= h	  *X   X c]3X5N *,X
 $ <  XD  l,   X pf 3LPX
 $ <  X  PD  QLh) XP   8 Lp 8 d*  xlp 8 .(@ 4 
  -( 
p(  
pf kfI 
h|  
c= h   ,X
 $ <  XD  l,      P
 $ <  P  f]/'L
 $ <  LT     l    ') XPL6 } $HX
 $ <  X  >H1`X l`J   l `  [ 
`   l X $  	 X g  
x  x  
x    $HX
 $ <  X  >H1`X l`J    `   
`   l X $  	 X   
x    
x      	 8 Z 9,PX
 $ 4  X8  P   l,    ) XPQ /PX
 $ 4  X8  QP[tX Q +   Ht  lH          /HB BHXt   X         ! " lH#  1D2 HDX YH                                                                                                                                                                                                                                                                                                                              Xt   X         ! " lH#  #DPt   P   2 HD) XP  t |  9 LPX
 $   X8  P  LL  ) XPL X
 $   X  X $ lx#H*#D% *1\2 HD @   +V   Y,\
&   l X $  	 X           @       ;     (            l ` \ t h L          ( H D @ < 8 4 0 X P L      <      9hlp
 $ <  p  l   lh    ) pl  /lp
 $ <  p  Ql[dxp`   *\px   p  l\J J/\p  E\x         4 M,@ <'  #(l\
(  2 \(5< pv `   x` j   kv  =\p
 $ <  p     l\)  #(* 02 \(px 2h( <   p
 $ <  p\ p6 <  h\p
 $ <  p         4 M,@l\<'  #(l
 $ <  l   2 \() pl5<    ;      d 0       ;               d ` x $          \ ( p l <          $hl
 $ <  rU                    	       	      @         Y   yS      !*      0      *      1      A1      a1      	*      )      )      q      !            1      N      1      1      I      
      P      P      1Q                  QQ      A           Y           	      y            A      Y            y      q3      3                                          1      6      	4      4      I5      5      	,      I      	            	8      8      8      (      	O      1O      YO      O      O      O      /      /      	P      9      	:            A:      i:      :      Q      Q      1R      R      R      	S      !S      C      ?      	D      D      E      yF      	H      H      i)           	N      1N      YN      N      yS        P   	           1                T                      `0 `    
 	    
   X         )                   `	    
   \   	      I     1                `   	      I     Y                d   y      i                   `	    
   h   y      i                   `    
   l   	                           	 `I    
   p   	            1                 t   	      I     Y                 x   	                            
 `    
   |   	                                	                               	                              `I    
            )     !                         )     9!                   	            Y!                 `    
      	           y!                   	            !                   	            !                  `	    
      	            !                         )     !                   "           A"                   	            a"                   t     
 W    
     
     
     
 W    
     
     
     
 W    
     
     
     
 W    
     
     
     
   H    	l t *`pt  p `cP]3p5`  ,<pt  pH Q<[8xp4   lx   0xt  l0 =/0  cP%x  fP%x    x4 a 8  ,<pt  pH Q<[xp 8 lx ) 0xt  l0 =/0' fP%x  cP%x    x    ct  	       d H<       ;     $          t 8 4   x            0 p < ` @         	l x *dtx  t dl  Qhxl lxD  Qlt  8 Lp 8 d`  #l lp 8 .\@ 4 t
  -\ 
p(  
pf`W  
c= t 
c= x             ,       ;               t x           \ l h         $hl
 $ <  l  Qhxl lxD  Qlt  8 Lp 8 d`  #l lp 8 .\@ 4 t
+  -\ 
p(  
pf`W  
c= t 
c= x            ,       ;               t x           \ l h   |       h
,     
,     
,     
,  '('H:x- NhhD   :X. hH:8/ (:0 :1 ^2  pz6 hH(hH( kz   v K I''''cH'(:X3 Nhh$
 $ 4  $ $6 hH( $ 4   $$ 5 l     $o <''(:X. NHH@   6 7 *#8 *Fh
2  /6 hH(  K         `|$       ;                L           $ h H (         h H (    |     	l x *dtx  t dcT]3t5dR  tx  tP tn    tx  tP t  cx  g     8 | (       ;               x           t d D    |     	l x *dtx  t dcT]3t5dR  tx  tP tn    tx  tP t  cx       8 | (       ;               x           t d D       u9 @  :  @  ;  D  <  H  =  L   u9 ~  >  @  ?  D  @  H  A  L    +'''<    :lB N\\
2  6 \< l  $  	   	l     P     P  c\   5\       *
 $ <  D  l    c\   5\J 2\   
 $ <    \cl]35\* .
 $ <    lJ   / c\   5\%  c\   5\ J  c\   5\   7                 c         (       ;                $            \ <   T   $                         $ $       ;                                  pz  px 
  <           8      pv 	l p lp  Qlo\5\  *\lp  l \cL]3l5\  ;:LC    \
,  \<:,D `# 4 /6 \<   E  4    lp  Qlo\5\   4   lp  Qlo\5\ *\lp  l \cL]3l5\ ^:LF    \
,  \<:,G    
,  :H `# 4 /6 \<    4    *\lp  l \cL]3l5\  4 C <l:LC    \
,  \<:,D `#0/6 \<*     kv 8     R  @ *#I *# L *#J *# H *# *#kv 8 ;2  kvpv     kv 8     R  @ *#K *# L *#J *# H *# *#kv 8 ;2  kvpv px lE 08     kv 8       @ *#L *F<   \
,  \:LM  L F,:J  H F: |`#kv 8 ;2 6 <\| kvpv     kv 8       @ *#L *F<   \
,  \:LM  L F,:    
,  |: l H F\:L <`#kv 8 ;2 6 <\|l\< kvpv     kv 8     R  @ *#K *# L *#J *# H *# *#kv 8 ;2  kvpv px      kv 8     R  @ *#I *# L *#J *# H *# *#kv 8 ;2  kvpv     kv 8     R  @ *#K *# L *#J *# H *# *#kv 8 ;2  kvpv     kv 8       @ *#L *F<   \
,  \:LM  L F,:J  H F: |`#kv 8 ;2 6 <\| kvpv     kv 8       @ *#L *F<   \
,  \:LM  L F,:    
,  |: l H F\:L <`#kv 8 ;2 6 <\|l\< kvpv px   *\lp  l \cL]3l5\T
     kv 8     R  @ *#I *# L *#J *# D *# *#kv 8 ;2  kvpv     kv 8     R  @ *#K *# L *#J *# D *# *#kv 8 ;2  kvpv     kv 8       @ *#L *F<   \
,  \:LM  L F,:J  D F: |`#kv 8 ;2 6 <\| kvpv     kv 8       @ *#L *F<   \
,  \:LM  L F,:    
,  |: l D F\:L <`#kv 8 ;2 6 <\|l\< kvpv px  *\lp  l \cL]3l5\  4 C8 l8 0
      kv 8     R  @ *# *# @ *# *# H *# *#kv 8 ;2  kvpv px   *\lp  l \cL]3l5\     kv 8     R  @ *# *# @ *# *# D *# *#kv 8 ;2  kvpv px  *\lp  l \cL]3l5\ 4 C4 _l4:LF    \
,  \<:,G    
,  :H `#0/6 \<     kv 8     R  H *# *# D *# *# D *# *#kv 8 ;2  kvpv px l4 0     kv 8       H *#N *F<   \
,  \:LO  D F,:N    
,  |:O l D F\:L <`#kv 8 ;2 6 <\|l\< kvpv px      kv 8     R  H *# *# D *# *# D *# *#kv 8 ;2  kvpv     kv 8       H *#N *F<   \
,  \:LO  D F,:N    
,  |:O l D F\:L <`#kv 8 ;2 6 <\|l\< kvpv px   cp (\l!  l \cL]3l5\  *0l
 $ <  lD  l0   l .l
 $ <  l  lJ   /l 0l
 $ <  l  >  /l px   2\   l
 $ <  l  \cL]3l5\ .l
 $ <  l  lJ   /l Z'''<@   P Q *#R *#Q *#S *#Q *#T *F\
2  2
 6 \<  px /     Z'''<@   P Q *#R *#Q *#S *#Q *#T *F\
2  2
 6 \<  px /     kx7 pz  F   \
,  '''0   :LU \<:,V 
2  6 \<  pz   /       L4      ;                8 4 p T                l \ <      | l \ <  &   L     *hx   x hcX]3x5h9  
 > E   
 <           4 L $       ;                          x h H         8       9h 8 Yxl , h*7d   d  d5h C d    8  #`W *#\d   dhX 2 `\d d   d  d d   d  d 
 8              $       ;                          ` \ d h    L    . &`d   d  n`qhd lh 춀 kPl  /       , L (       ;              l           d                 h    d                   X   	 l   
 x    T    T                     X                                                                                                                      _ _ S R P _ b                                                                                              U         _ V B A _ P R O J E C T                                                                               z  #      d i r                                                                                                b         _ _ S R P _ 0                                                                                           +             $     
  `           ( A    
  `               0(     
  `              ((     
  `              ($     
  `           $ A    
 	 `           $     
 
 `           $     
  `           ,     
  `            1         &&( A    
  `         #$     
  `  $        (     
  ` (    Q         (0     
  `,    y              ((/                                                                  ҳ     0*	 pH  d 	  DatumTooDl 0  @
=
p	f+ JJ<
 rs@tdole>s  t d o l@ e  h %^ *\G{00020430- C 
0046 }#2.0#0# C:\Windo ws\SysWOW64\e2.t lb#OLE A utomatioFn `  M SForms> B S F Fr@ m s 3  ED452EE 1-E08F-1 01A-8 -0 2608C4D0BB4EFM20 .DLL#Microsoft : ^ Objec t Library/ ; D1u00}#:0# k0   A MoveEnd*  wdCharacter  wdCollapseEnd  MoveStartWhileF  Asc!u (   DatumInMischbereichErsetzenq bFound SuchergebnisA  ClearFormatting)  Replacement  Forward  WrapWy 
 wdFindStop'f 	 MatchCase  MatchWholeWordX (   IsStringDate6V (   GefundenesDatumBearbeiten (   fktDatumKeinString5 (   HilfsmarkeSetzenz strSuchbegriffF rngSuchBereich̗ 	bGefundeny bkmDNk  BookmarkC 	 Bookmarks?n  Addr (   ReSetBookmarkS bkm\y bReSetBM (   DatumErsatzImDokument2 strZielDatumFormatoO strQuellDatumFormat 
lngZaehlerGA sty rngShapeRangeUQ shp  Shape  StoryRanges 	 StoryType]  wdPrimaryHeaderStoryvt  wdHeaderFooterPrimaryd  Shapes< 	 TextFrame  HasTextP 	 TextRange  NextStoryRangeע (   IsDateValid~6 varYear varMonth varDayzc dtmDate$ intYear intMonth= intDay0 dtmDateSerial  Erro  Number- 
 DateSerialU  Year6n  Month  Day 	strQuellee strTmpJ strMonth strDay strYearp intPosr intPos2_  ChrK~  Right Replacef 	 IsNumeric$*  vbBinaryCompare̝ InStrRevĈ (   MonatInZahlu  Trim@ strMonatO i` (   BeginnDatumErsetzen| frmDatum  Show strDateD frmDatumKein	 frmStringKeinDatum? txtGefundenJ bDatumAendern9 strDatum strTagI strJahrC chkAendern_Click 
chkAendern~  ValueK lblTag  Enabled۪ txtTag2 lblMonat cboMonat lblJahr4 txtJahrK cmdOK' cmdAbbrechen	  Default StringZerlegen  SelStartZ 	 SelLength  SetFocus cmdAbbrechen_Click(  Hide9z cmdOK_Click  List* 	 ListIndexQ  MsgBoxR  vbExclamation txtJahr_KeyPress KeyAscii#  ReturnInteger txtTag_KeyPress UserForm_Initialize5c Monat UserForm_QueryClose Cancel 	CloseMode؟  vbFormControlMenu~  Clear 
Word97VBA55Q JoinM& sourceG sDelime sOut iC] errhJ[  Raise Split) sIn nLimit1 bCompare sReada nC^^ 	(   ReadUntil 
StrReverse sFinda nStart"n nPos@C sReplaces nCount EndFnVx 	Allgemein 
(   MsgFenster Promptm ZeitK Title~  vbInformationn strUeberschrift@ objShellC  CreateObject  IsObject  Buttons] 
 vbQuestion  PopUpb TMName TMInhalt bm\ rngU  Exists] ShellExecute" hWnd/ lpOperation8 ProgNameH 
Parameters` Verzeichnis{ Modus Shell32.dll+ strZielformats 
arrFormateUf 
bIdentischŶ bAlleZieldeutsch  chkAlle_Changej CB\  Control chkAlle fraQuellformatIj  ControlsK  CheckBoxi{ chkDeutsch2_Change chkDeutsch2pt 
lblHinweis  Visible chkLang2[ chkLang2_Change lngZaehlerErsetzen rngSelC bSel 
strSelText(  Application*  ScreenUpdating! SelfValidate  ActiveWindow+  ViewI  ShowFieldCodes  s                                                                                                                                  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 . 1 # 9 # C : \ P R O G R A ~ 2 \ C O M M O N ~ 1 \ M I C R O S ~ 1 \ V B A \ V B A 7 \ V B E 7 . 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 . 5 # 0 # C : \ P r o g r a m   F i l e s   ( x 8 6 ) \ M i c r o s o f t   O f f i c e \ O f f i c e 1 4 \ M S W O R D . O L B # M i c r o s o f t   W o r d   1 4 . 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 d o w s \ S y s W O W 6 4 \ 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 d o w s \ S y s W O W 6 4 \ 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 { 6 A 7 5 E 7 5 F - A C 5 2 - 4 9 E F - 9 A 7 5 - C B E 8 2 D 4 6 F F 9 7 } # 2 . 0 # 0 # C : \ U s e r s \ i c h \ A p p D a t a \ L o c a l \ 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  2* \ 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 . 5 # 0 # C : \ P r o g r a m   F i l e s   ( x 8 6 ) \ C o m m o n   F i l e s \ M i c r o s o f t   S h a r e d \ O F F I C E 1 4 \ M S O . 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                                    f+                             T h i s D o c u m e n t  0 G 6 5 b d 0 4 b 0 ! T h i s D o c u m e n t             
 D a t u m  0 H 6 6 b 9 2 5 3 b $
 D a t u m ^	     `  x  0       $ f r m S t r i n g K e i n D a t u m  0 I 6 5 b d 0 4 b 0 -$ f r m S t r i n g K e i n D a t u m $f       0   ^9   W o r d 9 7 V B A 5  0 J 6 5 b d 0 4 b 0 ~ W o r d 9 7 V B A 5        H      A l l g e m e i n  0 K 6 5 b d 0 4 b 0  A l l g e m e i n       `      f r m D a t u m  1 6 6 6 b 9 1 4 c a % f r m D a t u m        `  x       `  H       x  0  ;\M@Ù~   <J45LTMDz   GrʨF[\    =xsDszC   fU	G.b   :16`J0<\.   h       a^\[  Wordk VBA Win16~ Win32 Win64x Mac VBA6# VBA7# 	DatumTool stdole` MSFormsC Officeu ThisDocument< 	   _Evaluate Datum@4 
(   ctDatumDIN (   ctDatumLong (   ctDatumDeutschG (   ReparaturSuchenErsetzen; 	 SelectionZ  Findn  ExecuteY  MatchWildcards  FindText  Collapseu 	 Direction&  wdCollapseStart|  Found+  CommandBars
  FindControlm  ID]  SendKeysN  Wait %(   AlleKopfUndFusszeilenFuerInhaltTesten oSection02  SectionG oHeader  HeaderFooter oFooter  ActiveDocument\  Sections  Headers"  Range  Footers (   DatumInEinerStoryErsetzen 	rngSuchen strZielDatum0~ strQuellDatum  lngZaehlerk2O rngErgebnisz tblP  Table 	 Duplicate_ (   BegriffSuchenP (   GefundeneStelleBearbeitenyU  Information  wdWithInTableT  Cells  Tables  Count0v 	 MoveStart}  Unit  wdCell ' optGanzesDok  wdSelectionNormalR FortschrittsbalkenX StringDirektErsetzen6 ErsetzenInMarkierungߟ ErsetzenInMischbereichb  vbTabc9 lblVersion_Clicki intUserAntwort  vbYesNo  vbYesa?  vbNullString  vbNormalFocus  vbLfT%  vbOKOnly optDatumLang_Changes optDatumLang chkLeerzeichen1l optDINFormat_ChangeX optDINFormatV chkTrennstrichx optMarkierung) 	lblLeiste 
txtcountero# 	lblBalken bQuelle 
optDeutschS chkLangformat 
chkDeutschL chkDIN&K  vbCrLf AlleImMarkiertenBereichM lngFortschrittd lblLeisteSchrittF  Repaint lngZaehlwert, 
lngMaxwert lngBalkenbreite9$ Documentj UserFormN 
lblMeldung( lblFrage 
lblVersion fraZielformat< 
fraBereich%s    FollowHyperlink- 	   NewWindow    Click    KeyPressq 
   InitializeN 
  QueryCloseT    Change  Itemz 
 _B_str_MidX  _B_str_Format"  _B_str_LeftV 
 _B_var_Chr\;  _B_str_Right#(  _B_var_TrimmT  _B_var_LeftQ 
 _B_var_Midp   tab_getVisible3   control_getEnabledm   button_getVisible   control_getStateH   control_getImage   control_getScreentip   PdfXps_getVisibleѡ 
strVersion_^ (   fktDeutschOderEnglischC   _B_var_FunctionO  fktǎ 
fktDeutschAI fktDeutschesWord  Description   fktDeut 	  _B_var_On6 	  _B_var_IfP 
intVersion (   intVersionWord)   _B_var_strVersion str1_2q str2_2ʗ str4_4~ str3_9*   _B_var_ElseIfqm   _B_var_intVersionf Ausgabe.       !   %   
   %   
  -       l                      @ d   ^                                                                                                                                                        6A7 5E75F-AC 52-49EF-9-CBE82D46FF976 Users\ic h\Appa\ Local\Temp\VBE\Sp.exd`; !  .E.`MACOfficDOD f@ i cB 02DF8 D04C-5BFAgB-BDE5@IAA@420 Program  Files (x 86)\Common\GiSha red\OFFICE14@7OqC(p 8.0r&  ThisDoc umentG U	TiDcP u m 9n2  HB1  B,!""2+  A{|G b
@D a@MG2L//^,	!b%fr mStringKein$ nS@r i n xg K !	32 ?t*^9$f#$(  #Word97V@BA5G W 6r@9 7 V  B A 5 b%'26 (Allgem (G A"A l@&eBG&·&2//+ 87@@s73)5i2 qooo1	                                            rU              ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~_      
   	           	      	      	      	      	     	 	        	      	              	      
              	   rngSuchen     strZielDatum     strQuellDatum     lngZaehlerk     strSuchbegriff     rngSuchBereich     rngErgebnis     Suchergebnis  r u a r      M  r z   
   M a e r z   
   A p r i l      M a i      J u n i      J u l i      A u g u s t      S e p t e m b e r      lblMonat     D e z e m b e r   6XpN>  ?:]I_NkIk  J	l(D&}v?  {>TBĎJ  MsDΖ  RҋB  `     optGanzesDok  !-6S  `	
  
Y             I                    ȏ[qJ  e     UserForm  XB[կF&e  	   F3Dynamic
  
!            I                    "-  ?@  
   lblVersion  ?F  `     fraZielformat  
   fraBereich  {lF  WJO     cmdOK     cmdAbbrechen     optDatumLang  BҋB  `     chkLeerzeichen     fraQuellformat     optDINFormat     chkTrennstrich     optMarkierung     chkDeutsch2  
   lblHinweis  	   lblBalken     chkLang2  
   optDeutsch     chkLangformat     chkAlle  
   chkDeutsch  	   lblLeiste  ҋB  `  
   txtcounter     chkDIN     chkAlle_Change     chkDeutsch2_Change     chkLang2_Change     cmdAbbrechen_Click     cmdOK_Click     StringDirektErsetzen     ErsetzenInMischbereich     ErsetzenInMarkierung     txtTag     lblVersion_Click     optDatumLang_Change     optDINFormat_Change     UserForm_Initialize     UserForm_QueryClose     SelfValidate     AlleImMarkiertenBereich     Fortschrittsbalken     lblLeisteSchritt            4  8 h i    ^AM '֙  @śANg4
  Gz3BI8cZ  (O NJG<.B  U+jJ/ZZM     lblJahr  %6-DWJ
  
&            I                    
   lblMeldung     lblFrage     txtJahr     txtGefunden  
   chkAendern     lblTag  2ҋB  `     cboMonat     chkAendern_Click     txtJahr_KeyPress  p#  t     txtTag_KeyPress     StringZerlegen            8  <  @  D    ҋB  `  #=h8 +3q  G?,2q  L   )      )        )              CҋB  `  Yl|    3ҋB  `  ďYl|    ƏYl|    t   D a s   D a t u m   i s t   n i c h t   g  l t i g .   B i t t e   p r  f e n   S i e   I h r e   E i n g a b e .           S               Y               i               x (           W S c r i p t . S h e l l   $   M s g F e n s t e r :   F e h l e r   &   M s g F e n s t e r :   A c h t u n g   .   M s g F e n s t e r :   I n f o r m a t i o n 
      M s g F e n s t e r :   I n f o   
   P o p U p   
   { 4 , 4 }   
   { 3 , 9 }          H              2 h        pj).  `     c h k A l l e   
   V a l u e      E n a b l e d   p	           F  b	           F  	           F  P   < ( [ 0 - 9 ] { 1 ; 2 } ) . ( [ 0 - 9 ] { 1 ; 2 } ) . ( [ 0 - 9 ] { 4 ; 4 } ) >   P   < ( [ 0 - 9 ] { 4 ; 4 } ) - ( [ 0 - 9 ] { 2 ; 2 } ) - ( [ 0 - 9 ] { 2 ; 2 } )K*                                                                                                               rU              ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~  ~(         	                    FiOy pVR 	            a 	      	                 a 	            (       
      Q
      
            Q      y                              	      1      Q            I              a 	      ))       Q(      "      )#      (      (      $      $      )        )      a 	                      Y      a 	                         	      )        y      a 	     
 N       y"      "      "      "      )#      I#      #      #      	$      9$      i$      $      $      $      !%      Y%      %               !                                                                  a                                                    	   DatumTool     ThisDocument     Datum     frmStringKeinDatum  
   Word97VBA5  	   Allgemein     frmDatum     y y y y - m m - d d      d .   m m m m   y y y y      d d . m m . y y y y              F  /   C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL     VBA
  
        	                              	           F     DatumErsatzImDokument     IsDateValid    ;   C:\Program Files (x86)\Microsoft Office\Office14\MSWORD.OLB     Word
  
y            	                           0           F     C:\Windows\SysWOW64\stdole2.tlb     stdole
  
             !      i                     .E.`M     C:\Windows\SysWOW64\FM20.DLL     MSForms
  
                         I                   _ujRIu-F  /   C:\Users\ich\AppData\Local\Temp\VBE\MSForms.exd
  
                         I                   L-[  DR     GefundenesDatumBearbeiten  E   C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL     Office
  
            	                          k	           F  ~9Dr
  	           F  <J  
           F     Document    @              ReparaturSuchenErsetzen
  %   AlleKopfUndFusszeilenFuerInhaltTesten     DatumInEinerStoryErsetzen  ^	           F     DatumInMischbereichErsetzen     BegriffSuchen     GefundeneStelleBearbeiten     HilfsmarkeSetzen       IsStringDate     MonatInZahl     BeginnDatumErsetzen     fktDatumKeinString               	           F  	           F                 u	           F     ?   	           F             F             F     { E N T E R }   
   { E S C }               8           VBE7.DLL        W H              V h        Y	           F  	           F           J	           F  N	           F  M	           F  Q	           F                 	           F     D a t u m N e i n   g	           F  h	           F     $ $ $   	   ReadUntil  
   MsgFenster     ReSetBookmark        w                        Z	           F  	           F  	           F  	           F  fĤIx  8<                                          ) @              ! `                          -      .      0      2 0      1 9         h               `            O k t o b e r      N o v e m b e r         j                               1                 @               `           J a n u a r      F e b >   0   A n z a h l   d e r   E r s e t z u n g e n :        	   F   S c h r e i b b  r o   R i c h t e r :   D a t u m   e r s e t z e n   F   N o r a   R i c h t e r ,   T e l .   ( 0 3 4 1 )   5 9   0 0 8   9 5   H   E - M a i l :   p o s t @ s c h r e i b b u e r o - r i c h t e r . d e   V   I m   I n t e r n e t   w e i t e r e   I n f o r m a t i o n e n   a n z e i g e n ?   &   S c h r e i b b  r o   R i c h t e r   V   h t t p : / / w w w . s c h r e i b b u e r o - r i c h t e r . d e / v b a . h t m l      e n g l i s c h   H   E s   b e s t e h t   k e i n e   N e t z w e r k v e r b i n d u n g .      
 #     O d e r   d e r   Z u g r i f f   a u f   d a s   I n t e r n e t   m i t t e l s   H y p e r l i n k s   w i r d   v e r w e h r t .      d .      m m m m   y y y y      y y y y      m m      d d   l   < ( [ 0 - 9 ] { 1 ; 2 } ) > .   < ( [ A D F J M N O S a - z  ] { 3 ; 9 } ) >   < ( [ 0 - 9 ] { 4 ; 4 } ) > 
  
G            I      (                j   < ( [ 0 - 9 ] { 1 ; 2 } ) > . < ( [ A D F J M N O S a - z  ] { 3 ; 9 } ) >   < ( [ 0 - 9 ] { 4 ; 4 } ) > 	     < ( [ 0 - 9 ] { 1 ; 2 } ) > .   L   < ( [ A D F J M N O S a - z  ] { 3 ; 9 } ) >   < ( [ 0 - 9 ] { 4 ; 4 } ) >   .   < ( [ A D F J M N O S a - z  ] { 3 ; 9 } ) > 	     < ( [ 0 - 9 ] { 4 ; 4 } ) >   l   < ( [ 0 - 9 ] { 1 ; 2 } ) > .   < ( [ A D F J M N O S a - z  ] { 3 ; 9 } ) >   < ( [ 0 - 9 ] { 2 ; 2 } ) >       
      ( [ 0 - 9 ] { 1 , 2 } )   j   < ( [ 0 - 9 ] { 1 ; 2 } ) > . < ( [ A D F J M N O S a - z  ] { 3 ; 9 } ) >   < ( [ 0 - 9 ] { 2 ; 2 } ) >   L   < ( [ A D F J M N O S a - z  ] { 3 ; 9 } ) >   < ( [ 0 - 9 ] { 2 ; 2 } ) > 	     < ( [ 0 - 9 ] { 2 ; 2 } ) >   P   < ( [ 0 - 9 ] { 1 ; 2 } ) . ( [ 0 - 9 ] { 1 ; 2 } ) . ( [ 0 - 9 ] { 2 ; 2 } ) >      < ( [ 0 - 9 ] { 4 ; 4 } )      ( [ 0 - 9 ] { 2 ; 2 } )      ( [ 0 - 9 ] { 2 ; 2 } ) >   4   E s   i s t   k e i n   T e x t   m a r k i e r t .   `   B i t t e   w  h l e n   S i e   e n t w e d e r    G a n z e s   D o k u m e n t    o d e r    x   m a r k i e r e n   S i e   e i n e n   z u   b e a r b e i t e n d e n   T e x t b e r e i c h   i m   D o k u m e n t   <   u n d   s t a r t e n   d e n   D i a l o g   e r n e u t . $     S i e   h a b e n   k e i n   z u   e r s e t z e n d e s   D a t u m s f o r m a t   ( Q u e l l f o r m a t )   a u s g e w  h l t .   2sJpA7  bR_=#uuIn=R     `   B i t t e   w  h l e n   S i e   m i n d e s t e n s   e i n   Q u e l l f o r m a t   a u s .        %   X   h t t p s : / / w w w . s c h r e i b b u e r o - r i c h t e r . d e / v b a . h t m l      fktDeutschOderEnglisch                 LJAI  mB(=T
  
QJ            I                              4  8 t r    r   U n v o r h e r g e s e h e n e r   F e h l e r ,   D a t u m   e r s e t z e n   w i r d   a b g e b r o c h e n   2   i n   f k t D e u t s c h O d e r E n g l i s c h      d e u t s c h        '     U n v o r h e r g e s e h e n e r   F e h l e r   b e i m   V e r s i o n s t e s t ,   D a t u m   e r s e t z e n   w i r d   a b g e b r o c h e n   O2oB2g  UM!X@  s`Tx'Dz@  ',ER{  * *         4  8 t r  @  D  H  L    
   { 1 ; 2 }   
   { 2 ; 2 }   
   { 4 ; 4 }   
   { 3 ; 9 }   
   { 1 , 2 }   
   { 2 , 2 }     T   U n v o r h e r g e s e h e n e r   F e h l e r ,   w i r d   a b g e b r o c h e n      < ( [ 0 - 9 ]      ) . ( [ 0 - 9 ]      ) >      ) - ( [ 0 - 9 ]   (   ) > .   < ( [ A D F J M N O S a - z  ]      ) >   < ( [ 0 - 9 ]   &   ) > . < ( [ A D F J M N O S a - z  ]      ) > . 
      < ( [ A D F J M N O S a - z  ]      )      ( [ 0 - 9 ]      T e s t   |=,Gm$/kU  51H	4B  
  
S            I      p              o	(EW7  $gIcO
,
  
T            I                  _                 _ _ S R P _ 1                                                                                              r         f r m D a t u m                                                  
   2   #                       COCO            f                                                                                                             o                                                                "   (                                                    strZielDatumFormat     strQuellDatumFormat  
   lngZaehler     varYear     varMonth     varDay     dtmDate  	   strQuelle     strMonat     strDate     sIn     sDelim     bCompare     Prompt     Zeit     Title     TMName     TMInhalt  	      	      (          	i            8        	            H        	      	      X        	      y      h        	      	       x        	      "              
   strSelText     lngZaehlerErsetzen     Cancel  	   CloseMode     lngFortschritt     lngZaehlwert  
   lngMaxwert  	'                    	      	(                 bDatumAendern     strDatum  	a      (                 KeyAscii  
   strVersion  	yJ                    	;                       intVersionWord  		T                    	T                                                                  ( H   @    A    }  G  '          R  KQ   DB Tahoma  	         (        7   8     cmdOKa  {  !    ,        ;   @     cmdAbbrechen  !    ,   
     2   `     lblVersionenz-  #    ,        #    fraZielformat t {  1    ,        #     fraQuellformatt {      (   
     #    fraBereichrm4  1    ,   	     2   0     lblBalkenhrm  !    ,   	     2   4     lblLeistehrm  -"    (   
     D     txtcounterrm  "                                                             (    O   OK  
  N    u          Tahoma   (  	  b   Abbrechen   
  O    u          Tahoma @ (
  *   S  Schreibbro Richter 2008-2023, Vers. 1.4        u          Tahoma        '  O    5           Tahoma                   5           Tahoma          H,          ,           @    Tahoma   < H        
        }  !/            Zielformat  R  KQ   DB Tahoma       l  (        p  i 0 4                                                            &     n`  `    COCO            f                                                                                                        a      o                                                                %   '                                          P       C o m p O b j                                                                                          p           optDatumLang      ,             chkLeerzeichen  I       (   
     p     optDeutschch      (     	   h     optDINFormat  E    ,     
        chkTrennstrich  I                                            P F             !  L     {  0   Langformat, Bsp.: 11. Januar 2008^;   5           Tahoma   ` F             2  M       0   mit geschtztem Leerzeichen zwischen Tag und Monat    5           Tahoma   P F             "  D     {  0   Deutsches Format, Bsp.: 11.01.2008;   5           Tahoma   H F               I   \  a  0   DIN-Format, Bsp.: 2008-11-01  5           Tahoma   h F             :  T     O  0   mit geschtzten Trennstrichen zwischen Jahr, Monat und Tag    5           Tahoma                                                   
    n`  `   Microsoft Forms 2.0 Frame    Embedded Object    Forms.Frame.1 9q                            i 1 1                                                             $   0   *     n`  `    COCO            f                                                                                                              o                                                                )   +                                                 C o m p O b j                                                                                          p        < H                }  B            QuellformateR  KQ   DB Tahoma   4   e  ,        p      chkLangformath        (   
     p     chkDeutschma      $        h     chkDIN    	    $        p     chkLang2I      (        p     chkDeutsch2aI      $        X     chkAlle24  	    ,   
     2        lblHinweis2a4                                P F             !  r     {  0   Langformat, Bsp.: 11. Januar 2008  5           Tahoma   P F             "  F     {  0   Deutsches Format, Bsp.: 11.01.2008  5           Tahoma   H F               N     {  0   DIN-Format, Bsp.: 2008-11-01  5           Tahoma   P F             #  J     {  0   Lang, Jahr 2-stellig: 11. Januar 08  5           Tahoma   P F             !  2     {  0   Deutsch, Jahr 2-stellig: 11.01.0808  5           Tahoma   8 F               A   
  {  0   Alle Formate  5           Tahoma   x )      d  Achtung! 2-stellige Jahresangaben sind nicht eindeutig. Die Ergebnisse sind evtl. nicht zuverlssig.g             @    Tahoma                                       
    n`  `   Microsoft Forms 2.0 Frame    Embedded Object    Forms.Frame.1 9q                             D H                }              Bereich zum ErsetzenR  KQ   DB Tahoma   `    o  (     i 2 0                                                             .     n`  `    COCO            f                                                                                                               o                                                                -   /                                                  C o m p O b j                                                                                          p          \      optGanzesDok      ,        `     optMarkierungnt   p                                          < F               G   g  r  0   Ganzes Dokument   5           Tahoma   @ F               k   g  r  0   Markierter Bereichen  5           Tahoma       
    n`  `   Microsoft Forms 2.0 Frame    Embedded Object    Forms.Frame.1 9q                             
                     Microsoft Forms 2.0 Form    Emb C o m p O b j                                                  ,   1                                          a        V B F r a m e                                                                                          ?      f r m S t r i n g K e i n D a t u m                             & 7   4                       COCO            f                                                                                                       _      edded Object     9q                                           VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDatum 
   Caption         =   "Schreibbro Richter: Datum ersetzen"
   ClientHeight    =   5760
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   10410
   StartUpPosition =   1  'Fenstermitte
   TypeInfoVer     =   65
End
  $          }  ;/  9          R  KQ   DB Tahoma           ,   
     2   d   	  lblMeldungrn{o                                                                3   5                                          $       C o m p O b j                                                  6                                          a        V B F r a m e                                                                                          H      P R O J E C T w m                                                                                                D (   2  Die folgende Zeichenkette ist kein gltiges Datum:o   #    5           Tahoma         H,   ]  N            @       Tahoma   4 (   $  Mchten Sie daraus ein Datum machen?+*  {    5           Tahoma    (    O   OKho  O    u          Tahoma     (    N   Nicht ndern  O    u          Tahoma    (    T   Tago      5           Tahoma    	     H,     {           @    System    (    M   Monatm        5           Tahoma    @     
  {           @    System    (    J   Jahr      5           Tahoma    	     H,     {           @    System   8 F               D     {  0 fgDatum ndern  5           Tahoma                                    (        @     txtGefundennI  {    (        2   T   
  lblFrage{  E    $        8     cmdOKage!      ,        ?   @      cmdAbbrechen!      (        2   8     lblTagge{      $        <     txtTagge{  ]    (        2   <     lblMonat	      $     	   8     cboMonat	  ]    (     
   2   8     lblJahrt'      $        <     txtJahrt'  ]    (   
     X     chkAendernen{                                      
                     Microsoft Forms 2.0 Form    Embedded Object     9q                                           VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmStringKeinDatum 
   Caption         =   "Schreibbro Richter: Datum editieren"
   ClientHeight    =   3225
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6855
   StartUpPosition =   1  'CenterOwner
   TypeInfoVer     =   25
End
                                                        ThisDocument T h i s D o c u m e n t   Datum D a t u m   Word97VBA5 W o r d 9 7 V B A 5   Allgemein A l l g e m e i n   frmDatum f r m D a t u m   frmStringKeinDatum f r m S t r i n g K e i n D a t u m                                                       ID="{11E0CD02-8951-4807-A495-4915F5185EF7}"
Document=ThisDocument/&H00000000
Module=Datum
Module=Word97VBA5
Module=Allgemein
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
BaseClass=frmDatum
BaseClass=frmStringKeinDatum
HelpFile=""
Name="DatumTool"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="4143E6EEEAEEEAEEEAEEEA"
DPB="1416B36E554056405640"
GC="E7E5405FC0E192E292E26D"

[Host Extender Info]
&H00000001={3832D640-CF90-P R O J E C T                                                                                                   C o m p O b j                                                                                          r                                                                                                                                                                                                                                               11CF-8E43-00A0C911005A};VBE;&H00000000

[Workspace]
ThisDocument=22, 22, 763, 634, C
Datum=50, 57, 1036, 881, C
Word97VBA5=1369, 46, 2176, 528, C
Allgemein=154, 154, 961, 636, C
frmDatum=31, 23, 1185, 832, C, 773, 549, 1526, 1069, C
frmStringKeinDatum=93, 15, 998, 771, C, 129, 242, 870, 573, C
                 
  	           F    Microsoft Word 97-2003-Dokument 
   MSWordDoc    Word.Document.8 9q                                                                                           _	             4  4   bjbj                     *6  b  b                                                                     X*    X*    ^=      ^=      ^=      ^=      ^=                 r=     ~=     =      =     =     r=      A>    =      =      =      =      =      =      =      =      =      =      =      =      =      =      =      ;@    B      =                     ^=      =                      =      =      =      =      =              ^=      ^=      =              =      =     =      =      =      =      ^=      =      ^=      =      =              =                                                      =      =              =              =                                                                      x=     =      =          CO            =      =              =     >  0   A>      =      B      =      B      =                                                                              B              ^=      =     =      =      =      =      =                                      =      =      =      =      =                                      =                                      =      =      =      A>      =      =      =      =                                                                                          B      =      =      =      =      =      =                                                              =      =      =      0    $<  :                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ( . A!"#$n%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6    6  2                     0  @  P  `  p                   2  (         0  @  P  `  p                      0  @  P  `  p                      0  @  P  `  p                      0  @  P  `  p                      0  @  P  `  p                      0  @  P  `  p      8  X        V  ~     _HmHnHsHtH    \  @ \          S t a n d a r d      / CJOJPJQJ^J _HO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  \       0 N o r m a l e   T a b e l l e     :V   4   4 
l a      0 k  0        0 K e i n e   L i s t e         PK     !         [Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,3;rØJB+$G]7O٭V<a(7IR{pgL=r85v&uQ뉑8CX=$␴?6NJCFB.ʹ'.+YT^e55 ð_g -;Ylݎ|6^N`?[   PK     ! ֧   6     _rels/.relsj0}Q%v/C/} (h"O
= C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/Seе   PK     ! ky         theme/theme/themeManager.xmlM
 @}w7c(Ebˮ CAǠҟ7՛KY,e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+&
8   PK     ! `       theme/theme/theme1.xmlYOoE#F{oc'vGuرhR-q;ޝfvg53NjHH8PTj%.H
]k9o7!)O^rC$y@/yH*񄴽)޵߻UDb`"qۋJחX^)I٘+*¥@#Zmu)4Pc{ቒzgb
ppP9]&!fmthH)1,<h{5-m\]&-뛿l_!8X6:E8*֕B05z^g UkKYfV2K q^v֬5\|IʜͭNleXd?6k沃7 onwůWZo@Z'Ϥ1gە52PV1ZXl1Eɰ	RӔ%HP5uKO/疴2$}AS>L1Lg?|z|d9qw}|틇_Veۏ@蟙9ϿzϿV7Cn#cpDŵv#L;6Pk-{*r7eq7Gc E+4߈b9pQZW)IV+2n*]8MR`μ,ǻqc8Q8$	QH?TxwR'\Bw(`Z!94۴Mc˴gȷۨY[EBW`Va0'DJǬ*#Sq= !aϴH@YieE
Ed`-~ЍpVa4(F{\Uw!;'}'ݧ-:&
D?(^'ܩ11TpuL"nF#n<mM8zfQ/.}yO=1ߧ9{yr^O3ֳ/ǔ2#-	7&)aiu+
l TE0=-$PK.JͦXX.Q1VN+ZΪlJ&|{eumԙՍim:^!/\"0  ʫpתᶃ	tm,\ddH=IR^+sh?l1)Q+iki,I*k,PguW,K d;ܜ,AGm\nziE>)d]A^5Jز?Mϲs/?lvx Rma0`d_nBX/ʁ
6:+kPo
Z2_]Zѱ_3*E 
ЈM>R*}ahG.9gMW~'fpv4;!6o%JۍswŴR.+<+΀/FS*BiDpTPTz/ȡanjHP8T$Z2wzvvY,d*dL#rHPs>=A6hN֟=Qr9LV638h&T-;ƬFtEyZƚxY(HH>#:~ l/i#-&-ʆ6t'B`kΒs\uN/^d;kC=٢4o2&1GY|t?L*a>֍   PK     ! ѐ     '   theme/theme/_rels/themeManager.xml.relsM
0wooӺ&݈Э56?$Q,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{ P8g/]QAsم(#L[    PK-      !                       [Content_Types].xmlPK-      ! ֧   6               0  _rels/.relsPK-      ! ky                     theme/theme/themeManager.xmlPK-      ! `                   theme/theme/theme1.xmlPK-      ! ѐ     '             	  theme/theme/_rels/themeManager.xml.relsPK      ]  
    <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>         6                      4           s    4                                                             h @      U n k n o w n                                   G  * Ax 	             T i m e s   N e w   R o m a n   5                       S y m b o l   3.  * Cx 	             A r i a l   5                       M a n g a l   O2                                  A g f a   R o t i s   S e m i s a n s   ?=  	* Cx 	             C o u r i e r   N e w   ;                                W i n g d i n g s   A   $ B              C a m b r i a   M a t h   "  1                                                                                                                                                                                                                                                                                                                                                                                                0                                                                                                                         @P    	  $P            2                     !                             x   x                                                                                                                                                                                                                                                                                                              