Thema Datum  Von Nutzer Rating
Antwort
18.06.2016 12:53:10 heiwela
Solved
18.06.2016 14:02:54 Gast66599
NotSolved
18.06.2016 15:16:15 Gast79429
NotSolved
18.06.2016 17:49:52 heiwela
NotSolved
18.06.2016 19:23:04 Gast89922
NotSolved
19.06.2016 14:36:59 heiwela
NotSolved
19.06.2016 16:26:15 Gast7117
NotSolved
Blau Makro zum Ändern der Schriftfarbe
 19.06.2016 16:51:16 Gast7117
NotSolved
19.06.2016 17:59:16 heiwela
NotSolved
20.06.2016 10:35:46 heiwela
NotSolved

Ansicht des Beitrags:
Von:
Gast7117		 Datum:
19.06.2016 16:51:16		 Views:
787		 Rating:
     
Antwort:
  Ja
Thema:
Makro zum Ändern der Schriftfarbe

Hallo,

...solltest Du gar nicht klarkommen, man kanns natürlich auch auf Deine Codevorlage anwenden...

Option Explicit

Public Sub Fuellwoerter2()
Static slngFuellChk As Long
Dim objWort As Range
Dim enmFontColor As WdColor
Dim lngCheck As Long
slngFuellChk = slngFuellChk + 1
If slngFuellChk Mod 2 = 1 Then
   enmFontColor = wdColorAutomatic
Else
   enmFontColor = wdColorWhite
End If
For Each objWort In ActiveDocument.Words
    
    Select Case LCase$(Trim$(objWort.Text))
        Case "aber"
            lngCheck = 1
        Case "abermals"
            lngCheck = 1
        Case Else
            lngCheck = 0
    End Select
     
    If lngCheck = 1 Then objWort.Font.Color = enmFontColor
     
Next
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.06.2016 12:53:10 heiwela
Solved
18.06.2016 14:02:54 Gast66599
NotSolved
18.06.2016 15:16:15 Gast79429
NotSolved
18.06.2016 17:49:52 heiwela
NotSolved
18.06.2016 19:23:04 Gast89922
NotSolved
19.06.2016 14:36:59 heiwela
NotSolved
19.06.2016 16:26:15 Gast7117
NotSolved
Blau Makro zum Ändern der Schriftfarbe
 19.06.2016 16:51:16 Gast7117
NotSolved
19.06.2016 17:59:16 heiwela
NotSolved
20.06.2016 10:35:46 heiwela
NotSolved