Hallo!

Weiss von Euch jemand wie mein Excel Makro Befehl in Word ausschauen koennte?
Das Pgm macht folgendes:
Suche alle .xls Dateien - Kopfzeile wird geaendert - Excel Datei wird geschlossen.

Ich brauche aber jetzt das ganze fuer .doc Datein. In den .doc Dateien sollte die Kopfzeile geaendert werden.

If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
' .xls Dateien öffnen, Verknüpfungen nicht aktualisieren
Workbooks.Open .FoundFiles(I), updatelinks:=0
' Kopfzeile wird geändert
ActiveSheet.PageSetup.CenterHeader = kopfzeile
ActiveWorkbook.Close True
Next I
End If

Gruss Karl