Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Word-Fußzeile beschriften aus Excel-VBA heraus

477 views
Skip to first unread message

Tanja Haas

unread,
Mar 25, 2008, 4:52:01 AM3/25/08
to
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

Thomas Gahler

unread,
Mar 25, 2008, 5:19:28 AM3/25/08
to
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)


Tanja Haas

unread,
Mar 28, 2008, 8:25:00 AM3/28/08
to
Hallo Thomas,

danke für deinen Tip, funktioniert allerdings leider nicht.
Als Alternative habe ich mir überlegt, ob ich nicht ein Makro in die
Wordvorlage lege und aus Excel heraus starte.

Weißt du zufällig wie ich aus Excel heraus ein Wordmakro starte?
--
mfG
Tanja Haas


"Thomas Gahler" schrieb:

Thomas Gahler

unread,
Mar 28, 2008, 10:01:15 AM3/28/08
to
Hallo Tanja


> danke für deinen Tip, funktioniert allerdings leider nicht.

Was funktioniert denn nicht?


Sub Demo()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document

Set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.Documents.Add

wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "hallo
Welt"

Set wdDoc = Nothing
Set wdApp = Nothing
End Sub


> Als Alternative habe ich mir überlegt, ob ich nicht ein Makro in die
> Wordvorlage lege und aus Excel heraus starte.

Willst du basten oder programmieren?

> Weißt du zufällig wie ich aus Excel heraus ein Wordmakro starte?

Schau dir mal die .Run-Methode an.

0 new messages