title image


Smiley Re: VBA-Frage: gibt es ein Objekt "Seite"?
Hi,



das geht in etwa so.

Sub TesTP()

ActiveDocument.Repaginate

p = ActiveDocument.ComputeStatistics(wdStatisticPages)

'

For i = 1 To p

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i

Dim docRange As Range, cPos

Set docRange = ActiveDocument.Range _

(Start:=ActiveDocument.Range.Start, End:=Selection.Range.End)

'

cPos = docRange.ComputeStatistics(wdStatisticPages)

If i = 1 Then MsgBox "Seite " & cPos + 1

If i > 1 Then MsgBox "Seite " & cPos

Next i

End Sub      Hubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: