Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
seitenzahl mit bestimmten Format in Kopfzeile über vba
zurück: Hilfe- Foto wird nicht (mehr) ins Dokument übernommen! weiter: Innerhalb einer Word-Tabelle Einzug verändern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
OM2608
Gast


Verfasst am:
06. Apr 2009, 12:51
Rufname:

seitenzahl mit bestimmten Format in Kopfzeile über vba - seitenzahl mit bestimmten Format in Kopfzeile über vba

Nach oben
       Version: Office 2003

Hi Gurus,

folgender VBA-Code setzt mir die aktuelle Seitennr und Gesamtseitennummer in die Kopfzeile.

Die aktuelle Seitennummer soll um eine vorgestellte 0 erweitert werden, wenn die aktuelle Seitennummer < 10 ist. Wie mache ich das?

Code:

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

[/code]
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
06. Apr 2009, 19:50
Rufname:
Wohnort: Leipzig


AW: seitenzahl mit bestimmten Format in Kopfzeile über vba - AW: seitenzahl mit bestimmten Format in Kopfzeile über vba

Nach oben
       Version: Office 2003

Hallo Gast,

zunächst: Das geht auch ohne VBA, indem man Feldfunktion mit numerischem Schalter in die Kopfzeile stellt:
Code:
{ PAGE \# 00 }

Wenn die Feldfunktion denn durch VBA eingefügt werden soll, ist Dein Code nicht verwendbar. Besser ist es, die Kopfzeile "ordentlich" anzusprechen, z. B. so für die normale Kopfzeile:
Code:
Sub SeitenzahlfelderEinfuegen()

    Dim rng As Word.Range
   
    Set rng = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
   
    rng.Fields.Add Range:=rng, Type:=wdFieldEmpty, Text:="PAGE \# 00"
    rng.Collapse wdCollapseEnd
    rng.InsertAfter "/"
    rng.Collapse wdCollapseEnd
    rng.Fields.Add Range:=rng, Type:=wdFieldEmpty, Text:="NUMPAGES"
   
    Set rng = Nothing
   
End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbriefe: Format \@ "mm:ss,0" 1 Thilo131 108 28. Apr 2014, 13:58
Flipper7 Serienbriefe: Format \@ "mm:ss,0"
Keine neuen Beiträge Word Serienbriefe: Seriendruckfelder nur bei bestimmten Datensätzen auslesen 0 skorpion.14 199 10. Okt 2012, 20:28
skorpion.14 Seriendruckfelder nur bei bestimmten Datensätzen auslesen
Keine neuen Beiträge Word Serienbriefe: Word Seriendruck DDE Format druckt falsch aus!! 1 ahmedahmed 1225 28. Apr 2011, 15:01
charlybrown Word Seriendruck DDE Format druckt falsch aus!!
Keine neuen Beiträge Word Serienbriefe: Word2007 Seitenzahl aktualisiert sich beim Seriendruck nicht 0 Mr. Oshimaida 1821 26. Jan 2010, 12:01
Mr. Oshimaida Word2007 Seitenzahl aktualisiert sich beim Seriendruck nicht
Keine neuen Beiträge Word Serienbriefe: bei bestimmten Datensatz werden verschiedene Felder zu Einem 1 jesse1710 489 08. Sep 2009, 10:07
jesse1710 bei bestimmten Datensatz werden verschiedene Felder zu Einem
Keine neuen Beiträge Word Serienbriefe: Format in Seriendruck verschwindet immer wieder 9 Gast-weibl. 3846 29. März 2009, 11:42
Gast Format in Seriendruck verschwindet immer wieder
Keine neuen Beiträge Word Serienbriefe: Serienbrief: Datenquelle=aus bestimmten Tabellenblatt 0 Pacemaker 792 27. Nov 2007, 17:03
Pacemaker Serienbrief: Datenquelle=aus bestimmten Tabellenblatt
Keine neuen Beiträge Word Serienbriefe: Proplem mit Seitenzahl 1 Hirsch77 593 03. Apr 2007, 22:09
Hübi Proplem mit Seitenzahl
Keine neuen Beiträge Word Serienbriefe: Kopfzeile nur auf Seite 1 und Fußzeile auf dem letzten Blatt 6 dr.daddl 44355 17. Jan 2007, 20:50
€uro Kopfzeile nur auf Seite 1 und Fußzeile auf dem letzten Blatt
Keine neuen Beiträge Word Serienbriefe: Serienbrief als einzelne Datei - Kopfzeile fehlt 4 hbiederm 6398 07. Nov 2005, 13:28
da.ho Serienbrief als einzelne Datei - Kopfzeile fehlt
Keine neuen Beiträge Word Formate: Problem Kopfzeile 1 Gast 895 14. Aug 2005, 23:15
Scelina Problem Kopfzeile
Keine neuen Beiträge Word Formate: Format in Serienbrief wird einfach nicht geändert. 1 Morthen 890 21. Jun 2005, 10:26
Betty2004 Format in Serienbrief wird einfach nicht geändert.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum