MarkierungAktuellWort Dim Abstand As FormatZeichen GetCurValues Abstand Wert$ = Abstand.Laufweite If Wert$ = "0 pt" Then FormatZeichen .Laufweite = "1,6 pt", .Position = "0 pt", \ .Registerkarte = "1" ZeichenLinks 1 Einfügen " " WortRechts 1 Einfügen " " FormatZeichen .Laufweite = "0 pt", .Position = "0 pt", \ .Registerkarte = "1" Else FormatZeichen .Laufweite = "0 pt", .Position = "0 pt", \ .Registerkarte = "1" WortLinks 1 ZeichenLinks 2, 1 If Markierung$() = " " Then ZeichenRechts 1 BearbeitenLöschen - 1 Else WortRechts 2 Goto WEITER End If WortRechts 1 WEITER: ZeichenLinks 2, 1 If Markierung$() = " " Then ZeichenLinks 1 BearbeitenLöschen Else ZeichenRechts 1 End If End If End Sub