makro til at slette tekst der er skrevet med en bestmt farve

Public Sub CharatersWithColorDelete()
    Dim lCount As Long
   
    With ActiveDocument
        For lCount = .Characters.Count To 1 Step -1
            With .Characters(lCount)
                If .Font.Color = wdColorBlue Then
                    .Text = ""
                End If
            End With
        Next lCount
    End With
End Sub

Værd opmærksom på mellemrum der evt. ikke bliver slettet....!!

istedet for
If .Font.Color = wdColorBlue Then
kan du bruge
If .Font.ColorIndex = 5 Then

se evt. farvekodetallene her
http://www.win-consult.com/Tips/LibrarySource.asp?App=Excel&Lib=ColorRows

Jeg har testet din makro, og den virker, men men det tager uendelig lang tid. Jeg har et test dokument på 78 sider og det tager flere minutter. Hvis jeg laver sletningen med en normal søg/erstat går det lynhurtigt

du kan jo bruge Funktioner/Makro/Makro båndoptageren til at lave din makro med.

smid evt. koden her, så kan jeg måske optimere den.

Jeg har forsøgt med makro båndoptageren, men så tager systemet det er indtastet i søg og erstat felterne, og det vil jeg undgå.
Her er koden:
Sub SletBlue()
'
' SletBlue Macro
' Macro recorded 08-10-2003 by administrator
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ja, der er ikke meget blå med i det........... jeg springer fra nu. Følger med hvis der kommer yderligere kode frem her.

Nej det vil jeg give dig ret i. Søgefeltet var sat op til blå og erstatfeltet til ingenting.

Mit bud på en makro

Sub FindBlå()
Selection.WholeStory
With Selection.find
    .Font.Color = wdColorBlue
    .Execute Replace:=wdReplaceAll
  End With

End Sub

Det virker meget fint. Tak for hjælpen

selv tak ;-)