Thema Datum  Von Nutzer Rating
Antwort
21.10.2024 17:08:46 Marti
NotSolved
Blau Markierungen ersetzen
 21.10.2024 20:06:35 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
21.10.2024 20:06:35		 Views:
39		 Rating:
     
Antwort:
  Ja
Thema:
Markierungen ersetzen

Hi Marti,

(der Einzige Marti den ich kenne ist McFly wink)

Ich würde das ganze etwa so angehen:

Sub Anti_Hervorheben()

'entfernt alle Hervorhebungen außer Gelb

ActiveDocument.Range.Select

With Selection.Find
  .ClearFormatting
  .Highlight = True
  .Text = "*"
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindStop
  .MatchCase = False
  .MatchWholeWord = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  Do
    .Execute
    If .Found Then
      If .Parent.Range.HighlightColorIndex <> wdYellow Then
        .Parent.Range.HighlightColorIndex = wdNoHighlight
        foundrStart = .Parent.Range.Start
      ElseIf .Parent.Range.Start < foundrStart Then
        Exit Do
      End If
    Else
      Exit Do
    End If
  Loop
End With

End Sub

Gruß Mr. K.

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
21.10.2024 17:08:46 Marti
NotSolved
Blau Markierungen ersetzen
 21.10.2024 20:06:35 xlKing
NotSolved