Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Einmalige Korrekur vieler Wörter statt suchen und ersetzen
zurück: Summe mit vba??? weiter: Laufzeitfehler '5941' Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
openword
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Aug 2009, 14:07
Rufname:

Einmalige Korrekur vieler Wörter statt suchen und ersetzen - Einmalige Korrekur vieler Wörter statt suchen und ersetzen

Nach oben
       Version: Office XP (2002)

Hallo,

ich möchte mehrere Korrekturen auf einmal in einem Dokument durchführen lassen, statt über "Suchen und Ersetzen" jede Korrektur einzelnen per Hand.
Ich würde also gerne eine Liste mit zu suchenden und mit zu ersetzenden Wörtern anlegen. Könnt Ihr mir weiterhelfen? Vielen Dank.
Hubert_R
Gast


Verfasst am:
08. Aug 2009, 17:28
Rufname:


AW: Einmalige Korrekur vieler Wörter statt suchen und ersetz - AW: Einmalige Korrekur vieler Wörter statt suchen und ersetz

Nach oben
       Version: Office XP (2002)

Hallo,

das ist z.B. mit einem Makro möglich. Im folgenden Beispiel werden alle Umlaute ersetzt. Suchen-/Ersetzen müssten angepasst werden.

Grüsse Hubert
Code:
'Attribute VB_Name = "modUmlauteErsetzen"
Sub UmlauteErsetzen()
  'Erweitern Sie das folgende Array, wenn
  'weitere Buchstaben ersetzt werden sollen
  Dim sSuchtext(7) As String
  Dim sErsetzen(7) As String
  '
  sSuchtext(1) = "Ä"
  sErsetzen(1) = "Ae"
  sSuchtext(2) = "ä"
  sErsetzen(2) = "ae"
  sSuchtext(3) = "Ö"
  sErsetzen(3) = "Oe"
  sSuchtext(4) = "ö"
  sErsetzen(4) = "oe"
  sSuchtext(5) = "Ü"
  sErsetzen(5) = "Ue"
  sSuchtext(6) = "ü"
  sErsetzen(6) = "ue"
  sSuchtext(7) = "ß"
  sErsetzen(7) = "ss"
  '
  For i = 1 To 7
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    '
    With Selection.Find
      .Text = sSuchtext(i)
      .Replacement.Text = sErsetzen(i)
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = True
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    '
    Selection.Find.Execute Replace:=wdReplaceAll
  Next i
End Sub
openword
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Aug 2009, 19:56
Rufname:

AW: Einmalige Korrekur vieler Wörter statt suchen und ersetz - AW: Einmalige Korrekur vieler Wörter statt suchen und ersetz

Nach oben
       Version: Office XP (2002)

Vielen Dank für Deine Antwort.
Wie schreibe ich ein Makro?
Hubert_R
Gast


Verfasst am:
09. Aug 2009, 10:54
Rufname:

AW: Einmalige Korrekur vieler Wörter statt suchen und ersetz - AW: Einmalige Korrekur vieler Wörter statt suchen und ersetz

Nach oben
       Version: Office XP (2002)

Guten Morgen,

leider ist es nicht möglich, Dir hier die Grundlagen der VBA-Programmierung beizubringen. Aber die Wordhilfe kann Dir dabei helfen. Öffne die Normal.dot, das ist die Standardvorlage von Word. Suche in der Hilfe nach Makros. In der langen Liste musst Du das Passende suchen. Wenn Du es geschafft hast, ein Modul anzulegen, kopierst Du den Code aus dem Beitrag zwischen Sub und End Sub da hinein. Die Suchen-Ersetzenbegriffe müssen noch angepasst werden, danach die Vorlage speichern.

Viel Erfolg Razz
Hubert

PS.:
Unter dieser Adresse findest Du die Wordfaqs von René Probst
[http://www.developmen.de/download/wd/Word_FAQ.pdf]
openword
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Aug 2009, 10:56
Rufname:


AW: Einmalige Korrekur vieler Wörter statt suchen und ersetz - AW: Einmalige Korrekur vieler Wörter statt suchen und ersetz

Nach oben
       Version: Office XP (2002)

Danke, über Alt-F8 bin ich gestern in den VPA Mode geraten, wo ich dann einfach Deinen Code eingefügt und für meine Zwecke angepasst habe. Funktioniert so, wie ich es wollte. Vielen Dank noch einmal.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Mergefield: Zeichen ersetzen 10 _Gast_ 268 06. Feb 2014, 16:46
_Gast_ Mergefield: Zeichen ersetzen
Keine neuen Beiträge Word Formate: 2 Wörter "verbinden" 3 Luc 6512 14. Jan 2013, 19:55
Gast 2 Wörter "verbinden"
Keine neuen Beiträge Word Formate: Wörter in einem Text würfeln - Wörtersalat? 3 Gast 453 30. Dez 2012, 16:33
HorusTheSG Wörter in einem Text würfeln - Wörtersalat?
Keine neuen Beiträge Word Formate: Suchen nach Grossbuchstaben 7 Hamnegg 7065 15. Feb 2012, 13:32
RD Suchen nach Grossbuchstaben
Keine neuen Beiträge Word Formate: Ganze Seite ersetzen 3 jetrca 1021 12. Jan 2011, 15:07
hyba Ganze Seite ersetzen
Keine neuen Beiträge Word Formate: Kopfzeile vieler Dokumente ändern ("Master-Dokument&quo 0 Christoph21 911 24. Sep 2010, 11:49
Christoph21 Kopfzeile vieler Dokumente ändern ("Master-Dokument&quo
Keine neuen Beiträge Word Formate: Formatvorlagen ersetzen bei beliebigem Text 2 Gast 1252 21. Jun 2010, 12:32
Gast Formatvorlagen ersetzen bei beliebigem Text
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Word Formate: Word 2003: wie formatiere ich einzelne Wörter unterschiedl ? 1 Gast 1120 28. Feb 2010, 14:46
Lisa Word 2003: wie formatiere ich einzelne Wörter unterschiedl ?
Keine neuen Beiträge Word Formate: Formatvorlage für Beschriftung ersetzen 0 Lischen16 406 12. Okt 2009, 08:14
Lischen16 Formatvorlage für Beschriftung ersetzen
Keine neuen Beiträge Word Formate: Worte suchen 6 Rainy 808 10. Jul 2009, 11:35
Rainy Worte suchen
Keine neuen Beiträge Word Formate: Sonderzeichen suchen & ersetzen 1 psmuc 2262 08. Apr 2009, 12:38
Sporty1808 Sonderzeichen suchen & ersetzen
Keine neuen Beiträge Word Formate: Deutsche Wörter Filtern! 0 Tronix 906 23. Feb 2009, 00:59
Tronix Deutsche Wörter Filtern!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe