MS Word 2012 Macro Groß/Kleinschreibung Erkennung

[Fluffybunny]

Howdy folks,

Mein Problem ist folgendes:

Ich muss sehr viele Texte durchlesen und nach Fehlern suchen (keine Angst, ich lese Englische Texte, bei Deutsch wurde ich hoffnungslos versagen). Ich benutze einen Word Macro, das gleich mehrere angegeben Wörter sucht und highlighted. Soweit ich weis, kann man in einem Word Macro nicht nach Groß-/Kleinschreibung suchen. Ist das so? Es wäre mir eine riesen Erleichterung, wenn es auch nach Groß-/Kleinschreibung suchen könnte. Zusätzlich, funktionieren Sonderzeichen (! @ & etc.) wohl auch nicht. Gibt es einen Weg dies zu umgehen?

Das Macro sieht so aus:

Sub MacroName()

Application.ScreenUpdating = False

Dim StrFnd As String, Rng As Range, i As Long

StrFnd = "word1,word2,word3,word4,etc"

For i = 0 To UBound(Split(StrFnd, ","))

Set Rng = ActiveDocument.Range

With Rng.Find

.ClearFormatting

.Text = Split(StrFnd, ",")(i)

.Replacement.ClearFormatting

.Replacement.Highlight = True

.Replacement.Text = "^&"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = True

.Execute Replace:=wdReplaceAll

End With

Next

Set Rng = Nothing

Application.ScreenUpdating = True

End Sub



Da Ich das Macro aus dem Internet habe und mich mit sowas nicht auskenne, weis Ich nicht ob es überhaupt so optimal für mich ist.

Ich wäre unendlich dankbar wenn es eine Lösung gibt.

Mit freundlichen Grüßen,

Fluffers

 

[morcego]

Application.ScreenUpdating = False

Das funktioniert mit Aero nicht und

.MatchCase = False

das sollte eigentlich das Case Sensitive ausknipsen.

 

[Fluffybunny]

Vielen Dank! Ich werde es auf der Arbeit ausprobieren.