Word-Fußzeile beschriften aus Excel-VBA heraus

25/03/2008 - 09:52 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.
Da mir in der Excel-Group keiner helfen konnte, versuche ich es mal hier.
Kann mir 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 Thomas Gahler
25/03/2008 - 10:19 | Warnen spam
Hallo Tanja



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.


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


Das muss ungefàhr so aussehen (ungetestet)

- worddoc.Sections(1).Footers(wdHeaderFooterPrimary).range.text =
"testfusszeile"



Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen