✔ Word: 2 Zeilen löschen

[SWAT4]

Hallo

ich sitze grad an einem Word Dokument wo ich die ersten beiden Zeilen auf jeder Seite löschen muss. Der Inhalt ist auf jeder Seite unterschiedlich Lang, daher kann man nicht sagen jede 10. und 11. Zeile sonder wirklich nur jeweils die 1. und 2. pro Seite

Wenn das paar Seiten wäre ja per Hand kein Problem ... nur es sind weit über 1000

Kenne mich leider nicht sonderlich gut mit Markros aus, selbst aufzeichnen klapp noch aber sowas kann man ja schlecht aufzeichnen

Vielen Dank für eure Tipps

 

[DrSoong]

Ich hab mal schnell ein Makro aufgezeichnet, das im Prinzip so eine Arbeit erledigt:

 'Start auf Position Anfang Seite 1
 Selection.EndKey Unit:=wdLine, Extend:=wdExtend 'ganze erste Zeile markieren
 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'um 1 Zeichen nach rechts, damit ist man in Zeile 2
 Selection.EndKey Unit:=wdLine, Extend:=wdExtend 'ganze zweite Zeile markieren
 Selection.Delete Unit:=wdCharacter, Count:=1 'Markierte Zeilen löschen
 Application.Browser.Next 'eine Seite nach unten, neue Position ist dort Anfang Zeile 1

Ist jetzt eine sture Sache, kann also so nicht auf andere Ereignisse reagieren (z.B. Tabellen, da zählt dann jede Zelle als Zeile), lässt sich aber ja anpassen.


Der Doc!