Word-Makro
26.04.2006 13:03:56
Eleni
Habe da ein Problem mit einem Wordmakro. In einem Word-Dokument ist eine Tabelle eingefügt und ich möchte nun über ein Userform gewisse Bedingungen abfragen. Ist eine Bedingung nicht erfüllt, so soll die entsprechende Zeile gelöscht werden. Dabei verwende ich die Funktion "Suchen" und dann "Zeile löschen". Aber irgendetwas funktioniert nicht, denn manchmal steht die zu löschende Zeile immer noch da.
Beispiel: Ist im Userform die Checkbox5 nicht aktiviert, so soll in der 11-spaltigen Tabelle in der 2. Spalte nach dem Wort "map" gesucht und dann die komplette Zeile gelöscht werden. Bin für jeden Vorschlag offen. Hier mein Code:
If CheckBox5.Value = False Then
Selection.Find.ClearFormatting
With Selection.Find
.Text = "map"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCell, Count:=1
Selection.MoveRight Unit:=wdCell, Count:=11, Extend:=wdExtend
Selection.Rows.Delete
End If
Danke im Voraus, Eleni