Selektion funzt noch nicht
27.05.2016 08:45:24
Rolf
Hallo Daniel
Der COde von Daniel funktioniert, aber meine Änderung nur halbwegs.
Das Problem sind die ersten beiden Zeilen.
Die Abfrage kommt auch dann, wenn der Text im Dokument nicht vorhanden ist, also wenn Find eigentlich ein Falsch zurück geben sollte.
Selection.Find.Text = "Zusatzschild: Ohne Schild"
If Selection.Find.Text = "Zusatzschild: Ohne Schild" = True Then
(wenn nicht TRUE, dann soll er den Teil überspringen, also zu End If, tut er aber nicht)
b = MsgBox("Zusatzschild: Ohne Schild entfernen?", vbYesNo, "Zeilen entfernen")
If b = vbYes Then
With Selection.Find
.Text = "Zusatzschild: Ohne Schild"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Else
End If
End If