Office: /[Word 2003] Kopfzeile per Makro erstellen

Hallo liebe Gemeinde,

ich hab mal wieder ein Problem. Ich hab mir in Excel ein Makro geschreiben, welches mir eine einheitliche Kopf- und Fußzeile für meine Tabellen erstellt.

Nun brauche ich dieses Makro auch für Word Dokumente, jedoch habe ich in Word VB nun so gar keinen Schimmer. Es wäre schön, wenn mir da jemand helfen könnte.

Was ich brauche sieht man im beigefügten PDF. Die Kopfzeile muss in drei Spalten aufgeteilt werden. Rechts eine Grafi, Mitte eine Überschrift und Links einen per Msgbox eingebbarer Empfänger sowie das Datum des Drucks.

Fußzeile links muss dann der Bearbeiter des Dokuments (User) sowie der Dateiname der Datei rein. Fußzeile Rechts soll eben Seite Xvon Y enthalten.

Würde mich über jede Hilfe freuen. Die Variablen wie gedruckt am und Autor finde ich zur Not auch selbst raus, aber das Grundgerüst macht mir eben Probleme.

Das ganze sollte unter Office 2010 und 2003 funktionieren. Primär allerdings unter Office 2010.

Ich danke schon mal für jede(n) gegeben(e) Tip/Hilfe!

 

Hallo!

In der beiliegenden Word-Datei habe ich Dir Deine Wünsche in ein Word-VBA-Makro eingebaut. Damit das Beispiel funktioniert, musst Du auch die 2. Datei (die Grafikdatei) noch ins Makro einbinden und zwar indem Du die Tastenkombination Alt+F11 drückst, um in den VBA-Editor zu gelangen und dann unter Projekt (Fieserfisch_Dok1) im Subpunkt "Module" das Modul "Modul1" doppelt anklickst, sodass dann das VBA-Makro "Makro1" zum Vorschein kommt.
Ganz am Anfang ist die Konstante "Pfad_und_Datei" vorhanden, der der Wert "Bar_Freimach_4010.jpg" zugewiesen ist. Diesen Wert musst Du ersetzen durch den Pfad und Dateinamen Deiner Grafikdatei.
Danach natürlich wieder zurück ins Word-Dokument gehen (mit der Tastenkombination Alt+F11).

Aufgerufen wird das Ganze mit der Tastenkombination Alt+F8 mit anschließender EINGABE-Taste (bzw. Klicken des Ausführen-Buttons).

 

Hallo Anton,

vielen Dank für deine Mühe!! Klappt eigentlich auch wunderbar. Jedoch stürzt mir das komplette Word ab, wenn ich das Makro in die normal.dot integriere und von dort aus ausführe.

Ich werde noch ein bisschen probieren woran es liegen könnte. Hab noch mal vieln Dank!!

 

Hallo!

In der nachfolgenden JPG-Datei habe ich Dir dargestellt, auf welche Dinge/Änderungen zu achten ist, wenn man den Code in ein allgem. Modul der Normal.dot verschiebt:

1) Der Name dieses allgem. Moduls ist egal, er kann auch nur "Modul" lauten, in meinem Beispiel heißt es "Modul_KopfFuß" - der Name muss jedoch verschieden sein zu den Namen der SUBs, die in ihm enthalten sind.

2) Bei der Deklaration des Dateinamens "Pfad_und_Datei$" ist unbedingt darauf zu achten, dass es heißt "Public Const Pfad_und_Datei$ = ..." und nicht bloß "Const Pfad_und_Datei$ = ..."

3) Bei der Angabe des Dateinamens muss unbedingt der vollständige Pfad samt Dateinamen angeführt werden, in meinem Beispiel unten also: ="I:\Excel\Forum\Bar_Freimach_4010.jpg" und nicht bloß ="Bar_Freimach_4010.jpg"

4) Der Rest ab "Sub ..." usw. dürfte kein Problem mehr enthalten, denn die notwendigen Libraries werden ohnehin automatisch eingebunden beim Öffnen der Normal.dot.

 

Hallo Anton,

nochmals vielen Dank für deine ausführliche Hilfe!!! Hab die Änderung vorgenommen und jetzt funktioniert es. :-D