title image


Smiley Re: In einem Range nach einer Zeichenfarbe suchen
Hallo,



zuerst habe ich die genaue Farbe oder den Farb-Index der Markierung festgestellt ...

Sub TestA()

'MsgBox Selection.Font.Color

MsgBox Selection.Font.ColorIndex

End Sub... und durch eine andere zwecks besserer Unterscheidung ersetzt.Sub TestB()

With ActiveDocument.Content.Find

.ClearFormatting

.Font.ColorIndex = 2

.Format = True

.Replacement.ClearFormatting

.Replacement.Font.Color = wdColorRed

.Execute Forward:=True, _

Replace:=wdReplaceAll, FindText:="", _

ReplaceWith:=""

End With

End Sub

      Hubert









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: