ich habe leider auf meine Frage vom 10.02 keine Antwort bekommen, daher stelle ich sie nochmal:
Wie kann ich die Kopfzeile in einem in eine Excel-Tabelle eingebetteten Word-Dokument per VBA-code ändern?
Danke für Eure Hilfe!
Johannes
ich habe leider auf meine Frage vom 10.02 keine Antwort bekommen, daher stelle ich sie nochmal:
Wie kann ich die Kopfzeile in einem in eine Excel-Tabelle eingebetteten Word-Dokument per VBA-code ändern?
Danke für Eure Hilfe!
Johannes
Gruss aus'm Pott
Udo
Also, ich habe es - wie immer wenn ich den Befehl nicht kenne - auf die ganz blöde Tour versucht:
Makro-Rekorder an und einfach mal das machen, was VBA später auch tun soll. Anschließend den VBA-Quelltext anschauen und wieder etwas schlauer sein.
Ich habe z.B. einfach mal in der Kopfzeile den linken, mittleren und rechten Text geändert und beim rechten Text noch die Seitennr. eingefügt. Hier dazu der wichtigste Abschnitt des entsprechenden Codes:
With ActiveSheet.PageSetup
.LeftHeader = "Links-Test"
.CenterHeader = "Mitte auch gut!"
.RightHeader = "Und rechts auch ganz toll! Und einmal die Seitennummer: &P"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Ich hoffe, ich konnte Dir irgendwie etwas weiterhelfen.
Ciao
Marc