Kopf- und Fusszeile einbinden
15.03.2019 14:23:08
KJ
ich habe mal eine Frage. Ich habe mal ein excel makro erstellt, dass eine PDF Datei erstellt mit Autor, Datum und dem Inhalt, welches der Autor verfasst hat. Der Code sieht folgendermaßen aus:
Dim IsCreated As Boolean
Dim i As Long
Dim PdfFileKJ As String, Title As String
Dim OutlApp As Object
Dim aktuellesDatum As String
Dim DatumFile As String
Dim Autor As String
Dim wksAllSheets As Variant
Dim wksSheet1 As Worksheet
' Autor ausgeben
Autor = Environ("Username")
' Autor-Namen formatieren
Worksheets("Frontpage").Range("A20").Value = StrConv(Left(Autor, 1), 3) & "." & " " & StrConv( _
Mid(Autor, 2), 3)
' Aktuelles Datum auf der Frontpage einfügen
aktuellesDatum = Date
Worksheets("Frontpage").Range("D16").Value = aktuellesDatum
' Aktuelles Datum in die PDF Datei einfügen
DatumFile = Format(Date, "YYYYMMDD")
' PDF Namen definieren
PdfFileKJ = ActiveWorkbook.FullName
i = InStrRev(PdfFileKJ, ".")
If i > 1 Then PdfFileKJ = Left(PdfFileKJ, i - 1)
PdfFileKJ = "Team Meeting" & "_" & DatumFile & ".pdf"
' Generierung der PDF Datei
Set wksSheet1 = ThisWorkbook.Sheets("Frontpage")
wksAllSheets = Array("Frontpage", "Protokoll")
ThisWorkbook.Sheets(wksAllSheets).Select
wksSheet1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFileKJ, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
' Kopf- u. Fusszeile einfügen
ThisWorkbook.Sheets(wksAllSheets).Select
.Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
.Footers(wdHeaderFooterPrimary).Range.Text = Autor & " " & DatumFile
wksSheet1.Select
Habe auch folgende Seite gefunden: https://docs.microsoft.com/de-de/office/vba/api/word.headerfooter
Habe (wie oben im Code zu sehen) versucht das einzubinden, jedoch ohne Erfolg. Könnte mir jemand erklären, was ich da genau falsch mache? Vielen Dank schon mal im Voraus!
Anzeige