Thema Datum  Von Nutzer Rating
Antwort
08.07.2016 14:44:26 Dominik
NotSolved
Blau Seite wird nicht gelöscht
 08.07.2016 18:24:34 Gast53620
NotSolved
12.07.2016 08:24:36 Dominik
NotSolved
12.07.2016 13:07:44 Gast86629
NotSolved

Ansicht des Beitrags:
Von:
Gast53620		 Datum:
08.07.2016 18:24:34		 Views:
674		 Rating:
     
Antwort:
  Ja
Thema:
Seite wird nicht gelöscht

Hallo ! Ist zwar glaube ich nicht schön geschrieben aber probiere es mal so. VG

 Private Sub CommandButtonPD1_Click()

 Dim Auswahl As Variant
 Dim Seite As Range
 Dim Seitenende As Range
 Dim Seitenanzahl As Variant
 'Seiten im Dokument
 Seitenanzahl = ActiveDocument.ComputeStatistics(wdStatisticPages)
 'Auswahl oder abbrechen
 Auswahl = InputBox("Which Page do you want to delete?" & Chr(10) & Chr(10) & "This Document consists of " & Seitenanzahl & " Pages." & Chr(10) & "Do not delete the last blank Page if you still want to copy the Page Model.", "Copy Page")
 If Auswahl = "" Or Not IsNumeric(Auswahl) Or (IsNumeric(Auswahl) And Auswahl > Seitenanzahl And Auswahl < 1) Then Exit Sub
 'Seite anspringen und Inhalt kopieren
 Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Name:=Auswahl
 Set Seite = ActiveDocument.Bookmarks("\Page").Range
 Seite.SetRange Seite.Start, Seite.End
 Seite.Select
 Selection.Cut
 Seite.Delete
 Seite.Select
 Selection.TypeBackspace
 End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.07.2016 14:44:26 Dominik
NotSolved
Blau Seite wird nicht gelöscht
 08.07.2016 18:24:34 Gast53620
NotSolved
12.07.2016 08:24:36 Dominik
NotSolved
12.07.2016 13:07:44 Gast86629
NotSolved