Thema Datum  Von Nutzer Rating
Antwort
25.09.2009 12:37:41 Alex
NotSolved
Blau Aw:Per VBA Script automatisch Texte löschen
 26.09.2009 11:45:37 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
26.09.2009 11:45:37		 Views:
719		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Per VBA Script automatisch Texte löschen
Hallo Alex,
es geht bestimmt einfacher, aber mir fällt im Augenblick nichts besseres ein, alle Zeichen einzeln zu prüfen, ob sie mit weißer Farbe oder gar nicht (was wie weiß aussieht!) hervorgehoben sind. Das dauert zwar ziemlich lange, aber führt zum Ziel. Wenn die Nicht-Hervorhebnung nicht verwenden willst, entferne "Or .Range.HighlightColorIndex = wdNoHighlight".

Sub weiss_entfernen()
Selection.HomeKey wdStory
For i = 1 To ActiveDocument.Characters.Count
With Selection
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If .Range.HighlightColorIndex = wdWhite _
Or .Range.HighlightColorIndex = wdNoHighlight Then .Delete
.Collapse direction:=wdCollapseEnd
End With
Next i
End Sub

Gruß
Holger


Alex schrieb am 25.09.2009 12:37:41:

Hallo,

ich möchte automatisch alle Texte in word die als Texthintergrundfarbe weiß haben löschen. Ich hatte mir erst ein Beispiel für word gebastelt, dass mir die Zeilen, die bestimmte Worte enthalten löscht. Jedoch habe ich es nicht hinbekommen, die backcolor darüber anzusprechen. Da ich nur wenig Ahnung in VBA habe, hoffe ich auf eure Hilfe.

Das Beispiel sah so aus:

Sub weißerHintergrundVBALoeschen()


With Selection
.HomeKey wdStory
.Find.ClearFormatting
.Find.Replacement.ClearFormatting
End With

Do
With Selection.Find
.Text = "Arial"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
End With
Selection.Find.Execute

If Selection.Find.Found Then
With Selection
.HomeKey Unit:=wdLine
.MoveDown Unit:=wdLine, Extend:=True
.Delete
.Collapse Direction:=wdCollapseEnd
End With
Else
Exit Do
End If
Loop Until Not Selection.Find.Found

End Sub

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
25.09.2009 12:37:41 Alex
NotSolved
Blau Aw:Per VBA Script automatisch Texte löschen
 26.09.2009 11:45:37 Holger
NotSolved