Excel VBA : Word Fußzeile

19/03/2008 - 17:46 von Tanja Haas | Report spam
Hallo Zusammen,

ich erstelle aus Excel heraus ein Worddokument anhand einer Vorlage, befülle
Formularfelder und möchte nun die Fußzeile des Worddokuments einfügen.
Finde aber leider nicht den richtigen Befehl dafür.
Kann mir hier jemand weiterhelfen?
Vielen Dank schon mal im voraus.

'*****************************************************
Set wordobj = CreateObject("Word.Application.8")
Set worddoc = wordobj.documents.Add(wordvorlage_LRV_test)
wordobj.Visible = True

'Formularfelder füllen
wordobj.documents(1).formfields("TK_Name").result = daten(TK, 2)
wordobj.documents(1).formfields("TK_PLZ").result = daten(TK, 6)

'Fußzeile beschriften
??????? nachfolgender Befehl funktioniert nicht, aber vielleicht so
àhnlich ???
wordobj.documents(1).Sections(1).Footers(wdHeaderFooterPrimary).TypeText
Text:= "testfusszeile"

'*****************************************************
mfG
Tanja Haas
 

Lesen sie die antworten

#1 Reiner Wolff
21/03/2008 - 13:59 | Warnen spam
Moin Tanja,

*Tanja Haas* schrieb:
ich erstelle aus Excel heraus ein Worddokument anhand einer Vorlage, befülle
Formularfelder und möchte nun die Fußzeile des Worddokuments einfügen.
Finde aber leider nicht den richtigen Befehl dafür.
Kann mir hier jemand weiterhelfen?



Helfen kann ich Dir leider dabei nicht.
Vielleicht hilft Dir der Makro-Rekorder von Word. Erstelle das ganze in
Word und übertrage das Code-Ergebnis nach Excel-VBA. Dafür musst Du
lediglich vor die einzelnen Word-VBA-Codezeilen ein 'wordobj.' entsprechend
Deiner Programmierung setzen.

Ansonsten stellst Du die Frage, wie man Fußzeilen mit VBA bearbeitet besser
in 'ms.p.d.word.vba'.

Gruß aus Kiel
Reiner
airconditioned environent - do not open windows

Ähnliche fragen