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 |