Benutzerdefinierte Kopf- und Fusszeilen per VBA

25/04/2014 - 13:09 von Ahmed Martens | Report spam
Hallo Leute,

ich möchte per VBA eine Kopf- u. Fusszeile erstellen.
Folgenden Code verwende ich:

<Code>
Set oDoc = oWord.Documents.Add

With oDoc.Sections(1)
With .Footers(wdHeaderFooterEvenPages).Range
.InsertBefore ("Seite: ")
.Paragraphs.Alignment = wdAlignParagraphRight
.Collapse (wdCollapseStart)
End With

.PageSetup.DifferentFirstPageHeaderFooter = False
.Footers(wdHeaderFooterPrimary).PageNumbers.Add FirstPage:=True
End With


Dim oHdr As Word.HeaderFooter, oFtr As Word.HeaderFooter
Set oHdr = oDoc.Sections(1).Headers(wdHeaderFooterPrimary)
With oHdr.Range
.InsertAfter ("Konten-Nachweis")
.Paragraphs.Alignment = wdAlignParagraphCenter
.Collapse (wdCollapseEnd)
.InsertParagraphAfter
.InsertParagraphAfter

.InsertAfter ("Mandant: " & lMdNr & " " &
arrMdStamm.Nachname_Betrieb)
.Paragraphs.Alignment = wdAlignParagraphLeft
.InsertParagraphAfter
.Collapse (wdCollapseEnd)

.InsertAfter ("Stand: " & Now())
.Paragraphs.Alignment = wdAlignParagraphLeft
.InsertParagraphAfter

End With

</Code>

Ich habe nun folgende Problem:

1. In der Fusszeile wird die 'Seite:' nicht übernommen.
2. Ich möchte in der Kopfzeile jede Zeile separat ausrichten.
Es wird aber die Einstellung für alle übernommen.
3. Ich möchte die Zeilen separat formatieren bezüglich der Schriftgröße
und Fett.

Alles andere funktioniert schon, nur meine drei Probleme nicht.

Kann mir vielleicht jemand helfen?
Vielen Dank im voraus.

Gruß Ahmed
Antworten bitte nur in der Newsgroup.
 

Lesen sie die antworten

#1 Ahmed Martens
28/04/2014 - 09:17 | Warnen spam
Hallo Leute,

also mit einer reinen Textkopfzeile habe ich es nicht hinbekommen.
Danach habe ich es mir einer Tabelle versucht, was auch sofort
funktionierte.

Gescheitert bin ich dann allerdings an der Seitenzahl. Ich habe es zum
verrecken nicht hinbekommen, einer Zelle eine Funktion mit Seitenzahl
einzufügen.

Letztendlich habe ich den Umweg über eine bereits gespeicherte Worddatei
gemacht, in der die Kopfzeile schon vordefiniert ist und ich lediglich
eine Zelle abzuàndern brauche. Das funktioniert jetzt absolut
einwandfrei.

Es würde mich dennoch interessieren wie man einer Zelle eine Funktion
zuweisen kann.

Vielleicht erbarmt sich ja noch jemand. :-)

Gruß Ahmed
Antworten bitte nur in der Newsgroup.

Ähnliche fragen