Ich habe folgendes Problem: Mit dem Code möchte ich ein Wort markieren und prüfen, ob es sich um ein bestimmtes Wort handelt, und dann ersetzen durch ein anderes bestimmtes Wort.

Danach möchte ich den Cursor auf dem nächst folgenden Wort stehen haben. Aber anstatt zum nächsten Wort zu gehen, erweitert mir mein Macro die Markierung, was ich gar nicht haben will.

Selection.Extend
Selection.Extend
If Selection.Text = "Sicherheit " Then

Selection.Text = "Einigkeit "

End If
Selection.MoveRight Unit:=wdCharacter, Count:=1

Also wie entferne ich die Markierung wieder und kann mich mit dem Cursor vor das nächst folgende Wort setzen?

Ich hoffe, ihr versteht, was ich meine.

Vielen Dank schon mal und ich hoffe auf eure Hilfe,

Andreas