Forums Neueste Beiträge
 

Seiten im Abschnitt

21/04/2008 - 08:08 von Peter Schuppen | Report spam
Hallo Helfer,



wie stelle ich im Makro die Anzahl der Seiten in einem Abschnitt fest??



Vielen Dank



Peter
 

Lesen sie die antworten

#1 Christian Freßdorf
21/04/2008 - 09:36 | Warnen spam
Hallo Peter,

im Prinzip:
Sub AbschnittsSeiten()
Dim oSec As Section, strMsg As String
For Each oSec In ActiveDocument.Sections
strMsg = strMsg & oSec.Range.ComputeStatistics(wdStatisticPages) & " (Abschnitt" & oSec.Index & ")" & vbCrLf
Next oSec
MsgBox strMsg, vbInformation, "Seiten im Abschnitt"
End Sub

das Problem ist aber, dass der Abshnittswechsel ja im Seitenübergang liegt
und mit dem nachfolgenden Zeichen zusammenhàngt (wie ein manueller
Seitenwechsel). Da musst du ggf. korrigieren

Gruß Christian

Ähnliche fragen