title image


Smiley In einem Range nach einer Zeichenfarbe suchen
Hi,



ich möchte in einem Paragraphen nach einer bestimmten Farbe suchen. Mein Problem: wenn ich Range.Find verwende, wird nix gefunden, auch wenn in diesem Range die entsprechende Zeichenfarbe vorkommt. Damit aber nicht genug. Wenn die Farbe sowohl im Range als auch hinter diesem Range im Dokument vorkommt, wird bei Execute der Bereich hinter meinem Range markiert.

Warum findet der nix in meinem Range und wie kann ich die Suche auf diesen Range beschränken?



Hier mal der Code:



Public Sub subReplace()



Dim tmpRange As Range

Set tmpRange = Selection.Paragraphs(1).Range



tmpRange.MoveEnd wdCharacter, -1

If tmpRange.Start = tmpRange.End Then Exit Sub



With tmpRange.Find

.ClearFormatting

.Replacement.ClearFormatting



'.Forward = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False



.Text = ""

.Replacement.Text = ""

.Font.Color = wdColorGreen



Do While .Execute

If tmpRange.Style.Font.Color wdColorGreen Then _

tmpRange.Font.Color = wdColorAutomatic

tmpRange.SetRange tmpRange.End + 1, Selection.Paragraphs(1).Range.End

If tmpRange.Start = tmpRange.End Then Exit Do

Loop



End With



End Sub



Danke im voraus



Gruß

Bostich

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: