title image


Smiley Re: VBA: Fusszeile?
Hallo,



leider klappt das bei mir nicht so ganz.



With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

.Range.Text = "Seite "

.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight

End With



Entsprechend gibt er mir aus:

Seite 1

Seite 2

usw.



Es müsste doch irgendwo eine Variable geben, die die aktuelle Seitenzahl wieder her gibt, sowie die gesamte Seitenanzahl.



Dann könnte man folgendes machen:



With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

.Range.Text = "Seite " ¤tPage & " von " & allPages

.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight

End With




Gruss, TotalEclipse

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: