Vba foutcode 4608

[Kramer]

Ik heb een marco (zie bijlage). Ik krijg nadat ik hem opgenomen en opnieuw wil toepassen de fout 4608 tijdens uitvoering:
waarde buiten bereik.

Hierbij de code

Sub Macro1()

    Selection.WholeStory
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(0.7)
        .BottomMargin = CentimetersToPoints(0.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(0)
        .FooterDistance = CentimetersToPoints(1)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = 259
        .OtherPagesTray = 260
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = True
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
End Sub

Zodra ik voorbij With Selection.PageSetup ben krijg ik deze foutmeldingen en wanneer ik de regel uitschakel waarbij ik de foutcode krijg en verder ga krijg ik op de regel daaronder de zelfde melding en dit blijft hij doen tot End With.

Dit is een code dit ik heb opgenomen in WORD2003.

Wie o Wie kan mij helpen. Ik kan namelijk ook niets ervan vinden op Internet.

 

[Axel Hagg]

Dag Kramer,

Heb de code uitgeprobeerd en het werkt perfect.

Gegroet,

Axel.

 

[Relleboer]

Je kunt de Macro waarschijnlijk niet twee keer toepassen omdat alles al is ingesteld. probleem heb ik al vaker gehad. maar pas je het toe op een nieuw document dan doet ie het wel