Hi,
ich habe eine Tabelle in einem Word Dokument die aus 2 Spatlen besteht welche jeweils Text enthalten. Es gibt Zeilen in Roter, Schwarzer oder orangener Schriftfarbe. Ich möchte nun die Tabelle ablaufen und alle zeilen die schwarzen oder orangenen Text enthalten löschen. Dieser Code Block führt leider nichta aus, hat jmd einen Vorschlag ?
Dim j As Long
Dim row As Integer
row = ActiveDocument.Tables(1).Rows.Count
For j = row To 1 Step -1
ActiveDocument.Tables(1).Rows(j).Select
If (Selection.Font.TextColor = wdBlack or wdOrange) Then
Selection.Delete
End If
Next
|