StarBasic InTEAM - Umlaute ersetzen für Mail und News

Umlaute ersetzen für Mail und News

In manchen Bereichen des Internets ist es noch unangebracht oder zumindest nicht erwünscht, Umlaute in Nachrichten zu verwenden. Damit man sich diese nicht ganz abgewöhnt, kann man nach dem Schreiben ein Makro verwenden, welche diese ersetzt. Natürlich kann das folgende Beispiel beliebig um Sonderzeichen der eigenen Landessprache ergänzt werden:

Sub ReplaceUmlaut
   If ActiveModule.Name = «StarWriter» then
      Selection.ActionStart()
      ActiveWindow.SearchSettings.CaseSensitive = True   
      Selection.InsertBookmark("_mhtmp_")
      Selection.GoToStartOfDoc(False)
      ActiveWindow.ReplaceAll("ö", "oe")
      Selection.GoToStartOfDoc(False)
      ActiveWindow.ReplaceAll("Ö", "Oe")
      Selection.GoToStartOfDoc(False)
      ActiveWindow.ReplaceAll("ä", "ae")
      Selection.GoToStartOfDoc(False)
      ActiveWindow.ReplaceAll("Ä", "Ae")
      Selection.GoToStartOfDoc(False)
      ActiveWindow.ReplaceAll("ü", "ue")
      Selection.GoToStartOfDoc(False)
      ActiveWindow.ReplaceAll("Ü", "Ue")
      Selection.GoToStartOfDoc(False)
      ActiveWindow.ReplaceAll("ß", "ss")
      Selection.GotoBookmark("_mhtmp_")
      Selection.DeleteBookmark("_mhtmp_")   
      Selection.ActionEnd()
   Else 
      MsgBox("Dieses Makro funktioniert nur in Textdokumenten!", _
              16, "Fehler")
   End If
End Sub

Das unveränderte und etwas umfangreichere Original ist in der Bibliothek «gimmicks.sbl», die zum Lieferumfang des SO4 gehört, zu finden.