In die Ansicht "Kopf- und Fußzeile" wechseln

Der aufgezeichnete Code für den Wechsel in die Kopf- oder Fußzeile ist etwas aufwändiger als Sie wahrscheinlich denken. Das liegt daran, dass Word automatisch einige Abfragen hinzufügt, bei denen sichergestellt werden soll, dass ein Wechsel auch möglich ist.

Hier sehen Sie den aufgezeichneten Code:

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038

Sub Wechsel_Kopfzeile()
'
' Wechsel_Kopfzeile Makro
' Makro aufgezeichnet am xx.xx.2008 von www.vba-wordwelt.de
'

    'in die Kopfzeile wechseln
   If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
      ActiveWindow.Panes(2).Close
   End If
   If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
      ActivePane.View.Type = wdOutlineView Then
      ActiveWindow.ActivePane.View.Type = wdPrintView
   End If
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   Selection.TypeText Text:="Kopfzeile"
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


    'in die Fußzeile wechseln
   If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
      ActiveWindow.Panes(2).Close
   End If
   If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
      ActivePane.View.Type = wdOutlineView Then
      ActiveWindow.ActivePane.View.Type = wdPrintView
   End If
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   If Selection.HeaderFooter.IsHeader = True Then
      ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   Else
      ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   End If
   Selection.TypeText Text:="Fußzeile"
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

In Zeile 8 bis 17 wird in die Kopfzeile gewechselt und in Zeile 16 das Word Kopfzeile eingefügt.

In Zeile 21 bis 35 wird in die Fußzeile gewechselt und in Zeile 34 das Wort Fußzeile eingefügt.

Danach wird jeweils wieder in die vorherige Ansicht gewechselt.

Dieser Code kann eigentlich auf wenige Zeilen reduziert werden, ohne dass es Einbußen in der Funktionalität gibt:

001
002
003
004
005
006
007
008
009
010
011
012
013

Sub Kopfzeile_gehen()

    'in die Kopfzeile wechseln
   ActiveWindow.View.SeekView = wdSeekCurrentPageHeader

    'in die Fußzeile wechseln
   ActiveWindow.View.SeekView = wdSeekCurrentPageFooter

    'wieder in das "Hauptdokument" wechseln
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Der Wechsel in die Kopfzeile reduziert sich auf eine Zeile. Genauso ist es mit dem Wechel in die Fußzeile. In Zeile 10 wird wieder in die Ansicht des Hauptdokuments gewechselt.

zurück zur Übersicht Kopf- und Fußzeile