Hallo,
wie löscht man am schnellsten/sinnvollsten eine Seite in einem
Word-Dokument?
Für Eure Tipps vielen Dank.
Hallo Thomas,
eine Wordfunktion dazu gibt es nicht.
In Handarbeit mit folgenden Schritten:
-
Mit Bearbeiten --> Gehe zu … --> Seitenzahl eingeben und OK an den Anfang der zu löschenden Seite springen.
-
Shift-Taste drücken und mit Maus ans Ende der Seite klicken.
-
Entf-Taste drücken.
Etwas mehr Kompfort bieten folgende beiden Makros, die du in der normal.dot speichern muß. Getestet sind sie für Normalen Text in den Ansichten ‚Normal‘ und ‚Seiten-Layout‘ unter Word97 bei Tabellen oder anderen Besonderheiten kann es sein, dass die Funktion nicht 100%ig ist.
Sub AktuelleSeiteLoeschen()
Dim Seite As Integer
If MsgBox("Soll die aktuelle Seite gelöscht werden?", vbDefaultButton2 + vbOKCancel, "Seite löschen") = vbCancel Then Exit Sub
Seite = Selection.Information(wdActiveEndPageNumber)
'Cursor auf den Seitenanfang positionieren
Do Until Selection.Information(wdActiveEndPageNumber) = Seite - 1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Loop
Selection.MoveRight Unit:=wdCharacter, Count:=1
' Seite markieren
If Seite = Selection.Information(wdNumberOfPagesInDocument) Then
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Else
Do Until Selection.Information(wdActiveEndPageNumber) = Seite + 1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Loop
End If
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub
Sub SeiteLoeschen()
Dim Seite As Integer
Seite = InputBox("Welche Seite soll gelöscht werden?", "Seite Löschen", 0)
If Seite = 0 Or Seite \> Selection.Information(wdNumberOfPagesInDocument) Then Exit Sub
'Sonderfall Seite 2 (Wert entspricht vbCancel)
If Seite = vbCancel Then 'Oder 2
If MsgBox("Soll Seite 2 gelöscht werden? Oder Abbruch", vbDefaultButton2 + vbOKCancel, "Seite löschen") = vbCancel Then Exit Sub
End If
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Format(Seite, "0")
' Seite markieren
If Seite = Selection.Information(wdNumberOfPagesInDocument) Then
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Else
Do Until Selection.Information(wdActiveEndPageNumber) = Seite + 1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Loop
End If
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Franz,
danke für Deine Tipps, die mir weitergeholfen haben.
Es ist schon verwunderlich, wieso es keine Funktion in Word zum Löschen einer bzw. mehrer Seiten gibt.
Gruß Arnold
Es ist schon verwunderlich, wieso es keine Funktion in Word
zum Löschen einer bzw. mehrer Seiten gibt.
vielleicht, weil sich die M$-Entwickler nie träumen hätten lassen, dass wirklich jemand Dokumente mit mehreren Seiten in Word bearbeitet?
Karin
wie löscht man am schnellsten/sinnvollsten eine Seite in einem
Word-Dokument?
F5
Element „Seite“ auswählen
gewünschte seite eingeben und ok
nochmal F5
Element „Textmarke“ auswählen
Textmarke „\page“ eingeben und ok
==> gewünschte Seite ist markiert
auf den ersten blick umständlich, ist aber ok
erwin
Toller Tipp. Danke. (OwT)
_