Korrektur von Wörtern

Wobei anzumerken ist, dass die Option "Automatische Korrektur von "of the" deaktivieren", welche über das genannte Kontextmenü aufrufbar ist, jeweils nur für die gerade bearbeitete Mail gilt.

Bei der nächsten Mail versucht Outlook erneut, das Wort zu korrigieren. An anderer Stelle habe ich den Tipp gefunden, diese Wörter in den Autokorrektur-Optionen unter Ausnahmen, keine Korrektur für... einzutragen. Mal schauen, ob das wirklich hilft.

Beste Grüße

Hallo Claus,

sie sind Teilstrings eines Satzes.

Ich habe jetzt versucht das Problem mit Replace zu lösen:

Sub kleininGROß()

Dim Zelle As Range

For Each Zelle In Selection

Zelle.Replace " usa ", " USA ", xlPart

Next Zelle

End Sub

Jetzt wird USA aber nur erkannt, wenn vorher und nachher eine Leertaste ist, am Satzanfang bzw Ende funktioniert es also nicht. Wenn ich die Leertasten weglasse wird das Wort auch geändert wenn es nur Teil eines anderen Wortes ist. Gibt es dafür eine Variable?

Danke,

Simon

Wenn Du Wörter in einem Satz ändern willst, dann musst Du zuerst den Satz in Wörter splitten. Das ist jedoch nicht trivial, weil Du alle Trennzeichen berücksichtigen musst.

Erst dann kannst Du die einzelnen Wörter korrigieren und ersetzen.

Zum Schluss baust Du den Satz wieder zusammen.

Andreas.

Option Explicit

Option Compare Text

Sub WandleInKleinBuchstabenUm()

  Dim Zelle As Range

  For Each Zelle In Selection

    With Zelle

      Select Case .Value

        Case "USA", "BRD"

          'Ignore

        Case Else

          .Value = LCase(.Value)

      End Select

    End With

  Next

End Sub

Hallo Simon,

probiere mal:

Sub Kleinschreibung()

Dim rngC As Range

Dim varTmp As Variant

Dim strTmp As String

Dim i As IntegerConst strLand = "USABRD"

For Each rngC In Selection

   varTmp = Split(rngC, " ")

   For i = LBound(varTmp) To UBound(varTmp)

      strTmp = strTmp & " " & _

         IIf(InStr(strLand, varTmp(i)) = 0, LCase(varTmp(i)), varTmp(i))

   Next

   rngC = Mid(strTmp, 2)

   strTmp = ""

Next

End Sub

Claus