Seiten-/Abschnittswechsel

10/11/2008 - 17:43 von Ralf Schollmeyer | Report spam
Hallo NG,
wie kann man feststellen ob und wieviele Abschnittswechsel und innerhalb der
jeweiligen Abschnitte wieviele Seitenwechsel es gibt?

MfG
R.Schollmeyer
 

Lesen sie die antworten

#1 Helmut Weber
11/11/2008 - 16:51 | Warnen spam
Hallo Ralf,

Sub Loesung1()
MsgBox ActiveDocument.Sections.Count
Dim oSct As Section
For Each oSct In ActiveDocument.Sections
MsgBox oSct.Range.ComputeStatistics(wdStatisticPages)
Next
End Sub

aber da werden auch automatische Seitenwechsel mitgezàhlt.

Dreht es sich um manuelle Seitenwechsel, dann etwa so:

Sub Loesung2()
Dim oSct As Section ' ein Abschnitt
Dim rTmp As Range ' ein temporàrer Range
Dim iSct As Long ' Zàhler für Abschnitte
Dim iPgs As Long ' Zàhler für mauelle Seitenwechsel

For iSct = 1 To ActiveDocument.Sections.Count
Set rTmp = ActiveDocument.Sections(iSct).Range
iPgs = 0
With rTmp.Find
.Text = "^m" ' manueller Seitenwechsel
While .Execute
' Range neu festlegen
rTmp.Collapse Direction:=wdCollapseEnd
rTmp.End = ActiveDocument.Sections(iSct).Range.End
iPgs = iPgs + 1
Wend
End With
MsgBox "Section " & iSct & " Pagebreaks " & iPgs
Next
End Sub

Viel Spass!


Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen