erste/letzte Seite je Abschnitt

30/08/2007 - 15:58 von Ahmed Martens | Report spam
Hallo Leute,

ich benötige je Dokumenten-Abschnitt die Anfangs- und Endseitenzahl,
damit ich per VBA die Seiten in mehreren Druckauftràgen ausdrucken kann.

Kennt jemand die genaue Syntax, wie ich die Anzahl der Abschnitte und
die jeweilige Start- u. Endseite?

Danke schon einmal im voraus.

Gruß Ahmed
Antworten bitte nur in der Newsgroup.
 

Lesen sie die antworten

#1 Christian Freßdorf
30/08/2007 - 17:43 | Warnen spam
Hallo Ahmed,

ich benötige je Dokumenten-Abschnitt die Anfangs- und Endseitenzahl,
damit ich per VBA die Seiten in mehreren Druckauftràgen ausdrucken kann.



schau mal ob folgendes bei Dir passt:

Sub SectionInfos()
Dim oSec As Section
Dim strMSG As String
For Each oSec In ActiveDocument.Sections
With oSec.Range
strMSG = strMSG & "Abschnitt " & .Information(wdActiveEndSectionNumber) & _
": S." & ActiveDocument.Range(.Start, .Start).Information(wdActiveEndAdjustedPageNumber) & _
"-S." & ActiveDocument.Range(.End - 1, .End - 1).Information(wdActiveEndAdjustedPageNumber) & _
vbCrLf
End With
Next oSec
MsgBox strMSG
End Sub


Gruß Christian
~~~~~~~~~~~~
Word2000/Word2003 unter WindowsXP
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)

Ähnliche fragen