Thema Datum  Von Nutzer Rating
Antwort
Rot Seite ausblenden
 12.08.2011 10:27:45 Budinski
NotSolved

Ansicht des Beitrags:
Von:
Budinski		 Datum:
12.08.2011 10:27:45		 Views:
1650		 Rating:
     
Antwort:
  Ja
Thema:
Seite ausblenden

Hallo,

ich würde gerne eine bestimmte Seite mittels Checkbox ausblenden können. Dafür würde ich gerne irgendwie mittels Textmarke zur entsprechenden Seite springen, die Seitenzahl auslesen und dann ausblenden. mit folgendem Code kann man nur mehr als eine Seite ausblenden.

 

Und mit dem Ausblenden von Abschnitten hab ich das Problem das sich die nachfolgende Seite auf die vorherige schiebt eine Kopf und Fußzeile ist und dies dann nicht mehr stimmt.

 

If XXX= False Then
 Selection.HomeKey Unit:=wdStory
  Dim oRange As Range
  Dim Anfang As Integer, Ende As Integer
  Dim Pos As Long
  '
  Anfang = 34: Ende = 35
  ActiveDocument.ComputeStatistics wdStatisticPages
  Selection.GoTo What:=wdGoToPage, Name:=Anfang
  Pos = Selection.Range.Start
  Selection.GoTo What:=wdGoToPage, Name:=Ende
  Set oRange = ActiveDocument.Range(Pos, _
    Selection.Bookmarks("\Page").Range.End)
  'Seitenumbruch ausschliessen
  If Right(oRange.Text, 1) = Chr(12) Then
  oRange.SetRange Start:=oRange.Start, _
    End:=oRange.End - 1
  End If
  '
  With oRange.Font
     .Hidden = True
  End With
  '
  With ActiveWindow.View
     .ShowHiddenText = False
     .ShowAll = False
  End With
Else

 

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
Rot Seite ausblenden
 12.08.2011 10:27:45 Budinski
NotSolved