Von Ä nach Ae mit einem Klick? Umlaute auflösen

Computer: Software & Programmierung Office Software
1

Hallo,

meine Hörer (www.krimikiste.com) haben Probleme beim Lesen der Texte zu den Podcastfolgen, liegt an der Codierung und an Podpress - Umlaute werden sowohl auf dem MP3-Player als auch bei iTunes z.B. ä als „& auml ;“ dargestellt.

Da ich das Problem nicht zeitnah im Feed beheben kann, würde ich gerne wissen, ob es ein Tool gibt, einen Trick in Word oder was auch immer, mit dem man alle Umlaute in einem Text umwandeln kann, sprich: ä wird zu ae, ü zu ue etc., ohne das manuell bei jedem Buchstaben einzeln durchzuführen.

Danke für eure Hilfe!
Kristine

2

Hallo Kristine,

Da ich das Problem nicht zeitnah im Feed beheben kann, würde
ich gerne wissen, ob es ein Tool gibt, einen Trick in Word
oder was auch immer, mit dem man alle Umlaute in einem Text
umwandeln kann, sprich: ä wird zu ae, ü zu ue etc., ohne das
manuell bei jedem Buchstaben einzeln durchzuführen.

In Word gibt es die Ersetzen-Funktion. Ersetze alle ä durch ae usw. Mit dem Makrorekorder könntest du dir ein Makro erstellen, das das automatisch macht.

Cheers, Felix

3

Hallo Kristine,

Mit dem Makrorekorder könntest du dir ein Makro
erstellen, das das automatisch macht.

Dieser auf die Schnelle aufgezeichnete Code macht es klaglos, auch wenn er nicht gerade elegant ist!

Sub ErsetzeUmlaut()
 With Selection.Find
 .Text = "Ä"
 .Replacement.Text = "Ae"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = "Ö"
 .Replacement.Text = "Oe"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = "Ü"
 .Replacement.Text = "Ue"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = "ä"
 .Replacement.Text = "ae"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = "ö"
 .Replacement.Text = "oe"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 With Selection.Find
 .Text = "ü"
 .Replacement.Text = "ue"
 .Forward = True
 .Wrap = wdFindContinue
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Gruss
Erich

1 „Gefällt mir“