[Code] [VBA] Seitenzahl

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von kee, 2. Dezember 2008 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 2. Dezember 2008
    [VBA] Seitenzahl

    Hallo

    ich bin grade dabei ein Makro in Word zu schreiben, welches mit automatische eine Fußleiste einrichtet. In der sollen auch die Seitenzahlen sein. Damit habe ich probleme.

    Hier mal der Code:

    Sub Makro1()
    '
    ' Makro1 Makro
    '
    '
    WordBasic.ViewFooterOnly
    ActiveDocument.AttachedTemplate.BuildingBlockEntries( _
    "Fett formatierte Zahlen").Insert Where:=Selection.Range, RichText:=True
    Selection.TypeBackspace
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.TypeText Text:=vbTab
    Selection.InsertDateTime DateTimeFormat:="dddd, d. MMMM yyyy", _
    InsertAsField:=False, DateLanguage:=wdGerman, CalendarType:= _
    wdCalendarWestern, InsertAsFullWidth:=False
    Selection.TypeText Text:=vbTab & "Arbeit 1"

    End Sub


    mfg kee
     
  2. 2. Dezember 2008
    AW: [VBA] Seitenzahl

    Du willst im Endeffekt die gesamte Seitenanzahl haben, oder?

    Ich hab jetzt mal folgendes gefunden:
    Information Property (msdn)

    Code:
    numPages = Selection.Information(wdNumberOfPagesInDocument)
    Hilft dir das?

    - - -
     
  3. 2. Dezember 2008
    AW: [VBA] Seitenzahl

    hmm hat nicht wirklich was gebracht... aber danke für deine mühe.

    Ansich kann es doch nicht so schwer sein oder ? kenn mich leider null in VBA aus :-(
     
  4. 3. Dezember 2008
    AW: [VBA] Seitenzahl

    Vielleicht kann man das ganze auch "umdrehen":

    Du baust dir per Hand eine Fußzeile. Mit Seitenzahl(en). Und dann schaust du per vba (debuggen) nach, was alles in der Fußzeile an Befehlen vorkommt. Vielleicht geht's ja

    - - -
     
  5. 4. Dezember 2008
    AW: [VBA] Seitenzahl

    so hab ich das ja auch gemacht ;-)

    und beim debuggen meckert er hiermit rum:

    ActiveDocument.AttachedTemplate.BuildingBlockEntries( _
    "Fett formatierte Zahlen").Insert Where:=Selection.Range, RichText:=True
     
  6. 6. Dezember 2008
    AW: [VBA] Seitenzahl

    erledigt
     
  7. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.