Error 424 "Objekt erforderlich"
06.12.2004 04:42:19
Patrick
Ich will ein Makro schreiben, in einem Buch ein neues Kapitel einfügt. Dafür soll es die Seitenzahl auslesen und so lange Seitenumbrüche einfügen bis das Kapitel auf ner geraden Seite anfängt...
Also, so weit bin ich bisher:
Sub Neues_Kapitel()
' Neues_Kapitel Makro
' Fügt ein neues Kapitel ein
Dim seite As Integer
Selection.InsertBreak Type:=wdPageBreak
seite = ActivePage.PageNumbers()
While seite Mod 2 <> 0
Selection.InsertBreak Type:=wdPageBreak
seite = ActivePage.PageNumbers()
Wend
For i = 1 To 18
Selection.TypeParagraph
Next i
Selection.Style = ActiveDocument.Styles("Kapitel")
Selection.InsertBreak Type:=wdPageBreak
End Sub
Dann kommt aber immer runtime error 424 "objekt erforderlich"...was mache ich Falsch? Brauche Hilfe...
MfG Patrick...
Danke für Antwort
Anzeige