title image


Smiley Re: In einem Range nach einer Zeichenfarbe suchen und ersetzen: Nachtrag
gesucht: hellgrün, ColorIndex = 4

'Attribute VB_Name = "modReplaceSelectionColorIndex"

Sub TestSelectionColorIndex()

MsgBox Selection.Font.ColorIndex

End Sub



Sub ReplaceSelectionColorIndex()

Dim x, i, tmpDoK As Document, tmpRange As Range

x = 1



Set tmpDoK = ActiveDocument

Set tmpRange = tmpDoK.Range(Start:=tmpDoK.Paragraphs(x).Range.Start, _

End:=tmpDoK.Paragraphs(x).Range.End - 1)

tmpRange.Select



If Len(tmpRange) = 0 Then

'MsgBox "Leerer Absatz"

Exit Sub

End If



i = Selection.Characters.Count

For z = 1 To i

tmpRange.Characters(z).Select

If Selection.Font.ColorIndex <> 4 Then

Selection.Font.Color = wdColorAutomatic

End If

Next z

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: