Hi, noch mal,
Dein Link sagt mir nichts. Sorry! Ich kann zwei Schaltflächen bedienen, aber das ist auch alles. Keine weiteren Reaktionen.
Was die Fehlermeldung anbelangt, sie heiß genau:
Fehler beim Kompilieren:
Sub oder Function nicht definiert.
Dabei erscheint ein blauer Balken unter der ersten Zeile: Sub Test().
Habe einen Screenshot, weiß aber nicht, wie ich den hier einfügen kann.
Next
End Sub (Das ist das Ende des vorigen Makros)
Option Explicit
(hier steht der blaue Balken!)
Sub Test()
Dim rngWord As Word.Range
Dim vntaSilb As Variant
Dim vntSilb As Variant
vntaSilb = Array("ung", "heit", "keit", "nis")
For Each rngWord In ThisDocument.Words
For Each vntSilb In vntaSilb
If InStr(1, rngWord.Text, vntSilb, vbBinaryCompare) > 1 Then 'vbBinaryCompare bedeutet: Groß-/Kleinschreibung wird unterschieden
rngWord.HighlightColorIndex = wdYellow
Exit For
End If
Next
Next
|