makro

hallo,
ich habe ein kleines makro erstellt - das, wenn es ausgeführt wird, in die kopf + fußzeile eines word documents wechselt, dort alles markiert, die feldverknüpfungen löscht und wieder zur seitenlayout ansicht wechselt.

jetzt habe ich nur das problem, wenn ich schon in der kopf, und fußzeile drin bin, macht das makro nicht das was es soll. (es macht garnix, es kommt noch nicht mal ne fehlermeldung)

weiß hier vielleicht jemand rat?

---------------------------------------------------------------------
hier das makro:
---------------------------------------------------------------------

Sub Test()

   ' Wechseln der Dokumenten Anzeige zur Kopf+Fusszeile Anzeige
   With ActiveDocument.ActiveWindow.ActivePane.View
    .Type = wdPrintView
    .SeekView = wdSeekCurrentPageHeader
   End With

   ' Wechseln in Kopf oder Fußzeile
   If Selection.HeaderFooter.IsHeader = True Then
       ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   Else
       ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   End If

   ' Alles  selektrieren +
   ' Feldverknüpfungen in Auswahl aufheben
   Selection.WholeStory    
   Selection.Fields.Unlink

   ' Wechseln in Kopf oder Fußzeile  
   If Selection.HeaderFooter.IsHeader = True Then
       ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   Else
       ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   End If

   ' Alles  selektrieren +
   ' Feldverknüpfungen in Auswahl aufheben
   Selection.WholeStory
   Selection.Fields.Unlink

   ' Wechselt ins Dokument zurück
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Sag doch dem MAkro, dass es ganz zu beginn ins Dok zurückwechelsn soll. Egal wo er gerade ist.
Geht das evtl?

Genau!
Die Zeile
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
auch als erste Zeile nehmen.

Hi l-e-x-l ,

wdPrintView gibt es glaube ich nicht. Ändere das mal in wdPrintPreview , dann sollte es laufen.

Gruß Matjes