Hallo zusammen,
Ich wollte mit folgendem Code feststellen, ob ein bestimmter Text markiert ist und diesen unterstreichen.
Aber auch nach dem einmaligen ausführen bleibt Selection.Active auf "Wahr" und dann springt es beim nächsten Ausführen immer in diese Schleife obwohl kein Text mehr markiert ist. Kann man das irgendwie zurücksetzen am Ende oder gibt es eine andere Möglichkeit, markierten Text zu erkennen außer mit diesem Code?
If Selection.Active Then
Selection.Font.Underline = wdUnderlineSingle
Selection.MoveRight Unit:=wdCharacter, Count:=2 'und zum nächsten Wort gehen
Else
.....
End If
Danke vielmals und viele Grüße, Andreas
|