Löschen von Leerzeilen

28/06/2008 - 00:14 von Armin Ronacher | Report spam
Hallo zusammen,

möchte mit folgendem Code 15 Leerzeilen löschen, die sich über der
Einfügemarke befinden:

nNummer = 15
Selection.MoveLeft Unit:=wdCharacter, Count:=nNummer, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=nNummer

(Habe auch Selection.MoveUp versucht).

Das Ergebnis ist, daß die richtigen Zeilen markiert werden, aber gelöscht
werden nicht nur die markierten Zeilen, sondern auch Zeilen und Buschstaben,
die sich unter den markierten Zeilen befinden. Bitte um Hilfe.

Mfg
Armin Ronacher
 

Lesen sie die antworten

#1 Lisa
28/06/2008 - 10:33 | Warnen spam
Hallo Armin,

es ist einfacher, als Du denkst: In der ersten Zeile markierst Du den
Bereich, soweit in Ordnung. Wenn danach der selektierte Bereich
gelöscht wird, soll sich die Löschung auf den soeben selektierten
Bereich beziehen. Es geht also einfach so:
_____
nNummer = 15
Selection.MoveLeft Unit:=wdCharacter, Count:=nNummer, Extend:=wdExtend
Selection.Delete
_____

Gruß
Lisa
_____
http://www.schreibbuero-richter.de

Ähnliche fragen