Guten Tag,
zuerst muss ich sagen, dass ich keinerlei Programmierkenntnisse besitze. Ich habe von einem netten Menschen vor vielen Jahren ein Makro übernommen, dass dieser all denjenigen zur Verfügung stellte, die Autoren von Geschichten oder Romanen sind. Das Makro findet sog. Füllwörter und kennzeichnet sie mit einem schwarzen Balken, da sie in der gesprochenen Sprache vorkommen aber in der schriftlichen Sprache verpönt sind. Es sieht so aus (in Wirklichkeit habe ich ca. 300 Wörter mittlerweile eingegeben).
Sub Fuellwoerter()
Dim strFarbe As Integer
intFuellChk = intFuellChk + 1
If intFuellChk Mod 2 = 1 Then strFarbe = 1 Else strFarbe = 0
intcheck = 0
For Each objWort In ActiveDocument.Words
Select Case LCase(Trim(objWort))
Case "aber"
intcheck = 1
Case "abermals"
intcheck = 1
Case Else
intcheck = 0
End Select
If intcheck = 1 Then objWort.HighlightColorIndex = strFarbe
Next
End Sub
Frage: Wie kann ich dieses Makro ändern, dass die Füllwörter nicht mehr mit schwarzem Balken verdeckt werden, sondern die Schriftfarbe sich auf weiß ändert, sie also gewissermaßen unsichtbar sind und ich meinen Text ohne diese Wörter vor mir sehe (natürlich ohne, dass sie gelöscht werden)?
Sollte jemand einen Tipp haben, bin ich ihm sehr dankbar. Noch ein schönes Wochenende an alle Leser oder Helfer.
heiwela
|