Office: (Office 365) Word Access VBA Fußzeile formatieren

Guten Tag allerseits.

Ich möchte über Access VBA ein Word Dokument erstellen.
Das funktioniert soweit aus.

Mite diesem Code formatiere ich die Fußzeile:
'
' Seitennumerierung in Fußbereich
'
With ActiveDocument.Sections(1) _
.Footers(wdHeaderFooterPrimary).PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.IncludeChapterNumber = False
.RestartNumberingAtSection = True
.StartingNumber = 0
.Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=False
End With

Ich benötige aber die Schreibweise:

Seite 1 von 3 (z.B.) also die Gesamtseiten fehlen.

Könnt Ihr mir da helfen ?

Vielen Dank für einen Tipp und schönen Sonntag!

 

Die folgende Eigenschaft müsste die Gesamtanzahl der Seiten im Dokument zurückgeben:

Code:

ActiveDocument.Range.Information(wdNumberOfPagesInDocument)

ggf. vorher:

Code:

ActiveDocument.Repaginate

damit Word erstmal durchzählt.

 

Führt zu einem Fehler:

 

Du beziehst das auf die Sections-Auflistung, es ist aber eine Dokumenteneigenschaft. Und warum With? Das Objekt ist das Dokument.
Ich denke, Du musst den Rückgabewert in eine Variable übenehmen , z.B.

Code:

Seitenanzahl = ActiveDocument.Range.Information(wdNumberOfPagesInDocument)

Wenn das fehlerfrei kompiliert wird, setze mal einen Haltepunkt auf die Zeile, lass den Befehl mit F8 ausführen und gehe dann mit dem Cursor auf Seitenzahl um zu sehen, was in der Variablen steht.

 

Hallo andyfau,
dann kann ich ja das erst nach dem alle Seiten erstellt sind in die Fußzeile einfügen.

 

Das erscheint mir logisch. Woher soll Word die Gesamtanzahl wissen?

 

Und wie bekomme ich die dann in die Fußzeile?

 

Du solltest Dich nochmal etwas intensiver mit den Objektmodell von Access/Word beschäftigen.

Code:

With ActiveDocument.Sections(1)
 .Headers(wdHeaderFooterPrimary).Range.Text = Meinkopftext
 .Footers(wdHeaderFooterPrimary).Range.Text = MeinFußtext
End With

Die Frage ist auch, ob es für deine Zwecke wirklich nötig ist das Dokument dynamisch zu erstellen und zu formatieren. Ich könnte mir vorstellen, dass Du z.B. besser eine Word-Formatvorlage nutzt und dann nur noch den variablen Text dort reinschreibst. Wenn Du in Word weitere Hilfe benötigst, kannst Du, glaube ich, besser im dortigen Forum fragen. Oder vielleicht benötigst Du gar kein Word und damit das ganze Objektgedöne zwischen den Anwendungen. Access kann wunderbare Reports formatieren und drucken.

 

Hallo Andreas,
danke für die ordentliche Klatsche.......
Aber wahrscheinlich hast Du Recht.
Ich werde das mit Access-Report probieren.
Ich hatte mal mit Word angefangen und das dann immer weiter gebastelt.
Ich setze das Thema auf erledigt!
Vielen Dank und gute Zeit, als BVBler muss ich jetzt eh erst mal einen Schnaps trinken

 

Kann hier ein Thema auf erledigt setzen?

 

Ich glaube das geht gar nicht. Aber sieht ja jeder, wes geschrieben wurde. Und, wenn noch jemand kommentieren möchte....vielleicht kommmt noch eine andere Idee. Aber als Klatsche war das wirklich nicht gemeint. Es ist nur eben genau so, dass viele, meistens mit Excel, eine Lösung geschaffen haben und dann sehen, dass das was sie machen möchten eigentlich nicht nur Rechnen oder, wie im Fall von Word, Schreiben ist. Sondern, dass man eigentlich "Datenverarbeitung" braucht. Und dass ist nunmal typisch Datenbank. Nur, um einigermaßen vernünftig mit Datenbanken zu arbeiten, benötigt es eine andere Lernkurve. Da ist weniger mit Look and Feel. Ein wenig Theorie bedarf es dann. Begriffe wie Normalisierung, Datensatz, Tabellenbeziehung begegnen einem dann. Struktur ist das A und O. Vielleicht noch ein interessanter Link für Dich: www.access-tutorial.de
Aber jetzt erst mal Prost und einen schönen Abend.

 

Andreas,
das mit der Klatsche war von mir auch nicht negativ gemeint.
Ich habe mich da vielleicht auch "verrannt", und sollte da mal neu "einsteigen".
Als Rentner im "Auftrag" für einen Heimat und Geschichtsverein möchte ich diese Zeit gerne investieren.

Ansonsten nur kurz zu meinem Hintergrund:
Als Rentner nach 45 Jahren Arbeit, habe ich 42 Jahre in der EDV gearbeitet.
Von Lochkarten Maschinen (IBM) über IBM-VSAM-Datenbanken bis zu Microsoft SQL-Servern
und entsprechenden Softwarepaketen.

Aber so ist das halt, das ganze Wissen aus dieser Zeit......vergiss es mehr oder weniger.

Vielleicht treffen wir uns hier mal wieder.
Und die "Klatsche" die der BVB heute gekriegt hat, habe ich mit einem/zwei Schnäpsen runtergespült.

Nice to meet you!

 

ISAM, VSAM, DOS/VSE, MVS, DL/1, DB2, CICS....Und Nu? Rente und Access. Die Dinos unter sich.

 

Hallo Andreas,
dann haben sich ja die richtigen getroffen.
Du hast alle die Softwarepakete aufgeführt, die in meiner Aufführung noch gefehlt haben.
Das habe ich so auch noch nicht erlebt.
Übrigens....das gab's mal auch eine Programmiersprache RPG.....Report Programm Generator so die Anfänge!

 

Jow, Listeninflation für die Chefetage..... Erst als wir dann sagten:"Nun könnt ihr euch die LIste ja selbst abrufen", ging der Papierverbrauch rapide zurück. Mir war trotzdem Cobol immer sympatischer. Aber Accessreports sind ja wesentlich komfortabler und schön zu gestalten.