Attribute VB_Name = "AlteRS_mitFormular_2006_01" ' ' ******************************************************* ' ' MODUL B e w ä h r t e R e c h t s c h r e i b u n g ' ' Gestartet wird von einem F o r m u l a r . ' ' Stand vom 3. 1. 2006. ' ' ' ******************************************************* Option Explicit Global Const Orange = &H80FF& ' ' Sub AlteRS_AA_FormularAufrufen() ' D i e s e S u b sollte mit einer Tastenkombination belegt werden, z.B. Alt + Strg + A . ' Alternative: Diese Sub manuell aufrufen. ' In jedem Fall wird das Formular gestartet; dort klickt man auf die Schaltfläche "Start", ' und nach Ablauf der Makros natürlich auf "Ende" . ' Viel Freude damit wünscht Werner Bildschirm, am 3. 1. 2006 . Dim Leer$, Text1$, Text2$ Text1 = " U m w a n d l u n g i n d i e ": Leer$ = " " Text2 = " S C H Ö N E A L T E R E C H T S C H R E I B U N G " AlteRS_StartFormular.Caption = Leer & Text1 & Text2 AlteRS_StartFormular.Show End Sub ' Die bewährte Rechtschreibung mit Hilfe des F o r m u l a r s starten Sub AlteRS_BB_ZentralesMakro() ' =============================== ' Aufgezeichnet am 28. 4. 2001 ' Z u l e t z t b e a r b e i t e t a m 2. 1. 2006 . ' Der Name sagt es: Dies ist das z e n t r a l e M a k r o : ' Zuerst werden e i n i g e s p e z i e l l e M a k r o s aufgerufen. ' Danach wird eine W o r t l i s t e abgearbeitet. Dim AltText(0 To 500) As String, NeuText(0 To 500) As String Dim TextA$, T1$, T2$, T3$, T4$, T5$, T6$ Dim k&, Wert1#, kAnfang&, kEnde& kEnde = 400 ' <---------- S o v i e l e Z e i l e n mit "AltText - Werten" --------- ' (Die letzten - von 360 bis 400 - sind noch frei für eigene Eintragungen) ' Um sicher zu sein, daß alle Indizes vorkommen: For k = 1 To kEnde: AltText(k) = "xxx": NeuText(k) = "yyy": Next k ' ----- Es wird auf die N o r m a l - A n s i c h t umgeschaltet, ' damit das Makro schneller abläuft. ActiveWindow.View.Type = wdNormalView ' <----- N o r m a l - A n s i c h t Application.ScreenUpdating = False ' <----- Bildschirm wird erst am Ende neu aufgebaut. ' ----- Z u e r s t werden s p e z i e l l e Makros aufgerufen --------------------------- ' Call AlteRS_Großschreiben_nach_Doppelpunkt ' <---- Deaktiviert. (Zum Aktivieren einfach ' das Hoch-Komma am Beginn der Zeile löschen.) Call AlteRS_MehrfachPrüfung Call AlteRS_OhmschesGesetz Call AlteRS_ZurZeit_GetrenntSchreiben Call AlteRS_ss_in_ß Call AlteRS_Mißbrauch_etc Call AlteRS_Schülerinnen_und_Schüler ' <---- Deaktiviert. (Siehe oben) ' ----- Hier folgt die Liste von einzelnen Worten oder Wortgruppen ----- AltText(1) = "Fantasie": NeuText(1) = "Phantasie" AltText(2) = "fantastisch": NeuText(2) = "phantastisch" AltText(3) = "Schülerinnen und Schüler": NeuText(3) = "Schüler" AltText(4) = "müsste": NeuText(4) = "müßte" AltText(5) = "berschuss": NeuText(5) = "berschuß" AltText(6) = "isschen": NeuText(6) = "ißchen" AltText(7) = "passte": NeuText(7) = "paßte" AltText(8) = "zesserklär": NeuText(8) = "zeßerklär" AltText(9) = "ussdichte": NeuText(9) = "ußdichte" AltText(10) = "asste": NeuText(10) = "aßte" AltText(11) = "iessung": NeuText(11) = "ießung" AltText(12) = "bisschen": NeuText(12) = "bißchen" AltText(13) = "lässt": NeuText(13) = "läßt" AltText(14) = "enziation": NeuText(14) = "entiation" AltText(15) = "essprinzip": NeuText(15) = "eßprinzip" AltText(16) = "presst": NeuText(16) = "preßt" AltText(17) = "Genuss": NeuText(17) = "Genuß" AltText(18) = "ythus": NeuText(18) = "ythos" AltText(19) = "wiederrum": NeuText(19) = "wiederum" AltText(20) = "Lehrerinnen und Lehrer": NeuText(20) = "Lehrer" AltText(21) = "latzier": NeuText(21) = "lazier" AltText(22) = "enzial": NeuText(22) = "ential" AltText(23) = "tenziell": NeuText(23) = "tentiell" AltText(24) = "projezier": NeuText(24) = "projizier" AltText(25) = Chr$(184) & Chr$(184): NeuText(25) = Chr$(34) AltText(26) = Chr$(184): NeuText(26) = " " AltText(27) = Chr$(44) & Chr$(44): NeuText(27) = Chr$(34) AltText(28) = Chr$(39) & Chr$(96): NeuText(28) = Chr$(34) AltText(29) = "(c) Bibliographisches Institut & F. A. Brockhaus AG, 2001": NeuText(29) = "" AltText(30) = "Passersatz": NeuText(30) = "Paßersatz" AltText(31) = "fasst": NeuText(31) = "faßt" AltText(32) = "wusst": NeuText(32) = "wußt" AltText(33) = "essinstru": NeuText(33) = "eßinstru" AltText(34) = "essergeb": NeuText(34) = "eßergeb" AltText(35) = "essanford": NeuText(35) = "eßanford" AltText(36) = "esspunkt": NeuText(36) = "eßpunkt" AltText(37) = "chliess": NeuText(37) = "chließ" AltText(38) = "usstsein": NeuText(38) = "ußtsein" AltText(39) = "chlussendlich": NeuText(39) = "chlußendlich" AltText(40) = "ines Besseren": NeuText(40) = "ines besseren" AltText(41) = "m Allgemeinen": NeuText(41) = "m allgemeinen" AltText(42) = "m Folgenden": NeuText(42) = "m folgenden" AltText(43) = "m Weiteren": NeuText(43) = "m weiteren" AltText(44) = "m Stande": NeuText(44) = "mstande" AltText(45) = "weidrittel": NeuText(45) = "wei Drittel" AltText(46) = "reiviertel": NeuText(46) = "rei Viertel" AltText(47) = "m Einzelnen": NeuText(47) = "m einzelnen" AltText(48) = "hier zu Lande": NeuText(48) = "hierzulande" AltText(49) = "as Wesentliche": NeuText(49) = "as wesentliche" AltText(50) = " Anderen": NeuText(50) = " anderen" AltText(51) = " Einzelne": NeuText(51) = " einzelne" AltText(52) = "zu Stande": NeuText(52) = "zustande" AltText(53) = "m Wesentlichen": NeuText(53) = "m wesentlichen" AltText(54) = " Einiges": NeuText(54) = " einiges" AltText(55) = "zu Eigen": NeuText(55) = "zu eigen" AltText(56) = "es Weiteren": NeuText(56) = "es weiteren" AltText(57) = "am Besten": NeuText(57) = "am besten" AltText(58) = "as Zweite": NeuText(58) = "as zweite" AltText(59) = "umso ": NeuText(59) = "um so " AltText(60) = "so genannt": NeuText(60) = "sogenannt" AltText(61) = "nahe stehen": NeuText(61) = "nahestehen" AltText(62) = "weit verbreit": NeuText(62) = "weitverbreit" AltText(63) = "ufeinander folg": NeuText(63) = "ufeinanderfolg" AltText(64) = "ugrunde liegen": NeuText(64) = "ugrundeliegen" AltText(65) = "chwer wieg": NeuText(65) = "chwerwieg" AltText(66) = "eit gehend": NeuText(66) = "eitgehend" AltText(67) = "fehl schlägt": NeuText(67) = "fehlschlägt" AltText(68) = "eit reichen": NeuText(68) = "eitreichen" AltText(69) = "elbst ernann": NeuText(69) = "selbsternann" AltText(70) = "elbstständig": NeuText(70) = "elbständig" AltText(71) = "sss": NeuText(71) = "ßs" AltText(72) = "fff": NeuText(72) = "ff" AltText(73) = "lll": NeuText(73) = "ll" AltText(74) = "nnn": NeuText(74) = "nn" AltText(75) = "mmm": NeuText(75) = "mm" AltText(76) = "Albtraum": NeuText(76) = "Alptraum" AltText(77) = "ummerier": NeuText(77) = "umerier" AltText(78) = "xxx": NeuText(78) = "yyy" AltText(79) = "chliessung": NeuText(79) = "chließung" AltText(80) = "ufgeraut": NeuText(80) = "ufgerauht" AltText(81) = "xxx": NeuText(81) = "yyy" AltText(82) = "xxx": NeuText(82) = "yyy" AltText(83) = "xxx": NeuText(83) = "yyy" AltText(84) = "xxx": NeuText(84) = "yyy" AltText(85) = "ermisst": NeuText(85) = "ermißt" AltText(86) = "SchülerInnen": NeuText(86) = "Schüler" AltText(87) = "LehrerInnen": NeuText(87) = "Lehrer" AltText(88) = "usschuss": NeuText(88) = "usschuß" AltText(89) = "essapp": NeuText(89) = "eßapp" AltText(90) = "ie Ersten": NeuText(90) = "ie ersten" AltText(91) = "ls Erste": NeuText(91) = "ls erste" AltText(92) = "Letztere": NeuText(92) = "letztere" AltText(93) = "ls Einziger": NeuText(93) = "ls einziger" AltText(94) = "ns Eingemachte": NeuText(94) = "ns eingemachte" AltText(95) = "m Übrigen": NeuText(95) = "m übrigen" AltText(96) = "Größeres": NeuText(96) = "größeres" AltText(97) = "m Nachhinein": NeuText(97) = "m nachhinein" AltText(98) = " Folgendes": NeuText(98) = " folgendes" AltText(99) = "ußer Acht": NeuText(99) = "ußer acht" AltText(100) = "grafie": NeuText(100) = "graphie" AltText(101) = "sofie": NeuText(101) = "sophi" AltText(102) = "Delfin": NeuText(102) = "Delphin" AltText(103) = "Kilo-Watt-Stunde": NeuText(103) = "Kilowattstunde" AltText(104) = "Paragraf": NeuText(104) = "Paragraph" AltText(105) = "xxx": NeuText(105) = "yyy" AltText(106) = "xxx": NeuText(106) = "yyy" AltText(107) = "xxx": NeuText(107) = "yyy" AltText(108) = "xxx": NeuText(108) = "yyy" AltText(109) = "xxx": NeuText(109) = "yyy" AltText(110) = "wändig": NeuText(110) = "wendig" AltText(111) = "uängel": NeuText(111) = "uengel" AltText(112) = "räuel": NeuText(112) = "reuel" AltText(113) = "räulich": NeuText(113) = "reulich" AltText(114) = "tängel": NeuText(114) = "tengel" AltText(115) = "ufwänd": NeuText(115) = "ufwend" AltText(116) = "xxx": NeuText(116) = "yyy" AltText(117) = "xxx": NeuText(117) = "yyy" AltText(118) = "xxx": NeuText(118) = "yyy" AltText(119) = "xxx": NeuText(119) = "yyy" AltText(120) = "Aufsehen erreg": NeuText(120) = "aufsehenerreg" AltText(121) = "useinander setz": NeuText(121) = "useinandersetz" AltText(122) = "Besorgnis erreg": NeuText(122) = "besorgniserreg" AltText(123) = "ekannt gege": NeuText(123) = "ekanntgege" AltText(124) = "Krebs erreg": NeuText(124) = "krebserreg" AltText(125) = "arüber hinaus": NeuText(125) = "arüberhinaus" AltText(126) = " infrage": NeuText(126) = " in Frage" AltText(127) = "ufseiten": NeuText(127) = "uf Seiten" AltText(128) = " offen legen": NeuText(128) = " offenlegen" AltText(129) = "fest steh": NeuText(129) = "feststeh" AltText(130) = "Wärme speichernd": NeuText(130) = "wärmespeichernd" AltText(131) = "xxx": NeuText(131) = "yyy" AltText(132) = "usstsein": NeuText(132) = "ußtsein" AltText(133) = "isserfolg": NeuText(133) = "ißerfolg" AltText(134) = "influss": NeuText(134) = "influß" AltText(135) = "useinander laufen": NeuText(135) = "useinanderlaufen" AltText(136) = "chlussakt": NeuText(136) = "chlußakt" AltText(137) = "gressabge": NeuText(137) = "greßabge" AltText(138) = "aufsehenerregten": NeuText(138) = "Aufsehen erregten" AltText(139) = "xxx": NeuText(139) = "yyy" AltText(140) = "LOAD-TIPP": NeuText(140) = "LOAD-TIP" AltText(141) = "WORD-TIPP": NeuText(141) = "WORD-TIP" AltText(142) = "LETTER-TIPP": NeuText(142) = "LETTER-TIP" AltText(143) = "EINFUEGEN": NeuText(143) = "EINFÜGEN" AltText(144) = "KNUEPF": NeuText(144) = "KNÜPF" AltText(145) = "PAEISCH": NeuText(145) = "PÄISCH" AltText(146) = "FUER": NeuText(146) = "FÜR" AltText(147) = "xxx": NeuText(147) = "yyy" AltText(148) = "xxx": NeuText(148) = "yyy" AltText(149) = "xxx": NeuText(149) = "yyy" AltText(150) = "xxx": NeuText(150) = "yyy" AltText(151) = "xxx": NeuText(151) = "yyy" AltText(152) = "xxx": NeuText(152) = "yyy" AltText(153) = "xxx": NeuText(153) = "yyy" AltText(154) = "xxx": NeuText(154) = "yyy" AltText(155) = "xxx": NeuText(155) = "yyy" AltText(156) = "xxx": NeuText(156) = "yyy" AltText(157) = "xxx": NeuText(157) = "yyy" AltText(158) = "xxx": NeuText(158) = "yyy" AltText(159) = "xxx": NeuText(159) = "yyy" AltText(160) = "xxx": NeuText(160) = "yyy" AltText(161) = "xxx": NeuText(161) = "yyy" AltText(162) = "xxx": NeuText(162) = "yyy" AltText(163) = "xxx": NeuText(163) = "yyy" AltText(164) = "xxx": NeuText(164) = "yyy" AltText(165) = "xxx": NeuText(165) = "yyy" AltText(166) = "xxx": NeuText(166) = "yyy" AltText(167) = "xxx": NeuText(167) = "yyy" AltText(168) = "xxx": NeuText(168) = "yyy" AltText(169) = "xxx": NeuText(169) = "yyy" AltText(170) = "xxx": NeuText(170) = "yyy" AltText(171) = "xxx": NeuText(171) = "yyy" AltText(172) = "xxx": NeuText(172) = "yyy" AltText(173) = "xxx": NeuText(173) = "yyy" AltText(174) = "xxx": NeuText(174) = "yyy" AltText(175) = "xxx": NeuText(175) = "yyy" AltText(176) = "xxx": NeuText(176) = "yyy" AltText(177) = "xxx": NeuText(177) = "yyy" AltText(178) = "xxx": NeuText(178) = "yyy" AltText(179) = "xxx": NeuText(179) = "yyy" ' ======= F e h l e r r ü c k g ä n g i g m a c h e n ======== ' Achtung: Meßskala braucht eine besondere Behandlung AltText(180) = "außtießen ": NeuText(180) = "ausstießen " ' <----- A B C ----- AltText(181) = "Aßyrien": NeuText(181) = "Assyrien" AltText(182) = "aßword": NeuText(182) = "assword" AltText(183) = "außchließlich": NeuText(183) = "ausschließlich" AltText(184) = "xxx": NeuText(184) = "yyy" AltText(185) = "xxx": NeuText(185) = "yyy" AltText(186) = "chloßen": NeuText(186) = "chlossen" AltText(187) = "choßen ": NeuText(187) = "chossen " AltText(188) = "chliess": NeuText(188) = "chließ" AltText(189) = "ßchwingung": NeuText(189) = "sschwingung" AltText(190) = "xxx": NeuText(190) = "yyy" AltText(191) = "xxx": NeuText(191) = "yyy" AltText(192) = "xxx": NeuText(192) = "yyy" AltText(193) = "xxx": NeuText(193) = "yyy" AltText(194) = "cceß": NeuText(194) = "ccess" AltText(195) = "Croß": NeuText(195) = "Cross" AltText(196) = "xxx": NeuText(196) = "yyy" AltText(197) = "xxx": NeuText(197) = "yyy" AltText(198) = "xxx": NeuText(198) = "yyy" AltText(199) = "xxx": NeuText(199) = "yyy" AltText(200) = "dreß": NeuText(200) = "dress" ' <----- D E F ----- AltText(201) = "xxx": NeuText(201) = "yyy" AltText(202) = "xxx": NeuText(202) = "yyy" AltText(203) = "xxx": NeuText(203) = "yyy" AltText(204) = "eßor": NeuText(204) = "essor" AltText(205) = "eßiv": NeuText(205) = "essiv" AltText(206) = "eißkala": NeuText(206) = "eisskala" AltText(207) = "ermassen": NeuText(207) = "ermaßen" AltText(208) = "eichniß": NeuText(208) = "eichnis" AltText(209) = "xxx": NeuText(209) = "yyy" AltText(210) = "xxx": NeuText(210) = "yyy" AltText(211) = "xxx": NeuText(211) = "yyy" AltText(212) = "xxx": NeuText(212) = "yyy" AltText(213) = "xxx": NeuText(213) = "yyy" AltText(214) = "xxx": NeuText(214) = "yyy" AltText(215) = "xxx": NeuText(215) = "yyy" AltText(216) = "xxx": NeuText(216) = "yyy" AltText(217) = "xxx": NeuText(217) = "yyy" AltText(218) = "xxx": NeuText(218) = "yyy" AltText(219) = "xxx": NeuText(219) = "yyy" AltText(220) = "grösse": NeuText(220) = "größe" ' <----- G H I J ----- AltText(221) = "Graß": NeuText(221) = "Grass " AltText(222) = "xxx": NeuText(222) = "yyy" AltText(223) = "xxx": NeuText(223) = "yyy" AltText(224) = "heisses": NeuText(224) = "heißes" AltText(225) = "heßbase": NeuText(225) = "hessbase" AltText(226) = "xxx": NeuText(226) = "yyy" AltText(227) = "inlaßen": NeuText(227) = "inlassen" AltText(228) = "ireleß": NeuText(228) = "ireless" AltText(229) = "xxx": NeuText(229) = "yyy" AltText(230) = "xxx": NeuText(230) = "yyy" AltText(231) = "xxx": NeuText(231) = "yyy" AltText(232) = "xxx": NeuText(232) = "yyy" AltText(233) = "xxx": NeuText(233) = "yyy" AltText(234) = "xxx": NeuText(234) = "yyy" AltText(235) = "xxx": NeuText(235) = "yyy" AltText(236) = "xxx": NeuText(236) = "yyy" AltText(237) = "xxx": NeuText(237) = "yyy" AltText(238) = "xxx": NeuText(238) = "yyy" AltText(239) = "xxx": NeuText(239) = "yyy" AltText(240) = "xxx": NeuText(240) = "yyy" ' <----- K L M ----- AltText(241) = "xxx": NeuText(241) = "yyy" AltText(251) = "xxx": NeuText(251) = "yyy" AltText(243) = "xxx": NeuText(243) = "yyy" AltText(244) = "xxx": NeuText(244) = "yyy" AltText(245) = "xxx": NeuText(245) = "yyy" AltText(246) = "lußen": NeuText(246) = "lussen" AltText(247) = "lußes": NeuText(247) = "lusses" AltText(248) = "xxx": NeuText(248) = "yyy" AltText(249) = "xxx": NeuText(249) = "yyy" AltText(250) = "xxx": NeuText(250) = "yyy" AltText(251) = " Mit Hilfe": NeuText(251) = " Mithilfe" AltText(252) = "xxx": NeuText(252) = "yyy" AltText(253) = "xxx": NeuText(253) = "yyy" AltText(254) = "xxx": NeuText(254) = "yyy" AltText(255) = "xxx": NeuText(255) = "yyy" AltText(256) = "xxx": NeuText(256) = "yyy" AltText(257) = "xxx": NeuText(257) = "yyy" AltText(258) = "xxx": NeuText(258) = "yyy" AltText(259) = "xxx": NeuText(259) = "yyy" AltText(260) = "nmassung": NeuText(260) = "nmaßung" ' <----- N O P Q ----- AltText(261) = "xxx": NeuText(261) = "yyy" AltText(262) = "xxx": NeuText(262) = "yyy" AltText(263) = "xxx": NeuText(263) = "yyy" AltText(264) = "xxx": NeuText(264) = "yyy" AltText(265) = "ordleß": NeuText(265) = "ordless" AltText(266) = "xxx": NeuText(266) = "yyy" AltText(267) = "xxx": NeuText(267) = "yyy" AltText(268) = "xxx": NeuText(268) = "yyy" AltText(269) = "xxx": NeuText(269) = "yyy" AltText(270) = "xxx": NeuText(270) = "yyy" AltText(271) = "xxx": NeuText(271) = "yyy" AltText(272) = "xxx": NeuText(272) = "yyy" AltText(273) = "xxx": NeuText(273) = "yyy" AltText(274) = "xxx": NeuText(274) = "yyy" AltText(275) = "xxx": NeuText(275) = "yyy" AltText(276) = "xxx": NeuText(276) = "yyy" AltText(277) = "xxx": NeuText(277) = "yyy" AltText(278) = "xxx": NeuText(278) = "yyy" AltText(279) = "xxx": NeuText(279) = "yyy" AltText(280) = "rozeße": NeuText(280) = "rozesse" ' <----- R S ----- AltText(281) = "roceß": NeuText(281) = "rocess" AltText(282) = "xxx": NeuText(282) = "yyy" AltText(283) = "xxx": NeuText(283) = "yyy" AltText(284) = "xxx": NeuText(284) = "yyy" AltText(285) = "xxx": NeuText(285) = "yyy" AltText(286) = "xxx": NeuText(286) = "yyy" AltText(287) = "xxx": NeuText(287) = "yyy" AltText(288) = "xxx": NeuText(288) = "yyy" AltText(289) = "xxx": NeuText(289) = "yyy" AltText(290) = "schuße": NeuText(290) = "schusse" AltText(291) = "ßch": NeuText(291) = "ssch" AltText(292) = "Swißcom": NeuText(292) = "Swisscom" AltText(293) = "ßystem": NeuText(293) = "ssystem" AltText(294) = "ßymbol": NeuText(294) = "ssymbol" AltText(295) = "ßynchron": NeuText(295) = "ssynchron" AltText(296) = "ßymptom ": NeuText(296) = "ssymptom" AltText(297) = "ßhow": NeuText(297) = "sshow" AltText(298) = "ßkala": NeuText(298) = "sskala" AltText(299) = "ßkale": NeuText(299) = "sskale" ' AltText(201) = "ßung": NeuText(201) = "ssung" Verheißung ist korrekt !!! AltText(300) = "ßkandal": NeuText(300) = "sskandal" AltText(301) = "ßegment": NeuText(301) = "ssegment" AltText(302) = "ßymmetr": NeuText(302) = "ssymmetr" AltText(303) = "ßkript": NeuText(303) = "sskript" AltText(304) = "xxx": NeuText(304) = "yyy" AltText(305) = "xxx": NeuText(305) = "yyy" AltText(306) = "xxx": NeuText(306) = "yyy" AltText(307) = "xxx": NeuText(307) = "yyy" AltText(308) = "xxx": NeuText(308) = "yyy" AltText(309) = "xxx": NeuText(309) = "yyy" AltText(310) = "xxx": NeuText(310) = "yyy" AltText(311) = "xxx": NeuText(311) = "yyy" AltText(312) = "xxx": NeuText(312) = "yyy" AltText(313) = "xxx": NeuText(313) = "yyy" AltText(314) = "xxx": NeuText(314) = "yyy" AltText(315) = "xxx": NeuText(315) = "yyy" AltText(316) = "xxx": NeuText(316) = "yyy" AltText(317) = "xxx": NeuText(317) = "yyy" AltText(318) = "xxx": NeuText(318) = "yyy" AltText(319) = "xxx": NeuText(319) = "yyy" AltText(320) = "Taß": NeuText(320) = "Tass" ' <----- T U V ----- AltText(321) = "xxx": NeuText(321) = "yyy" AltText(322) = "xxx": NeuText(322) = "yyy" AltText(323) = "xxx": NeuText(323) = "yyy" AltText(324) = "xxx": NeuText(324) = "yyy" AltText(325) = "xxx": NeuText(325) = "yyy" AltText(326) = "usserst": NeuText(326) = "ußerst" AltText(327) = "uineß": NeuText(327) = "uiness" AltText(328) = "usineß": NeuText(328) = "usiness" AltText(329) = "xxx": NeuText(329) = "yyy" AltText(330) = "uchßkizze": NeuText(330) = "uchsskizze" AltText(331) = "ußtieg": NeuText(331) = "usstieg" AltText(332) = "ußstoß": NeuText(332) = "usstoß" AltText(333) = "ußtell": NeuText(333) = "usstell" AltText(334) = "ußsteig": NeuText(334) = "ussteig" AltText(335) = "ußsterb": NeuText(335) = "ussterb" AltText(336) = "xxx": NeuText(336) = "yyy" AltText(337) = "xxx": NeuText(337) = "yyy" AltText(338) = "xxx": NeuText(338) = "yyy" AltText(339) = "xxx": NeuText(339) = "yyy" AltText(340) = "wiß.": NeuText(340) = "wiss." ' <----- W X Y Z ----- AltText(341) = "xxx": NeuText(341) = "yyy" AltText(342) = "xxx": NeuText(342) = "yyy" AltText(343) = "xxx": NeuText(343) = "yyy" AltText(344) = "xxx": NeuText(344) = "yyy" AltText(345) = "xxx": NeuText(345) = "yyy" AltText(346) = "xpreß": NeuText(346) = "xpress" AltText(347) = "xxx": NeuText(347) = "yyy" AltText(348) = "xxx": NeuText(348) = "yyy" AltText(349) = "xxx": NeuText(349) = "yyy" AltText(350) = "xxx": NeuText(350) = "yyy" AltText(351) = "xxx": NeuText(351) = "yyy" AltText(352) = "zeßor": NeuText(352) = "zessor" AltText(353) = "zeßion": NeuText(353) = "zession" AltText(354) = "z. B.": NeuText(354) = "z.B." AltText(355) = "xxx": NeuText(355) = "yyy" AltText(356) = "xxx": NeuText(356) = "yyy" AltText(357) = "Zeiß-Ikon": NeuText(357) = "Zeiss-Ikon" AltText(358) = "xxx": NeuText(358) = "yyy" AltText(359) = "xxx": NeuText(359) = "yyy" AltText(360) = "xxx": NeuText(360) = "yyy" AltText(361) = "xxx": NeuText(361) = "yyy" AltText(362) = "xxx": NeuText(362) = "yyy" AltText(363) = "xxx": NeuText(363) = "yyy" AltText(364) = "xxx": NeuText(364) = "yyy" AltText(365) = "xxx": NeuText(365) = "yyy" AltText(366) = "xxx": NeuText(366) = "yyy" AltText(367) = "xxx": NeuText(367) = "yyy" AltText(368) = "xxx": NeuText(368) = "yyy" AltText(369) = "xxx": NeuText(369) = "yyy" AltText(370) = "xxx": NeuText(370) = "yyy" AltText(371) = "xxx": NeuText(371) = "yyy" AltText(372) = "xxx": NeuText(372) = "yyy" AltText(373) = "xxx": NeuText(373) = "yyy" AltText(374) = "xxx": NeuText(374) = "yyy" AltText(375) = "xxx": NeuText(375) = "yyy" AltText(376) = "xxx": NeuText(376) = "yyy" AltText(377) = "xxx": NeuText(377) = "yyy" AltText(378) = "xxx": NeuText(378) = "yyy" AltText(379) = "xxx": NeuText(379) = "yyy" AltText(380) = "xxx": NeuText(380) = "yyy" AltText(381) = "xxx": NeuText(381) = "yyy" AltText(382) = "xxx": NeuText(382) = "yyy" AltText(383) = "xxx": NeuText(383) = "yyy" AltText(384) = "xxx": NeuText(384) = "yyy" AltText(385) = "xxx": NeuText(385) = "yyy" AltText(386) = "xxx": NeuText(386) = "yyy" AltText(387) = "xxx": NeuText(387) = "yyy" AltText(388) = "xxx": NeuText(388) = "yyy" AltText(389) = "xxx": NeuText(389) = "yyy" AltText(390) = "xxx": NeuText(390) = "yyy" AltText(391) = "xxx": NeuText(391) = "yyy" AltText(392) = "xxx": NeuText(392) = "yyy" AltText(393) = "xxx": NeuText(393) = "yyy" AltText(394) = "xxx": NeuText(394) = "yyy" AltText(395) = "xxx": NeuText(395) = "yyy" AltText(396) = "xxx": NeuText(396) = "yyy" AltText(397) = "xxx": NeuText(397) = "yyy" AltText(398) = "xxx": NeuText(398) = "yyy" AltText(399) = "xxx": NeuText(399) = "yyy" AltText(400) = "xxx": NeuText(400) = "yyy" AltText(401) = "xxx": NeuText(401) = "yyy" AltText(402) = "xxx": NeuText(402) = "yyy" AltText(403) = "xxx": NeuText(403) = "yyy" AltText(404) = "xxx": NeuText(404) = "yyy" AltText(405) = "xxx": NeuText(405) = "yyy" AltText(406) = "xxx": NeuText(406) = "yyy" AltText(407) = "xxx": NeuText(407) = "yyy" AltText(408) = "xxx": NeuText(408) = "yyy" AltText(409) = "xxx": NeuText(409) = "yyy" ' ---------- S o n d e r t e i l für das RS - Forum ---------------------------- T1 = "... Verweis auf diesen Datensatz kopieren." T2 = "Ich möchte einen Kommentar zu dieser Meldung schreiben ..." T3 = "zurück zur kommentierten Meldung" AltText(410) = T1: NeuText(410) = " " AltText(411) = T2: NeuText(411) = " " AltText(412) = T3: NeuText(412) = " " AltText(413) = "xxx": NeuText(413) = "yyy" AltText(414) = "xxx": NeuText(414) = "yyy" AltText(415) = "xxx": NeuText(415) = "yyy" AltText(416) = "xxx": NeuText(416) = "yyy" AltText(417) = "xxx": NeuText(417) = "yyy" AltText(418) = "xxx": NeuText(418) = "yyy" AltText(419) = "xxx": NeuText(419) = "yyy" AltText(420) = "xxx": NeuText(420) = "yyy" AltText(421) = "xxx": NeuText(421) = "yyy" AltText(422) = "xxx": NeuText(422) = "yyy" AltText(423) = "xxx": NeuText(423) = "yyy" AltText(424) = "xxx": NeuText(424) = "yyy" AltText(425) = "xxx": NeuText(425) = "yyy" AltText(426) = "xxx": NeuText(426) = "yyy" AltText(427) = "xxx": NeuText(427) = "yyy" AltText(428) = "xxx": NeuText(428) = "yyy" AltText(429) = "xxx": NeuText(429) = "yyy" AltText(430) = "xxx": NeuText(430) = "yyy" AltText(431) = "xxx": NeuText(431) = "yyy" AltText(432) = "xxx": NeuText(432) = "yyy" AltText(433) = "xxx": NeuText(433) = "yyy" AltText(434) = "xxx": NeuText(434) = "yyy" AltText(435) = "xxx": NeuText(435) = "yyy" AltText(436) = "xxx": NeuText(436) = "yyy" AltText(437) = "xxx": NeuText(437) = "yyy" AltText(438) = "xxx": NeuText(438) = "yyy" AltText(439) = "xxx": NeuText(439) = "yyy" AltText(440) = "xxx": NeuText(440) = "yyy" AltText(441) = "xxx": NeuText(441) = "yyy" AltText(442) = "xxx": NeuText(442) = "yyy" AltText(443) = "xxx": NeuText(443) = "yyy" AltText(444) = "xxx": NeuText(444) = "yyy" AltText(445) = "xxx": NeuText(445) = "yyy" AltText(446) = "xxx": NeuText(446) = "yyy" AltText(447) = "xxx": NeuText(447) = "yyy" AltText(448) = "xxx": NeuText(448) = "yyy" AltText(449) = "xxx": NeuText(449) = "yyy" AltText(450) = "xxx": NeuText(450) = "yyy" AltText(451) = "xxx": NeuText(451) = "yyy" AltText(452) = "xxx": NeuText(452) = "yyy" AltText(453) = "xxx": NeuText(453) = "yyy" AltText(454) = "xxx": NeuText(454) = "yyy" AltText(455) = "xxx": NeuText(455) = "yyy" AltText(456) = "xxx": NeuText(456) = "yyy" AltText(457) = "xxx": NeuText(457) = "yyy" AltText(458) = "xxx": NeuText(458) = "yyy" AltText(459) = "xxx": NeuText(459) = "yyy" ' ----- Rechtzeitig einen neuen Block mit Nummern von 220 bis 229 erzeugen ? ' ----- Den auskommentierten Block markieren / "21" durch "22" ersetzen ' ( im m a r k i e r t e n Text) . ' ----- Fertig ! ' ----- Darauf achten, daß kEnde wirklich die l e t z t e verwendete Nummer ist ! ' __________________________________________________ 'For k = 1 To kEnde ' ******** Hier wird die Liste geschrieben; dann in Word exportiert ! ' ' TextA = AltText(k) '' If TextA = "" Then GoTo AlteRS_Ausgabe_Weiter ' Debug.Print k; "#"; TextA; "#"; NeuText(k) ' 'AlteRS_Ausgabe_Weiter: ' Next k ' 'Exit Sub Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To kEnde ' <====== F ü r a l l e A l t T e x t - W ö r t e r Wert1 = Int(k * 100 / kEnde) AlteRS_StartFormular.ZustandRS.Value = Wert1 TextA = AltText(k) If TextA = "xxx" Then GoTo Weiter_mitAltText ' ====================================== With Selection.Find .Text = TextA .Replacement.Text = NeuText(k) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ======================================= Weiter_mitAltText: Next k ' _____ ActiveWindow.View.Type = wdPageView ' L a y o u t - A n s i c h t Application.ScreenUpdating = True AlteRS_StartFormular.KnopfEnde.SetFocus AlteRS_StartFormular.LabelHaupt.BackColor = Orange AlteRS_StartFormular.Repaint End Sub ' Alte Rechtschreibung - d a s z e n t r a l e M a k r o Sub AlteRS_Großschreiben_nach_Doppelpunkt() ' ----- Der Name sagt alles. ' Wenn man möchte, daß einem Doppelpunkt groß geschrieben wird, ' soll dieses Makro (im zentralen Makro weiter oben) aufgerufen werden. ' Falls nicht, einfach deaktivieren, z.B. durch die Zeile "Exit Sub" . Dim k&, TextA$, TextB$ ' Exit Sub Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 97 To 122 ' =================================== TextA = ": " & Chr$(k) TextB = Left$(TextA, 2) & UCase(Right$(TextA, 1)) With Selection.Find .Text = TextA .Replacement.Text = TextB .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' =================================== Next k End Sub ' Nach einem Doppelpunkt wird wieder g r o ß geschrieben . Sub AlteRS_MehrfachPrüfung() ' ------------- M E H R F A C H P R Ü F U N G -------------- ' "Mehrfachprüfung" bedeutet: "ess," "ess." "ess?" etc. wird entsprechend ersetzt, ' d.h. "ess" plus 'Zeichen' . ' Würde z.B. nur "ess" durch "eß" ersetzt, entstünde auch "Meßer" , was nicht so gefällt. Dim AltSilbe(0 To 200) As String Dim NeuSilbe(0 To 200) As String Dim Endung(1 To 30) As String Dim SilbeA$, Hilf$ Dim j&, k&, Wert1#, kEnde& Endung(1) = " " ' Leeerzeichen Endung(2) = "." ' Endung(3) = "," ' Komma Endung(4) = ";" ' Endung(5) = ":" ' Doppelpunkt Endung(6) = "?" ' Endung(7) = "!" ' Ausrufezeichen Endung(8) = "(" ' Endung(9) = ")" ' Klammer zu Endung(10) = Chr$(34) ' Tüttelchen Endung(11) = "-" ' Bindestrich AltSilbe(1) = "ass": NeuSilbe(1) = "aß" AltSilbe(2) = "ess": NeuSilbe(2) = "eß" AltSilbe(3) = "iss": NeuSilbe(3) = "iß" AltSilbe(4) = "oss": NeuSilbe(4) = "oß" AltSilbe(5) = "uss": NeuSilbe(5) = "uß" AltSilbe(6) = "äss": NeuSilbe(6) = "äß" AltSilbe(7) = "öss": NeuSilbe(7) = "öß" AltSilbe(8) = "üss": NeuSilbe(8) = "üß" AltSilbe(9) = "asst": NeuSilbe(9) = "aßt" AltSilbe(10) = "esst": NeuSilbe(10) = "eßt" AltSilbe(11) = "isst": NeuSilbe(11) = "ißt" AltSilbe(12) = "osst": NeuSilbe(12) = "oßt" AltSilbe(13) = "usst": NeuSilbe(13) = "ußt" AltSilbe(14) = "ässt": NeuSilbe(14) = "äßt" AltSilbe(15) = "össt": NeuSilbe(15) = "ößt" AltSilbe(16) = "üsst": NeuSilbe(16) = "üßt" AltSilbe(17) = "usste": NeuSilbe(17) = "ußte" AltSilbe(18) = "üsste": NeuSilbe(18) = "üßte" AltSilbe(19) = "ussten": NeuSilbe(19) = "ußten" AltSilbe(20) = "üssten": NeuSilbe(20) = "üßten" AltSilbe(21) = "xxx": NeuSilbe(21) = "yyy" AltSilbe(22) = "xxx": NeuSilbe(22) = "yyy" AltSilbe(23) = "xxx": NeuSilbe(23) = "yyy" AltSilbe(24) = "xxx": NeuSilbe(24) = "yyy" AltSilbe(25) = "xxx": NeuSilbe(25) = "yyy" AltSilbe(26) = "xxx": NeuSilbe(26) = "yyy" AltSilbe(27) = "xxx": NeuSilbe(27) = "yyy" AltSilbe(28) = "xxx": NeuSilbe(28) = "yyy" AltSilbe(29) = "xxx": NeuSilbe(29) = "yyy" AltSilbe(30) = "Tipp": NeuSilbe(30) = "Tip" AltSilbe(31) = "Tipps": NeuSilbe(31) = "Tips" AltSilbe(32) = "Ass": NeuSilbe(32) = "As" AltSilbe(33) = "xxx": NeuSilbe(33) = "yyy" AltSilbe(34) = "xxx": NeuSilbe(34) = "yyy" AltSilbe(35) = "xxx": NeuSilbe(35) = "yyy" AltSilbe(36) = "xxx": NeuSilbe(36) = "yyy" AltSilbe(37) = "xxx": NeuSilbe(37) = "yyy" AltSilbe(38) = "xxx": NeuSilbe(38) = "yyy" AltSilbe(39) = "xxx": NeuSilbe(39) = "yyy" AltSilbe(40) = "xxx": NeuSilbe(40) = "yyy" AltSilbe(41) = "xxx": NeuSilbe(41) = "yyy" AltSilbe(42) = "xxx": NeuSilbe(42) = "yyy" AltSilbe(43) = "xxx": NeuSilbe(43) = "yyy" AltSilbe(44) = "xxx": NeuSilbe(44) = "yyy" AltSilbe(45) = "xxx": NeuSilbe(45) = "yyy" AltSilbe(46) = "xxx": NeuSilbe(46) = "yyy" AltSilbe(47) = "xxx": NeuSilbe(47) = "yyy" AltSilbe(48) = "xxx": NeuSilbe(48) = "yyy" AltSilbe(49) = "xxx": NeuSilbe(49) = "yyy" ' AltSilbe(10) = "xxx": NeuSilbe(10) = "yyy" ' AltSilbe(11) = "xxx": NeuSilbe(11) = "yyy" ' AltSilbe(12) = "xxx": NeuSilbe(12) = "yyy" ' AltSilbe(13) = "xxx": NeuSilbe(13) = "yyy" ' AltSilbe(14) = "xxx": NeuSilbe(14) = "yyy" ' AltSilbe(15) = "xxx": NeuSilbe(15) = "yyy" ' AltSilbe(16) = "xxx": NeuSilbe(16) = "yyy" ' AltSilbe(17) = "xxx": NeuSilbe(17) = "yyy" ' AltSilbe(18) = "xxx": NeuSilbe(18) = "yyy" ' AltSilbe(19) = "xxx": NeuSilbe(19) = "yyy" ' __________________________________________________ kEnde = 49 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To kEnde ' <==== D i e s s - S c h r e i b u n g e n Wert1 = Int(k * 100 / kEnde) AlteRS_StartFormular.ZustandMehrFach.Value = Wert1 Hilf = AltSilbe(k) If Hilf = "xxx" Then GoTo Weiter_mit_Nächster_Silbe For j = 1 To 11 ' <==== D i e E n d u n g e n SilbeA = Hilf & Endung(j) ' If SilbeA = "xxx" & Endung(j) Then GoTo Weiter2 ' ====================================== With Selection.Find .Text = SilbeA .Replacement.Text = NeuSilbe(k) & Endung(j) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ======================================= Weiter2: Next j Weiter_mit_Nächster_Silbe: Next k ' ===========> ss AlteRS_StartFormular.LabelMehrFach.BackColor = Orange AlteRS_StartFormular.Repaint End Sub ' AlteRR - M e h r f a c h p r ü f u n g , z.B. ass, ass; ass? Sub AlteRS_OhmschesGesetz() ' ------------- O H M S C H E S G E S E T Z ----------------------- ' Die einsteinsche Gleichung wird wieder zur Einsteinschen Gleichung. Dim eName(1 To 100) As String Dim TextA$, TextB$ Dim ErsterBuchstabe$, RestText$ Dim La&, k&, Wert1#, kEnde& ' ============= D i e 'E i g e n n a m e n' : ============== eName(1) = "archimed": eName(2) = "boltzmann": eName(3) = "bohrsch" ' ~~~ a b eName(4) = "cardanisch": eName(5) = "braunsch": eName(6) = "briggsch" eName(7) = "binomisch": eName(8) = "xxx": eName(9) = "xxx" eName(10) = "einsteinsch": eName(11) = "coulomb": eName(12) = "euklid" ' ~~~ c d e eName(13) = "eulersch": eName(14) = "dalton": eName(15) = "enckesch" eName(16) = "cassini": eName(17) = "xxx": eName(18) = "xxx" eName(19) = "xxx" eName(20) = "faraday": eName(21) = "fermat": eName(22) = "gauss" ' ~~~ f g h eName(23) = "gauß": eName(24) = "heisenberg": eName(25) = "huygens" eName(26) = "fahrenheit": eName(27) = "hooke": eName(28) = "fresnel" eName(29) = "fraunhofer" eName(30) = "laplace": eName(31) = "kepler": eName(32) = "leibniz" ' ~~~ i j k l eName(33) = "lagrange": eName(34) = "xxx": eName(35) = "xxx" eName(36) = "xxx": eName(37) = "xxx": eName(38) = "xxx" eName(39) = "xxx" eName(40) = "ohmsche": eName(41) = "newton": eName(42) = "maxwell" ' ~~~ m n o eName(43) = "napiersch": eName(44) = "xxx": eName(45) = "xxx" eName(46) = "xxx": eName(47) = "xxx": eName(48) = "xxx" eName(49) = "xxx" eName(50) = "pythagor": eName(51) = "planck": eName(52) = "poincar" ' ~~~ p q r eName(53) = "riemann": eName(54) = "xxx": eName(55) = "xxx" eName(56) = "xxx": eName(57) = "xxx": eName(58) = "xxx" eName(59) = "xxx" eName(60) = "schrödinger": eName(61) = "stirling": eName(62) = "thomson" ' ~~~ s t eName(63) = "xxx": eName(64) = "xxx": eName(65) = "xxx" eName(66) = "xxx": eName(67) = "xxx": eName(68) = "xxx" eName(69) = "xxx" eName(70) = "webersch": eName(71) = "wallis": eName(72) = "xxx" ' ~~~ u v w eName(73) = "xxx": eName(74) = "xxx": eName(75) = "xxx" eName(76) = "xxx": eName(77) = "xxx": eName(78) = "xxx" eName(79) = "xxx" eName(80) = "xxx": eName(81) = "xxx": eName(82) = "xxx" ' ~~~ x y z eName(83) = "xxx": eName(84) = "xxx": eName(85) = "xxx" eName(86) = "xxx": eName(87) = "xxx": eName(88) = "xxx" eName(89) = "xxx" ' ============================================ kEnde = 89 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To kEnde Wert1 = Int(k * 100 / kEnde) AlteRS_StartFormular.ZustandOhm.Value = Wert1 TextA = eName(k): La = Len(TextA) If TextA = "xxx" Then GoTo OhmschesGesetz_NächsterEigenName ErsterBuchstabe = Left$(TextA, 1) RestText = Right$(TextA, La - 1) TextB = UCase(ErsterBuchstabe) & RestText ' =================================== With Selection.Find .Text = TextA .Replacement.Text = TextB .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' =================================== OhmschesGesetz_NächsterEigenName: Next k AlteRS_StartFormular.LabelOhm.BackColor = Orange AlteRS_StartFormular.Repaint End Sub ' AlteRR - Das 'Ohmsche Gesetz' wiederherstellen Sub AlteRS_ZurZeit_GetrenntSchreiben() ' ------------ Z U R Z E I T G E T R E N N T --------- Dim Zusammen(1 To 200) As String Dim Getrennt(1 To 200) As String Dim k&, La&, Lb&, Wert1# Dim TextA$, TextB$, Hilf$, Rest$, kEnde& Zusammen(1) = "anstelle ": Getrennt(1) = "an Stelle " Zusammen(2) = "aufgrund ": Getrennt(2) = "auf Grund " Zusammen(3) = "zulasten": Getrennt(3) = "zu Lasten" Zusammen(4) = "xxx": Getrennt(4) = "yyy" Zusammen(5) = "xxx": Getrennt(5) = "yyy" Zusammen(6) = "xxx": Getrennt(6) = "yyy" Zusammen(7) = "xxx": Getrennt(7) = "yyy" Zusammen(8) = "xxx": Getrennt(8) = "yyy" Zusammen(9) = "rnst zu nehm": Getrennt(9) = "rnstzunehm" Zusammen(10) = "infrage": Getrennt(10) = "in Frage" Zusammen(11) = "mithilfe": Getrennt(11) = "mit Hilfe" Zusammen(12) = "xxx": Getrennt(12) = "yyy" Zusammen(13) = "xxx": Getrennt(13) = "yyy" Zusammen(14) = "xxx": Getrennt(14) = "yyy" Zusammen(15) = "xxx": Getrennt(15) = "yyy" Zusammen(16) = "xxx": Getrennt(16) = "yyy" Zusammen(17) = "xxx": Getrennt(17) = "yyy" Zusammen(18) = "xxx": Getrennt(18) = "yyy" Zusammen(19) = "xxx": Getrennt(19) = "yyy" Zusammen(20) = "xxx": Getrennt(20) = "yyy" Zusammen(21) = "xxx": Getrennt(21) = "yyy" Zusammen(22) = "xxx": Getrennt(22) = "yyy" Zusammen(23) = "xxx": Getrennt(23) = "yyy" Zusammen(24) = "sodaß": Getrennt(24) = "so daß" Zusammen(25) = "sosehr": Getrennt(25) = "so sehr" Zusammen(26) = "xxx": Getrennt(26) = "yyy" Zusammen(27) = "xxx": Getrennt(27) = "yyy" Zusammen(28) = "xxx": Getrennt(28) = "yyy" Zusammen(29) = "xxx": Getrennt(29) = "yyy" Zusammen(30) = "Umso ": Getrennt(30) = "Um so " Zusammen(31) = "umso ": Getrennt(31) = "um so " Zusammen(32) = "xxx": Getrennt(32) = "yyy" Zusammen(33) = "vonseiten ": Getrennt(33) = "von Seiten " Zusammen(34) = "xxx": Getrennt(34) = "yyy" Zusammen(35) = "xxx": Getrennt(35) = "yyy" Zusammen(36) = "xxx": Getrennt(36) = "yyy" Zusammen(37) = "xxx": Getrennt(37) = "yyy" Zusammen(38) = "zuende": Getrennt(38) = "zu Ende" Zusammen(39) = "zurzeit": Getrennt(39) = "zur Zeit" Zusammen(40) = " zurecht ": Getrennt(40) = " zu Recht " Zusammen(41) = "xxx": Getrennt(41) = "yyy" Zusammen(42) = "xxx": Getrennt(42) = "yyy" Zusammen(43) = "xxx": Getrennt(43) = "yyy" Zusammen(44) = "xxx": Getrennt(44) = "yyy" Zusammen(45) = "xxx": Getrennt(45) = "yyy" Zusammen(46) = "xxx": Getrennt(46) = "yyy" Zusammen(47) = "xxx": Getrennt(47) = "yyy" Zusammen(48) = "xxx": Getrennt(48) = "yyy" Zusammen(49) = "xxx": Getrennt(49) = "yyy" Zusammen(50) = "xxx": Getrennt(50) = "yyy" Zusammen(51) = "xxx": Getrennt(51) = "yyy" Zusammen(52) = "xxx": Getrennt(52) = "yyy" Zusammen(53) = "xxx": Getrennt(53) = "yyy" Zusammen(54) = "xxx": Getrennt(54) = "yyy" Zusammen(55) = "xxx": Getrennt(55) = "yyy" Zusammen(56) = "xxx": Getrennt(56) = "yyy" Zusammen(57) = "xxx": Getrennt(57) = "yyy" Zusammen(58) = "xxx": Getrennt(58) = "yyy" Zusammen(59) = "xxx": Getrennt(59) = "yyy" ' =========================================== kEnde = 59 ' <--------- Die letzte verwendete Nummer ! Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To kEnde Wert1 = Int(k * 100 / kEnde) AlteRS_StartFormular.ZustandGetrennt.Value = Wert1 TextA = Zusammen(k): La = Len(TextA) If TextA = "xxx" Or TextA = "" Then GoTo Weiter_mitZusammen TextB = Getrennt(k): Lb = Len(TextB) ' ====================================== With Selection.Find ' Kleiner Buchstabe beginnt. .Text = TextA .Replacement.Text = TextB .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ======================================= Hilf = UCase(Left$(TextA, 1)): Rest = Right$(TextA, La - 1) With Selection.Find ' Großer Buchstabe beginnt. .Text = Hilf & Rest .Replacement.Text = Hilf & Right$(TextB, Lb - 1) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' ======================================= Weiter_mitZusammen: Next k ' _____ AlteRS_StartFormular.LabelGetrennt.BackColor = Orange AlteRS_StartFormular.Repaint End Sub ' Alte Rechtschreibung - zur Zeit, etc. wiederherstellen Sub AlteRS_ss_in_ß() ' -------------- S S - S C H R E I B U N G E N I N ß ---------------- ' Hier wird "ss" , wenn es vor Konsonaten steht, in "ß" zurückverwandelt. ' Falls dennoch Fehler aufttreten - das sieht man ja am korrigierten Text - ' werden sie einzeln rückgängig gemacht. ' (siehe Abschnit im Hauptmakro) Dim k&, TextA$ Dim Nummer&, Wert1# For Nummer = 97 To 122 Wert1 = Int((Nummer - 96) * 100 / 26) AlteRS_StartFormular.ZustandAllgemeinSS.Value = Wert1 Select Case Nummer Case 97, 101, 105, 111, 112, 116, 117 ' Debug.Print Nummer ' ------- Es soll nichts ersetzt werden. Case 98 To 100, 102, 103, 104, 106 To 110, 113 To 115, 118 To 122 TextA = Chr$(Nummer): GoSub Unterprogramm_Ersetze_Buchstabe End Select Next Nummer AlteRS_StartFormular.LabelAllgemeinSS.BackColor = Orange AlteRS_StartFormular.Repaint Exit Sub Unterprogramm_Ersetze_Buchstabe: ' --------------------------------------------------------------- Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "ss" & TextA .Replacement.Text = "ß" & TextA .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Alternative : Replace:=wdReplaceOne Return ' <---------------------------------------------------- End Sub ' Allgemeine Sub zur Umwandlung von ss in ß Sub AlteRS_Mißbrauch_etc() ' Hier werden "Mißerfolg", "Mißtrauen", "mißachten" etc. wiederhergestellt. Dim NachSilbe(1 To 100) As String Dim TextA$, k& NachSilbe(1) = "acht": NachSilbe(2) = "bil": NachSilbe(3) = "beh" NachSilbe(4) = "bra": NachSilbe(5) = "xxx": NachSilbe(6) = "xxx" NachSilbe(7) = "erfolg": NachSilbe(8) = "ernte": NachSilbe(9) = "xxx" NachSilbe(10) = "deu": NachSilbe(11) = "ge": NachSilbe(12) = "fal" NachSilbe(13) = "glü": NachSilbe(14) = "gön": NachSilbe(15) = "han" NachSilbe(16) = "kla": NachSilbe(17) = "kre": NachSilbe(18) = "lau" NachSilbe(19) = "xxx" NachSilbe(20) = "ton": NachSilbe(21) = "trau": NachSilbe(22) = "ling" NachSilbe(23) = "lich": NachSilbe(24) = "lieb": NachSilbe(25) = "man" NachSilbe(26) = "mut": NachSilbe(27) = "rat": NachSilbe(28) = "xxx" NachSilbe(29) = "xxx" NachSilbe(30) = "ver": NachSilbe(31) = "wah": NachSilbe(32) = "wei" NachSilbe(33) = "wirt": NachSilbe(34) = "wuch": NachSilbe(35) = "xxx" NachSilbe(36) = "xxx": NachSilbe(37) = "xxx": NachSilbe(38) = "xxx" NachSilbe(39) = "xxx" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To 39 ' =================================== TextA = NachSilbe(k) If TextA = "xxx" Then GoTo Mißbrauch_Weiter With Selection.Find .Text = "iss" & TextA .Replacement.Text = "iß" & TextA .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' =================================== Mißbrauch_Weiter: Next k End Sub ' Mißbrauch, mißbilligen etc. wiederherstellen Sub AlteRS_Schülerinnen_und_Schüler() Dim AltText(1 To 120) As String, NeuText(1 To 120) As String Dim k&, TextA$ ' ----------------------------------------------------------------------- AltText(1) = "die Schülerinnen und Schüler": NeuText(1) = "die Schüler" AltText(2) = "den Schülerinnen und Schülern": NeuText(2) = "den Schülern" AltText(3) = "SchülerInnen": NeuText(3) = "Schüler" AltText(4) = "Schülerinnen und Schüler": NeuText(4) = "Schüler" AltText(5) = "die Lehrerinnen und Lehrer": NeuText(5) = "die Lehrer" AltText(6) = "den Lehrerinnen und Lehrern": NeuText(6) = "den Lehrern" AltText(7) = "LehrerInnen": NeuText(7) = "Lehrer" AltText(8) = "xxx": NeuText(8) = "yyy" AltText(9) = "xxx": NeuText(9) = "yyy" AltText(10) = "die Bürgerinnen und Bürger": NeuText(10) = "die Bürger" AltText(11) = "den Bürgerinnen und Bürgern": NeuText(11) = "den Bürgern" AltText(12) = "BürgerInnen": NeuText(12) = "Bürger" AltText(13) = "Bürgerinnen und Bürger": NeuText(13) = "Bürger" AltText(14) = "xxx": NeuText(14) = "yyy" AltText(15) = "xxx": NeuText(15) = "yyy" AltText(16) = "xxx": NeuText(16) = "yyy" AltText(17) = "xxx": NeuText(17) = "yyy" AltText(18) = "xxx": NeuText(18) = "yyy" AltText(19) = "xxx": NeuText(19) = "yyy" AltText(20) = "xxx": NeuText(20) = "yyy" AltText(21) = "xxx": NeuText(21) = "yyy" AltText(22) = "xxx": NeuText(22) = "yyy" AltText(23) = "xxx": NeuText(23) = "yyy" AltText(24) = "xxx": NeuText(24) = "yyy" AltText(25) = "xxx": NeuText(25) = "yyy" AltText(26) = "xxx": NeuText(26) = "yyy" AltText(27) = "xxx": NeuText(27) = "yyy" AltText(28) = "xxx": NeuText(28) = "yyy" AltText(29) = "xxx": NeuText(29) = "yyy" AltText(30) = "xxx": NeuText(30) = "yyy" AltText(31) = "xxx": NeuText(31) = "yyy" AltText(32) = "xxx": NeuText(32) = "yyy" AltText(33) = "xxx": NeuText(33) = "yyy" AltText(34) = "xxx": NeuText(34) = "yyy" AltText(35) = "xxx": NeuText(35) = "yyy" AltText(36) = "xxx": NeuText(36) = "yyy" AltText(37) = "xxx": NeuText(37) = "yyy" AltText(38) = "xxx": NeuText(38) = "yyy" AltText(39) = "xxx": NeuText(39) = "yyy" AltText(40) = "xxx": NeuText(40) = "yyy" AltText(41) = "xxx": NeuText(41) = "yyy" AltText(42) = "xxx": NeuText(42) = "yyy" AltText(43) = "xxx": NeuText(43) = "yyy" AltText(44) = "xxx": NeuText(44) = "yyy" AltText(45) = "xxx": NeuText(45) = "yyy" AltText(46) = "xxx": NeuText(46) = "yyy" AltText(47) = "xxx": NeuText(47) = "yyy" AltText(48) = "xxx": NeuText(48) = "yyy" AltText(49) = "xxx": NeuText(49) = "yyy" AltText(50) = "xxx": NeuText(50) = "yyy" AltText(51) = "xxx": NeuText(51) = "yyy" AltText(52) = "xxx": NeuText(52) = "yyy" AltText(53) = "xxx": NeuText(53) = "yyy" AltText(54) = "xxx": NeuText(54) = "yyy" AltText(55) = "xxx": NeuText(55) = "yyy" AltText(56) = "xxx": NeuText(56) = "yyy" AltText(57) = "xxx": NeuText(57) = "yyy" AltText(58) = "xxx": NeuText(58) = "yyy" AltText(59) = "xxx": NeuText(59) = "yyy" AltText(60) = "xxx": NeuText(60) = "yyy" AltText(61) = "xxx": NeuText(61) = "yyy" AltText(62) = "xxx": NeuText(62) = "yyy" AltText(63) = "xxx": NeuText(63) = "yyy" AltText(64) = "xxx": NeuText(64) = "yyy" AltText(65) = "xxx": NeuText(65) = "yyy" AltText(66) = "xxx": NeuText(66) = "yyy" AltText(67) = "xxx": NeuText(67) = "yyy" AltText(68) = "xxx": NeuText(68) = "yyy" AltText(69) = "xxx": NeuText(69) = "yyy" AltText(70) = "xxx": NeuText(70) = "yyy" AltText(71) = "xxx": NeuText(71) = "yyy" AltText(72) = "xxx": NeuText(72) = "yyy" AltText(73) = "xxx": NeuText(73) = "yyy" AltText(74) = "xxx": NeuText(74) = "yyy" AltText(75) = "xxx": NeuText(75) = "yyy" AltText(76) = "xxx": NeuText(76) = "yyy" AltText(77) = "xxx": NeuText(77) = "yyy" AltText(78) = "xxx": NeuText(78) = "yyy" AltText(79) = "xxx": NeuText(79) = "yyy" AltText(80) = "xxx": NeuText(80) = "yyy" AltText(81) = "xxx": NeuText(81) = "yyy" AltText(82) = "xxx": NeuText(82) = "yyy" AltText(83) = "xxx": NeuText(83) = "yyy" AltText(84) = "xxx": NeuText(84) = "yyy" AltText(85) = "xxx": NeuText(85) = "yyy" AltText(86) = "xxx": NeuText(86) = "yyy" AltText(87) = "xxx": NeuText(87) = "yyy" AltText(88) = "xxx": NeuText(88) = "yyy" AltText(89) = "xxx": NeuText(89) = "yyy" AltText(100) = "xxx": NeuText(100) = "yyy" ' 100 AltText(101) = "xxx": NeuText(101) = "yyy" AltText(102) = "xxx": NeuText(102) = "yyy" AltText(103) = "xxx": NeuText(103) = "yyy" AltText(104) = "xxx": NeuText(104) = "yyy" AltText(105) = "xxx": NeuText(105) = "yyy" AltText(106) = "xxx": NeuText(106) = "yyy" AltText(107) = "xxx": NeuText(107) = "yyy" AltText(108) = "xxx": NeuText(108) = "yyy" AltText(109) = "xxx": NeuText(109) = "yyy" AltText(110) = "xxx": NeuText(110) = "yyy" ' 110 AltText(111) = "xxx": NeuText(111) = "yyy" AltText(112) = "xxx": NeuText(112) = "yyy" AltText(113) = "xxx": NeuText(113) = "yyy" AltText(114) = "xxx": NeuText(114) = "yyy" AltText(115) = "xxx": NeuText(115) = "yyy" AltText(116) = "xxx": NeuText(116) = "yyy" AltText(117) = "xxx": NeuText(117) = "yyy" AltText(118) = "xxx": NeuText(118) = "yyy" AltText(119) = "xxx": NeuText(119) = "yyy" ' -------------------------------------------------------------- Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To 19 ' =================================== TextA = AltText(k) If TextA = "xxx" Then GoTo Schüler_Weiter With Selection.Find .Text = TextA .Replacement.Text = NeuText(k) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Alternative : Replace:=wdReplaceOne ' =================================== Schüler_Weiter: Next k End Sub ' Schülerinnen und Schüler ersetzen Sub Irgendein_Rechtschreibungs_ErsetzungsMakro() ' Dies ist eine Vorlage für diejenigen, die selber ein Makro schreiben möchten. ActiveWindow.View.Type = wdNormalView ' N o r m a l - A n s i c h t Application.ScreenUpdating = False Dim eName(1 To 100) As String Dim k& ' ========== D i e D a t e n : ==============0 eName(1) = "xxx": eName(2) = "xxx": eName(3) = "xxx" ' ~~~ a b eName(4) = "xxx": eName(5) = "xxx": eName(6) = "xxx" eName(7) = "xxx": eName(8) = "xxx": eName(9) = "xxx" eName(10) = "xxx": eName(11) = "xxx": eName(12) = "xxx" ' ~~~ c d e eName(13) = "xxx": eName(14) = "xxx": eName(15) = "xxx" eName(16) = "xxx": eName(17) = "xxx": eName(18) = "xxx" eName(19) = "xxx" eName(20) = "xxx": eName(21) = "xxx": eName(22) = "xxx" ' ~~~ f g h eName(23) = "xxx": eName(24) = "xxx": eName(25) = "xxx" eName(26) = "xxx": eName(27) = "xxx": eName(28) = "xxx" eName(29) = "xxx" eName(30) = "xxx": eName(31) = "xxx": eName(32) = "xxx" ' ~~~ i j k l eName(33) = "xxx": eName(34) = "xxx": eName(35) = "xxx" eName(36) = "xxx": eName(37) = "xxx": eName(38) = "xxx" eName(39) = "xxx" eName(40) = "xxx": eName(41) = "xxx": eName(42) = "xxx" ' ~~~ m n o eName(43) = "xxx": eName(44) = "xxx": eName(45) = "xxx" eName(46) = "xxx": eName(47) = "xxx": eName(48) = "xxx" eName(49) = "xxx" eName(50) = "xxx": eName(51) = "xxx": eName(52) = "xxx" ' ~~~ p q r eName(53) = "xxx": eName(54) = "xxx": eName(55) = "xxx" eName(56) = "xxx": eName(57) = "xxx": eName(58) = "xxx" eName(59) = "xxx" eName(60) = "xxx": eName(61) = "xxx": eName(62) = "xxx" ' ~~~ s t eName(63) = "xxx": eName(64) = "xxx": eName(65) = "xxx" eName(66) = "xxx": eName(67) = "xxx": eName(68) = "xxx" eName(69) = "xxx" eName(70) = "xxx": eName(71) = "xxx": eName(72) = "xxx" ' ~~~ u v w eName(73) = "xxx": eName(74) = "xxx": eName(75) = "xxx" eName(76) = "xxx": eName(77) = "xxx": eName(78) = "xxx" eName(79) = "xxx" eName(80) = "xxx": eName(81) = "xxx": eName(82) = "xxx" ' ~~~ x y z eName(83) = "xxx": eName(84) = "xxx": eName(85) = "xxx" eName(86) = "xxx": eName(87) = "xxx": eName(88) = "xxx" eName(89) = "xxx" ' ___________________________ Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To 19 ' =================================== With Selection.Find .Text = eName(k) .Replacement.Text = eName(k) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' =================================== Next k ActiveWindow.View.Type = wdPageView ' L a y o u t - A n s i c h t Application.ScreenUpdating = True End Sub ' Vorlage für ein Ersetzungsmakro für Eigennamen bezüglich Rechtschreibung Sub AlteRS_HTML() ' ----- Stand vom 6. 12. 2004 ----- Dim AltText(1 To 299) As String Dim NeuText(1 To 299) As String Dim k&, TextA$ ' -------------------------------------------------------------------------------------------------- ' Der Quelltext eines HTML-Dokuments wird v o r s i c h t i g korrigiert. ' Den Quelltext aus dem Editor ausschneiden und ins leere Word-Dokument einfügen. ' Makro anwenden. ' Korrigierten Text kopieren und wieder in den Editor einfügen; Editor schließen. ' Das HTML-Dokument a k t u a l i s i e r e n . Fertig! ' (g a n z s e l t e n geht es schief!) ' Idee und Realisation: 10. 10. 2003 ' -------------------------------------------------------------------------------------------------- ActiveWindow.View.Type = wdNormalView ' N o r m a l - A n s i c h t Application.ScreenUpdating = False ' ' AltText(1) = "ä": NeuText(1) = "ä" ' ----- Umlaute sollen ä, ö, ü sein ' AltText(2) = "Ä": NeuText(2) = "Ä" ' ' AltText(3) = "ö": NeuText(3) = "ö" ' AltText(4) = "Ö": NeuText(4) = "Ö" ' ' AltText(5) = "ü": NeuText(5) = "ü" ' AltText(6) = "Ü": NeuText(6) = "Ü" ' ' AltText(7) = "ß": NeuText(7) = "ß" AltText(8) = "xxx": NeuText(8) = "yyy" AltText(9) = "xxx": NeuText(9) = "yyy" AltText(11) = "dass": NeuText(11) = "daß" ' ----- a ----------------- AltText(12) = "passt": NeuText(12) = "paßt" AltText(13) = "Einlass ": NeuText(13) = "Einlaß " AltText(14) = "uslass ": NeuText(14) = "uslaß " AltText(15) = "xxx": NeuText(15) = "yyy" AltText(16) = "ermassen": NeuText(16) = "ermaßen" AltText(17) = "Dass ": NeuText(17) = "Daß " AltText(18) = "Erlass ": NeuText(18) = "Erlaß " AltText(19) = "xxx": NeuText(19) = "yyy" AltText(20) = "eisepass": NeuText(20) = "eisepaß" AltText(21) = "xxx": NeuText(21) = "yyy" AltText(22) = "xxx": NeuText(22) = "yyy" AltText(23) = "xxx": NeuText(23) = "yyy" AltText(24) = "Schuss ": NeuText(24) = "Schuß " AltText(25) = "Laserschuss ": NeuText(25) = "Laserschuß " AltText(26) = "ausser": NeuText(26) = "außer" AltText(27) = "asswort": NeuText(27) = "aßwort" AltText(28) = "fassbar": NeuText(28) = "faßbar" AltText(29) = "fasst": NeuText(29) = "faßt" AltText(30) = "lässt": NeuText(30) = "lässt" ' ----- ä ----------- AltText(31) = "lässt": NeuText(31) = "läßt" AltText(32) = "emäss": NeuText(32) = "emäß" AltText(33) = "frässig": NeuText(33) = "fräßig" AltText(34) = "mässig": NeuText(34) = "mäßig" AltText(35) = "ässlich": NeuText(35) = "äßlich" AltText(36) = "äusser": NeuText(36) = "äußer" AltText(37) = "xxx": NeuText(37) = "yyy" AltText(38) = "xxx": NeuText(38) = "yyy" AltText(39) = "xxx": NeuText(39) = "yyy" AltText(40) = "xxx": NeuText(40) = "yyy" AltText(41) = "xxx": NeuText(41) = "yyy" AltText(42) = "xxx": NeuText(42) = "yyy" AltText(43) = "xxx": NeuText(43) = "yyy" AltText(44) = "xxx": NeuText(44) = "yyy" AltText(45) = "xxx": NeuText(45) = "yyy" AltText(46) = "xxx": NeuText(46) = "yyy" AltText(47) = "xxx": NeuText(47) = "yyy" AltText(48) = "xxx": NeuText(48) = "yyy" AltText(49) = "xxx": NeuText(49) = "yyy" AltText(50) = "rozess ": NeuText(50) = "rozeß " ' ----- e ------------ AltText(51) = "esswert": NeuText(51) = "eßwert" AltText(52) = "essreihe": NeuText(52) = "eßreihe" AltText(53) = "essgröß": NeuText(53) = "eßgröß" AltText(54) = "esspunkt": NeuText(54) = "eßpunkt" AltText(55) = "essdat": NeuText(55) = "eßdat" AltText(56) = "messlich": NeuText(56) = "meßlich" AltText(57) = "xxx": NeuText(57) = "yyy" AltText(58) = "xxx": NeuText(58) = "yyy" AltText(59) = "xxx": NeuText(59) = "yyy" AltText(60) = "xxx": NeuText(60) = "yyy" AltText(61) = "xxx": NeuText(61) = "yyy" AltText(62) = "xxx": NeuText(62) = "yyy" AltText(63) = "xxx": NeuText(63) = "yyy" AltText(64) = "xxx": NeuText(64) = "yyy" AltText(65) = "xxx": NeuText(65) = "yyy" AltText(66) = "xxx": NeuText(66) = "yyy" AltText(67) = "xxx": NeuText(67) = "yyy" AltText(68) = "xxx": NeuText(68) = "yyy" AltText(69) = "xxx": NeuText(69) = "yyy" AltText(70) = "isschen": NeuText(70) = "ißchen" ' ----- i --------------- AltText(71) = "chliess": NeuText(71) = "chließ" AltText(72) = "ompromiss": NeuText(72) = "ompromiß" AltText(73) = "issbill": NeuText(73) = "ißbill" AltText(74) = "issver": NeuText(74) = "ißver" AltText(75) = "issmut": NeuText(75) = "ißmut" AltText(76) = "misst ": NeuText(76) = "mißt " AltText(77) = "ergisst": NeuText(77) = "ergißt" AltText(78) = "ewiss ": NeuText(78) = "ewiß " AltText(79) = "liesstext": NeuText(79) = "ließtext" AltText(80) = "heiss": NeuText(80) = "heiß" ' ----- ei ------------- AltText(81) = "weiss": NeuText(81) = "weiß" AltText(82) = "xxx": NeuText(82) = "yyy" AltText(83) = "xxx": NeuText(83) = "yyy" AltText(84) = "xxx": NeuText(84) = "yyy" AltText(85) = "xxx": NeuText(85) = "yyy" AltText(86) = "xxx": NeuText(86) = "yyy" AltText(87) = "xxx": NeuText(87) = "yyy" AltText(88) = "xxx": NeuText(88) = "yyy" AltText(89) = "xxx": NeuText(89) = "yyy" AltText(90) = "gross": NeuText(90) = "groß" ' ----- o -------------------- AltText(91) = "chloss ": NeuText(91) = "chloß " AltText(92) = "rozess<": NeuText(92) = "rozeß<" AltText(93) = "xxx": NeuText(93) = "yyy" AltText(94) = "xxx": NeuText(94) = "yyy" AltText(95) = "xxx": NeuText(95) = "yyy" AltText(96) = "xxx": NeuText(96) = "yyy" AltText(97) = "xxx": NeuText(97) = "yyy" AltText(98) = "xxx": NeuText(98) = "yyy" AltText(99) = "xxx": NeuText(99) = "yyy" AltText(100) = "gröss": NeuText(100) = "größ" ' ----- ö ------------------ AltText(101) = "gröss": NeuText(101) = "größ" AltText(102) = "xxx": NeuText(102) = "yyy" AltText(103) = "xxx": NeuText(103) = "yyy" AltText(104) = "xxx": NeuText(104) = "yyy" AltText(105) = "xxx": NeuText(105) = "yyy" AltText(106) = "xxx": NeuText(106) = "yyy" AltText(107) = "xxx": NeuText(107) = "yyy" AltText(108) = "xxx": NeuText(108) = "yyy" AltText(109) = "xxx": NeuText(109) = "yyy" AltText(110) = "xxx": NeuText(110) = "yyy" AltText(111) = "xxx": NeuText(111) = "yyy" AltText(112) = "xxx": NeuText(112) = "yyy" AltText(113) = "xxx": NeuText(113) = "yyy" AltText(114) = "xxx": NeuText(114) = "yyy" AltText(115) = "xxx": NeuText(115) = "yyy" AltText(116) = "xxx": NeuText(116) = "yyy" AltText(117) = "xxx": NeuText(117) = "yyy" AltText(118) = "xxx": NeuText(118) = "yyy" AltText(119) = "xxx": NeuText(119) = "yyy" AltText(120) = "muss ": NeuText(120) = "muß " ' ----- u --------------------- AltText(121) = "wusst": NeuText(121) = "wußt" AltText(122) = "fluss ": NeuText(122) = "fluß " AltText(123) = "chluss": NeuText(123) = "chluß" AltText(124) = "xxx": NeuText(124) = "yyy" AltText(125) = "muss,": NeuText(125) = "muß," AltText(126) = "muss.": NeuText(126) = "muß." AltText(127) = "ausser": NeuText(127) = "außer" AltText(128) = "musste": NeuText(128) = "mußte" AltText(129) = "Fluss": NeuText(129) = "Fluß" AltText(130) = "xxx": NeuText(130) = "yyy" AltText(131) = "xxx": NeuText(131) = "yyy" AltText(132) = "xxx": NeuText(132) = "yyy" AltText(133) = "xxx": NeuText(133) = "yyy" AltText(134) = "xxx": NeuText(134) = "yyy" AltText(135) = "xxx": NeuText(135) = "yyy" AltText(136) = "xxx": NeuText(136) = "yyy" AltText(137) = "xxx": NeuText(137) = "yyy" AltText(138) = "xxx": NeuText(138) = "yyy" AltText(139) = "xxx": NeuText(139) = "yyy" AltText(140) = "üsste": NeuText(140) = "üßte" ' ----- ü ------------- AltText(141) = "müsste": NeuText(141) = "müßte" AltText(142) = "xxx": NeuText(142) = "yyy" AltText(143) = "xxx": NeuText(143) = "yyy" AltText(144) = "xxx": NeuText(144) = "yyy" AltText(145) = "xxx": NeuText(145) = "yyy" AltText(146) = "xxx": NeuText(146) = "yyy" AltText(147) = "xxx": NeuText(147) = "yyy" AltText(148) = "xxx": NeuText(148) = "yyy" AltText(149) = "xxx": NeuText(149) = "yyy" AltText(150) = "xxx": NeuText(150) = "yyy" AltText(151) = "xxx": NeuText(151) = "yyy" AltText(152) = "xxx": NeuText(152) = "yyy" AltText(153) = "xxx": NeuText(153) = "yyy" AltText(154) = "xxx": NeuText(154) = "yyy" AltText(155) = "xxx": NeuText(155) = "yyy" AltText(156) = "xxx": NeuText(156) = "yyy" AltText(157) = "xxx": NeuText(157) = "yyy" AltText(158) = "xxx": NeuText(158) = "yyy" AltText(159) = "xxx": NeuText(159) = "yyy" AltText(160) = "xxx": NeuText(160) = "yyy" ' ======== Spezielles ========= AltText(161) = "stständ": NeuText(161) = "ständ" AltText(162) = "enzial": NeuText(162) = "ential" AltText(163) = "latzier": NeuText(163) = "lazier" AltText(164) = "menue": NeuText(164) = "menü" AltText(165) = "winkelig": NeuText(165) = "winklig" AltText(166) = "leichschenkelig": NeuText(166) = "leichschenklig" AltText(167) = "xxx": NeuText(167) = "yyy" AltText(168) = "xxx": NeuText(168) = "yyy" AltText(169) = "xxx": NeuText(169) = "yyy" AltText(170) = "SchülerInnen": NeuText(170) = "Schüler" AltText(171) = "LehrerInnen": NeuText(171) = "Lehrer" AltText(172) = "BenützerInnen": NeuText(172) = "Benutzer" AltText(173) = "BenutzerInnen": NeuText(173) = "Benutzer" AltText(174) = "SchülerInnen": NeuText(174) = "Schüler" AltText(175) = "BearbeiterInnen": NeuText(175) = "Bearbeiter" AltText(176) = "AutorInnen": NeuText(176) = "Autoren" AltText(177) = "EinsteigerInnen": NeuText(177) = "Einsteigern" AltText(178) = "xxx": NeuText(178) = "yyy" AltText(179) = "xxx": NeuText(179) = "yyy" AltText(180) = "m Folgenden ": NeuText(180) = "m folgenden" AltText(181) = "m Besten": NeuText(181) = "m besten" AltText(182) = "m Allgemeinen": NeuText(182) = "m allgemeinen" AltText(183) = "es Weiteren": NeuText(183) = "es weiteren" AltText(184) = "heraus zu bekommen": NeuText(184) = "herauszubekommen" AltText(185) = "ithilfe": NeuText(185) = "it Hilfe" AltText(186) = "m Wesentlichen": NeuText(186) = "m wesentlichen" AltText(187) = "viel versprechend": NeuText(187) = "vielversprechend" AltText(188) = "so genan": NeuText(188) = "sogenan" AltText(189) = "So genan": NeuText(189) = "Sogenan" AltText(190) = "Tabstopp": NeuText(190) = "Tabstop" ' ----- pp in p -------------- AltText(191) = "Tipp ": NeuText(191) = "Tip " AltText(192) = "tipps": NeuText(192) = "tips" AltText(193) = "Tipp<": NeuText(193) = "Tip<" AltText(194) = "Tipps ": NeuText(194) = "Tips " AltText(195) = "Tipps,": NeuText(195) = "Tips," AltText(196) = "xxx": NeuText(196) = "yyy" AltText(197) = "xxx": NeuText(197) = "yyy" AltText(198) = "xxx": NeuText(198) = "yyy" AltText(199) = "xxx": NeuText(199) = "yyy" AltText(200) = "stehen bleiben": NeuText(200) = "stehenbleiben" AltText(201) = "wie viel": NeuText(201) = "wieviel" AltText(202) = "xxx": NeuText(202) = "yyy" AltText(203) = "xxx": NeuText(203) = "yyy" AltText(204) = "xxx": NeuText(204) = "yyy" AltText(205) = "xxx": NeuText(205) = "yyy" AltText(206) = "xxx": NeuText(206) = "yyy" AltText(207) = "xxx": NeuText(207) = "yyy" AltText(208) = "xxx": NeuText(208) = "yyy" AltText(209) = "xxx": NeuText(209) = "yyy" AltText(210) = "ufwänd": NeuText(210) = "ufwend" AltText(211) = "ummerier": NeuText(211) = "umerier" AltText(212) = "xxx": NeuText(212) = "yyy" AltText(213) = "xxx": NeuText(213) = "yyy" AltText(214) = "xxx": NeuText(214) = "yyy" AltText(215) = "xxx": NeuText(215) = "yyy" AltText(216) = "xxx": NeuText(216) = "yyy" AltText(217) = "xxx": NeuText(217) = "yyy" AltText(218) = "xxx": NeuText(218) = "yyy" AltText(219) = "xxx": NeuText(219) = "yyy" AltText(220) = "xxx": NeuText(220) = "yyy" AltText(221) = "xxx": NeuText(221) = "yyy" AltText(222) = "xxx": NeuText(222) = "yyy" AltText(223) = "xxx": NeuText(223) = "yyy" AltText(224) = "xxx": NeuText(224) = "yyy" AltText(225) = "xxx": NeuText(225) = "yyy" AltText(226) = "xxx": NeuText(226) = "yyy" AltText(227) = "xxx": NeuText(227) = "yyy" AltText(228) = "xxx": NeuText(228) = "yyy" AltText(229) = "xxx": NeuText(229) = "yyy" AltText(230) = "xxx": NeuText(230) = "yyy" AltText(231) = "xxx": NeuText(231) = "yyy" AltText(232) = "xxx": NeuText(232) = "yyy" AltText(233) = "xxx": NeuText(233) = "yyy" AltText(234) = "xxx": NeuText(234) = "yyy" AltText(235) = "xxx": NeuText(235) = "yyy" AltText(236) = "xxx": NeuText(236) = "yyy" AltText(237) = "xxx": NeuText(237) = "yyy" AltText(238) = "xxx": NeuText(238) = "yyy" AltText(239) = "xxx": NeuText(239) = "yyy" AltText(240) = "xxx": NeuText(240) = "yyy" AltText(241) = "xxx": NeuText(241) = "yyy" AltText(242) = "xxx": NeuText(242) = "yyy" AltText(243) = "xxx": NeuText(243) = "yyy" AltText(244) = "xxx": NeuText(244) = "yyy" AltText(245) = "xxx": NeuText(245) = "yyy" AltText(246) = "xxx": NeuText(246) = "yyy" AltText(247) = "xxx": NeuText(247) = "yyy" AltText(248) = "xxx": NeuText(248) = "yyy" AltText(249) = "xxx": NeuText(249) = "yyy" AltText(250) = "xxx": NeuText(250) = "yyy" AltText(251) = "xxx": NeuText(251) = "yyy" AltText(252) = "xxx": NeuText(252) = "yyy" AltText(253) = "xxx": NeuText(253) = "yyy" AltText(254) = "xxx": NeuText(254) = "yyy" AltText(255) = "xxx": NeuText(255) = "yyy" AltText(256) = "xxx": NeuText(256) = "yyy" AltText(257) = "xxx": NeuText(257) = "yyy" AltText(258) = "xxx": NeuText(258) = "yyy" AltText(259) = "xxx": NeuText(259) = "yyy" AltText(260) = "xxx": NeuText(260) = "yyy" AltText(261) = "xxx": NeuText(261) = "yyy" AltText(262) = "xxx": NeuText(262) = "yyy" AltText(263) = "xxx": NeuText(263) = "yyy" AltText(264) = "xxx": NeuText(264) = "yyy" AltText(265) = "xxx": NeuText(265) = "yyy" AltText(266) = "xxx": NeuText(266) = "yyy" AltText(267) = "xxx": NeuText(267) = "yyy" AltText(268) = "xxx": NeuText(268) = "yyy" AltText(269) = "xxx": NeuText(269) = "yyy" AltText(270) = "xxx": NeuText(270) = "yyy" AltText(271) = "xxx": NeuText(271) = "yyy" AltText(272) = "xxx": NeuText(272) = "yyy" AltText(273) = "xxx": NeuText(273) = "yyy" AltText(274) = "xxx": NeuText(274) = "yyy" AltText(275) = "xxx": NeuText(275) = "yyy" AltText(276) = "xxx": NeuText(276) = "yyy" AltText(277) = "xxx": NeuText(277) = "yyy" AltText(278) = "xxx": NeuText(278) = "yyy" AltText(279) = "xxx": NeuText(279) = "yyy" ' ------------- F e h l e r r ü c k g ä n g i g --------------- AltText(280) = "daßelb": NeuText(280) = "dasselb" AltText(281) = "xxx": NeuText(281) = "yyy" AltText(282) = "xxx": NeuText(282) = "yyy" AltText(283) = "xxx": NeuText(283) = "yyy" AltText(284) = "xxx": NeuText(284) = "yyy" AltText(285) = "xxx": NeuText(285) = "yyy" AltText(286) = "xxx": NeuText(286) = "yyy" AltText(287) = "xxx": NeuText(287) = "yyy" AltText(288) = "xxx": NeuText(288) = "yyy" AltText(289) = "xxx": NeuText(289) = "yyy" AltText(290) = "xxx": NeuText(290) = "yyy" AltText(291) = "xxx": NeuText(291) = "yyy" AltText(292) = "xxx": NeuText(292) = "yyy" AltText(293) = "xxx": NeuText(293) = "yyy" AltText(294) = "xxx": NeuText(294) = "yyy" AltText(295) = "xxx": NeuText(295) = "yyy" AltText(296) = "xxx": NeuText(296) = "yyy" AltText(297) = "xxx": NeuText(297) = "yyy" AltText(298) = "xxx": NeuText(298) = "yyy" AltText(299) = "xxx": NeuText(299) = "yyy" ' -------------------------------------------------------------- Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To 299 ' =================================== TextA = AltText(k) If TextA = "xxx" Then GoTo HTML_Weiter With Selection.Find .Text = TextA .Replacement.Text = NeuText(k) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' =================================== HTML_Weiter: Next k ActiveWindow.View.Type = wdPageView ' L a y o u t - A n s i c h t Application.ScreenUpdating = True End Sub ' In einem HTML-Dokument v o r s i c h t i g die alte Rechtschreibung herstellen. Sub AlteRS_HTML_rückwärts() Dim AltText(1 To 299) As String ' ----- Stand vom 23. 10. 2004 ----- Dim NeuText(1 To 299) As String Dim k&, TextA$ AltText(1) = "ä": NeuText(1) = "ä" AltText(2) = "Ä": NeuText(2) = "Ä" AltText(3) = "ö": NeuText(3) = "ö" AltText(4) = "Ö": NeuText(4) = "Ö" AltText(5) = "ü": NeuText(5) = "ü" AltText(6) = "Ü": NeuText(6) = "Ü" AltText(7) = "ß": NeuText(7) = "ß" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To 7 ' =================================== TextA = AltText(k) With Selection.Find .Text = TextA .Replacement.Text = NeuText(k) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Alternative : Replace:=wdReplaceOne Next k End Sub Sub AlteRS_ZZ_Schweizerdütsch_Perlentaucher() Dim AltText(1 To 250) As String, NeuText(1 To 250) As String Dim k&, TextA$ ' Schweizer Umlaute und ss-Schreibungen werden in normales Deutsch ' umgewandelt. Es wird nur eine W o r t l i s t e verwendet. ' Die dabei entstehenden Fehler, z.B. "virtüll", werden am Ende dieses Makros ' einzeln korrigiert. ' Zuletzt bearbeitet am 17. 10. 2005 ActiveWindow.View.Type = wdNormalView ' <----- N o r m a l - A n s i c h t Application.ScreenUpdating = False ' <----- Bildschirm wird erst am Ende neu aufgebaut. ' --------------------------------------------------------------------------------------------- AltText(1) = "ae": NeuText(1) = "ä" AltText(2) = "oe": NeuText(2) = "ö" AltText(3) = "ue": NeuText(3) = "ü" AltText(4) = "Ae": NeuText(4) = "Ä" AltText(5) = "Oe": NeuText(5) = "Ö" AltText(6) = "Ue": NeuText(6) = "Ü" AltText(7) = "xxx": NeuText(7) = "yyy" AltText(8) = "xxx": NeuText(8) = "yyy" AltText(9) = "xxx": NeuText(9) = "yyy" AltText(10) = "Strasse": NeuText(10) = "Straße" ' <----------- a -------- AltText(11) = "assnahm": NeuText(11) = "aßnahm" AltText(12) = "Spass": NeuText(12) = "Spaß" AltText(13) = "asseinheit": NeuText(13) = "aßeinheit" AltText(14) = "ässt": NeuText(14) = "äßt" AltText(15) = "xxx": NeuText(15) = "yyy" AltText(16) = "xxx": NeuText(16) = "yyy" AltText(17) = "xxx": NeuText(17) = "yyy" AltText(18) = "xxx": NeuText(18) = "yyy" AltText(19) = "xxx": NeuText(19) = "yyy" AltText(20) = "xxx": NeuText(20) = "yyy" AltText(21) = "xxx": NeuText(21) = "yyy" AltText(22) = "xxx": NeuText(22) = "yyy" AltText(23) = "xxx": NeuText(23) = "yyy" AltText(24) = "xxx": NeuText(24) = "yyy" AltText(25) = "xxx": NeuText(25) = "yyy" AltText(26) = "xxx": NeuText(26) = "yyy" AltText(27) = "xxx": NeuText(27) = "yyy" AltText(28) = "xxx": NeuText(28) = "yyy" AltText(29) = "xxx": NeuText(29) = "yyy" AltText(30) = "isserfolg": NeuText(30) = "ißerfolg" ' <----------- e, i ----- AltText(31) = "eisst": NeuText(31) = "eißt" AltText(32) = "liessen": NeuText(32) = "ließen" AltText(33) = "eniesse": NeuText(33) = "enieße" AltText(34) = "xxx": NeuText(34) = "yyy" AltText(35) = "xxx": NeuText(35) = "yyy" AltText(36) = "xxx": NeuText(36) = "yyy" AltText(37) = "xxx": NeuText(37) = "yyy" AltText(38) = "xxx": NeuText(38) = "yyy" AltText(39) = "xxx": NeuText(39) = "yyy" AltText(40) = "eissig": NeuText(40) = "eißig" AltText(41) = "eissel": NeuText(41) = "eißel" AltText(42) = "xxx": NeuText(42) = "yyy" AltText(43) = "xxx": NeuText(43) = "yyy" AltText(44) = "xxx": NeuText(44) = "yyy" AltText(45) = "xxx": NeuText(45) = "yyy" AltText(46) = "xxx": NeuText(46) = "yyy" AltText(47) = "xxx": NeuText(47) = "yyy" AltText(48) = "xxx": NeuText(48) = "yyy" AltText(49) = "xxx": NeuText(49) = "yyy" AltText(50) = "grösse": NeuText(50) = "größe" ' <---------- o ----- AltText(51) = "xxx": NeuText(51) = "yyy" AltText(52) = "xxx": NeuText(52) = "yyy" AltText(53) = "xxx": NeuText(53) = "yyy" AltText(54) = "xxx": NeuText(54) = "yyy" AltText(55) = "xxx": NeuText(55) = "yyy" AltText(56) = "xxx": NeuText(56) = "yyy" AltText(57) = "xxx": NeuText(57) = "yyy" AltText(58) = "xxx": NeuText(58) = "yyy" AltText(59) = "xxx": NeuText(59) = "yyy" AltText(60) = "xxx": NeuText(60) = "xxx" AltText(61) = "xxx": NeuText(61) = "xxx" AltText(62) = "xxx": NeuText(62) = "yyy" AltText(63) = "xxx": NeuText(63) = "yyy" AltText(64) = "xxx": NeuText(64) = "yyy" AltText(65) = "xxx": NeuText(65) = "yyy" AltText(66) = "xxx": NeuText(66) = "yyy" AltText(67) = "xxx": NeuText(67) = "yyy" AltText(68) = "xxx": NeuText(68) = "yyy" AltText(69) = "xxx": NeuText(69) = "yyy" AltText(70) = "usserst": NeuText(70) = "ußerst" ' <---------------- u ---------- AltText(77) = "ussern": NeuText(77) = "ußern" AltText(72) = "xxx": NeuText(72) = "yyy" AltText(73) = "xxx": NeuText(73) = "yyy" AltText(74) = "xxx": NeuText(74) = "yyy" AltText(75) = "xxx": NeuText(75) = "yyy" AltText(76) = "xxx": NeuText(76) = "yyy" AltText(77) = "xxx": NeuText(77) = "yyy" AltText(78) = "xxx": NeuText(78) = "yyy" AltText(79) = "xxx": NeuText(79) = "yyy" AltText(80) = "xxx": NeuText(80) = "yyy" AltText(81) = "xxx": NeuText(81) = "yyy" AltText(82) = "xxx": NeuText(82) = "yyy" AltText(83) = "xxx": NeuText(83) = "yyy" AltText(84) = "xxx": NeuText(84) = "yyy" AltText(85) = "xxx": NeuText(85) = "yyy" AltText(86) = "xxx": NeuText(86) = "yyy" AltText(87) = "xxx": NeuText(87) = "yyy" AltText(88) = "xxx": NeuText(88) = "yyy" AltText(89) = "xxx": NeuText(89) = "yyy" AltText(90) = "emäss": NeuText(90) = "emäß" ' <---------- ä -------- AltText(91) = "xxx": NeuText(91) = "yyy" AltText(92) = "xxx": NeuText(92) = "yyy" AltText(93) = "xxx": NeuText(93) = "yyy" AltText(94) = "xxx": NeuText(94) = "yyy" AltText(95) = "xxx": NeuText(95) = "yyy" AltText(96) = "xxx": NeuText(96) = "yyy" AltText(97) = "xxx": NeuText(97) = "yyy" AltText(98) = "xxx": NeuText(98) = "yyy" AltText(99) = "xxx": NeuText(99) = "yyy" AltText(100) = "xxx": NeuText(100) = "yyy" AltText(101) = "xxx": NeuText(101) = "yyy" AltText(102) = "xxx": NeuText(102) = "yyy" AltText(103) = "xxx": NeuText(103) = "yyy" AltText(104) = "xxx": NeuText(104) = "yyy" AltText(105) = "xxx": NeuText(105) = "yyy" AltText(106) = "xxx": NeuText(106) = "yyy" AltText(107) = "xxx": NeuText(107) = "yyy" AltText(108) = "xxx": NeuText(108) = "yyy" AltText(109) = "xxx": NeuText(109) = "yyy" AltText(110) = "rösste": NeuText(110) = "rößte" ' <----------- ö ----------- AltText(111) = "Grösse": NeuText(111) = "Größe" AltText(112) = "xxx": NeuText(112) = "yyy" AltText(113) = "xxx": NeuText(113) = "yyy" AltText(114) = "xxx": NeuText(114) = "yyy" AltText(115) = "xxx": NeuText(115) = "yyy" AltText(116) = "xxx": NeuText(116) = "yyy" AltText(117) = "xxx": NeuText(117) = "yyy" AltText(118) = "xxx": NeuText(118) = "yyy" AltText(119) = "xxx": NeuText(119) = "yyy" AltText(120) = "xxx": NeuText(120) = "yyy" AltText(121) = "xxx": NeuText(121) = "yyy" AltText(122) = "xxx": NeuText(122) = "yyy" AltText(123) = "xxx": NeuText(123) = "yyy" AltText(124) = "xxx": NeuText(124) = "yyy" AltText(125) = "xxx": NeuText(125) = "yyy" AltText(126) = "xxx": NeuText(126) = "yyy" AltText(127) = "xxx": NeuText(127) = "yyy" AltText(128) = "xxx": NeuText(128) = "yyy" AltText(129) = "xxx": NeuText(129) = "yyy" AltText(130) = "Füsse": NeuText(130) = "Füße" ' <----------- ü -------- AltText(131) = "rüssen": NeuText(131) = "rüßen" AltText(132) = "xxx": NeuText(132) = "yyy" AltText(133) = "xxx": NeuText(133) = "yyy" AltText(134) = "xxx": NeuText(134) = "yyy" AltText(135) = "xxx": NeuText(135) = "yyy" AltText(136) = "xxx": NeuText(136) = "yyy" AltText(137) = "xxx": NeuText(137) = "yyy" AltText(138) = "xxx": NeuText(138) = "yyy" AltText(139) = "xxx": NeuText(139) = "yyy" AltText(140) = "LOAD-TIPP": NeuText(140) = "LOAD-TIP" AltText(141) = "WORD-TIPP": NeuText(141) = "WORD-TIP" AltText(142) = "LETTER-TIPP": NeuText(142) = "LETTER-TIP" AltText(143) = "FUEGEN": NeuText(143) = "FÜGEN" AltText(144) = "KNUEPF": NeuText(144) = "KNÜPF" AltText(145) = "PAEISCH": NeuText(145) = "PÄISCH" AltText(146) = "FUER": NeuText(146) = "FÜR" AltText(147) = "AENDERN": NeuText(147) = "ÄNDERN" AltText(148) = "UEBER": NeuText(148) = "ÜBER" AltText(149) = "NAECHSTE": NeuText(149) = "NÄCHSTE" ' ----------------- F E H L E R R Ü C K G Ä N G I G M A C H E N --------------------- AltText(160) = "Qüll": NeuText(160) = "Quell" AltText(161) = "qü": NeuText(161) = "que" AltText(162) = "xüll": NeuText(162) = "xuell" AltText(163) = "irtüll": NeuText(163) = "irtuell" AltText(164) = "ktüll": NeuText(164) = "ktuell" AltText(165) = "vidüll": NeuText(165) = "viduell" AltText(166) = "raür": NeuText(166) = "rauer" AltText(167) = "Blüs": NeuText(167) = "Blues" AltText(168) = "Neü": NeuText(168) = "Neue" AltText(169) = "neü": NeuText(169) = "neue" AltText(170) = "ichäl": NeuText(170) = "ichael" AltText(171) = "sräl": NeuText(171) = "srael" AltText(172) = "ßkal": NeuText(172) = "sskal" AltText(173) = "ßtröm": NeuText(173) = "sström" AltText(174) = "eür": NeuText(174) = "euer" AltText(175) = "ktüll": NeuText(175) = "ktuell" AltText(176) = "qüll": NeuText(176) = "quell" AltText(177) = "enaün": NeuText(177) = "enauen" AltText(178) = "daür": NeuText(178) = "dauer" AltText(179) = "ürst": NeuText(179) = "uerst" AltText(180) = "ösie": NeuText(180) = "oesie" AltText(181) = "ötisch": NeuText(181) = "oetisch" AltText(182) = "freün": NeuText(182) = "freuen" AltText(183) = "ventüll": NeuText(183) = "ventuell" AltText(184) = "anüll": NeuText(184) = "anuell" AltText(185) = "naür": NeuText(185) = "nauer" AltText(186) = "ontöin": NeuText(186) = "ontoein" AltText(187) = "zürst": NeuText(187) = "zuerst" AltText(188) = "enaü": NeuText(188) = "enaue" AltText(189) = "TrüType": NeuText(189) = "TrueType" AltText(190) = "blüwin": NeuText(190) = "bluewin" AltText(191) = "käser@": NeuText(191) = "kaeser@" AltText(192) = "xxx": NeuText(192) = "yyy" AltText(193) = "xxx": NeuText(193) = "yyy" AltText(194) = "xxx": NeuText(194) = "yyy" AltText(195) = "xxx": NeuText(195) = "yyy" AltText(196) = "xxx": NeuText(196) = "yyy" AltText(197) = "xxx": NeuText(197) = "yyy" AltText(198) = "xxx": NeuText(198) = "yyy" AltText(199) = "xxx": NeuText(199) = "yyy" AltText(200) = "xxx": NeuText(200) = "yyy" AltText(201) = "xxx": NeuText(201) = "yyy" AltText(202) = "xxx": NeuText(202) = "yyy" AltText(203) = "xxx": NeuText(203) = "yyy" AltText(204) = "xxx": NeuText(204) = "yyy" AltText(205) = "xxx": NeuText(205) = "yyy" AltText(206) = "xxx": NeuText(206) = "yyy" AltText(207) = "xxx": NeuText(207) = "yyy" AltText(208) = "xxx": NeuText(208) = "yyy" AltText(209) = "xxx": NeuText(209) = "yyy" AltText(210) = "xxx": NeuText(210) = "yyy" AltText(211) = "xxx": NeuText(211) = "yyy" AltText(212) = "xxx": NeuText(212) = "yyy" AltText(213) = "xxx": NeuText(213) = "yyy" AltText(214) = "xxx": NeuText(214) = "yyy" AltText(215) = "xxx": NeuText(215) = "yyy" AltText(216) = "xxx": NeuText(216) = "yyy" AltText(217) = "xxx": NeuText(217) = "yyy" AltText(218) = "xxx": NeuText(218) = "yyy" AltText(219) = "xxx": NeuText(219) = "yyy" ' -------------------------------------------------------------- Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To 209 ' =================================== TextA = AltText(k) If TextA = "xxx" Then GoTo Schweizer_Weiter With Selection.Find .Text = TextA .Replacement.Text = NeuText(k) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Alternative : Replace:=wdReplaceOne ' =================================== Schweizer_Weiter: Next k Call AlteRS_ZZ_SchwyzerDütsch_Groß_und_Klein ActiveWindow.View.Type = wdPageView ' L a y o u t - A n s i c h t Application.ScreenUpdating = True End Sub ' Schweizerdeutsch; ae in ä usw. Sub AlteRS_ZZ_SchwyzerDütsch_Groß_und_Klein() Dim AltText(1 To 220) As String, NeuText(1 To 220) As String Dim k& Dim TextA$, stHilfA$, Länge&, Buchstabe$ Dim TextB$, stHilfB$ ' ----------------------------------------------------------------------- AltText(1) = "xxx": NeuText(1) = "yyy" ' ----- a ----- AltText(2) = "ausser": NeuText(2) = "außer" AltText(3) = "xxx": NeuText(3) = "yyy" AltText(4) = "xxx": NeuText(4) = "yyy" AltText(5) = "xxx": NeuText(5) = "yyy" AltText(6) = "xxx": NeuText(6) = "yyy" AltText(7) = "xxx": NeuText(7) = "yyy" AltText(8) = "xxx": NeuText(8) = "yyy" AltText(9) = "xxx": NeuText(9) = "yyy" AltText(10) = "xxx": NeuText(10) = "yyy" ' ----- e, i ----- AltText(11) = "liessen": NeuText(11) = "ließen" AltText(12) = "xxx": NeuText(12) = "yyy" AltText(13) = "xxx": NeuText(13) = "yyy" AltText(14) = "xxx": NeuText(14) = "yyy" AltText(15) = "xxx": NeuText(15) = "yyy" AltText(16) = "xxx": NeuText(16) = "yyy" AltText(17) = "xxx": NeuText(17) = "yyy" AltText(18) = "xxx": NeuText(18) = "yyy" AltText(19) = "xxx": NeuText(19) = "yyy" AltText(20) = "xxx": NeuText(20) = "yyy" AltText(21) = "xxx": NeuText(21) = "yyy" AltText(22) = "xxx": NeuText(22) = "yyy" AltText(23) = "xxx": NeuText(23) = "yyy" AltText(24) = "xxx": NeuText(24) = "yyy" AltText(25) = "xxx": NeuText(25) = "yyy" AltText(26) = "xxx": NeuText(26) = "yyy" AltText(27) = "xxx": NeuText(27) = "yyy" AltText(28) = "xxx": NeuText(28) = "yyy" AltText(29) = "xxx": NeuText(29) = "yyy" AltText(30) = "weiss": NeuText(30) = "weiß" ' ----- ei ----- AltText(31) = "xxx": NeuText(31) = "yyy" AltText(32) = "xxx": NeuText(32) = "yyy" AltText(33) = "xxx": NeuText(33) = "yyy" AltText(34) = "xxx": NeuText(34) = "yyy" AltText(35) = "xxx": NeuText(35) = "yyy" AltText(36) = "xxx": NeuText(36) = "yyy" AltText(37) = "xxx": NeuText(37) = "yyy" AltText(38) = "xxx": NeuText(38) = "yyy" AltText(39) = "xxx": NeuText(39) = "yyy" AltText(40) = "xxx": NeuText(40) = "yyy" AltText(41) = "xxx": NeuText(41) = "yyy" AltText(42) = "xxx": NeuText(42) = "yyy" AltText(43) = "xxx": NeuText(43) = "yyy" AltText(44) = "xxx": NeuText(44) = "yyy" AltText(45) = "xxx": NeuText(45) = "yyy" AltText(46) = "xxx": NeuText(46) = "yyy" AltText(47) = "xxx": NeuText(47) = "yyy" AltText(48) = "xxx": NeuText(48) = "yyy" AltText(49) = "xxx": NeuText(49) = "yyy" AltText(50) = "grosse": NeuText(50) = "große" ' ----- o ----- AltText(51) = "stossen": NeuText(51) = "stoßen" AltText(52) = "xxx": NeuText(52) = "yyy" AltText(53) = "xxx": NeuText(53) = "yyy" AltText(54) = "xxx": NeuText(54) = "yyy" AltText(55) = "xxx": NeuText(55) = "yyy" AltText(56) = "xxx": NeuText(56) = "yyy" AltText(57) = "xxx": NeuText(57) = "yyy" AltText(58) = "xxx": NeuText(58) = "yyy" AltText(59) = "xxx": NeuText(59) = "yyy" AltText(60) = "xxx": NeuText(60) = "yyy" AltText(61) = "xxx": NeuText(61) = "yyy" AltText(62) = "xxx": NeuText(62) = "yyy" AltText(63) = "xxx": NeuText(63) = "yyy" AltText(64) = "xxx": NeuText(64) = "yyy" AltText(65) = "xxx": NeuText(65) = "yyy" AltText(66) = "xxx": NeuText(66) = "yyy" AltText(67) = "xxx": NeuText(67) = "yyy" AltText(68) = "xxx": NeuText(68) = "yyy" AltText(69) = "xxx": NeuText(69) = "yyy" AltText(70) = "xxx": NeuText(70) = "yyy" ' ----- u ----- AltText(71) = "xxx": NeuText(71) = "yyy" AltText(72) = "xxx": NeuText(72) = "yyy" AltText(73) = "xxx": NeuText(73) = "yyy" AltText(74) = "xxx": NeuText(74) = "yyy" AltText(75) = "xxx": NeuText(75) = "yyy" AltText(76) = "xxx": NeuText(76) = "yyy" AltText(77) = "xxx": NeuText(77) = "yyy" AltText(78) = "xxx": NeuText(78) = "yyy" AltText(79) = "xxx": NeuText(79) = "yyy" AltText(80) = "xxx": NeuText(80) = "yyy" AltText(81) = "xxx": NeuText(81) = "yyy" AltText(82) = "xxx": NeuText(82) = "yyy" AltText(83) = "xxx": NeuText(83) = "yyy" AltText(84) = "xxx": NeuText(84) = "yyy" AltText(85) = "xxx": NeuText(85) = "yyy" AltText(86) = "xxx": NeuText(86) = "yyy" AltText(87) = "xxx": NeuText(87) = "yyy" AltText(88) = "xxx": NeuText(88) = "yyy" AltText(89) = "xxx": NeuText(89) = "yyy" AltText(100) = "mässig": NeuText(100) = "mäßig" ' ----- ä ----- AltText(101) = "xxx": NeuText(101) = "yyy" AltText(102) = "xxx": NeuText(102) = "yyy" AltText(103) = "xxx": NeuText(103) = "yyy" AltText(104) = "xxx": NeuText(104) = "yyy" AltText(105) = "xxx": NeuText(105) = "yyy" AltText(106) = "xxx": NeuText(106) = "yyy" AltText(107) = "xxx": NeuText(107) = "yyy" AltText(108) = "xxx": NeuText(108) = "yyy" AltText(109) = "xxx": NeuText(109) = "yyy" AltText(110) = "xxx": NeuText(110) = "yyy" ' 110 AltText(111) = "xxx": NeuText(111) = "yyy" AltText(112) = "xxx": NeuText(112) = "yyy" AltText(113) = "xxx": NeuText(113) = "yyy" AltText(114) = "xxx": NeuText(114) = "yyy" AltText(115) = "xxx": NeuText(115) = "yyy" AltText(116) = "xxx": NeuText(116) = "yyy" AltText(117) = "xxx": NeuText(117) = "yyy" AltText(118) = "xxx": NeuText(118) = "yyy" AltText(119) = "xxx": NeuText(119) = "yyy" AltText(120) = "xxx": NeuText(120) = "yyy" ' ----- ö ----- AltText(121) = "xxx": NeuText(121) = "yyy" AltText(122) = "xxx": NeuText(122) = "yyy" AltText(123) = "xxx": NeuText(123) = "yyy" AltText(124) = "xxx": NeuText(124) = "yyy" AltText(125) = "xxx": NeuText(125) = "yyy" AltText(126) = "xxx": NeuText(126) = "yyy" AltText(127) = "xxx": NeuText(127) = "yyy" AltText(128) = "xxx": NeuText(128) = "yyy" AltText(129) = "xxx": NeuText(129) = "yyy" AltText(130) = "xxx": NeuText(130) = "yyy" ' 130 AltText(131) = "xxx": NeuText(131) = "yyy" AltText(132) = "xxx": NeuText(132) = "yyy" AltText(133) = "xxx": NeuText(133) = "yyy" AltText(134) = "xxx": NeuText(134) = "yyy" AltText(135) = "xxx": NeuText(135) = "yyy" AltText(136) = "xxx": NeuText(136) = "yyy" AltText(137) = "xxx": NeuText(137) = "yyy" AltText(138) = "xxx": NeuText(138) = "yyy" AltText(139) = "xxx": NeuText(139) = "yyy" AltText(140) = "xxx": NeuText(140) = "yyy" ' ----- ü ----- AltText(141) = "xxx": NeuText(141) = "yyy" AltText(142) = "xxx": NeuText(142) = "yyy" AltText(143) = "xxx": NeuText(143) = "yyy" AltText(144) = "xxx": NeuText(144) = "yyy" AltText(145) = "xxx": NeuText(145) = "yyy" AltText(146) = "xxx": NeuText(146) = "yyy" AltText(147) = "xxx": NeuText(147) = "yyy" AltText(148) = "xxx": NeuText(148) = "yyy" AltText(149) = "xxx": NeuText(149) = "yyy" AltText(150) = "xxx": NeuText(150) = "yyy" ' ----- AltText(151) = "xxx": NeuText(151) = "yyy" AltText(152) = "xxx": NeuText(152) = "yyy" AltText(153) = "xxx": NeuText(153) = "yyy" AltText(154) = "xxx": NeuText(154) = "yyy" AltText(155) = "xxx": NeuText(155) = "yyy" AltText(156) = "xxx": NeuText(156) = "yyy" AltText(157) = "xxx": NeuText(157) = "yyy" AltText(158) = "xxx": NeuText(158) = "yyy" AltText(159) = "xxx": NeuText(159) = "yyy" AltText(160) = "xxx": NeuText(160) = "yyy" ' ----- AltText(161) = "xxx": NeuText(161) = "yyy" AltText(162) = "xxx": NeuText(162) = "yyy" AltText(163) = "xxx": NeuText(163) = "yyy" AltText(164) = "xxx": NeuText(164) = "yyy" AltText(165) = "xxx": NeuText(165) = "yyy" AltText(166) = "xxx": NeuText(166) = "yyy" AltText(167) = "xxx": NeuText(167) = "yyy" AltText(168) = "xxx": NeuText(168) = "yyy" AltText(169) = "xxx": NeuText(169) = "yyy" AltText(210) = "xxx": NeuText(210) = "yyy" ' 210 AltText(211) = "xxx": NeuText(211) = "yyy" AltText(212) = "xxx": NeuText(212) = "yyy" AltText(213) = "xxx": NeuText(213) = "yyy" AltText(214) = "xxx": NeuText(214) = "yyy" AltText(215) = "xxx": NeuText(215) = "yyy" AltText(216) = "xxx": NeuText(216) = "yyy" AltText(217) = "xxx": NeuText(217) = "yyy" AltText(218) = "xxx": NeuText(218) = "yyy" AltText(219) = "xxx": NeuText(219) = "yyy" ' -------------------------------------------------------------- Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For k = 1 To 119 ' =================================== TextA = AltText(k) If TextA = "xxx" Or TextA = "" Then GoTo SchwüzerDütsch_Weiter TextB = NeuText(k) With Selection.Find ' ------- K l e i n s c h r e i b u n g -------------- .Text = TextA .Replacement.Text = TextB .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll Länge = Len(TextA) ' ------- G r o ß s c h r e i b u n g -------------- stHilfA = Right$(TextA, Länge - 1) Buchstabe = UCase(Left$(TextA, 1)) stHilfB = Right$(TextB, Länge - 1) With Selection.Find .Text = Buchstabe & stHilfA .Replacement.Text = Buchstabe & stHilfB .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False End With Selection.Find.Execute Replace:=wdReplaceAll ' =================================== SchwüzerDütsch_Weiter: Next k 'If Selection.Find.Font.Bold = True Then Debug.Print "AAA" End Sub ' SchwyzerDütsch in Groß- und Kleinschreibung