Hallo,
vorweggesagt, ich verfüge nur über mittelmäßiges vba-Halbwissen :-).
Ich befülle per vba aus Excel ein neues Worddokument mit Inhalten aus einem Tabellenblatt...inkl. Kopf und Fußzeile.
Was mir nicht gelingt ist, in der Fußzeile die Seitenzahl "Seite x von y" einzufügen.
(Dabei möcht ich auf den Zugriffe aus Vorlagen der dotx verzichten)
Ein Makro das in Word selber läuft, macht aber über Excel Probleme
Laufzeitfehler 438 oder 450
Modul 1
---
Public WordApp As Object, WordDoc As Object
----
WordApp.Visible = True
WordApp.Documents.Add 'öffnet neues Dokument
Set WordDoc = WordApp.ActiveDocument
With WordApp.Selection
With .Document
With .ActiveWindow
' .... KOPFZEILEN-DETAIL erspare ich euch und srpinge in die Fußzeile ...
.ActivePane.View.SeekView = wdSeekCurrentPageFooter
.Selection.TypeText Text:="Version:"
.Selection.TypeText Text:=Format(Date, "dd.mm.yyyy") & vbTab
.Selection.TypeText Text:="Seite "
'ab hier kracht es
.Selection.Fields(wdfield).Fields.Add(Range:=Selection.Range, Type:=wdFieldPage) = wdFieldPage
.Selection.TypeText Text:=" von "
'alternativ hatte ich das noch gefunden... mal für die Seitenzahl NumPages
.Selection.Fields.Add Range:=Selection.Range, Text:="NUMPAGES"
.ActivePane.View.SeekView = wdSeekMainDocument
End With
End With
End With
Danke euch!