Hallo,
ich möchte in Word 2007 ein Makro erstellen, dass mir per Tastendruck "F2"
1) einen Abschnittsumbruch einleitet
2) Auf Seite 2 in der Kopfzeile die Seitenzahl einfügt
3) Die Kopfzeile ab Seite 2 neu bearbeiten lässt
Ich habe das bestehende Dokument genommen, habe auf "Makros aufzeichnen" die Taste F2 zugeordnet und als erstes im Hauptdokument einen Abschnittsumbruch durchgeführt, anschließend in der Kopfzeile auf Seite 2 die Seitenzahlen eingefügt (Beginnend mit "1" auf Seite 2) , und den Haken entnommen bei "Verküpft mit vorheriger Kopfzeile"
Nun speichern als Word Dokument mit Makro. Öffne das Dokument, führe es aus und bekomme immer eine Laufzeitfehlermeldung...
Hier die Debuggingmeldung:
Sub Makro14()
'
' Makro14 Makro
'
'
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.MoveRight Unit:=wdCharacter, Count:=7
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
ActiveDocument.AttachedTemplate.BuildingBlockEntries("Einfache Zahl 2"). _
Insert Where:=Selection.Range, RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub